Class TfrmPrincipal (unit ARPrincipal)

Inherits from

TForm

Renamed from Principal.pas 6/20/1998 Paul Rice to avoid conflicts with the authors' work.

Constructors



Functions

procedure BTN_FreeClick(Sender: TObject);


procedure BTN_OcupyClick(Sender: TObject);


procedure Job1JobFull(Sender: TObject; var DoTerminate: Boolean);


Properties

Events

Variables

BTN_Free : TButton;


BTN_Ocupy : TButton;


DBG_Job : TDBGrid;


DBN_Navigator : TDBNavigator;


DTS_JOB : TDataSource;


Job1 : TJob;


TBL_JOB : TTable;



Constructors


Functions


procedure BTN_FreeClick(Sender: TObject);


procedure BTN_OcupyClick(Sender: TObject);


procedure Job1JobFull(Sender: TObject; var DoTerminate: Boolean);


Properties


Events


Variables


BTN_Free : TButton;


BTN_Ocupy : TButton;


DBG_Job : TDBGrid;


DBN_Navigator : TDBNavigator;


DTS_JOB : TDataSource;


Job1 : TJob;


TBL_JOB : TTable;