home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1999 February / DPPCPRO0299.ISO / February / Delphi / Install / DATA.Z / MAINDATA.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-06-11  |  2.2 KB  |  75 lines
  1. unit MainData;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   DBTables, DB;
  8.  
  9. type
  10.   TDMMain = class(TDataModule)
  11.     tbOrders: TTable;
  12.     OrdersSoruce: TDataSource;
  13.     tbOrdersOrderNo: TFloatField;
  14.     tbOrdersCustNo: TFloatField;
  15.     tbOrdersSaleDate: TDateTimeField;
  16.     tbOrdersShipDate: TDateTimeField;
  17.     tbOrdersEmpNo: TIntegerField;
  18.     tbOrdersShipToContact: TStringField;
  19.     tbOrdersShipToAddr1: TStringField;
  20.     tbOrdersShipToAddr2: TStringField;
  21.     tbOrdersShipToCity: TStringField;
  22.     tbOrdersShipToState: TStringField;
  23.     tbOrdersShipToZip: TStringField;
  24.     tbOrdersShipToCountry: TStringField;
  25.     tbOrdersShipToPhone: TStringField;
  26.     tbOrdersShipVIA: TStringField;
  27.     tbOrdersPO: TStringField;
  28.     tbOrdersTerms: TStringField;
  29.     tbOrdersPaymentMethod: TStringField;
  30.     tbOrdersItemsTotal: TCurrencyField;
  31.     tbOrdersTaxRate: TFloatField;
  32.     tbOrdersFreight: TCurrencyField;
  33.     tbOrdersAmountPaid: TCurrencyField;
  34.     tbCustomer: TTable;
  35.     tbCustomerCustNo: TFloatField;
  36.     tbCustomerCompany: TStringField;
  37.     tbCustomerAddr1: TStringField;
  38.     tbCustomerAddr2: TStringField;
  39.     tbCustomerCity: TStringField;
  40.     tbCustomerState: TStringField;
  41.     tbCustomerZip: TStringField;
  42.     tbCustomerCountry: TStringField;
  43.     tbCustomerPhone: TStringField;
  44.     tbCustomerFAX: TStringField;
  45.     tbCustomerTaxRate: TFloatField;
  46.     tbCustomerContact: TStringField;
  47.     tbCustomerLastInvoiceDate: TDateTimeField;
  48.     tbEmployee: TTable;
  49.     CustomerSource: TDataSource;
  50.     EmployeeSource: TDataSource;
  51.     tbOrdersCustomerName: TStringField;
  52.     tbOrdersEmployeeLastName: TStringField;
  53.     tbOrdersEmployeeFirstName: TStringField;
  54.     tbOrdersEmployeeFullName: TStringField;
  55.     procedure tbOrdersCalcFields(DataSet: TDataSet);
  56.   end;
  57.  
  58. var
  59.   DMMain: TDMMain;
  60.  
  61. implementation
  62.  
  63. {$R *.DFM}
  64.  
  65. procedure TDMMain.tbOrdersCalcFields(DataSet: TDataSet);
  66. begin
  67.   if tbOrdersEmployeeFirstName.isNull then
  68.     tbOrdersEmployeeFullName.Value := tbOrdersEmployeeLastName.Value
  69.   else
  70.     tbOrdersEmployeeFullName.Value := tbOrdersEmployeeFirstName.Value + ' ' +
  71.       tbOrdersEmployeeLastName.Value ;
  72. end;
  73.  
  74. end.
  75.