Class TDestTableDlg (unit DestTab)

Inherits from

TForm

Constructors



Functions

procedure OkBtnClick(Sender: TObject);


procedure RecordCountBtnClick(Sender: TObject);


procedure TabnameEditAfterDialog(Sender: TObject; var Name: string; var Action: Boolean);


procedure TabnameEditChange(Sender: TObject);


procedure TypeBtnClick(Sender: TObject);


procedure CreateParams(var Params: TCreateParams);

TDestTableDlg

function GetTableName: string;


function GetTableType: TTableType;

Private declarations

procedure SetTableName(const Value: string);


procedure SetTableType(Value: TTableType);


Properties

property TableName : string


property TableType : TTableType

Public declarations

Events

Variables

AllRecsBtn : TRadioButton;


CancelBtn : TButton;


FirstRecsBtn : TRadioButton;


FormStorage : TFormStorage;


Label1 : TLabel;


Label2 : TLabel;


OkBtn : TButton;


RecordCntEdit : TCurrencyEdit;


RecordCountBox : TGroupBox;


TabnameEdit : TFilenameEdit;


TypeBtn : TRadioGroup;



Constructors


Functions


procedure OkBtnClick(Sender: TObject);


procedure RecordCountBtnClick(Sender: TObject);


procedure TabnameEditAfterDialog(Sender: TObject; var Name: string; var Action: Boolean);


procedure TabnameEditChange(Sender: TObject);


procedure TypeBtnClick(Sender: TObject);


procedure CreateParams(var Params: TCreateParams);

TDestTableDlg


function GetTableName: string;


function GetTableType: TTableType;

Private declarations


procedure SetTableName(const Value: string);


procedure SetTableType(Value: TTableType);


Properties


property TableName : string


property TableType : TTableType

Public declarations


Events


Variables


AllRecsBtn : TRadioButton;


CancelBtn : TButton;


FirstRecsBtn : TRadioButton;


FormStorage : TFormStorage;


Label1 : TLabel;


Label2 : TLabel;


OkBtn : TButton;


RecordCntEdit : TCurrencyEdit;


RecordCountBox : TGroupBox;


TabnameEdit : TFilenameEdit;


TypeBtn : TRadioGroup;