Class TRestructForm (unit uDBD)

Inherits from

TForm

GV_FIELDROSTERKEY = 4;

Constructors



Functions

procedure About1Click(Sender: TObject);


procedure Exit1Click(Sender: TObject);

If the user selects Exit, then close this form.

procedure FieldRosterDragDrop(Sender, Source: TObject; X, Y: Integer);


procedure FieldRosterDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);


procedure FieldRosterKeyPress(Sender: TObject; var Key: Char);

If the user presses the key in the Grid treat it as a tab with row-wrapping, inserting a new row if necessary.

procedure FieldRosterKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);

If the user presses the then delete the current row.

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);

Initialize this form by setting the Table Roster headings, initializing the FieldTypeName array to contain all available field types

procedure New1Click(Sender: TObject);

If the user selects New, then clear the Field Roaster.

procedure Open1Click(Sender: TObject);

If the user selects Open, then execute the Open Dialog.

procedure Pack1Click(Sender: TObject);


procedure Save1Click(Sender: TObject);

If the user selects Save then save the table.

procedure SaveAs1Click(Sender: TObject);

If the user selects SaveAs, then execute the Save Dialog.

procedure Open(TblName: String);

Display the structure information of a table by opening the table, modifies the field roster to reflect table information and then closing the table.

procedure RegisterRoster;

custom event handlers

Register all the fields in the Roster


procedure RegisterTable(Table: TTable);

Display all the fields in the table in the roster

procedure Save(TblName: String);

Using the structure information in the Table Roster create a new table.

Properties

Events

Variables

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;



Constructors


Functions


procedure About1Click(Sender: TObject);


procedure Exit1Click(Sender: TObject);

If the user selects Exit, then close this form.


procedure FieldRosterDragDrop(Sender, Source: TObject; X, Y: Integer);


procedure FieldRosterDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);


procedure FieldRosterKeyPress(Sender: TObject; var Key: Char);

If the user presses the key in the Grid treat it as a tab with row-wrapping, inserting a new row if necessary.


procedure FieldRosterKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);

If the user presses the then delete the current row. If there is only one row remaining then clear the row, but don't delete it. If the user presses then insert a new record. If the user presses then duplicate the above cell.


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);

Initialize this form by setting the Table Roster headings, initializing the FieldTypeName array to contain all available field types


procedure New1Click(Sender: TObject);

If the user selects New, then clear the Field Roaster.


procedure Open1Click(Sender: TObject);

If the user selects Open, then execute the Open Dialog. If a file is selected, then execute the open command.


procedure Pack1Click(Sender: TObject);


procedure Save1Click(Sender: TObject);

If the user selects Save then save the table. If the SaveDialog filename has not been specified then call SaveAs.


procedure SaveAs1Click(Sender: TObject);

If the user selects SaveAs, then execute the Save Dialog. If a file name is specified, then save the table.


procedure Open(TblName: String);

Display the structure information of a table by opening the table, modifies the field roster to reflect table information and then closing the table.


procedure RegisterRoster;

custom event handlers

Register all the fields in the Roster


procedure RegisterTable(Table: TTable);

Display all the fields in the table in the roster


procedure Save(TblName: String);

Using the structure information in the Table Roster create a new table.


Properties


Events


Variables


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;