clientmgr.h

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

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

#ifndef ClientMgrH
#define ClientMgrH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <adodb.hpp>
#include <db.hpp>
#include <ScktComp.hpp>
#include "container.h"
#include <stdio.h>
#include "WaitForm.h"
//---------------------------------------------------------------------------
class TKSClientMgr : public TThread
{
private:
    HWND l_Handle;
    HWND l_AOwner;
    TClientSocket *l_Ancestry;
    TClientSocket *l_Agent;
    TClientSocket *l_LogicSvr;
    TKSSet *l_ClientForms;
    TKSSet *l_ClientDataSets;
    TKSSet *l_AccBooks;
    TADOQuery *l_ModuleRight;
    TADOQuery *l_FormInfo;
    TADOQuery *l_Module;
    TADOQuery *l_NavPic;
    TADOQuery *l_LogicLine;
    TKSMessage *l_MessageBuffer;
    AnsiString l_GlobeVarStr;
    AnsiString l_FileName;
    AnsiString l_LogicSvrID;
    AnsiString l_AppSvrIP;
    int l_AppSvrPort;
    AnsiString l_AppSvrID;
    AnsiString LogStr;
    AnsiString l_UserCode;
    AnsiString l_UserName;

    int l_ClientStatus;
    int l_TimeOut;
    int l_TryTime;
    int  l_UpdateTimes;
    bool l_Logging;
    TfrmWaitForm *l_WaitForm;
    TKSSet *l_UserInfo;
protected:
    void __fastcall WndProc(TMessage &Msg);
    void __fastcall Execute();
    void __fastcall AnalyzeStr();
    void __fastcall ClientCommTerminate(TObject *Sender);

public:
    __fastcall TKSClientMgr(HWND AOwner);
    __fastcall ~TKSClientMgr();

    void __fastcall LogIn();  //登录
    void __fastcall LogOut(); //注销

    __property HWND Handle={read=l_Handle};
    __property int TimeOut={read=l_TimeOut,write=l_TimeOut};
    __property TKSSet *ClientForms={read=l_ClientForms};

private:
    bool __fastcall InitClientComm();
    void __fastcall SetActive(bool value);
    bool __fastcall GetActive();
    void __fastcall Set300300();
    void __fastcall Get300301(TKSStrData *stream);
    void __fastcall Set300302(AnsiString usercode,AnsiString password,AnsiString accbook);
    void __fastcall Get300303(TKSStrData *stream);
    void __fastcall ConnectToAppSvr();
    void __fastcall Set300308();
    void __fastcall Get300309(TKSStrData *stream);
    void __fastcall Get300307(TKSStrData *stream);
    void __fastcall RefershUserCount(TKSStrData *stream);
    void __fastcall RefreshGlobeVar(TKSStrData *stream);
    void __fastcall RecvDataSetMessage(TKSStrData *stream);
    void __fastcall SendDataSetMessage(TKSStrData *stream);

protected:
    void __fastcall ShowForm(int modulecode,AnsiString param);
    void __fastcall ShowFormModal(int modulecode,AnsiString param);
    void __fastcall CloseForm(int formid);

private:
    AnsiString __fastcall GetUserCode();

    void __fastcall AncestryConnect(TObject *Sender,TCustomWinSocket *Socket);
    void __fastcall AncestryRead(TObject *Sender,TCustomWinSocket *Socket);
    void __fastcall AncestryDisconnect(TObject *Sender,TCustomWinSocket *Socket);
    void __fastcall AncestryError(TObject *Sender,TCustomWinSocket *Socket, TErrorEvent ErrorEvent,int &ErrorCode);

    void __fastcall AgentConnect(TObject *Sender,TCustomWinSocket *Socket);
    void __fastcall AgentRead(TObject *Sender,TCustomWinSocket *Socket);
    void __fastcall AgentDisconnect(TObject *Sender,TCustomWinSocket *Socket);
    void __fastcall AgentError(TObject *Sender,TCustomWinSocket *Socket,TErrorEvent ErrorEvent,int &ErrorCode);

    void __fastcall LogicSvrConnect(TObject *Sender,TCustomWinSocket *Socket);
    void __fastcall LogicSvrRead(TObject *Sender,TCustomWinSocket *Socket);
    void __fastcall LogicSvrDisconnect(TObject *Sender,TCustomWinSocket *Socket);
    void __fastcall LogicSvrError(TObject *Sender,TCustomWinSocket *Socket, TErrorEvent ErrorEvent,int &ErrorCode);
    TKSSet  * __fastcall GetUserInfo();

public:
    __property bool Active={read=GetActive,write=SetActive};
    __property AnsiString UserCode={read=GetUserCode};
    __property TADOQuery *Module={read=l_Module};
    __property TADOQuery *NavPic={read=l_NavPic};
    __property TADOQuery *LogicLine={read=l_LogicLine};
    __property TKSSet  * UserInfo  = { read=GetUserInfo };

};
//---------------------------------------------------------------------------
#endif