makedocformctrl.cpp

速达开源ERP系统

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "MakeDocFormCtrl.h"

#include "Cale.h"
#include "FacDate.h"
#include "Mprocess.h"
#include "Pg.h"
#include "Producter.h"
#include "Psr.h"
#include "Shop.h"
#include "Te.h"
#include "Team.h"
#include "Udr.h"
#include "Wc.h"
#include "Wsr.h"
//---------------------------------------------------------------------------

#pragma package(smart_init)

//---------------------------------------------------------------------------

#pragma package(smart_init)
void __stdcall InitModuleVar(TIComServer *IComServer,
    TIComResultSet *IComResultSet,TComResultSet *RsGoods,
    TComResultSet *RsGlkm)
{
  g_IComServer=IComServer;
  g_ClientComm=g_IComServer->ClientComm;
  g_IComResultSet=IComResultSet;
  g_sdRsGoods=RsGoods;
  g_sdRsGlkm=RsGlkm;
  Application->Handle=g_ClientComm->App->Handle;
  InitGlobeVar();
}


TForm* __stdcall NewClientForm(AnsiString FormCode,int FormRight)
{
  int s;
  try
  {
    s=FormCode.ToInt();
  }
  catch(...)
  {
    throw Exception("窗体代码错误!");
  }
  try
  {
    switch(s)
    {
      case 1060101:
        frmTeam=new TfrmTeam(Application);
        return (TForm *)frmTeam;
      case 1060102:
        frmShop=new TfrmShop(Application);
        return (TForm *)frmShop;
      case 1060103:
        frmWc=new TfrmWc(Application);
        return (TForm *)frmWc;
      case 1060105:
        frmMprocess=new TfrmMprocess(Application);
        return (TForm *)frmMprocess;
      case 1060106:
        frmCale=new TfrmCale(Application);
        return (TForm *)frmCale;
      case 1060107:
        frmPsr=new TfrmPsr(Application);
        return (TForm *)frmPsr;
      case 1060108:
        frmUdr=new TfrmUdr(Application);
        return (TForm *)frmUdr;
      case 1060109:
        frmWsr=new TfrmWsr(Application);
        return (TForm *)frmWsr;
      case 1060110:
        frmProducter=new TfrmProducter(Application);
        return (TForm *)frmProducter;
      case 1060111:
        frmPg=new TfrmPg(Application);
        return (TForm *)frmPg;
      case 1060112:
        frmTe=new TfrmTe(Application);
        return (TForm *)frmTe;
      default:
        throw Exception("该功能尚未实现!");
    }
  }
  catch(Exception &e)
  {
    throw Exception(e.Message);
  }
}