midbase.h

科思ERP部分源码及控件

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

#ifndef MidBaseH
#define MidBaseH
#include <adodb.hpp>
#include <db.hpp>
#include <stdio.h>
//---------------------------------------------------------------------------
class TKSMidBase
{
private:
  AnsiString l_MidCode;
  int l_DataSetType;
  bool l_CanModify;
  TDataSetState l_HeadStatus;
  TStringList *l_ItemStatus;
  TADOConnection *l_SCnt;
  TADOQuery *l_HeadDataSet;
  TADOQuery *l_ItemDataSet;
  TADOQuery *l_Query;
  AnsiString l_ErrorMessage;

  TDataSetState __fastcall GetHeadStatus();
  TDataSetState __fastcall GetItemStatus();

public:
  __fastcall TKSMidBase();
  __fastcall ~TKSMidBase();

  int __fastcall ValidFieldValue(int Param);
  int __fastcall CommandExecute(int Param);
  void __fastcall Edit();
  void __fastcall EditDetail();
  void __fastcall Update();
  Variant __fastcall GetMasterValue(AnsiString fieldname);
  Variant __fastcall GetMasterOldValue(AnsiString fieldname);
  void __fastcall SetMasterValue(AnsiString fieldname,Variant value);
  Variant __fastcall GetDetailValue(AnsiString fieldname);
  Variant __fastcall GetDetailOldValue(AnsiString fieldname);
  void __fastcall SetDetailValue(AnsiString fieldname,Variant value);

  __property TADOConnection *Connection={read=l_SCnt};
  __property TADOQuery *Query={read=l_Query};
  __property int DataSetType={read=l_DataSetType};
  __property AnsiString MidCode={read=l_MidCode};
  __property TDataSetState HeadStatus={read=GetHeadStatus};
  __property TDataSetState ItemStatus={read=GetItemStatus};
  __property bool CanModify={read=l_CanModify};
  __property AnsiString ErrorMessage={read=l_ErrorMessage};

protected:
  virtual void __fastcall ValidHeadValues();
  virtual void __fastcall ValidItemValues();
  virtual void __fastcall CmdExec(AnsiString Param);

};
#endif