costformctrl.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "CostFormCtrl.h"

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

#pragma package(smart_init)

#include "adjcoh.h"
#include "cd.h"
#include "equc.h"
#include "Qu_AdjCoh.h"
#include "Qu_Scmbh.h"
#include "rwt.h"
#include "scmbh.h"
#include "Qu_Cd.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("窗体代码错误!");
  }
  try
  {
    switch(s)
    {
      case 1080104:
        frmRwt=new TfrmRwt(Application);
        return (TForm *)frmRwt;
      case 1080105:
        frmEquc=new TfrmEquc(Application);
        return (TForm *)frmEquc;
      case 1080201:
        frmCd=new TfrmCd(Application);
        return (TForm *)frmCd;
      case 1080401:
        frmAdjCoh=new TfrmAdjCoh(Application);
        return (TForm *)frmAdjCoh;
      case 1080403:
        frmScmbh=new TfrmScmbh(Application);
        return (TForm *)frmScmbh;
      case 1080701:
        frmQu_AdjCoh=new TfrmQu_AdjCoh(Application);
        return (TForm *)frmQu_AdjCoh;
      case 1080702:
        frmQu_Scmbh=new TfrmQu_Scmbh(Application);
        return (TForm *)frmQu_Scmbh;
      case 1080703:
        frmQu_Cd=new TfrmQu_Cd(Application);
        return (TForm *)frmQu_Cd;
      default:
        throw Exception("该功能尚未实现!");
    }
  }
  catch(Exception &e)
  {
    throw Exception(e.Message);
  }
}