home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 August / VPR9708A.ISO / D3TRIAL / INSTALL / DATA.Z / CUSTDATA.PAS < prev    next >
Pascal/Delphi Source File  |  1997-05-02  |  3KB  |  115 lines
  1. unit CustData;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms,
  7.   Dialogs, DBTables, DB;
  8.  
  9. type
  10.   TCustomerData = class(TDataModule)
  11.     Customers: TTable;
  12.     Orders: TTable;
  13.     LineItems: TTable;
  14.     CustomersCustNo: TFloatField;
  15.     CustomersCompany: TStringField;
  16.     CustomersAddr1: TStringField;
  17.     CustomersAddr2: TStringField;
  18.     CustomersCity: TStringField;
  19.     CustomersState: TStringField;
  20.     CustomersZip: TStringField;
  21.     CustomersCountry: TStringField;
  22.     CustomersPhone: TStringField;
  23.     CustomersFAX: TStringField;
  24.     CustomersTaxRate: TFloatField;
  25.     CustomersContact: TStringField;
  26.     CustomersLastInvoiceDate: TDateTimeField;
  27.     OrdersOrderNo: TFloatField;
  28.     OrdersCustNo: TFloatField;
  29.     OrdersSaleDate: TDateTimeField;
  30.     OrdersShipDate: TDateTimeField;
  31.     OrdersEmpNo: TIntegerField;
  32.     OrdersShipToContact: TStringField;
  33.     OrdersShipToAddr1: TStringField;
  34.     OrdersShipToAddr2: TStringField;
  35.     OrdersShipToCity: TStringField;
  36.     OrdersShipToState: TStringField;
  37.     OrdersShipToZip: TStringField;
  38.     OrdersShipToCountry: TStringField;
  39.     OrdersShipToPhone: TStringField;
  40.     OrdersShipVIA: TStringField;
  41.     OrdersPO: TStringField;
  42.     OrdersTerms: TStringField;
  43.     OrdersPaymentMethod: TStringField;
  44.     OrdersItemsTotal: TCurrencyField;
  45.     OrdersTaxRate: TFloatField;
  46.     OrdersFreight: TCurrencyField;
  47.     OrdersAmountPaid: TCurrencyField;
  48.     OrdersCustCompany: TStringField;
  49.     LineItemsOrderNo: TFloatField;
  50.     LineItemsItemNo: TFloatField;
  51.     LineItemsPartNo: TFloatField;
  52.     LineItemsQty: TIntegerField;
  53.     LineItemsDiscount: TFloatField;
  54.     LineItemsPrice: TCurrencyField;
  55.     Parts: TTable;
  56.     PartsPartNo: TFloatField;
  57.     PartsVendorNo: TFloatField;
  58.     PartsDescription: TStringField;
  59.     PartsOnHand: TFloatField;
  60.     PartsOnOrder: TFloatField;
  61.     PartsCost: TCurrencyField;
  62.     PartsListPrice: TCurrencyField;
  63.     LineItemsExtendedPrice: TCurrencyField;
  64.     LineItemsTotal: TCurrencyField;
  65.     LineItemsPartName: TStringField;
  66.     CustomerSource: TDataSource;
  67.     OrderSource: TDataSource;
  68.     LineItemSource: TDataSource;
  69.     PartSource: TDataSource;
  70.     CustomerLookup: TTable;
  71.     FloatField1: TFloatField;
  72.     StringField1: TStringField;
  73.     StringField2: TStringField;
  74.     StringField3: TStringField;
  75.     StringField4: TStringField;
  76.     StringField5: TStringField;
  77.     StringField6: TStringField;
  78.     StringField7: TStringField;
  79.     StringField8: TStringField;
  80.     StringField9: TStringField;
  81.     FloatField2: TFloatField;
  82.     StringField10: TStringField;
  83.     DateTimeField1: TDateTimeField;
  84.     PartLookup: TTable;
  85.     FloatField3: TFloatField;
  86.     FloatField4: TFloatField;
  87.     StringField11: TStringField;
  88.     FloatField5: TFloatField;
  89.     FloatField6: TFloatField;
  90.     CurrencyField1: TCurrencyField;
  91.     CurrencyField2: TCurrencyField;
  92.     procedure LineItemsCalcFields(DataSet: TDataSet);
  93.   private
  94.     { Private 宣言 }
  95.   public
  96.     { Public 宣言 }
  97.   end;
  98.  
  99. var
  100.   CustomerData: TCustomerData;
  101.  
  102. implementation
  103.  
  104. {$R *.DFM}
  105.  
  106. procedure TCustomerData.LineItemsCalcFields(DataSet: TDataSet);
  107. begin
  108.   LineItemsExtendedPrice.Value := LineItemsPrice.Value *
  109.     ((100 - LineItemsDiscount.Value) / 100);
  110.   LineItemsTotal.Value := LineItemsExtendedPrice.Value *
  111.     LineItemsQty.Value;
  112. end;
  113.  
  114. end.
  115.