reclistform.h

来自「速达开源ERP系统」· C头文件 代码 · 共 54 行

//---------------------------------------------------------------------------
#ifndef RecListFormH
#define RecListFormH
//---------------------------------------------------------------------------
#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 "sdenumType.h"
#include "gVar.h"
#include "midclass.h"
#include <Dialogs.hpp>
//---------------------------------------------------------------------------
class TRecListForm : public TForm
{
__published:	// IDE-managed Components

    void __fastcall FormCloseQuery(TObject *Sender, bool &CanClose);
    void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
private:
      //this variable indicate the current state of form
      TControlAction CurState;
      long ComErrNum;
      bool IsCreate;
      AnsiString FQueryString;
      void __fastcall SetQueryString(AnsiString value);
      AnsiString __fastcall GetQueryString();
public:
      TControlGroups *ClientGroup;
      TComServer *comServer;

protected:

      int __fastcall ShowMessageWindow(AnsiString Msg,TMessageWindowStyle mStyle);
       virtual void __fastcall InitEditControl()=0;
      __property TControlAction CurrentState={read=CurState};

public:		// User declarations
        __fastcall TRecListForm(TComponent* Owner);
        __fastcall TRecListForm(TComponent* Owner,TComServer *FComServer);
        __fastcall TRecListForm(TComponent *Owner,int ClassName,AnsiString WhereStr);
        __fastcall ~TRecListForm();
        __property AnsiString QueryString  = { read=GetQueryString, write=SetQueryString };
};
//---------------------------------------------------------------------------
extern PACKAGE TRecListForm *RecListForm;
//---------------------------------------------------------------------------
#endif