clientdcom.h

邮 电 公 司 erp源码

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

#ifndef ClientDcomH
#define ClientDcomH
#include "ClientComm.h"
#include "SdAppServer_TLB.h";
//---------------------------------------------------------------------------
class __declspec(dllexport) TIComServer;
class __declspec(dllexport) TComServer;
class __declspec(dllexport) TIComResultSet;
class __declspec(dllexport) TComResultSet;

class TIComServer
{
private:
  TCOMIKAppServer m_ComServer;
  TClientComm *m_ClientComm;
  TStringList *m_hCnds;
  int get_ObjectCount();

  GlobeInfo get_SysInfo();
  int m_ErrorCode;
public:
  TIComServer(TClientComm *CC);
  ~TIComServer();

  void Clear();
  void AddClass(AnsiString sc);
  void DeleteClass(AnsiString sc);
  int LogIn(AnsiString CompanyCode, AnsiString UserCode, AnsiString Password,
      AnsiString NetCardID);
  void LogOut();
  void RefreshVar();

  __property int Count={read=get_ObjectCount};
  __property TCOMIKAppServer ComServer={read=m_ComServer};
  __property TClientComm *ClientComm={read=m_ClientComm};

  __property GlobeInfo SysInfo={read=get_SysInfo};
};

class TComServer
{
private:
  AnsiString m_hCnd;
  int m_ClassName;
  int m_ErrorCode;
  TIComServer *m_IComServer;
  TCOMIKAppServer m_ComServer;
  TClientComm *m_ClientComm;

  bool get_Bof();
  AnsiString get_BookMark();
  int get_CurItemNo();
  int get_CurItemStatus();
  int get_CurRecNo();
  int get_CurStatus();
  bool get_Eof();
  int get_FieldCount();
  AnsiString get_FilterString();
  bool get_Found();
  AnsiString get_GroupString();
  AnsiString get_ItemBookMark();
  int get_ItemCount();
  int get_ItemFieldCount();
  AnsiString get_OrderString();
  int get_RecordCount();

  void set_BookMark(AnsiString Value);
  void set_FilterString(AnsiString Value);
  void set_GroupString(AnsiString Value);
  void set_OrderString(AnsiString Value);

  AnsiString get_FieldValue(int mFieldName);
  void set_FieldValue(int mFieldName,AnsiString value);
  AnsiString get_ItemValue(int mFieldName);
  void set_ItemValue(int mFieldName,AnsiString value);

  void set_hCnd(AnsiString value);


public:
  TComServer(TIComServer *cs);
  TComServer(TIComServer *cs,int ClassName);
  ~TComServer();

  void AddNew();
  void AddItem();
  void AddSubItem();
  void AddToObject();
  void BatchCheck(int IsCheck);
  void BatchClose(int IsClose);
  void BatchRevoke(int IsRevoke);
  void BatchTally(int IsTally);
  void Cancel();
  void CancelItem();
  void Check(int IsCheck);
  void ClearItem();
  void Close(int IsClose);
  void Copy();
  void CreateClass(int ClassName);
  int DataTypeByIndex(int Index);
  void Delete();
  void DeleteItem();
  void Edit();
  void EditItem();
  void Execute(AnsiString Param);
  AnsiString FieldNameByIndex(int Index);
  bool Find(AnsiString KeyValue);
  void FreeClass();
  void FreeItem();
  void FreeRecord();

  void Insert(int Index);
  int ItemDataTypeByIndex(int Index);
  AnsiString ItemFieldNameByIndex(int Index);
  bool LocateByIndex(int Index);
  bool LocateByKey(AnsiString Key);
  bool LocateItemByIndex(int Index);
  bool LocateItemByKey(AnsiString Key);
  void MoveBy(int Value);
  void MoveFirst();
  void MoveLast();
  void MoveNext();
  void MovePrious();
  void Post();
  void Query();
  void RemoveItem();
  void Revoke(int IsRevoke);

