recbaseform.h

速达开源ERP系统

//---------------------------------------------------------------------------
#ifndef RecBaseFormH
#define RecBaseFormH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "CommFunction.h"
#include <ComCtrls.hpp>
#include <ImgList.hpp>
#include <Menus.hpp>
#include <ToolWin.hpp>
#include "frmAbout.h"
#include "sdenumType.h"
#include "gVar.h"
#include <Dialogs.hpp>
#include "QuForm.h"
#include "FormSet.h"
#include "WnQuery.h"
#include "func.h"
#include "midclass.h"
#define WM_YW_UPDATE_MSG (WM_USER+1)
//---------------------------------------------------------------------------
class TRecBaseForm : public TForm
{
__published:	// IDE-managed Components
    TStatusBar *sbBar;
  TMainMenu *MainMenu1;
    TMenuItem *muFile;
    TMenuItem *muAddDetail;
    TMenuItem *muEditDetail;
    TMenuItem *muDeleteDetail;
    TMenuItem *N3;
    TMenuItem *muCancel;
    TMenuItem *muSave;
    TMenuItem *N4;
    TMenuItem *muPrintSetup;
    TMenuItem *muPrint;
    TMenuItem *S2;
    TMenuItem *muExit;
    TMenuItem *muEdit;
    TMenuItem *muUnDo;
    TMenuItem *N5;
    TMenuItem *muCut;
    TMenuItem *muCopy;
    TMenuItem *muPaste;
    TMenuItem *muView;
    TMenuItem *muToolBar;
    TMenuItem *muStatusBar;
    TMenuItem *N8;
    TMenuItem *muFind;
    TMenuItem *N9;
    TMenuItem *muFirst;
    TMenuItem *muPrevious;
    TMenuItem *muNext;
    TMenuItem *muLast;
    TMenuItem *muQuery;
    TMenuItem *muReport;
    TMenuItem *muTools;
    TMenuItem *muOptons;
    TMenuItem *muHelp;
    TMenuItem *muContext;
    TMenuItem *muWebSite;
    TMenuItem *N11;
    TMenuItem *muAbout;
    TImageList *ImageList1;
    TCoolBar *CoolBar1;
    TToolBar *tbMainBar;
    TToolButton *tbAddHead;
    TToolButton *tbEditHead;
    TToolButton *tbDeleteHead;
    TToolButton *ToolButton10;
    TToolButton *tbCancel;
    TToolButton *tbSave;
    TToolButton *ToolButton1;
    TToolButton *tbFirst;
    TToolButton *tbPrevious;
    TToolButton *tbNext;
    TToolButton *tbLast;
    TToolButton *ToolButton2;
  TToolButton *tbQuery;
    TToolButton *tbPrint;
    TToolButton *tbHelp;
    TToolButton *tbControl;
    TToolButton *ToolButton4;
  TToolButton *tbCheck;
  TToolButton *ToolButton3;
  TPrintDialog *RecPrintDlg;
  TPrinterSetupDialog *PrnSetupDlg;
  TToolButton *tbGenrate;
  TToolButton *ToolButton6;
  TToolButton *tbExport;
  TToolButton *tbClose;
  TMenuItem *muUnCheck;
  TMenuItem *muUnClose;
  TMenuItem *N1;

    void __fastcall muAddDetailClick(TObject *Sender);
    void __fastcall muEditDetailClick(TObject *Sender);
    void __fastcall muDeleteDetailClick(TObject *Sender);

    void __fastcall muCancelClick(TObject *Sender);
    void __fastcall muSaveClick(TObject *Sender);
    void __fastcall muPrintClick(TObject *Sender);
    void __fastcall muUnDoClick(TObject *Sender);
    void __fastcall muToolBarClick(TObject *Sender);
    void __fastcall muStatusBarClick(TObject *Sender);

    void __fastcall muFirstClick(TObject *Sender);
    void __fastcall muPreviousClick(TObject *Sender);
    void __fastcall muNextClick(TObject *Sender);
    void __fastcall muLastClick(TObject *Sender);

