Class TfrmTestHost (unit TstHost)

Inherits from

TForm

Constructors



Functions

procedure tblDetailBeforeInsert(DataSet: TDataset);

Simulate AutoInc-field, part two:

procedure tblDetailNewRecord(DataSet: TDataset);

Simulate AutoInc-field, part one:

procedure tblMasterBeforeDelete(DataSet: TDataset);


procedure tblMasterBeforeInsert(DataSet: TDataset);


procedure tblMasterNewRecord(DataSet: TDataset);

Simulate AutoInc-field, part one:

Properties

Events

Variables

DataHost1 : TDataHost;


dsMaster : TDataSource;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


tblDetail : TTable;


tblDetailAmountPaid : TCurrencyField;


tblDetailCustNo : TFloatField;


tblDetailEmpNo : TIntegerField;


tblDetailFreight : TCurrencyField;


tblDetailItemsTotal : TCurrencyField;


tblDetailOrderNo : TFloatField;


tblDetailPaymentMethod : TStringField;


tblDetailPO : TStringField;


tblDetailSaleDate : TDateTimeField;


tblDetailShipDate : TDateTimeField;


tblDetailShipToAddr1 : TStringField;


tblDetailShipToAddr2 : TStringField;


tblDetailShipToCity : TStringField;


tblDetailShipToContact : TStringField;


tblDetailShipToCountry : TStringField;


tblDetailShipToPhone : TStringField;


tblDetailShipToState : TStringField;


tblDetailShipToZip : TStringField;


tblDetailShipVIA : TStringField;


tblDetailTaxRate : TFloatField;


tblDetailTerms : TStringField;


tblMaster : TTable;


tblMasterAddr1 : TStringField;


tblMasterAddr2 : TStringField;


tblMasterCity : TStringField;


tblMasterCompany : TStringField;


tblMasterContact : TStringField;


tblMasterCountry : TStringField;


tblMasterCustNo : TFloatField;


tblMasterFAX : TStringField;


tblMasterLastInvoiceDate : TDateTimeField;


tblMasterPhone : TStringField;


tblMasterState : TStringField;


tblMasterTaxRate : TFloatField;


tblMasterZip : TStringField;


NewCustNo : Double;


NewOrderNo : Double;



Constructors


Functions


procedure tblDetailBeforeInsert(DataSet: TDataset);

Simulate AutoInc-field, part two:


procedure tblDetailNewRecord(DataSet: TDataset);

Simulate AutoInc-field, part one:


procedure tblMasterBeforeDelete(DataSet: TDataset);


procedure tblMasterBeforeInsert(DataSet: TDataset);


procedure tblMasterNewRecord(DataSet: TDataset);

Simulate AutoInc-field, part one:


Properties


Events


Variables


DataHost1 : TDataHost;


dsMaster : TDataSource;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


tblDetail : TTable;


tblDetailAmountPaid : TCurrencyField;


tblDetailCustNo : TFloatField;


tblDetailEmpNo : TIntegerField;


tblDetailFreight : TCurrencyField;


tblDetailItemsTotal : TCurrencyField;


tblDetailOrderNo : TFloatField;


tblDetailPaymentMethod : TStringField;


tblDetailPO : TStringField;


tblDetailSaleDate : TDateTimeField;


tblDetailShipDate : TDateTimeField;


tblDetailShipToAddr1 : TStringField;


tblDetailShipToAddr2 : TStringField;


tblDetailShipToCity : TStringField;


tblDetailShipToContact : TStringField;


tblDetailShipToCountry : TStringField;


tblDetailShipToPhone : TStringField;


tblDetailShipToState : TStringField;


tblDetailShipToZip : TStringField;


tblDetailShipVIA : TStringField;


tblDetailTaxRate : TFloatField;


tblDetailTerms : TStringField;


tblMaster : TTable;


tblMasterAddr1 : TStringField;


tblMasterAddr2 : TStringField;


tblMasterCity : TStringField;


tblMasterCompany : TStringField;


tblMasterContact : TStringField;


tblMasterCountry : TStringField;


tblMasterCustNo : TFloatField;


tblMasterFAX : TStringField;


tblMasterLastInvoiceDate : TDateTimeField;


tblMasterPhone : TStringField;


tblMasterState : TStringField;


tblMasterTaxRate : TFloatField;


tblMasterZip : TStringField;


NewCustNo : Double;


NewOrderNo : Double;