| Class TfrmPrincipal (unit ARPrincipal) |
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;