querybaseform.h

速达开源ERP系统

//---------------------------------------------------------------------------
#ifndef QueryBaseFormH
#define QueryBaseFormH
//---------------------------------------------------------------------------
#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 "WnQuery.h"
#include "func.h"
#include "midclass.h"
#define WM_YW_UPDATE_MSG (WM_USER+1)
//---------------------------------------------------------------------------
class TQueryBaseForm : public TForm
{
__published:	// IDE-managed Components
    TStatusBar *sbBar;
    TMainMenu *MainMenu1;
    TMenuItem *muFile;
    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 *tbRefresh;
    TToolButton *tbFirst;
    TToolButton *tbPrevious;
    TToolButton *tbNext;
    TToolButton *tbLast;
  TToolButton *tbQuery;
    TToolButton *tbPrint;
    TToolButton *tbHelp;
    TToolButton *tbControl;
    TToolButton *ToolButton4;
    TToolButton *ToolButton3;
    TToolButton *ToolButton1;
  TPrintDialog *QueryPrnDlg;
  TPrinterSetupDialog *PrnSetupDlg;
  TToolButton *tbExport;
  TToolButton *tbGenDetail;
  TToolButton *ToolButton2;
  TToolButton *tbCheck;
  TToolButton *ToolButton5;
  TToolButton *tbClose;
  TPopupMenu *pmDetail;
  TMenuItem *puClose;
  TMenuItem *muUnCheck;
  TMenuItem *muUnClose;
  TMenuItem *N1;
  TPopupMenu *puQueryGrid;
  TMenuItem *puSetFixCol;

    void __fastcall muPrintClick(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 tbRefreshClick(TObject *Sender);
  void __fastcall muPrintSetupClick(TObject *Sender);
  void __fastcall FormActivate(TObject *Sender);
  void __fastcall tbExportClick(TObject *Sender);
  void __fastcall tbGenDetailClick(TObject *Sender);
  void __fastcall tbCheckClick(TObject *Sender);
  void __fastcall tbCloseClick(TObject *Sender);
  void __fastcall muUnCheckClick(TObject *Sender);
  void __fastcall muUnCloseClick(TObject *Sender);
  void __fastcall muExitClick(TObject *Sender);
  void __fastcall FormKeyDown(TObject *Sender, WORD &Key,
          TShiftState Shift);
  void __fastcall puSetFixColClick(TObject *Sender);
private:
      //this variable indicate the current state of form
  TControlAction CurState;
  long ComErrNum;
  bool IsCreate;
  bool m_BillCanceled;
  bool m_BillChecked;
  bool m_BillClosed;
  AnsiString FixedFilStr;

protected:
  TSDGrid *QueryGrid;
  DYNAMIC void __fastcall GenDetail();
  
  virtual void __fastcall GenData();
  virtual void __fastcall CheckRecord();
  virtual void __fastcall UnCheckRecord();
  virtual bool __fastcall ShowCheckDlg();
  
public:
  TControlGroups *ClientGroup;
  TComServer *comServer;
  TComponent *DataComponent;

protected:

      int __fastcall ShowMessageWindow(AnsiString Msg,TMessageWindowStyle mStyle);
      AnsiString __fastcall GetCurrentStateString();
      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 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();

      // 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();
      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 bool __fastcall ObjectCanBeDeleted();
      DYNAMIC void __fastcall ComServerQuery();
      DYNAMIC void __fastcall RefreshComObject();

      // 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);
      virtual void __fastcall GetDataFromComObject();
      virtual void __fastcall WaitUserInput();
      virtual void __fastcall RefreshGridData(int mAction);
      virtual void __fastcall DisplayBill();
      virtual void __fastcall GetBill(AnsiString BillID);
      virtual void __fastcall FillGridWithData();
      virtual void __fastcall ExportData();
      virtual void __fastcall SaveDataToFile();

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

private:	// User declarations
    void __fastcall VerifyFormRight();
public:		// User declarations
        __fastcall TQueryBaseForm(TComponent* Owner);
        __fastcall TQueryBaseForm(TComponent *Owner,int ClassName,AnsiString WhereStr);
        __fastcall ~TQueryBaseForm();
};
//---------------------------------------------------------------------------
extern PACKAGE TQueryBaseForm *QueryBaseForm;
#endif