Class TForm1 (unit Folbdemo)
Inherits from
TForm
Constructors
Functions
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
Query1.
Properties
Events
Variables
DBGrid1 : TDBGrid;
DBNavigator1 : TDBNavigator;
DSDepartment : TDataSource;
DSPersonel : TDataSource;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
LookupOutline1 : TLookupOutline;
OutlineBrowser1 : TOutlineBrowser;
OutlineBrowser3 : TOutlineBrowser;
Panel1 : TPanel;
TabbedNotebook1 : TTabbedNotebook;
TableDepartment : TTable;
TableDepartmentDateEstablished : TDateField;
TableDepartmentDepartmentID : TStringField;
TableDepartmentDescription : TStringField;
TableDepartmentManagerID : TStringField;
TableDepartmentOperatingCost : TCurrencyField;
TableDepartmentOwnerDept : TStringField;
TableDepartmentStaffSize : TSmallintField;
TableDepartmentStaffTurnover : TFloatField;
TablePersonel : TTable;
TablePersonelBoss : TStringField;
TablePersonelEmpNo : TStringField;
TablePersonelFirstName : TStringField;
TablePersonelHireDate : TDateTimeField;
TablePersonelLastName : TStringField;
TablePersonelPhoneExt : TStringField;
TablePersonelSalary : TFloatField;
Constructors
Functions
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
Query1.Open;
Properties
Events
Variables
DBGrid1 : TDBGrid;
DBNavigator1 : TDBNavigator;
DSDepartment : TDataSource;
DSPersonel : TDataSource;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
LookupOutline1 : TLookupOutline;
OutlineBrowser1 : TOutlineBrowser;
OutlineBrowser3 : TOutlineBrowser;
Panel1 : TPanel;
TabbedNotebook1 : TTabbedNotebook;
TableDepartment : TTable;
TableDepartmentDateEstablished : TDateField;
TableDepartmentDepartmentID : TStringField;
TableDepartmentDescription : TStringField;
TableDepartmentManagerID : TStringField;
TableDepartmentOperatingCost : TCurrencyField;
TableDepartmentOwnerDept : TStringField;
TableDepartmentStaffSize : TSmallintField;
TableDepartmentStaffTurnover : TFloatField;
TablePersonel : TTable;
TablePersonelBoss : TStringField;
TablePersonelEmpNo : TStringField;
TablePersonelFirstName : TStringField;
TablePersonelHireDate : TDateTimeField;
TablePersonelLastName : TStringField;
TablePersonelPhoneExt : TStringField;
TablePersonelSalary : TFloatField;