Class TfrmMain (unit Unit1)
Inherits from
TForm
Constructors
Functions
procedure btnCloseClick(Sender: TObject);
procedure btnPrintClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
Properties
Events
Variables
btnClose : TButton;
btnPrint : TButton;
dtcCustomers : TDataSource;
PrintRecord1 : TPrintRecord;
tblCustomers : TTable;
tblCustomersAddr1 : TStringField;
tblCustomersAddr2 : TStringField;
tblCustomersCity : TStringField;
tblCustomersCompany : TStringField;
tblCustomersContact : TStringField;
tblCustomersCountry : TStringField;
tblCustomersCustNo : TFloatField;
tblCustomersFAX : TStringField;
tblCustomersLastInvoiceDate : TDateTimeField;
tblCustomersPhone : TStringField;
tblCustomersState : TStringField;
tblCustomersTaxRate : TFloatField;
tblCustomersZip : TStringField;
Constructors
Functions
procedure btnCloseClick(Sender: TObject);
procedure btnPrintClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
Properties
Events
Variables
btnClose : TButton;
btnPrint : TButton;
dtcCustomers : TDataSource;
PrintRecord1 : TPrintRecord;
tblCustomers : TTable;
tblCustomersAddr1 : TStringField;
tblCustomersAddr2 : TStringField;
tblCustomersCity : TStringField;
tblCustomersCompany : TStringField;
tblCustomersContact : TStringField;
tblCustomersCountry : TStringField;
tblCustomersCustNo : TFloatField;
tblCustomersFAX : TStringField;
tblCustomersLastInvoiceDate : TDateTimeField;
tblCustomersPhone : TStringField;
tblCustomersState : TStringField;
tblCustomersTaxRate : TFloatField;
tblCustomersZip : TStringField;