container.h

科思ERP部分源码及控件

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

#ifndef containerH
#define containerH
//---------------------------------------------------------------------------
class TKSSet
{
private:
  int l_CurRecNo;
  bool l_Bof,l_Eof;
  int l_Status;
  AnsiString l_KeyField;
  TStringList *l_FieldSet;
  TStringList *l_EditRecord;

public:
  __fastcall TKSSet();
  __fastcall ~TKSSet();

  void __fastcall AddNew();
  void __fastcall Edit();
  void __fastcall Delete();
  void __fastcall Cancel();
  void __fastcall Update();
  void __fastcall Clear();

  void __fastcall First();
  void __fastcall Prior();
  void __fastcall Last();
  void __fastcall Next();
  void __fastcall MoveBy(int index);

  bool __fastcall LocateByKey(AnsiString key);
  bool __fastcall LocateByIndex(int index);
  bool __fastcall LocateField(AnsiString fieldname,AnsiString key);

  void __fastcall AddField(AnsiString fieldname);
  void __fastcall DelField(AnsiString fieldname);
  void __fastcall LoadFromString(AnsiString datasetstr);

  __property int RecordCount={read=GetRecordCount};
  __property int FieldCount={read=GetFieldCount};
  __property AnsiString FieldValues[AnsiString fieldname]={read=GetFieldValues,write=SetFieldValues};
  __property AnsiString FieldByIndex[int index]={read=GetFieldByIndex,write=SetFieldByIndex};
  __property AnsiString FieldName[int index]={read=GetFieldName};
  __property AnsiString KeyField={read=GetKeyField,write=SetKeyField};
  __property bool Bof={read=GetBof};
  __property bool Eof={read=GetEof};
  __property int Status={read=GetStatus};
  __property int CurRecNo={read=GetCurRecNo};

private:
  int __fastcall GetRecordCount();
  int __fastcall GetFieldCount();
  AnsiString __fastcall GetFieldValues(AnsiString fieldname);
  void __fastcall SetFieldValues(AnsiString fieldname,AnsiString value);
  AnsiString __fastcall GetFieldByIndex(int index);
  void __fastcall SetFieldByIndex(int index,AnsiString value);
  AnsiString __fastcall GetFieldName(int index);
  AnsiString __fastcall GetKeyField();
  void __fastcall SetKeyField(AnsiString value);
  bool __fastcall GetBof();
  bool __fastcall GetEof();
  int __fastcall GetStatus();
  int __fastcall GetCurRecNo();
  void __fastcall ChgStatus(int value);
};
//---------------------------------------------------------------------------

class TKSStrData
{
private:
  AnsiString l_Length;
  AnsiString l_Operate;
  AnsiString l_ClassID;
  AnsiString l_ClientID;
  AnsiString l_ServerID;
  AnsiString l_OptValue;
  AnsiString l_OptItem;
  AnsiString l_HeadDataSet;
  AnsiString l_HeadLinkData;
  AnsiString l_ItemDataSet;
  AnsiString l_ItemLinkData;

  int __fastcall GetXmlLength();
  AnsiString __fastcall GetXmlOperate();
  AnsiString __fastcall GetXmlClassID();
  AnsiString __fastcall GetXmlClientID();
  AnsiString __fastcall GetXmlServerID();
  AnsiString __fastcall GetXmlOptValue(AnsiString Attribute);
  AnsiString __fastcall GetXmlOptItem(AnsiString Attribute);
  AnsiString __fastcall GetHeadDataSet();
  AnsiString __fastcall GetMasterLinkData();
  AnsiString __fastcall GetItemDataSet();
  AnsiString __fastcall GetDetailLinkData();
  AnsiString __fastcall GetXmlString();
  AnsiString __fastcall GetOptValue();
  AnsiString __fastcall GetOptItem();

  void __fastcall SetXmlOperate(AnsiString value);
  void __fastcall SetXmlClassID(AnsiString value);
  void __fastcall SetXmlClientID(AnsiString value);
  void __fastcall SetXmlServerID(AnsiString value);
  void __fastcall SetXmlOptValue(AnsiString Attribute,AnsiString value);
  void __fastcall SetXmlOptItem(AnsiString Attribute,AnsiString value);
  void __fastcall SetHeadDataSet(AnsiString value);
  void __fastcall SetMasterLinkData(AnsiString value);
  void __fastcall SetItemDataSet(AnsiString value);
  void __fastcall SetDetailLinkData(AnsiString value);
  void __fastcall SetXmlString(AnsiString value);

public:
  __fastcall TKSStrData();
  __fastcall TKSStrData(AnsiString str);
  __fastcall TKSStrData(TStream *xfs);
  __fastcall ~TKSStrData();

  __property int Length={read=GetXmlLength};
  __property AnsiString Operate={read=GetXmlOperate,write=SetXmlOperate};
  __property AnsiString ClassID={read=GetXmlClassID,write=SetXmlClassID};
  __property AnsiString ClientID={read=GetXmlClientID,write=SetXmlClientID};
  __property AnsiString ServerID={read=GetXmlServerID,write=SetXmlServerID};
  __property AnsiString ValueAttribute[AnsiString Attribute]={read=GetXmlOptValue,write=SetXmlOptValue};
  __property AnsiString OptValue={read=GetOptValue};
  __property AnsiString ItemAttribute[AnsiString Attribute]={read=GetXmlOptItem,write=SetXmlOptItem};
  __property AnsiString OptItem={read=GetOptItem};
  __property AnsiString HeadDataSet={read=GetHeadDataSet,write=SetHeadDataSet};
  __property AnsiString MasterLinkData={read=GetMasterLinkData,write=SetMasterLinkData};
  __property AnsiString ItemDataSet={read=GetItemDataSet,write=SetItemDataSet};
  __property AnsiString DetailLinkData={read=GetDetailLinkData,write=SetDetailLinkData};
  __property AnsiString XmlString={read=GetXmlString};

public:
  bool __fastcall DecXmlString(AnsiString str);
  AnsiString __fastcall BuildXmlString();
  void __fastcall SaveToFile(AnsiString fn);
  void __fastcall SaveToStream(TStream *fs); 

};
class TKSMessage
{
private:
  AnsiString FBegStr;
  AnsiString FEndStr;
  TStringList *FMessageID;
  TStringList *FParseMsgQueue;
  TStringList *FRecvMsgQueue;
  TStringList *FMessageQueue;
  TStringList *FParseStatus;

public:
  __fastcall TKSMessage(AnsiString BegStr,AnsiString EndStr);
  __fastcall ~TKSMessage();

public:
  void __fastcall BuildBuffer(int id);
  void __fastcall FreeBuffer(int id);
  bool __fastcall ParseMessage(int id,AnsiString msg);
  bool __fastcall ReadMessage(AnsiString &msg,int &id);
  void __fastcall WriteMessage(AnsiString msg,int id);

  __property int BufferCount={read=GetBufferCount};
  __property int MessageCount={read=GetMessageCount};

private:
  int __fastcall GetBufferCount();
  int __fastcall GetMessageCount();  
  bool __fastcall GetSpecStr(int index,AnsiString &srcstr);
};

#endif