invdocformctrl.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "InvDocFormCtrl.h"

//---------------------------------------------------------------------------
#include "abc.h"
#include "Batch.h"
#include "discard.h"
#include "gccr.h"
#include "Goods.h"
#include "imreason.h"
#include "keeper.h"
#include "lg.h"
#include "loc.h"
#include "macc.h"
#include "pmpc.h"
#include "postype.h"
#include "property.h"
#include "Sr.h"
#include "sth.h"
#include "trreason.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 1070101:
        frmSth=new TfrmSth(Application);
        return (TForm *)frmSth;
      case 1070102:
        frmLoc=new TfrmLoc(Application);
        return (TForm *)frmLoc;
      case 1070103:
        frmPmpc=new TfrmPmpc(Application);
        return (TForm *)frmPmpc;
      case 1070104:
        frmGoods=new TfrmGoods(Application);
        return (TForm *)frmGoods;
      case 1070105:
        frmBatch=new TfrmBatch(Application);
        return (TForm *)frmBatch;
      case 1070106:
        frmImReason=new TfrmImReason(Application);
        return (TForm *)frmImReason;
      case 1070107:
        frmTrReason=new TfrmTrReason(Application);
        return (TForm *)frmTrReason;
      case 1070108:
        frmDiscard=new TfrmDiscard(Application);
        return (TForm *)frmDiscard;
      case 1070109:
        frmPosType=new TfrmPosType(Application);
        return (TForm *)frmPosType;
      case 1070110:
        frmLg=new TfrmLg(Application);
        return (TForm *)frmLg;
      case 1070111:
        frmABC=new TfrmABC(Application);
        return (TForm *)frmABC;
      case 1070112:
        frmKeeper=new TfrmKeeper(Application);
        return (TForm *)frmKeeper;
      case 1070113:
        frmSr=new TfrmSr(Application);
        return (TForm *)frmSr;
      case 1070114:
        frmProPerty=new TfrmProPerty(Application);
        return (TForm *)frmProPerty;
      case 1070115:
        frmGccr=new TfrmGccr(Application);
        return (TForm *)frmGccr;
      case 1070203:
        frmMacc=new TfrmMacc(Application);
        return (TForm *)frmMacc;
      default:
        throw Exception("该功能尚未实现!");
    }
  }
  catch(Exception &e)
  {
    throw Exception(e.Message);
  }
}