ancrecbase.h

科思ERP部分源码及控件

//---------------------------------------------------------------------------
#ifndef AncRecBaseH
#define AncRecBaseH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.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"
//---------------------------------------------------------------------------
class TAncRecBaseForm : public TForm
{
__published:	// IDE-managed Components
        void __fastcall FormCloseQuery(TObject *Sender, bool &CanClose);
        void __fastcall FormClose(TObject *Sender, TCloseAction &Action);

private:
      long ComErrNum;
      bool IsCreate;
      int l_AutoQuery;
      AnsiString l_QueryString;
      int l_AutoCode;
      char l_MaskAutoCode;
      int l_QueryStatus;  //用于标示查询是成功还是失败 1-成功，0-失败
      AnsiString FixedFilStr;
      TComResultSet *RsFieldsName;

public:
      TControlAction CurState;
      TComServer *comServer;
      TSDEdit *AutoCtl;
      TKSSet *l_RsGoods;
      TKSSet *l_RsSupply;
      TKSSet *l_RsClient;
      TComResultSet *l_Query;
      TComResultSet *g_sdRsGlkm;

protected:

      int __fastcall ShowMessageWindow(AnsiString Msg,TMessageWindowStyle mStyle);
      AnsiString __fastcall GetCurrentStateString();
      virtual void __fastcall ShowHelp();
      void __fastcall ConnectToInternet(AnsiString wwwStr);
      void __fastcall ShowAboutWindow();

      DYNAMIC void __fastcall GetControlInfo();

      DYNAMIC void __fastcall AddDetailRecord();//容易屹义将改为AddSingleRecord()
      DYNAMIC void __fastcall EditDetailRecord();
      DYNAMIC void __fastcall DelDetailRecord();

      DYNAMIC void __fastcall CancelChange();
      DYNAMIC void __fastcall SaveRecord();
      DYNAMIC void __fastcall Genrate();

      DYNAMIC void __fastcall MoveToFirst();
      DYNAMIC void __fastcall MoveToPrevious();
      DYNAMIC void __fastcall MoveToNext();
      DYNAMIC void __fastcall MoveToLast();

      //if need show confirm dialog,the parameter is true,else to false
      DYNAMIC void __fastcall SendDataToPrinter();

      DYNAMIC void __fastcall UnDoChange();
      // this function Show FindWindow let user select or browse records
      // in a windows Named "FindWindow" .
      // the parameter is browseno which stored in SDEdit's property BrowseNo
      // the return value is AnsiString value.
      virtual bool __fastcall ShowQueryWindow();
      virtual void __fastcall SetQueryWindowFilterStr(AnsiString Value="");
      virtual void __fastcall SetFormOption();
      DYNAMIC bool __fastcall ResponseQueryMenu(TMenuItem *MItem);
      DYNAMIC bool __fastcall ResponseReportMenu(TMenuItem *MItem);
      DYNAMIC void __fastcall ExitThisForm();

      DYNAMIC void __fastcall SelectFirstObject();
      DYNAMIC void __fastcall SelectPreviousObject();
      DYNAMIC void __fastcall SelectNextObject();
      DYNAMIC void __fastcall SelectLastObject();

      DYNAMIC void __fastcall SaveComObject();
      DYNAMIC void __fastcall NewComObject();
      DYNAMIC void __fastcall EditComObject();
      DYNAMIC void __fastcall DeleteDetailRecord();
      DYNAMIC void __fastcall SetObjedtToBrowseState();
      DYNAMIC bool __fastcall ObjectCanBeDeleted();
      DYNAMIC void __fastcall ComServerQuery();

