recbaseform.h

科思ERP部分源码及控件

//---------------------------------------------------------------------------
#ifndef RecBaseFormH
#define RecBaseFormH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <ImgList.hpp>
#include <Menus.hpp>
#include <ToolWin.hpp>
#include <Dialogs.hpp>
#include "AncRecBase.h"
#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 TRecBaseForm : public TAncRecBaseForm
{
__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;
    TMenuItem *muGenerate;
    TSaveDialog *SaveDataDlg;
    TMenuItem *mnExport;
    TMenuItem *N2;
    TMenuItem *N6;

    void __fastcall muAddDetailClick(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 tbQueryClick(TObject *Sender);
    void __fastcall tbCheckClick(TObject *Sender);
    void __fastcall muPrintSetupClick(TObject *Sender);
    void __fastcall muOptonsClick(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);
    void __fastcall tbGenrateClick(TObject *Sender);
    void __fastcall muEditDetailClick(TObject *Sender);
    void __fastcall muGenerateClick(TObject *Sender);
private:
    bool l_BillCanceled;
    bool l_BillChecked;
    bool l_BillClosed;
public:
    TControlGroups *ClientGroup;
    bool IsUserCheck; //在窗体里决定是否要审核功能按钮出现
    bool IsUserClose; //在窗体里决定是否要审核结清按钮出现
    bool IsUserAdd;
    bool IsUserDelete;
    bool IsUserGernerate;//生成按钮可见性,defalt=false 
    void __fastcall ReSetToolbarStatus();
    void __fastcall SetCheckToolbarStatus(bool state);
    void __fastcall SetCloseToolbarStatus(bool state);
    void __fastcall SetCancelToolbarStatus(bool state);
    void __fastcall SetControlState(TControlAction mAct);
    void __fastcall SetToolBarState(TControlAction mAct);
    void __fastcall SetStatusBarInfo(TControlAction mAct);
    void __fastcall SetMenuState(TControlAction mAct);
    void __fastcall PrintBill(bool ShowDialog);
    void __fastcall SetFormRight(AnsiString right);
    void __fastcall GenrateDoc();
    //导出数据
    void __fastcall SaveDataToFile();//从前台得到数据
    virtual TStringList* __fastcall GetExportData();//前台可重载,得到所有的单头字段和窗体中传入的GRID列数据
    TSDGrid *HeadExportGrid; //传入导出的单头记录GRID，前台可以重载，缺省为所有的单头字段
    TSDGrid *DetailExportGrid;//传入供导出的记录GRID

public:		// User declarations
    __property TControlAction CurrentState={read=CurState};
    __fastcall TRecBaseForm(TComponent* Owner,HWND chWnd,AnsiString MidCode,AnsiString WhereStr);
    __fastcall ~TRecBaseForm();
};
//---------------------------------------------------------------------------
extern PACKAGE TRecBaseForm *RecBaseForm;
//---------------------------------------------------------------------------
#endif