home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / borland / cb / setup / cbuilder / data.z / CUSTDATA.H < prev    next >
C/C++ Source or Header  |  1997-02-28  |  4KB  |  110 lines
  1. //----------------------------------------------------------------------------
  2. #ifndef CustDataH
  3. #define CustDataH
  4. //----------------------------------------------------------------------------
  5. #include <vcl\System.hpp>
  6. #include <vcl\SysUtils.hpp>
  7. #include <vcl\Windows.hpp>
  8. #include <vcl\Messages.hpp>
  9. #include <vcl\Classes.hpp>
  10. #include <vcl\Graphics.hpp>
  11. #include <vcl\Controls.hpp>
  12. #include <vcl\Forms.hpp>
  13. #include <vcl\Dialogs.hpp>
  14. #include <vcl\DBTables.hpp>
  15. #include <vcl\DB.hpp>
  16. //----------------------------------------------------------------------------
  17. class TCustomerData : public TDataModule
  18. {
  19. __published:
  20.     TTable *Customers;
  21.     TTable *Orders;
  22.     TTable *LineItems;
  23.     TFloatField *CustomersCustNo;
  24.     TStringField *CustomersCompany;
  25.     TStringField *CustomersAddr1;
  26.     TStringField *CustomersAddr2;
  27.     TStringField *CustomersCity;
  28.     TStringField *CustomersState;
  29.     TStringField *CustomersZip;
  30.     TStringField *CustomersCountry;
  31.     TStringField *CustomersPhone;
  32.     TStringField *CustomersFAX;
  33.     TFloatField *CustomersTaxRate;
  34.     TStringField *CustomersContact;
  35.     TDateTimeField *CustomersLastInvoiceDate;
  36.     TFloatField *OrdersOrderNo;
  37.     TFloatField *OrdersCustNo;
  38.     TDateTimeField *OrdersSaleDate;
  39.     TDateTimeField *OrdersShipDate;
  40.     TIntegerField *OrdersEmpNo;
  41.     TStringField *OrdersShipToContact;
  42.     TStringField *OrdersShipToAddr1;
  43.     TStringField *OrdersShipToAddr2;
  44.     TStringField *OrdersShipToCity;
  45.     TStringField *OrdersShipToState;
  46.     TStringField *OrdersShipToZip;
  47.     TStringField *OrdersShipToCountry;
  48.     TStringField *OrdersShipToPhone;
  49.     TStringField *OrdersShipVIA;
  50.     TStringField *OrdersPO;
  51.     TStringField *OrdersTerms;
  52.     TStringField *OrdersPaymentMethod;
  53.     TCurrencyField *OrdersItemsTotal;
  54.     TFloatField *OrdersTaxRate;
  55.     TCurrencyField *OrdersFreight;
  56.     TCurrencyField *OrdersAmountPaid;
  57.     TStringField *OrdersCustCompany;
  58.     TFloatField *LineItemsOrderNo;
  59.     TFloatField *LineItemsItemNo;
  60.     TFloatField *LineItemsPartNo;
  61.     TIntegerField *LineItemsQty;
  62.     TFloatField *LineItemsDiscount;
  63.     TCurrencyField *LineItemsPrice;
  64.     TTable *Parts;
  65.     TFloatField *PartsPartNo;
  66.     TFloatField *PartsVendorNo;
  67.     TStringField *PartsDescription;
  68.     TFloatField *PartsOnHand;
  69.     TFloatField *PartsOnOrder;
  70.     TCurrencyField *PartsCost;
  71.     TCurrencyField *PartsListPrice;
  72.     TCurrencyField *LineItemsExtendedPrice;
  73.     TCurrencyField *LineItemsTotal;
  74.     TStringField *LineItemsPartName;
  75.     TDataSource *CustomerSource;
  76.     TDataSource *OrderSource;
  77.     TDataSource *LineItemSource;
  78.     TDataSource *PartSource;
  79.     TTable *CustomerLookup;
  80.     TFloatField *FloatField1;
  81.     TStringField *StringField1;
  82.     TStringField *StringField2;
  83.     TStringField *StringField3;
  84.     TStringField *StringField4;
  85.     TStringField *StringField5;
  86.     TStringField *StringField6;
  87.     TStringField *StringField7;
  88.     TStringField *StringField8;
  89.     TStringField *StringField9;
  90.     TFloatField *FloatField2;
  91.     TStringField *StringField10;
  92.     TDateTimeField *DateTimeField1;
  93.     TTable *PartLookup;
  94.     TFloatField *FloatField3;
  95.     TFloatField *FloatField4;
  96.     TStringField *StringField11;
  97.     TFloatField *FloatField5;
  98.     TFloatField *FloatField6;
  99.     TCurrencyField *CurrencyField1;
  100.     TCurrencyField *CurrencyField2;
  101.     void __fastcall LineItemsCalcFields(TDataSet *DataSet);
  102. private:
  103. public:
  104.     virtual __fastcall TCustomerData(TComponent* AOwner);
  105. };
  106. //----------------------------------------------------------------------------
  107. extern TCustomerData *CustomerData;
  108. //----------------------------------------------------------------------------
  109. #endif    
  110.