      // this function clear all the control in TControlGroups or
      // User Specify if the parameter BringToNext is true,it does
      // not clear the control else clear it.
      virtual void __fastcall InitEditControl();
      virtual void __fastcall ClearControl(bool BringToNext)=0;
      virtual void __fastcall GetDataFromComObject()=0;
      virtual void __fastcall SendDataToComObject()=0;
      virtual void __fastcall WaitUserInput()=0;
      virtual void __fastcall RefreshGridData(int mAction)=0;
      virtual void __fastcall DestoryObject();
      virtual void __fastcall FillGridWithData()=0;
      virtual bool __fastcall ShowCheckDlg();
      virtual void __fastcall GenrateDoc()=0;

      virtual void __fastcall ExportData();
      virtual void __fastcall SaveDataToFile()=0;

      virtual void __fastcall CheckComObject();
      virtual void __fastcall UnCheckComObject();

      virtual void __fastcall CloseComObject();
      virtual void __fastcall UnCloseComObject();
      virtual void __fastcall CloseBill();
      virtual void __fastcall UnCloseBill();
      //
      virtual   void __fastcall ReSetToolbarStatus();
      virtual   void __fastcall SetCheckToolbarStatus(bool state);
      virtual   void __fastcall SetCloseToolbarStatus(bool state);
      virtual   void __fastcall SetCancelToolbarStatus(bool state);
      virtual   void __fastcall SetControlState(TControlAction mAct);
      virtual   void __fastcall SetToolBarState(TControlAction mAct);
      virtual   void __fastcall SetStatusBarInfo(TControlAction mAct);
      virtual   void __fastcall SetMenuState(TControlAction mAct);
      virtual   void __fastcall SetFormRight(AnsiString right);
protected:	// User declarations
      void __fastcall ReadFormSetValue();
      void __fastcall WriteFormSetValue();
      __property int QueryStatus={read=l_QueryStatus,write=l_QueryStatus};
      void virtual __fastcall UpdateMessage(TMessage Message);
      void virtual __fastcall RefreshUpdateData(int MsgSrc,int MsgType);

      bool virtual __fastcall BeforeCheck();
      bool virtual __fastcall BeforeUnCheck();
      bool virtual __fastcall BeforeClose();
      bool virtual __fastcall BeforeUnClose();
      //报表代码
      AnsiString BillReportCodeStr;

private:
     void __fastcall CheckBillData();
     void __fastcall UnCheckBillData();
     TComResultSet *__fastcall GetQuery();
    void __fastcall ResolveRight(TMessage &message);
     bool __fastcall ResolveBillCode();//自动编码
     AnsiString l_AutoCodeString;//自动编码代码
     TStringList *__fastcall DecStrKey(char AFixed, AnsiString AStrKey);//分解多关键字     
public:
      void __fastcall SetAutoCodeString(TSDEdit *AutoCodeCtl,AnsiString AutoCodeString);//自动编码代码
      void __fastcall SetAutoCodeString(TSDEdit *AutoCodeCtl);//自动编码代码
      
      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 InitRsGlkm(AnsiString L_GlkmCode);
      bool __fastcall InitRsGoods(AnsiString L_goodsCode);
      bool __fastcall InitRsSupply(AnsiString L_SupplysCode);
      bool __fastcall InitRsClient(AnsiString L_ClientsCode) ;

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


      AnsiString __fastcall GetFieldValue(AnsiString FieldName);
      void __fastcall SetFieldValue(AnsiString FieldName,Variant Value);

      __property int AutoQuery={read=l_AutoQuery};
      __property TComResultSet *Query={read=GetQuery};
public:		// User declarations
      __fastcall TAncRecBaseForm(TComponent* Owner,HWND chWnd,AnsiString MidCode,AnsiString WhereStr);
      __fastcall ~TAncRecBaseForm();
BEGIN_MESSAGE_MAP
    MESSAGE_HANDLER(WM_FORMRIGHT_MSG,TMessage,ResolveRight);
END_MESSAGE_MAP(TForm)

};
//---------------------------------------------------------------------------
extern PACKAGE TAncRecBaseForm *AncRecBaseForm;
//---------------------------------------------------------------------------
#endif