purdocformctrl.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "PurDocFormCtrl.h"
#include "Buyer.h"
#include "Credit.h"
#include "Pgd.h"
#include "Pmode.h"
#include "Pquote.h"
#include "PretRr.h"
#include "Psd.h"
#include "Psite.h"
#include "Ptype.h"
#include "RpoCr.h"
#include "Supply.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 1040101:
        frmPtype=new TfrmPtype(Application);
        return (TForm *)frmPtype;
      case 1040102:
        frmPmode=new TfrmPmode(Application);;
        return (TForm *)frmPmode;
      case 1040103:
        frmBuyer=new TfrmBuyer(Application);
        return (TForm *)frmBuyer;
      case 1040104:
        frmSupply=new TfrmSupply(Application);
        return (TForm *)frmSupply;
      case 1040105:
        frmPsite=new TfrmPsite(Application);
        return (TForm *)frmPsite;
      case 1040106:
        frmPsd=new TfrmPsd(Application);
        return (TForm *)frmPsd;
      case 1040108:
        frmPgd=new TfrmPgd(Application);
        return (TForm *)frmPgd;
      case 1040109:
        frmPquote=new TfrmPquote(Application);
        return (TForm *)frmPquote;
      case 1040111:
    	frmRpoCr=new TfrmRpoCr(Application);
        return (TForm *)frmRpoCr;
      case 1040112:
        frmCredit=new TfrmCredit(Application);
        return (TForm *)frmCredit;
      case 1040113:
        frmPretRr=new TfrmPretRr(Application);
        return (TForm *)frmPretRr;
      default:
        throw Exception("该功能尚未实现!");
    }
  }
  catch(Exception &e)
  {
    throw Exception(e.Message);
  }
}