systemformctrl.cpp

来自「一个以前收集的基于C/S架构的ERP客户端源代码」· C++ 代码 · 共 87 行

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

#include <vcl.h>
#pragma hdrstop

#include "SystemFormCtrl.h"
//---------------------------------------------------------------------------
#include "Parameter.h"
#include "Acm.h"
#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("窗体代码错误!");
        return(NULL);

  }
  try
  {
    switch(s)
    {
     /* case 1110201:
        frmForeCasth=new TfrmForeCasth(Application);
        return (TForm *)frmForeCasth;
      case 1110202:
        frmMps=new TfrmMps(Application);
        return (TForm *)frmMps;
      case 1110203:
        frmMps=new TfrmMps(Application);
        return (TForm *)frmMps;
      case 1110301:
        frmMir=new TfrmMir(Application);
        return (TForm *)frmMir;
      case 1110302:
        frmVW_Mir=new TfrmVW_Mir(Application);
        return (TForm *)frmVW_Mir;
      case 1110401:
        frmMcr=new TfrmMcr(Application);
        return (TForm *)frmMcr;
      case 1110402:
        frmVW_Mcr=new TfrmVW_Mcr(Application);
        return (TForm *)frmVW_Mcr;
      case 1110501:
        frmMrp=new TfrmMrp(Application);
        return (TForm *)frmMrp;
      case 1110502:
        frmVW_Mrp=new TfrmVW_Mrp(Application);
        return (TForm *)frmVW_Mrp;
      case 1040501:
        frmVW_Mrp_p=new TfrmVW_Mrp_p(Application);
        return (TForm *)frmVW_Mrp_p;
      case 1060601:
        frmVW_Mrp_m=new TfrmVW_Mrp_m(Application);
        return (TForm *)frmVW_Mrp_m;   */
      default:
//        throw Exception("该功能尚未实现!");
        return(NULL);

    }
  }
  catch(Exception &e)
  {
//    throw Exception(e.Message);
        return(NULL);

  }
}