inventformctrl.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "InventFormCtrl.h"
#include "adjinvh.h"  //1070204
#include "alfh.h"
#include "alfhcheck.h"
#include "gosh.h"
#include "gpch.h" //1070501
#include "pish.h"
#include "scraph.h"
#include "scraphcheck.h"
#include "Srgh.h"
#include "Sugh.h"
#include "TsFree.h"
#include "tsh.h"
#include "tshcheck.h"
#include "TsSet.h"
#include "VW_Alfh.h"
#include "VW_Goods.h"
#include "VW_Gosh.h"
#include "VW_Gosh_Sum.h"
#include "VW_Loc.h"
#include "VW_Macc.h"
#include "VW_Pish.h"
#include "VW_Pish_Sum.h"
#include "VW_Scraph.h"
#include "VW_Stock.h"
#include "VW_Tsh.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 1070201:
        frmPish=new TfrmPish(Application);
        return (TForm *)frmPish;
      case 1070202:
        frmGosh=new TfrmGosh(Application);
        return (TForm *)frmGosh;
      case 1070204:
        frmAdjInvh=new TfrmAdjInvh(Application);
        return (TForm *)frmAdjInvh;
      case 1070301:
        frmTsh=new TfrmTsh(Application);
        return (TForm *)frmTsh;
      case 1070303:
        frmTshCheck=new TfrmTshCheck(Application);
        return (TForm *)frmTshCheck;
      case 1070304:
        frmTsSet=new TfrmTsSet(Application);
        return (TForm *)frmTsSet;
      case 1070305:
        frmTsFree=new TfrmTsFree(Application);
        return (TForm *)frmTsFree;
      case 1070401:
        frmAlfh=new TfrmAlfh(Application);
        return (TForm *)frmAlfh;
      case 1070402:
        frmAlfhCheck=new TfrmAlfhCheck(Application);
        return (TForm *)frmAlfhCheck;
      case 1070501:
        frmGpch=new TfrmGpch(Application);
        return (TForm *)frmGpch;
      case 1070601:
        frmScraph=new TfrmScraph(Application);
        return (TForm *)frmScraph;
      case 1070602:
        frmScraphCheck=new TfrmScraphCheck(Application);
        return (TForm *)frmScraphCheck;
      case 1070606:
        frmSugh=new TfrmSugh(Application);
        return (TForm *)frmSugh;
      case 1070607:
        frmSrgh=new TfrmSrgh(Application);
        return (TForm *)frmSrgh;
      case 1070801:
        frmVW_Loc=new TfrmVW_Loc(Application);
        return (TForm *)frmVW_Loc;
      case 1070802:
        frmVW_Pish=new TfrmVW_Pish(Application);
        return (TForm *)frmVW_Pish;
      case 1070803:
        frmVW_Gosh=new TfrmVW_Gosh(Application);
        return (TForm *)frmVW_Gosh;
      case 1070804:
        frmVW_Tsh=new TfrmVW_Tsh(Application);
        return (TForm *)frmVW_Tsh;
      case 1070805:
        frmVW_Alfh=new TfrmVW_Alfh(Application);
        return (TForm *)frmVW_Alfh;
      case 1070806:
        frmVW_Scraph=new TfrmVW_Scraph(Application);
        return (TForm *)frmVW_Scraph;
      case 1070807:
        frmVW_Macc=new TfrmVW_Macc(Application);
        return (TForm *)frmVW_Macc;
      case 1070808:
        frmVW_Stock=new TfrmVW_Stock(Application);
        return (TForm *)frmVW_Stock;
      case 1070809:
        frmVW_Pish_Sum=new TfrmVW_Pish_Sum(Application);
        return (TForm *)frmVW_Pish_Sum;
      case 1070810:
        frmVW_Gosh_Sum=new TfrmVW_Gosh_Sum(Application);
        return (TForm *)frmVW_Gosh_Sum;
      case 1070811:
        frmVW_Goods=new TfrmVW_Goods(Application);
        return (TForm *)frmVW_Goods;
      default:
        throw Exception("该功能尚未实现!");
    }
  }
  catch(Exception &e)
  {
    throw Exception(e.Message);
  }
}