| Class TDestTableDlg (unit DestTab) |
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);
function GetTableName: string;
function GetTableType: TTableType;
procedure SetTableName(const Value: string);
procedure SetTableType(Value: TTableType);| Properties |
property TableName : string
property TableType : TTableType| 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 : TTableTypePublic 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;