Class TForm1 (unit CalcMain)

Inherits from

TForm

Constructors



Functions

procedure ItemsTableAfterDelete(DataSet: TDataSet);


procedure ItemsTableAfterPost(DataSet: TDataSet);

with

procedure OrdersTableCalcFields(DataSet: TDataSet);


Properties

Events

Variables

Database1 : TDatabase;


DBEdit1 : TDBEdit;


DBEdit2 : TDBEdit;


DBEdit3 : TDBEdit;


DBEdit4 : TDBEdit;


DBEdit5 : TDBEdit;


DBGrid1 : TDBGrid;


DBNavigator1 : TDBNavigator;


DBNavigator2 : TDBNavigator;


ItemsCalcSrc : TDataSource;


ItemsCalcTable : TTable;


ItemsSrc : TDataSource;


ItemsTable : TTable;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


OrdersSrc : TDataSource;


OrdersTable : TTable;


OrdersTableAmountPaid : TCurrencyField;


OrdersTableCustNo : TFloatField;


OrdersTableEmpNo : TIntegerField;


OrdersTableFreight : TCurrencyField;


OrdersTableItemsTotal : TCurrencyField;


OrdersTableOrderNo : TFloatField;


OrdersTableOrderTotal : TCurrencyField;


OrdersTablePaymentMethod : TStringField;


OrdersTablePO : TStringField;


OrdersTableSaleDate : TDateTimeField;


OrdersTableShipDate : TDateTimeField;


OrdersTableShipToAddr1 : TStringField;


OrdersTableShipToAddr2 : TStringField;


OrdersTableShipToCity : TStringField;


OrdersTableShipToContact : TStringField;


OrdersTableShipToCountry : TStringField;


OrdersTableShipToPhone : TStringField;


OrdersTableShipToState : TStringField;


OrdersTableShipToZip : TStringField;


OrdersTableShipVIA : TStringField;


OrdersTableTaxRate : TFloatField;


OrdersTableTerms : TStringField;


PartsTable : TTable;



Constructors


Functions


procedure ItemsTableAfterDelete(DataSet: TDataSet);


procedure ItemsTableAfterPost(DataSet: TDataSet);

with


procedure OrdersTableCalcFields(DataSet: TDataSet);


Properties


Events


Variables


Database1 : TDatabase;


DBEdit1 : TDBEdit;


DBEdit2 : TDBEdit;


DBEdit3 : TDBEdit;


DBEdit4 : TDBEdit;


DBEdit5 : TDBEdit;


DBGrid1 : TDBGrid;


DBNavigator1 : TDBNavigator;


DBNavigator2 : TDBNavigator;


ItemsCalcSrc : TDataSource;


ItemsCalcTable : TTable;


ItemsSrc : TDataSource;


ItemsTable : TTable;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


OrdersSrc : TDataSource;


OrdersTable : TTable;


OrdersTableAmountPaid : TCurrencyField;


OrdersTableCustNo : TFloatField;


OrdersTableEmpNo : TIntegerField;


OrdersTableFreight : TCurrencyField;


OrdersTableItemsTotal : TCurrencyField;


OrdersTableOrderNo : TFloatField;


OrdersTableOrderTotal : TCurrencyField;


OrdersTablePaymentMethod : TStringField;


OrdersTablePO : TStringField;


OrdersTableSaleDate : TDateTimeField;


OrdersTableShipDate : TDateTimeField;


OrdersTableShipToAddr1 : TStringField;


OrdersTableShipToAddr2 : TStringField;


OrdersTableShipToCity : TStringField;


OrdersTableShipToContact : TStringField;


OrdersTableShipToCountry : TStringField;


OrdersTableShipToPhone : TStringField;


OrdersTableShipToState : TStringField;


OrdersTableShipToZip : TStringField;


OrdersTableShipVIA : TStringField;


OrdersTableTaxRate : TFloatField;


OrdersTableTerms : TStringField;


PartsTable : TTable;