home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1996 August / VPR9608A.BIN / del20try / install / data.z / DATASETS.PAS < prev    next >
Pascal/Delphi Source File  |  1996-05-08  |  3KB  |  93 lines
  1. unit datasets;
  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.     LineItemsTotal: TCurrencyField;
  64.     LineItemsPartName: TStringField;
  65.     CustomerSource: TDataSource;
  66.     OrderSource: TDataSource;
  67.     LineItemSource: TDataSource;
  68.     PartSource: TDataSource;
  69.     LineItemsExtendedPrice: TCurrencyField;
  70.     procedure LineItemsCalcFields(DataSet: TDataSet);
  71.   private
  72.     { Private declarations }
  73.   public
  74.     { Public declarations }
  75.   end;
  76.  
  77. var
  78.   CustomerData: TCustomerData;
  79.  
  80. implementation
  81.  
  82. {$R *.DFM}
  83.  
  84. procedure TCustomerData.LineItemsCalcFields(DataSet: TDataSet);
  85. begin
  86.   LineItemsExtendedPrice.Value := LineItemsPrice.Value *
  87.     ((100 - LineItemsDiscount.Value) / 100);
  88.   LineItemsTotal.Value := LineItemsExtendedPrice.Value *
  89.     LineItemsQty.Value;
  90. end;
  91.  
  92. end.
  93.