Class TfrmTestHost (unit TstHost) |
Inherits from
TForm
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:
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;
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:
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;