    void __fastcall muContextClick(TObject *Sender);
    void __fastcall muWebSiteClick(TObject *Sender);
    void __fastcall muAboutClick(TObject *Sender);
    void __fastcall FormCloseQuery(TObject *Sender, bool &CanClose);
    void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
    void __fastcall tbControlClick(TObject *Sender);
  void __fastcall tbQueryClick(TObject *Sender);
  void __fastcall tbCheckClick(TObject *Sender);
  void __fastcall muPrintSetupClick(TObject *Sender);
  void __fastcall FormActivate(TObject *Sender);
  void __fastcall muOptonsClick(TObject *Sender);
  void __fastcall tbGenrateClick(TObject *Sender);
  void __fastcall tbExportClick(TObject *Sender);
  void __fastcall tbCloseClick(TObject *Sender);
  void __fastcall muExitClick(TObject *Sender);
  void __fastcall muUnCheckClick(TObject *Sender);
  void __fastcall muUnCloseClick(TObject *Sender);
  void __fastcall FormKeyDown(TObject *Sender, WORD &Key,
          TShiftState Shift);
private:
      //this variable indicate the current state of form
  TControlAction CurState;
  long ComErrNum;
  bool IsCreate;
  int m_AutoQuery;
  AnsiString m_QueryString;
  int m_AutoCode;
  char m_MaskAutoCode;
  int m_QueryStatus;  //用于标示查询是成功还是失败 1-成功，0-失败
  bool m_BillCanceled;
  bool m_BillChecked;
  bool m_BillClosed;
  AnsiString FixedFilStr;
      
public:
  TControlGroups *ClientGroup;
  TComServer *comServer;
  TSDEdit *AutoCtl;

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 SetControlState(TControlAction mAct);
      DYNAMIC void __fastcall SetToolBarState(TControlAction mAct);
      DYNAMIC void __fastcall SetStatusBarInfo(TControlAction mAct);
      DYNAMIC void __fastcall SetMenuState(TControlAction mAct);
      DYNAMIC void __fastcall GetControlInfo();

      DYNAMIC void __fastcall AddDetailRecord();
      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 PrintBill(bool ShowDialog);
      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 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();
      virtual void __fastcall SetCheckToolbarStatus(bool state);
      virtual void __fastcall SetCloseToolbarStatus(bool state);
      virtual void __fastcall SetCancelToolbarStatus(bool state);

      virtual void __fastcall OpenGoodsQuery(AnsiString SqlStr);
      virtual void __fastcall OpenGlkmQuery();

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

      virtual void __fastcall CheckComObject();
      virtual void __fastcall UnCheckComObject();
      
      virtual void __fastcall CloseComObject();
      virtual void __fastcall CloseBill();
      virtual void __fastcall UnCloseBill();
      //
      __property TControlAction CurrentState={read=CurState};

protected:	// User declarations
  void __fastcall ReadFormSetValue();
  void __fastcall WriteFormSetValue();
  void __fastcall VerifyFormRight();
  
public:		// User declarations
  __fastcall TRecBaseForm(TComponent* Owner);
  __fastcall TRecBaseForm(TComponent* Owner,TComServer *FComServer);
  __fastcall TRecBaseForm(TComponent *Owner,int ClassName,AnsiString WhereStr);
  __fastcall ~TRecBaseForm();

  __property int QueryStatus={read=m_QueryStatus,write=m_QueryStatus};

protected:
  void virtual __fastcall UpdateMessage(TMessage Message);
  void virtual __fastcall RefreshUpdateData(int MsgSrc,int MsgType);
  void virtual __fastcall ReSetToolbarStatus();

BEGIN_MESSAGE_MAP
    MESSAGE_HANDLER(WM_YW_UPDATE_MSG, TMessage, UpdateMessage);
END_MESSAGE_MAP(TForm)            
};
//---------------------------------------------------------------------------
extern PACKAGE TRecBaseForm *RecBaseForm;
//---------------------------------------------------------------------------
#endif