clientdcom.h

科思ERP部分源码及控件

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

#ifndef ClientDcomH
#define ClientDcomH
#include "KSCDSet.h"
//---------------------------------------------------------------------------
class TComServer
{
private:
  TKSCDSet *l_ComServer;
  AnsiString l_HeadKeyFields;
  AnsiString l_ItemKeyFields;
  bool GetBof();
  AnsiString GetBookMark();
  int GetCurItemNo();
  int GetCurItemStatus();
  int GetCurRecNo();
  int GetCurStatus();
  bool GetEof();
  int GetFieldCount();
  AnsiString GetFilterString();
  bool GetFound();
  AnsiString GetGroupString();
  AnsiString GetItemBookMark();
  int GetItemCount();
  int GetItemFieldCount();
  AnsiString GetOrderStr();
  int GetRecordCount();

  void SetBookMark(AnsiString Value);
  void SetFilterString(AnsiString Value);
  void SetGroupString(AnsiString Value);
  void SetOrderStr(AnsiString Value);


  void SethCnd(AnsiString value);

  AnsiString GetHeadKeyFields();
  void SetHeadKeyFields(AnsiString value);
  AnsiString GetItemKeyFields();
  void SetItemKeyFields(AnsiString value);

public:
  TComServer(HWND AOwner,HWND AParent,AnsiString AMidCode);
  ~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();
  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);

  AnsiString GetFieldValue(AnsiString mFieldName);
  void SetFieldValue(AnsiString mFieldName,AnsiString value);
  AnsiString GetItemValue(AnsiString mFieldName);
  void SetItemValue(AnsiString mFieldName,AnsiString value);

  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(AnsiString mFieldName,AnsiString Value);
  void SetValue(AnsiString mFieldName,AnsiString Value);
  void Tally(int IsTally);

  __property TKSCDSet *DataSet={read=l_ComServer};
  __property AnsiString HeadKeyFields={read=GetHeadKeyFields,write=SetHeadKeyFields};
  __property AnsiString ItemKeyFields={read=GetItemKeyFields,write=SetItemKeyFields};
  __property AnsiString FieldValue[AnsiString fieldname]={read=GetFieldValue,write=SetFieldValue};
  __property AnsiString ItemValue[AnsiString fieldname]={read=GetItemValue,write=SetItemValue};
  __property bool Bof={read=GetBof};
  __property bool Eof={read=GetEof};
  __property AnsiString BookMark={read=GetBookMark,write=SetBookMark};
  __property int CurItemNo={read=GetCurItemNo};
  __property int CurItemStatus={read=GetCurItemStatus};
  __property int CurRecNo={read=GetCurRecNo};
  __property int CurStatus={read=GetCurStatus};
  __property int FieldCount={read=GetFieldCount};
  __property AnsiString FilterString={read=GetFilterString,write=SetFilterString};
  __property bool Found={read=GetFound};
  __property AnsiString GroupString={read=GetGroupString,write=SetGroupString};
  __property AnsiString ItemBookMark={read=GetItemBookMark/*,write=SetItemBookMark*/};
  __property int ItemCount={read=GetItemCount};
  __property int ItemFieldCount={read=GetItemFieldCount};
  __property AnsiString OrderString={read=GetOrderStr,write=SetOrderStr};
  __property int RecordCount={read=GetRecordCount};

};

class TComResultSet
{
private:
  TKSCRSet *l_ComResultSet;
  AnsiString l_KeyFields;

  bool GetBof();
  AnsiString GetBookMark();
  int GetCurRecNo();
  bool GetEof();
  AnsiString GetErrorMessage();
  int GetFieldCount();
  AnsiString GetKeyField();
  int GetRecordCount();
  int GetStartTrans();
  void SetBookMark(AnsiString Value);
  void SetKeyField(AnsiString Value);
  void SetStartTrans(int Value);
  void NewObject();

public:
  TComResultSet(HWND Owner,HWND cchdl);
  ~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();
  TFields *__fastcall GetFields();

  __property TKSCRSet *RecordSet={read=l_ComResultSet};
  __property bool Bof={read=GetBof};
  __property AnsiString BookMark={read=GetBookMark,write=SetBookMark};
  __property int CurRecNo={read=GetCurRecNo};
  __property bool Eof={read=GetEof};
  __property AnsiString ErrorMessage={read=GetErrorMessage};
  __property int FieldCount={read=GetFieldCount};
  __property AnsiString KeyField={read=GetKeyField,write=SetKeyField};
  __property int RecordCount={read=GetRecordCount};
  __property int StartTrans={read=GetStartTrans,write=SetStartTrans};
  __property TFields *Fields={read=GetFields};

};

#endif