Class TTabDefaultsForm (unit TableDefaults)

Inherits from

TForm

Constructors



Functions

procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure OKButClick(Sender: TObject);


function SetDefaults: boolean;

Num := Num + 1; if Num > MAX_COMBO_ITEMS then break;

procedure SetTable(Table: TTable);


procedure DefChange(Sender: TObject);


procedure Fill_Combo(cb: TComboBox; f: TField);


function HasDefault(const FieldName: string): boolean;


procedure SetComboID(cb: TDefComboBox; ID: integer);


Properties

Events

Variables

BotPanel : TPanel;


CancelBut : TBitBtn;


OKBut : TBitBtn;


ScrollBox1 : TScrollBox;


CurTable : TTable;


Defaults : TStringList;



Constructors


Functions


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure OKButClick(Sender: TObject);


function SetDefaults: boolean;

Num := Num + 1; if Num > MAX_COMBO_ITEMS then break;


procedure SetTable(Table: TTable);


procedure DefChange(Sender: TObject);


procedure Fill_Combo(cb: TComboBox; f: TField);


function HasDefault(const FieldName: string): boolean;


procedure SetComboID(cb: TDefComboBox; ID: integer);


Properties


Events


Variables


BotPanel : TPanel;


CancelBut : TBitBtn;


OKBut : TBitBtn;


ScrollBox1 : TScrollBox;


CurTable : TTable;


Defaults : TStringList;