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;