ancstdbase.h

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

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

#ifndef AncStdBaseH
#define AncStdBaseH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "SDEdit.h"
#include "SDGrid.h"
#include <Dialogs.hpp>
#include "BaseGlobeVars.h"
#include "KSFunction.h"
#include "CommFunction.h"
#include "WhereForm.h"
#include "FormSet.h"
#include "WnQuery.h"
#include "container.h"
#include "ClientDcom.h"
#define WM_UPDATE_MSG (WM_USER+1)
//---------------------------------------------------------------------------
class TAncStdBaseForm : public TForm
{
__published:	// IDE-managed Components
  void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
private:	// User declarations
    TKSQuery *__fastcall GetQuery();

public:
  TComResultSet *g_sdRsGlkm;
  TComResultSet *g_sdRsGoods;
  AnsiString __fastcall GetGlkmValue(AnsiString mFieldName);
  AnsiString __fastcall GetGoodsValue(AnsiString mFieldName) ;

  AnsiString __fastcall GetFieldValue(AnsiString fieldname);
  void __fastcall SetFieldValue(AnsiString fieldname,Variant value);
  AnsiString __fastcall GetHeadValue(AnsiString fieldname);
  void __fastcall SetHeadValue(AnsiString fieldname,Variant value,bool AllowEmpty=true);
  AnsiString __fastcall GetDetailValue(AnsiString fieldname);
  void __fastcall SetDetailValue(AnsiString fieldname,Variant value,bool AllowEmpty=true);
  TComServer *comServer;

  __property TKSQuery *Query={read=GetQuery};

public:		// User declarations
  __fastcall TAncStdBaseForm(TComponent* Owner);
  __fastcall TAncStdBaseForm(TComponent* Owner,HWND chWnd,AnsiString MidCode,AnsiString WhereStr);
};
//---------------------------------------------------------------------------
extern PACKAGE TAncStdBaseForm *AncStdBaseForm;
//---------------------------------------------------------------------------
#endif