listbaseform.h

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

//---------------------------------------------------------------------------
#ifndef ListBaseFormH
#define ListBaseFormH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <ToolWin.hpp>
#include <Grids.hpp>
#include <ExtCtrls.hpp>
#include "CommFunction.h"
#include "SDEdit.h"
#include "SDGrid.h"
#include "sdappserver_tlb.h"
#include "sdenumType.h"
#include "gVar.h"
#define WM_YW_UPDATE_MSG (WM_USER+1)
//---------------------------------------------------------------------------


class TListBaseForm : public TForm
{
__published:	// IDE-managed Components
        TStatusBar *sbBar;
        void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
private:
      //this variable indicate the current state of form
      TControlAction CurState;
      bool IsCreate;

public:
  TControlGroups *ClientGroup;
  TComServer *comServer;

protected:
      int __fastcall ShowMessageWindow(AnsiString Msg,TMessageWindowStyle mStyle);
      DYNAMIC void __fastcall MiddleForm();

      // 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.
      DYNAMIC void __fastcall ShowFindWindow(AnsiString BrowseNo);
      DYNAMIC void __fastcall ExitThisForm();

       virtual void __fastcall InitEditControl();
      // 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 ClearControl(int Section,bool BringToNext)=0;
      virtual void __fastcall GetDataFromComObject(int Section);
      virtual void __fastcall SendDataToComObject(int Section);
      virtual void __fastcall WaitUserInput(int Section);
//      virtual void __fastcall RefreshGridData(int mAction);
      virtual void __fastcall DisplayBill();
      virtual void __fastcall GetBill(AnsiString BillID);
//      virtual void __fastcall FillGridWithData();
      virtual void __fastcall ChangeToBrowseState(bool Browse=false);

      __property TControlAction CurrentState={read=CurState};
private:
        AnsiString FBillNumID;
        void __fastcall SetBillNumID(AnsiString value);
        AnsiString __fastcall GetBillNumID();

public:		// User declarations
        __fastcall TListBaseForm(TComponent* Owner);
        __fastcall TListBaseForm(TComponent* Owner,int ClassName,AnsiString WhereStr);
        __fastcall ~TListBaseForm();
        __property AnsiString BillNumID  = { read=GetBillNumID, write=SetBillNumID };

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

BEGIN_MESSAGE_MAP
    MESSAGE_HANDLER(WM_YW_UPDATE_MSG, TMessage, UpdateMessage);
END_MESSAGE_MAP(TForm)        

};
//---------------------------------------------------------------------------
extern PACKAGE TListBaseForm *ListBaseForm;
#endif