stdbaseform.h

科思ERP部分源码及控件

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

#ifndef StdBaseFormH
#define StdBaseFormH
//---------------------------------------------------------------------------
#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_YW_UPDATE_MSG (WM_USER+1)
//---------------------------------------------------------------------------
class TStdBaseForm : public TForm
{
__published:	// IDE-managed Components
  void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
private:	// User declarations
    TComResultSet  *l_Query;
    bool IsParentComServer;//如果是从父窗体传入的数据集comServer，则comserver不在析构里删除
public:
    TComResultSet  * __fastcall GetQuery();
    TComResultSet *RsFieldsName;
    TComServer *comServer;
    
    TKSSet *l_RsGoods;//打开查询窗体的通用数据集对象
    TKSSet *l_RsSupply;
    TKSSet *l_RsClient;
    TComResultSet *g_sdRsGlkm;//打开科目查询的数据集对像

    AnsiString __fastcall GetGlkmValue(TGetValueType GetValueType,AnsiString mFieldName);//
    AnsiString __fastcall GetGoodsValue(TGetValueType GetValueType,AnsiString mFieldName);//GetValueType枚举变量:{gtInitRs,gtOpenForm}
    AnsiString __fastcall GetSupplyValue(TGetValueType GetValueType,AnsiString mFieldName);
    AnsiString __fastcall GetClientValue(TGetValueType GetValueType,AnsiString mFieldName);

    bool __fastcall OpenGlkmForm(bool IsOnlyDetail=true) ;//不带条件的查询。IsOnlyDetail，是否只能返回明细科目,default=ture;
    bool __fastcall OpenGoodsForm(AnsiString WhereStr) ;
    bool __fastcall OpenSupplyForm(AnsiString WhereStr);
    bool __fastcall OpenClientForm(AnsiString WhereStr);

    bool __fastcall InitRsGlkm(AnsiString L_GlkmCode);
    bool __fastcall InitRsGoods(AnsiString L_GoodsCode);
    bool __fastcall InitRsSupply(AnsiString L_SupplysCode);
    bool __fastcall InitRsClient(AnsiString L_ClientsCode) ;

    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);
    AnsiString __fastcall GetParamValue(AnsiString ParameterCode);    

    __property TComResultSet *Query={read=GetQuery};

protected:
  int __fastcall ShowMessageWindow(AnsiString Msg,TMessageWindowStyle mStyle);    
                            
public:		// User declarations
  __fastcall TStdBaseForm(TComponent* Owner);
  __fastcall TStdBaseForm(TComponent* Owner,HWND chWnd,AnsiString MidCode,AnsiString WhereStr);
  __fastcall ~TStdBaseForm();  
};
//---------------------------------------------------------------------------
extern PACKAGE TStdBaseForm *StdBaseForm;
//---------------------------------------------------------------------------
#endif