groupbaseform.h

科思ERP部分源码及控件

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

#ifndef GroupBaseFormH
#define GroupBaseFormH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "DateEdit.hpp"
#include "SDComboBox.h"
#include "SDEdit.h"
#include <ComCtrls.hpp>
#include <Mask.hpp>
#include "container.h"
#include "ClientDcom.h"
#include "BaseGlobeVars.h"
#include "KSFunction.h"
#include "CommFunction.h"
#include "SDGrid.h"
#include <Grids.hpp>
#include <ExtCtrls.hpp>
#include <Buttons.hpp>
#include "KSAdvReport.h"
//---------------------------------------------------------------------------
class TGroupBaseForm : public TForm
{
__published:	// IDE-managed Components
        TPanel *Panel2;
        TPanel *Panel3;
        TGroupBox *GroupBox3;
        TLabel *edLable5;
        TLabel *edLabel6;
        TDateEdit *dtDateBg;
        TDateEdit *dtDateEn;
        TGroupBox *GroupBox2;
        TBitBtn *btRest;
        TBitBtn *btFind;
        TBitBtn *BitBtn1;
        TSplitter *Splitter1;
        TPanel *Panel1;
        TStatusBar *sbBar;
        TSplitter *Splitter2;
        TAdvReport *AdvReport;
        void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
        void __fastcall btFindClick(TObject *Sender);
        void __fastcall btRestClick(TObject *Sender);
        void __fastcall BitBtn1Click(TObject *Sender);
private:	// User declarations
        TSDGrid *QueryGrid;
        TKSSet *l_ItemsCtrls; //保存分组构件，及对应关系
        TKSSet *l_ResCtrls;   //保存确定结果对象

        void __fastcall OnFlagClick(TObject *Sender);
        void __fastcall OnFlagPress(TObject *Sender, char &Key);
        AnsiString __fastcall MakeSQL();
public:		// User declarations
        AnsiString l_DefField,//不分组时查询字段
                   l_SumField,  //分组时查询字段
                   l_SumDisp;   //显示GRID
        AnsiString l_DefDisp,l_Where;
        AnsiString s_DateField;//日期字段


       // TKSQuery *l_Query;
        TComResultSet *RsgoodsQ;
        TKSSet *l_RsGoods;
        TKSSet *l_RsSupply;
        TKSSet *l_RsClient;
        TComServer *comServer;
        bool __fastcall OpenGoodsForm(AnsiString WhereStr) ;
        bool __fastcall OpenSupplyForm(AnsiString WhereStr);
        bool __fastcall OpenClientForm(AnsiString WhereStr);

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



        virtual void __fastcall InitEditControl();
        __property TSDGrid* OwGrid = {read=QueryGrid, write=QueryGrid};
        void __fastcall AddGroupItem(TControl *flag,TControl *para,AnsiString WherField,AnsiString DispField,AnsiString GridCaption);
        void __fastcall FillGridWithData();

        void __fastcall MouseRight(TSDEdit *f_control,TMouseButton Button) ;

        void __fastcall DispTitle(AnsiString l_CaptionStr ,AnsiString l_DispTitle);
       // void __fastcall AddDateItem(TControl *flag,TControl *para,AnsiString WherField);
public:		// User declarations
        __fastcall TGroupBaseForm(TComponent* Owner,HWND chWnd,AnsiString MidCode,AnsiString WhereStr);

};
//---------------------------------------------------------------------------
extern PACKAGE TGroupBaseForm *GroupBaseForm;
//---------------------------------------------------------------------------
#endif