home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 9 / CDACTUAL9.iso / progs / CB / DATA.Z / DM.H < prev    next >
Encoding:
C/C++ Source or Header  |  1996-08-19  |  2.1 KB  |  57 lines
  1. //---------------------------------------------------------------------------
  2. #ifndef DMH
  3. #define DMH
  4. //---------------------------------------------------------------------------
  5. #include <Forms.hpp>
  6. #include <DBTables.hpp>
  7. #include <DB.hpp>
  8. #include <Controls.hpp>
  9. #include <Classes.hpp>
  10. //---------------------------------------------------------------------------
  11. class TDM1 : public TDataModule
  12. {
  13. __published:
  14.     TTable *tblMaster;
  15.     TStringField *tblMasterSYMBOL;
  16.     TStringField *tblMasterCO_NAME;
  17.     TStringField *tblMasterEXCHANGE;
  18.     TStringField *tblMasterIndustryLongName;
  19.     TFloatField *tblMasterCUR_PRICE;
  20.     TFloatField *tblMasterYRL_HIGH;
  21.     TFloatField *tblMasterYRL_LOW;
  22.     TFloatField *tblMasterP_E_RATIO;
  23.     TFloatField *tblMasterPROJ_GRTH;
  24.     TSmallintField *tblMasterINDUSTRY;
  25.     TSmallintField *tblMasterPRICE_CHG;
  26.     TStringField *tblMasterRATING;
  27.     TFloatField *tblMasterRANK;
  28.     TSmallintField *tblMasterOUTLOOK;
  29.     TStringField *tblMasterRCMNDATION;
  30.     TStringField *tblMasterRISK;
  31.     TDataSource *dsMaster;
  32.     TTable *tblIndustry;
  33.     TSmallintField *tblIndustryIND_CODE;
  34.     TStringField *tblIndustryIND_NAME;
  35.     TStringField *tblIndustryLONG_NAME;
  36.     TDataSource *dsIndustry;
  37.     TTable *tblHoldings;
  38.     TFloatField *tblHoldingsACCT_NBR;
  39.     TFloatField *tblHoldingsSHARES;
  40.     TFloatField *tblHoldingsPUR_PRICE;
  41.     TDateField *tblHoldingsPUR_DATE;
  42.     TStringField *tblHoldingsSYMBOL;
  43.     TCurrencyField *tblHoldingsPUR_COST;
  44.     TDataSource *dsHoldings;
  45.     void __fastcall tblHoldingsAfterPost(TDataSet *DataSet);
  46.     void __fastcall tblHoldingsCalcFields(TDataSet *DataSet);
  47.     void __fastcall tblHoldingsAfterOpen(TDataSet *DataSet);
  48.      void __fastcall CalculateTotals(TObject * Sender, TField * Field);
  49. private:        // private user declarations
  50. public:         // public user declarations
  51.     virtual __fastcall TDM1(TComponent* Owner);
  52. };
  53. //---------------------------------------------------------------------------
  54. extern TDM1 *DM1;
  55. //---------------------------------------------------------------------------
  56. #endif
  57.