makeformctrl.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "MakeFormCtrl.h"
#include "bomh.h"
#include "bomhcopy.h"
#include "BomhQuery.h"
#include "bomverify.h"
#include "calcllc.h"
#include "dmah.h"
#include "ecoh.h"
#include "gmth_a.h"
#include "gmth_c.h"
#include "gmth_d.h"
#include "gmth_r.h"
#include "gmth_w.h"
#include "labh.h"
#include "labh_t.h"
#include "mfch.h"
#include "pbomh.h"
#include "pdmh.h"
#include "pdrh.h"
#include "Pieceh.h"
#include "pieceh_t.h"
#include "Rep.h"
#include "rmbh.h"
#include "routeh.h"
#include "VW_Dmah.h"
#include "VW_Gmth.h"
#include "VW_Labh.h"
#include "VW_Pdmh.h"
#include "vw_pdrh.h"
#include "VW_Pieceh.h"
#include "VW_Rmbh.h"
#include "vw_Weph.h"
#include "VW_WO.h"
#include "weph.h"
#include "wn.h"
#include "wo.h"
#include "wocancel.h"
#include "wocheck.h"
#include "woclose.h"
#include "wpe.h"
#include "wrg.h"
#include "Wsgm.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 1060104:
        frmRouteh=new TfrmRouteh(Application);
        return (TForm *)frmRouteh;
      case 1060201:
        frmBomh=new TfrmBomh(Application);
        return (TForm *)frmBomh;
      case 1060202:
        frmBomhCopy=new TfrmBomhCopy(Application);
        return (TForm *)frmBomhCopy;
      case 1060203:
        frmRep=new TfrmRep(Application);
        return (TForm *)frmRep;
      case 1060204:
        frmPbomh=new TfrmPbomh(Application);
        return (TForm *)frmPbomh;
      case 1060205:
        frmEcoh=new TfrmEcoh(Application);
        return (TForm *)frmEcoh;
      case 1060206:
        frmBomVerify=new TfrmBomVerify(Application);
        return (TForm *)frmBomVerify;
      case 1060208:
        frmBomhQuery=new TfrmBomhQuery(Application);
        return (TForm *)frmBomhQuery;
      case 1060209:
        frmCalcLlc=new TfrmCalcLlc(Application);
        return (TForm *)frmCalcLlc;
      case 1060301:
        frmWo=new TfrmWo(Application);
        return (TForm *)frmWo;
      case 1060303:
        frmWoCheck=new TfrmWoCheck(Application);
        return (TForm *)frmWoCheck;
      case 1060304:
        frmWoCancel=new TfrmWoCancel(Application);
        return (TForm *)frmWoCancel;
      case 1060306:
        frmWn=new TfrmWn(Application);
        return (TForm *)frmWn;
      case 1060310:
        frmWrg=new TfrmWrg(Application);
        return (TForm *)frmWrg;
      case 1060311:
        frmWsgm=new TfrmWsgm(Application);
        return (TForm *)frmWsgm;
      case 1060402:
        frmGmth_R=new TfrmGmth_R(Application);
        return (TForm *)frmGmth_R;
      case 1060403:
        frmGmth_W=new TfrmGmth_W(Application);
        return (TForm *)frmGmth_W;
      case 1060404:
        frmGmth_C=new TfrmGmth_C(Application);
        return (TForm *)frmGmth_C;
      case 1060405:
        frmGmth_A=new TfrmGmth_A(Application);
        return (TForm *)frmGmth_A;
      case 1060406:
        frmRmbh=new TfrmRmbh(Application);
        return (TForm *)frmRmbh;
      case 1060408:
        frmWoClose=new TfrmWoClose(Application);
        return (TForm *)frmWoClose;
      case 1060409:
        frmWeph=new TfrmWeph(Application);
        return (TForm *)frmWeph;
      case 1060410:
        frmGmth_D=new TfrmGmth_D(Application);
        return (TForm *)frmGmth_D;
      case 1060411:
        frmDmah=new TfrmDmah(Application);
        return (TForm *)frmDmah;
      case 1060412:
        frmPdmh=new TfrmPdmh(Application);
        return (TForm *)frmPdmh;
      case 1060413:
        frmMfch=new TfrmMfch(Application);
        return (TForm *)frmMfch;
      case 1060501:
        frmPdrh=new TfrmPdrh(Application);
        return (TForm *)frmPdrh;
      case 1060502:
        frmLabh=new TfrmLabh(Application);
        return (TForm *)frmLabh;
      case 1060503:
        frmLabh_T=new TfrmLabh_T(Application);
        return (TForm *)frmLabh_T;
      case 1060504:
        frmPieceh=new TfrmPieceh(Application);
        return (TForm *)frmPieceh;
      case 1060505:
        frmPieceh_T=new TfrmPieceh_T(Application);
        return (TForm *)frmPieceh_T;
      //case 1060601:
      // Application->CreateForm(__classid(TfrmVW_Mrp_m),&frmVW_Mrp_m);
      // return (TForm *)frmVW_Mrp_m;
      case 1060901:
        frmVW_Wo=new TfrmVW_Wo(Application);
        return (TForm *)frmVW_Wo;
      case 1060902:
        frmVW_Weph=new TfrmVW_Weph(Application);
        return (TForm *)frmVW_Weph;
      case 1060903:
        frmVW_Pdrh=new TfrmVW_Pdrh(Application);
        return (TForm *)frmVW_Pdrh;
      case 1060904:
        frmVW_Labh=new TfrmVW_Labh(Application);
        return (TForm *)frmVW_Labh;
      case 1060905:
        frmVW_Pieceh=new TfrmVW_Pieceh(Application);
        return (TForm *)frmVW_Pieceh;
      case 1060906:
        frmVW_Rmbh=new TfrmVW_Rmbh(Application);
        return (TForm *)frmVW_Rmbh;
      case 1060907:
        frmVW_Gmth=new TfrmVW_Gmth(Application);
        return (TForm *)frmVW_Gmth;
      case 1060908:
        frmVW_Dmah=new TfrmVW_Dmah(Application);
        return (TForm *)frmVW_Dmah;
      case 1060909:
        frmVW_Pdmh=new TfrmVW_Pdmh(Application);
        return (TForm *)frmVW_Pdmh;
      default:
        throw Exception("该功能尚未实现!");
    }
  }
  catch(Exception &e)
  {
    throw Exception(e.Message);
  }
}