  void SetSubItemValue(int mFieldName,AnsiString Value);
  void SetValue(int mFieldName,AnsiString Value);
  void Tally(int IsTally);

  __property AnsiString FieldValue[int fieldname]={read=get_FieldValue,write=set_FieldValue};
  __property AnsiString ItemValue[int fieldname]={read=get_ItemValue,write=set_ItemValue};
  __property bool Bof={read=get_Bof};
  __property bool Eof={read=get_Eof};
  __property AnsiString BookMark={read=get_BookMark,write=set_BookMark};
  __property int CurItemNo={read=get_CurItemNo};
  __property int CurItemStatus={read=get_CurItemStatus};
  __property int CurRecNo={read=get_CurRecNo};
  __property int CurStatus={read=get_CurStatus};
  __property int FieldCount={read=get_FieldCount};
  __property AnsiString FilterString={read=get_FilterString,write=set_FilterString};
  __property bool Found={read=get_Found};
  __property AnsiString GroupString={read=get_GroupString,write=set_GroupString};
  __property AnsiString ItemBookMark={read=get_ItemBookMark/*,write=set_ItemBookMark*/};
  __property int ItemCount={read=get_ItemCount};
  __property int ItemFieldCount={read=get_ItemFieldCount};
  __property AnsiString OrderString={read=get_OrderString,write=set_OrderString};
  __property int RecordCount={read=get_RecordCount};

  __property TCOMIKAppServer AppServer={read=m_ComServer};

  __property AnsiString hCnd={read=m_hCnd,write=set_hCnd};

};


class TIComResultSet
{
private:
  TCOMIKResultSet m_ComResultSet;
  TClientComm *m_ClientComm;
  TStringList *m_hCnds;
  int get_ObjectCount();

public:
  TIComResultSet(TClientComm *cc);
  ~TIComResultSet();

  void Clear();
  void AddClass(AnsiString sc);
  void DeleteClass(AnsiString sc);

  __property int Count={read=get_ObjectCount};
  __property TCOMIKResultSet ComResultSet={read=m_ComResultSet};
  __property TClientComm *ClientComm={read=m_ClientComm};
};


class TComResultSet
{
private:
  AnsiString m_hCnd;
  int m_ErrorCode;
  TIComResultSet *m_IComResultSet;
  TCOMIKResultSet m_ComResultSet;
  TClientComm *m_ClientComm;

  bool get_Bof();
  AnsiString get_BookMark();
  int get_CurRecNo();
  bool get_Eof();
  AnsiString get_ErrorMessage();
  int get_FieldCount();
  AnsiString get_KeyField();
  int get_RecordCount();
  int get_StartTrans();
  void set_BookMark(AnsiString Value);
  void set_KeyField(AnsiString Value);
  void set_StartTrans(int Value);
  void NewObject();

public:
  TComResultSet(TIComResultSet *rs);
  ~TComResultSet();
  
  void Execute(AnsiString SqlStr);
  void Close();
  int DataTypeByIndex(int Index);
  AnsiString FieldByIndex(int Index);
  AnsiString FieldByName(AnsiString Name);
  AnsiString FieldNameByIndex(int Index);
  bool LocateByIndex(int Index);
  bool LocateByKey(AnsiString Key);
  void MoveFirst();
  void MoveLast();
  void MoveNext();
  void MovePrious();
  void Open(AnsiString SqlStr, AnsiString Key);
  void Requery();
  void FreeObject();

  __property bool Bof={read=get_Bof};
  __property AnsiString BookMark={read=get_BookMark,write=set_BookMark};
  __property int CurRecNo={read=get_CurRecNo};
  __property bool Eof={read=get_Eof};
  __property AnsiString ErrorMessage={read=get_ErrorMessage};
  __property int FieldCount={read=get_FieldCount};
  __property AnsiString KeyField={read=get_KeyField,write=set_KeyField};
  __property int RecordCount={read=get_RecordCount};
  __property int StartTrans={read=get_StartTrans,write=set_StartTrans};
  
};
#endif