123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354 |
- //---------------------------------------------------------------------------
- #ifndef FrmVmsMsgFH
- #define FrmVmsMsgFH
- //---------------------------------------------------------------------------
- #include <Classes.hpp>
- #include <Controls.hpp>
- #include <StdCtrls.hpp>
- #include <Forms.hpp>
- #include <ExtCtrls.hpp>
- #include <ADODB.hpp>
- #include <DB.hpp>
- #include "CDSVmsCtlrF.h"
- //---------------------------------------------------------------------------
- #define MAX_VMSPHASE 16
- class TFrmVmsMsg : public TForm
- {
- __published: // IDE-managed Components
- TTimer *TmrShow;
- TPanel *PnlVmsMsgDisp;
- TImage *ImgForm;
- TTimer *TmrDisp;
- TADOQuery *pADO;
- TPanel *PnlOffer;
- void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
- void __fastcall FormShow(TObject *Sender);
- void __fastcall TmrShowTimer(TObject *Sender);
- void __fastcall TmrDispTimer(TObject *Sender);
- void __fastcall FormDestroy(TObject *Sender);
- private: // User declarations
- public:
- TVmsCtlr *FVmsObj;
- int FDispIndex;
- int FPhaseCnt;
- TImage *FVmsImage[MAX_VMSPHASE];
- int FInterval[MAX_VMSPHASE];
- int FQryHour;
- int FQryMin;
- void __fastcall ClearVmsForm();
- void __fastcall SetVmsForm();
- void __fastcall SelectVmsForm();
- public: // User declarations
- __fastcall TFrmVmsMsg(TComponent* Owner, TVmsCtlr *AObj);
- };
- //---------------------------------------------------------------------------
- extern PACKAGE TFrmVmsMsg *FrmVmsMsg;
- //---------------------------------------------------------------------------
- #endif
|