| Class TForm1 (unit dB3Tabl1) |
TForm
--------------------------------------------------------------------------- * TYPES/CLASSSES *---------------------------------------------------------------------------
| Constructors |
| Functions |
procedure BtnActivateIndexClick(Sender: TObject);
procedure BtnDeActivateIndexClick(Sender: TObject);
procedure BtnExitClick(Sender: TObject);
procedure BtnGenerateIndexClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure RefreshButtons;-------------------------- EOP FormCreate -----------------------------------} {----------------------------------------------------------------------------- * RefreshButtons: sets all button states * called when form is generated or whenever a button * which may affect button states is clicked *----------------------------------------------------------------------------- * Input: * name type meaning * Output: *-----------------------------------------------------------------------------
| Properties |
| Events |
| Variables |
BtnActivateIndex : TSpeedButton;
BtnDeActivateIndex : TSpeedButton;
BtnExit : TSpeedButton;
BtnGenerateIndex : TSpeedButton;
DataSource1 : TDataSource;
DBGrid1 : TDBGrid;
Panel1 : TPanel;
UZTable1 : TUZTable;
UZTable1TESTA : TStringField;
UZTable1TESTN : TFloatField;| Constructors |
| Functions |
procedure BtnActivateIndexClick(Sender: TObject);-------------------------- EOP BtnGenerateIndexClick ------------------------} {----------------------------------------------------------------------------- * BtnActivateIndexClick: activates the index *----------------------------------------------------------------------------- * Input: * name type meaning * Output: *-----------------------------------------------------------------------------
procedure BtnDeActivateIndexClick(Sender: TObject);-------------------------- EOP BtnActivateIndexClick ------------------------} {----------------------------------------------------------------------------- * BtnDeActivateIndexClick: deactivates the index *----------------------------------------------------------------------------- * Input: * name type meaning * Output: *-----------------------------------------------------------------------------
procedure BtnExitClick(Sender: TObject);-------------------------- EOP BtnDeActivateIndexClick ----------------------} {----------------------------------------------------------------------------- * BtnExitClick: exit *----------------------------------------------------------------------------- * Input: * name type meaning * Output: *-----------------------------------------------------------------------------
procedure BtnGenerateIndexClick(Sender: TObject);--------------------------------------------------------------------------- * Include of Form *---------------------------------------------------------------------------} {$R *.DFM} {----------------------------------------------------------------------------- * BtnGenerateIndexClick: generates the dBASEIII+ index file on table * dbIII.DBF *----------------------------------------------------------------------------- * Input: * name type meaning * Output: *-----------------------------------------------------------------------------
procedure FormCreate(Sender: TObject);-------------------------- EOP BtnExitClick ---------------------------------} {----------------------------------------------------------------------------- * FormCreate: called when form is generated, set initial bitton states *----------------------------------------------------------------------------- * Input: * name type meaning * Output: *-----------------------------------------------------------------------------
procedure RefreshButtons;--------------------------------------------------------------------------- * NON DELPHI *---------------------------------------------------------------------------
-------------------------- EOP FormCreate -----------------------------------} {----------------------------------------------------------------------------- * RefreshButtons: sets all button states * called when form is generated or whenever a button * which may affect button states is clicked *----------------------------------------------------------------------------- * Input: * name type meaning * Output: *-----------------------------------------------------------------------------
| Properties |
| Events |
| Variables |
BtnActivateIndex : TSpeedButton;
BtnDeActivateIndex : TSpeedButton;
BtnExit : TSpeedButton;
BtnGenerateIndex : TSpeedButton;
DataSource1 : TDataSource;
DBGrid1 : TDBGrid;
Panel1 : TPanel;
UZTable1 : TUZTable;
UZTable1TESTA : TStringField;
UZTable1TESTN : TFloatField;