home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 September / Chip_2002-09_cd1.bin / zkuste / delphi / kompon / d456 / EKRTF.ZIP / MainDemo / Unit2.pas < prev    next >
Pascal/Delphi Source File  |  2000-09-24  |  5KB  |  151 lines
  1. unit Unit2;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Db, DBTables;
  8.  
  9. type
  10.   TDM = class(TDataModule)
  11.     Orders: TTable;
  12.     CustByLastInvQuery: TQuery;
  13.     CustByLastInvQueryCustNo: TFloatField;
  14.     CustByLastInvQueryCompany: TStringField;
  15.     CustByLastInvQueryAddr1: TStringField;
  16.     CustByLastInvQueryAddr2: TStringField;
  17.     CustByLastInvQueryCity: TStringField;
  18.     CustByLastInvQueryState: TStringField;
  19.     CustByLastInvQueryZip: TStringField;
  20.     CustByLastInvQueryCountry: TStringField;
  21.     CustByLastInvQueryPhone: TStringField;
  22.     CustByLastInvQueryFAX: TStringField;
  23.     CustByLastInvQueryTaxRate: TFloatField;
  24.     CustByLastInvQueryContact: TStringField;
  25.     CustByLastInvQueryLastInvoiceDate: TDateTimeField;
  26.     OrdersByDateQuery: TQuery;
  27.     OrdersByDateQueryOrderNo: TFloatField;
  28.     OrdersByDateQueryCustNo: TFloatField;
  29.     OrdersByDateQueryEmpNo: TIntegerField;
  30.     OrdersByDateQuerySaleDate: TDateTimeField;
  31.     OrdersByDateQueryShipToContact: TStringField;
  32.     OrdersByDateQueryShipToAddr1: TStringField;
  33.     OrdersByDateQueryShipToAddr2: TStringField;
  34.     OrdersByDateQueryShipToCity: TStringField;
  35.     OrdersByDateQueryShipToState: TStringField;
  36.     OrdersByDateQueryShipToZip: TStringField;
  37.     OrdersByDateQueryShipToCountry: TStringField;
  38.     OrdersByDateQueryShipToPhone: TStringField;
  39.     OrdersByDateQueryShipVIA: TStringField;
  40.     OrdersByDateQueryPO: TStringField;
  41.     OrdersByDateQueryTerms: TStringField;
  42.     OrdersByDateQueryPaymentMethod: TStringField;
  43.     OrdersByDateQueryItemsTotal: TCurrencyField;
  44.     OrdersByDateQueryTaxRate: TFloatField;
  45.     OrdersByDateQueryFreight: TCurrencyField;
  46.     OrdersByDateQueryAmountPaid: TCurrencyField;
  47.     OrdersByDateQueryCompany: TStringField;
  48.     OrdersByDateQueryShipDate: TDateTimeField;
  49.     Cust: TTable;
  50.     Items: TTable;
  51.     ItemsItemNo: TFloatField;
  52.     ItemsOrderNo: TFloatField;
  53.     ItemsPartNo: TFloatField;
  54.     ItemsDescription: TStringField;
  55.     ItemsSellPrice: TCurrencyField;
  56.     ItemsQty: TIntegerField;
  57.     ItemsDiscount: TFloatField;
  58.     ItemsExtPrice: TCurrencyField;
  59.     OrdersSource: TDataSource;
  60.     Parts: TTable;
  61.     PartsPartNo: TFloatField;
  62.     PartsDescription: TStringField;
  63.     PartsVendorNo: TFloatField;
  64.     PartsOnHand: TFloatField;
  65.     PartsOnOrder: TFloatField;
  66.     PartsBackOrd: TBooleanField;
  67.     PartsCost: TCurrencyField;
  68.     PartsListPrice: TCurrencyField;
  69.     Emps: TTable;
  70.     EmpsEmpNo: TIntegerField;
  71.     EmpsFullName: TStringField;
  72.     EmpsLastName: TStringField;
  73.     EmpsFirstName: TStringField;
  74.     EmpsPhoneExt: TStringField;
  75.     EmpsHireDate: TDateTimeField;
  76.     EmpsSalary: TFloatField;
  77.     OrdersOrderNo: TFloatField;
  78.     OrdersCustNo: TFloatField;
  79.     OrdersSaleDate: TDateTimeField;
  80.     OrdersShipDate: TDateTimeField;
  81.     OrdersEmpNo: TIntegerField;
  82.     OrdersShipToContact: TStringField;
  83.     OrdersShipToAddr1: TStringField;
  84.     OrdersShipToAddr2: TStringField;
  85.     OrdersShipToCity: TStringField;
  86.     OrdersShipToState: TStringField;
  87.     OrdersShipToZip: TStringField;
  88.     OrdersShipToCountry: TStringField;
  89.     OrdersShipToPhone: TStringField;
  90.     OrdersShipVIA: TStringField;
  91.     OrdersPO: TStringField;
  92.     OrdersTerms: TStringField;
  93.     OrdersPaymentMethod: TStringField;
  94.     OrdersItemsTotal: TCurrencyField;
  95.     OrdersTaxRate: TFloatField;
  96.     OrdersFreight: TCurrencyField;
  97.     OrdersAmountPaid: TCurrencyField;
  98.     OrdersSalesPerson: TStringField;
  99.     OrdersTaxTotal: TFloatField;
  100.     OrdersAmountDue: TFloatField;
  101.     Vendor: TTable;
  102.     CustByCompany: TQuery;
  103.     FloatField1: TFloatField;
  104.     StringField1: TStringField;
  105.     StringField2: TStringField;
  106.     StringField3: TStringField;
  107.     StringField4: TStringField;
  108.     StringField5: TStringField;
  109.     StringField6: TStringField;
  110.     StringField7: TStringField;
  111.     StringField8: TStringField;
  112.     StringField9: TStringField;
  113.     FloatField2: TFloatField;
  114.     StringField10: TStringField;
  115.     DateTimeField1: TDateTimeField;
  116.     procedure ItemsCalcFields(DataSet: TDataSet);
  117.     procedure OrdersCalcFields(DataSet: TDataSet);
  118.     procedure EmpsCalcFields(DataSet: TDataSet);
  119.   private
  120.     { Private declarations }
  121.   public
  122.     { Public declarations }
  123.   end;
  124.  
  125. var
  126.   DM: TDM;
  127.  
  128. implementation
  129.  
  130. {$R *.DFM}
  131.  
  132. procedure TDM.ItemsCalcFields(DataSet: TDataSet);
  133. begin
  134.   ItemsExtPrice.Value := ItemsQty.Value *
  135.     ItemsSellPrice.Value * (100 - ItemsDiscount.Value) / 100;
  136. end;
  137.  
  138. procedure TDM.OrdersCalcFields(DataSet: TDataSet);
  139. begin
  140.   OrdersTaxTotal.Value := OrdersItemsTotal.Value * (OrdersTaxRate.Value / 100);
  141.   OrdersAmountDue.Value := OrdersItemsTotal.Value + OrdersTaxTotal.Value +
  142.     OrdersFreight.Value - OrdersAmountPaid.Value;
  143. end;
  144.  
  145. procedure TDM.EmpsCalcFields(DataSet: TDataSet);
  146. begin
  147.   EmpsFullName.Value := Format('%s, %s', [EmpsLastName.Value, EmpsFirstName.Value]);
  148. end;
  149.  
  150. end.
  151.