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;