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;