mainform.h

来自「一个以前收集的基于C/S架构的ERP客户端源代码」· C头文件 代码 · 共 105 行

//---------------------------------------------------------------------------

#ifndef MainFormH
#define MainFormH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Menus.hpp>
#include <ComCtrls.hpp>
#include <ToolWin.hpp>
#include <ScktComp.hpp>
#include "ClientMgr.h"
#include <ADODB.hpp>
#include <Db.hpp>
#include <ImgList.hpp>
#include "KSMenu.h"
#include <ExtCtrls.hpp>
#include <jpeg.hpp>
#include "KSCDSet.h"
#include <Graphics.hpp>
#include "KSFunction.h"
#include <Graphics.hpp>
//---------------------------------------------------------------------------
class TfrmMainForm : public TForm
{
__published:	// IDE-managed Components
    TStatusBar *StatusBar;
    TImageList *ImageList1;
    TPopupMenu *MainMenu;
    TMenuItem *muFile;
    TMenuItem *suLogIn;
    TMenuItem *suLogOut;
    TMenuItem *N1;
    TMenuItem *suSetup;
    TMenuItem *N2;
    TMenuItem *suExit;
    TMenuItem *muHelp;
    TMenuItem *suBook;
    TMenuItem *suFind;
    TMenuItem *N32;
    TMenuItem *suAbout;
    TImage *Image_Title;
    TImage *Image_BakGup;
    TImage *ImgMin;
    TImage *ImgClose;
    void __fastcall suLogInClick(TObject *Sender);
    void __fastcall suLogOutClick(TObject *Sender);
    void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
    void __fastcall suExitClick(TObject *Sender);
    void __fastcall MenuItemClick(TObject *Sender);
    void __fastcall suBookClick(TObject *Sender);
    void __fastcall FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift);
    void __fastcall Image_TitleDblClick(TObject *Sender);
    void __fastcall Image_TitleMouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y);
    void __fastcall Image_TitleMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y);
    void __fastcall ImgMinClick(TObject *Sender);
    void __fastcall ImgCloseClick(TObject *Sender);
    void __fastcall FormResize(TObject *Sender);
    void __fastcall ImgMinMouseMove(TObject *Sender, TShiftState Shift, int X,
      int Y);
    void __fastcall ImgMinMouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y);
    void __fastcall ImgCloseMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y);
    void __fastcall ImgCloseMouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y);
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall suSetupClick(TObject *Sender);
private:	// User declarations ;
    TKSMenu *l_Menu;
    bool bHaveMenu;
    void __fastcall SetSystemStatus(int status);
    void __fastcall CloseChildren();
    void __fastcall LogInStatus(TMessage &message);
    void __fastcall FormsChanged(TMessage &message);
    void __fastcall InitMenu();
    bool __fastcall  FindForm(AnsiString FormName);
    TKSClientMgr *FClientComm;
    TKSCDSet *FavorDataSet;
    TKSCDSet *InitDataSet;
    TPoint cpoint,opoint;
    int WinMovFlg;
    int ImgMMovFlg;
    int ImgCMovFlg;
public:		// User declarations
    __fastcall TfrmMainForm(TComponent* Owner);

    void __fastcall ShowChildForm(int formid);
    void __fastcall DeleteFormsMenu(int FormID);

BEGIN_MESSAGE_MAP
    MESSAGE_HANDLER(WM_LOGIN_STATUS,TMessage,LogInStatus);
    MESSAGE_HANDLER(WM_FORMS_CHANGED,TMessage,FormsChanged);
END_MESSAGE_MAP(TForm)
};
//---------------------------------------------------------------------------
extern PACKAGE TfrmMainForm *frmMainForm;
//---------------------------------------------------------------------------
#endif