genbaseform.h

速达开源ERP系统

//---------------------------------------------------------------------------
#ifndef GenBaseFormH
#define GenBaseFormH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <ToolWin.hpp>
#include <Menus.hpp>
#include <Grids.hpp>
#include <ExtCtrls.hpp>
#include <ImgList.hpp>
#include "CommFunction.h"
#include "SDEdit.h"
#include "SDGrid.h"
#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 TGenBaseForm : public TForm
{
__published:	// IDE-managed Components
  TMainMenu *MainMenu1;
  TMenuItem *muFile;
  TMenuItem *muQuery;
  TMenuItem *muEdit;
  TMenuItem *muReport;
  TMenuItem *muHelp;
  TMenuItem *muAddDetail;
  TMenuItem *muSave;
  TMenuItem *N3;
  TMenuItem *muEditDetail;
  TMenuItem *muDeleteDetail;
  TMenuItem *N4;
  TMenuItem *muPrint;
  TMenuItem *S2;
  TMenuItem *muExit;
  TMenuItem *muUnDo;
  TMenuItem *N5;
  TMenuItem *muCut;
  TMenuItem *muCopy;
  TMenuItem *muPaste;
  TMenuItem *muAbout;
  TStatusBar *sbBar;
  TMenuItem *muPrintSetup;
  TMenuItem *muTools;
  TMenuItem *muToolBar;
  TMenuItem *muStatusBar;
  TMenuItem *N8;
  TMenuItem *N9;
  TMenuItem *muOptons;
  TMenuItem *muContext;
  TMenuItem *muWebSite;
  TMenuItem *N11;
  TMenuItem *muFind;
  TMenuItem *muView;
  TMenuItem *muFirst;
  TMenuItem *muPrevious;
  TMenuItem *muNext;
  TMenuItem *muLast;
  TMenuItem *muAddHead;
  TMenuItem *muEditHead;
  TMenuItem *muDelHead;
  TMenuItem *N7;
  TMenuItem *muCancel;
  TImageList *ImageList1;
  TCoolBar *CoolBar1;
  TToolBar *tbMainBar;
  TToolButton *tbAddHead;
  TToolButton *tbEditHead;
  TToolButton *tbDeleteHead;
  TToolButton *ToolButton4;
  TToolButton *tbAddDetail;
  TToolButton *tbEditDetail;
  TToolButton *tbDeleteDetail;
  TToolButton *ToolButton8;
  TToolButton *tbCancel;
  TToolButton *tbSave;
  TToolButton *ToolButton11;
  TToolButton *tbFirst;
  TToolButton *tbPrevious;
  TToolButton *tbNext;
  TToolButton *tbLast;
  TToolButton *ToolButton16;
  TToolButton *tbQuery;
  TToolButton *tbPrint;
  TToolButton *ToolButton19;
  TToolButton *tbHelp;
  TToolButton *tbControl;
  TToolButton *tbCheck;
  TToolButton *ToolButton5;
  TPrintDialog *BillPrintDlg;
  TPrinterSetupDialog *BillPrnSetupDlg;
  TToolButton *tbGenDetail;
  TToolButton *ToolButton2;
  TToolButton *tbEditAll;
  TToolButton *ToolButton3;
  TToolButton *tbExport;
  TToolButton *tbClose;
  TPopupMenu *pmDetail;
  TMenuItem *puClose;
  TMenuItem *muUnCheck;
  TMenuItem *muUnClose;
  TMenuItem *muUnCloseDetail;
  TMenuItem *N1;
  void __fastcall muAddDetailClick(TObject *Sender);
  void __fastcall muAddHeadClick(TObject *Sender);
  void __fastcall muEditHeadClick(TObject *Sender);
  void __fastcall muDelHeadClick(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 muExitClick(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 tbAddHeadClick(TObject *Sender);
  void __fastcall tbEditHeadClick(TObject *Sender);
  void __fastcall tbDeleteHeadClick(TObject *Sender);
  void __fastcall tbAddDetailClick(TObject *Sender);
  void __fastcall tbEditDetailClick(TObject *Sender);
  void __fastcall tbDeleteDetailClick(TObject *Sender);
  void __fastcall tbCancelClick(TObject *Sender);
  void __fastcall tbSaveClick(TObject *Sender);
  void __fastcall tbFirstClick(TObject *Sender);
  void __fastcall tbPreviousClick(TObject *Sender);
  void __fastcall tbNextClick(TObject *Sender);
  void __fastcall tbLastClick(TObject *Sender);
  void __fastcall tbHelpClick(TObject *Sender);
  void __fastcall tbPrintClick(TObject *Sender);
  void __fastcall FormCloseQuery(TObject *Sender, bool &CanClose);
  void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
  void __fastcall tbControlClick(TObject *Sender);
  void __fastcall tbCheckClick(TObject *Sender);
  void __fastcall tbQueryClick(TObject *Sender);
  void __fastcall muPrintSetupClick(TObject *Sender);
  void __fastcall tbGenDetailClick(TObject *Sender);
  void __fastcall FormActivate(TObject *Sender);
  void __fastcall muOptonsClick(TObject *Sender);
  void __fastcall tbEditAllClick(TObject *Sender);
  void __fastcall tbExportClick(TObject *Sender);
  void __fastcall tbCloseClick(TObject *Sender);
  void __fastcall puCloseClick(TObject *Sender);
  void __fastcall muUnCheckClick(TObject *Sender);
  void __fastcall muUnCloseClick(TObject *Sender);
  void __fastcall muUnCloseDetailClick(TObject *Sender);
  void __fastcall FormKeyDown(TObject *Sender, WORD &Key,
          TShiftState Shift);
private:
  //this variable indicate the current state of form
  TControlAction CurState;
  TControlAction FDetailState;
  int m_AutoQuery;
  AnsiString m_QueryString;
  int m_AutoCode;
  char m_MaskAutoCode;
  int m_QueryStatus;  //用于标示查询是成功还是失败 1-成功，0-失败
  AnsiString FixedFilStr;
    
public:
  TControlGroups *ClientGroup;
  TComServer *comServer;
  TSDEdit *AutoCtl;

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 AddHeadRecord();
  DYNAMIC void __fastcall EditHeadRecord();
  DYNAMIC void __fastcall DelHeadRecord();

  DYNAMIC void __fastcall AddDetailRecord();
  DYNAMIC void __fastcall EditDetailRecord();
  DYNAMIC void __fastcall DelDetailRecord();

  DYNAMIC void __fastcall CancelRecord();
  DYNAMIC void __fastcall CancelChange();
  DYNAMIC void __fastcall HeadCancel();
  DYNAMIC void __fastcall DetailCancel();
  DYNAMIC void __fastcall GenDetail();
  DYNAMIC void __fastcall EditAllDetail();

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

  virtual void __fastcall QueryRecord();

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

      //if need show confirm dialog,the parameter is true,else to false
  DYNAMIC void __fastcall PrintBill(bool ShowDialog);
  DYNAMIC void __fastcall SendDataToPrinter();
  virtual void __fastcall ExportData();
  virtual void __fastcall SaveDataToFile();

  virtual 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 SaveComObject(int Section);
  DYNAMIC void __fastcall NewComObject(int Section);
  DYNAMIC void __fastcall EditComObject(int Section);
  DYNAMIC void __fastcall DeleteHeadRecord();
  DYNAMIC void __fastcall DeleteDetailRecord();
  DYNAMIC bool __fastcall ObjectCanBeDeleted(int Section);
  DYNAMIC void __fastcall SetControlToBrowseState(int Section);

      // 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(int Section,bool BringToNext)=0;
  virtual void __fastcall GetDataFromComObject(int Section)=0;
  virtual void __fastcall SendDataToComObject(int Section)=0;
  virtual void __fastcall WaitUserInput(int Section)=0;
  virtual void __fastcall RefreshGridData(int mAction)=0;
  virtual void __fastcall DisplayBill()=0;
  virtual void __fastcall GetBill(AnsiString BillID)=0;
  virtual void __fastcall FillGridWithData()=0;
  virtual void __fastcall ChangeToBrowseState(bool Browse=false)=0;
  virtual void __fastcall GenrateBill()=0;
  virtual void __fastcall CheckRecord();
  virtual void __fastcall UnCheckRecord();
  virtual bool __fastcall ShowCheckDlg();
  virtual void __fastcall EditBill();
  virtual void __fastcall SendAllDetailValue();
  virtual void __fastcall SetCheckToolbarStatus(bool state);
  virtual void __fastcall SetCloseToolbarStatus(bool state);
  virtual void __fastcall SetCancelToolbarStatus(bool state);
  virtual void __fastcall SetCloseDetailStatus(bool state);

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

  virtual void __fastcall CloseComObject();
  virtual void __fastcall CloseBill();
  virtual void __fastcall CloseDetail();
  virtual void __fastcall UnCloseBill();
  virtual void __fastcall UnCloseDetail();

  __property TControlAction CurrentState={read=CurState};
  __property TControlAction DetailState={read=FDetailState};
private:	// User declarations
  long ComErrNum;
  bool IsCreate;
  bool m_BillCanceled;
  bool m_BillChecked;
  bool m_BillClosed;
  bool m_DetailClosed;  
  void __fastcall ReadFormSetValue();
  void __fastcall WriteFormSetValue();
  void __fastcall VerifyFormRight();

public:		// User declarations
  __fastcall TGenBaseForm(TComponent* Owner);
  __fastcall TGenBaseForm(TComponent* Owner,TComServer *FComServer);
  __fastcall TGenBaseForm(TComponent* Owner,int ClassName,AnsiString WhereStr);
  __fastcall ~TGenBaseForm();

  __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 TGenBaseForm *GenBaseForm;
#endif