Class TRestructForm (unit uDBD) |
TForm
GV_FIELDROSTERKEY = 4;
Constructors |
Functions |
Register all the fields in the Roster
Properties |
Events |
Variables |
Constructors |
Functions |
If the user selects Exit, then close this form.
If the user presses the
If the user presses the
Initialize this form by setting the Table Roster headings,
initializing the FieldTypeName array to contain all available field types
If the user selects New, then clear the Field Roaster.
If the user selects Open, then execute the Open Dialog.
If a file is selected, then execute the open command.
If the user selects Save then save the table.
If the SaveDialog filename has not been specified then call SaveAs.
If the user selects SaveAs, then execute the Save Dialog.
If a file name is specified, then save the table.
Display the structure information of a table by opening the table,
modifies the field roster to reflect table information
and then closing the table.
custom event handlers
Register all the fields in the Roster
Display all the fields in the table in the roster
Using the structure information in the Table Roster create a new table.
Properties Events Variables procedure FieldRosterKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FieldRosterSelectCell(Sender: TObject; Col, Row: Longint;
var CanSelect: Boolean);
procedure FieldRosterSetEditText(Sender: TObject; ACol, ARow: Longint;
const Value: string);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure New1Click(Sender: TObject);
procedure Open1Click(Sender: TObject);
procedure Pack1Click(Sender: TObject);
procedure Save1Click(Sender: TObject);
procedure SaveAs1Click(Sender: TObject);
procedure Open(TblName: String);
procedure RegisterRoster;
procedure RegisterTable(Table: TTable);
procedure Save(TblName: String);
About1 : TMenuItem;
Exit1 : TMenuItem;
FieldRoster : TStringGrid;
File1 : TMenuItem;
Help1 : TMenuItem;
ListBox1 : TListBox;
MainMenu1 : TMainMenu;
N1 : TMenuItem;
New1 : TMenuItem;
Open1 : TMenuItem;
OpenDialog1 : TOpenDialog;
Options1 : TMenuItem;
Pack1 : TMenuItem;
Panel1 : TPanel;
Panel2 : TPanel;
Save1 : TMenuItem;
SaveAs1 : TMenuItem;
SaveDialog1 : TSaveDialog;
TableEditor : TCtTableEditor;