Class TForm1 (unit dB3Tabl1)

Inherits from

TForm

--------------------------------------------------------------------------- * TYPES/CLASSSES *---------------------------------------------------------------------------

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 *.

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;



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;