commformctrl.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "CommFormCtrl.h"
#include "tax.h"
#include "Currency.h"
#include "FC.h"
#include "Fy.h"
#include "PayMode.h"
#include "SettleMode.h"
#include "NoteBook.h"
#include "Unit.h"
#include "TransMode.h"
#include "Area.h"
#include "Trade.h"
#include "Rate.h"
#include "Dept.h"
#include "Expense.h"
#include "Deliver.h"
#include "company.h"
#include "NbQuery.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 1030101:
        frmCompany=new TfrmCompany(Application);
        return (TForm *)frmCompany;
      case 1030102:
        frmTax=new TfrmTax(Application);
        return (TForm *)frmTax;
      case 1030103:
        frmCurrency=new TfrmCurrency(Application);
        return (TForm *)frmCurrency;
      case 1030104:
        frmFC=new TfrmFC(Application);
        return (TForm *)frmFC;
      case 1030105:
        frmNoteBook=new TfrmNoteBook(Application);
        return (TForm *)frmNoteBook;
      case 1030106:
        frmRate=new TfrmRate(Application);
        return (TForm *)frmRate;
      case 1030107:
        frmNbQuery=new TfrmNbQuery(Application);
        return (TForm *)frmNbQuery;
      case 1030108:
        frmFy=new TfrmFy(Application);
        return (TForm *)frmFy;
      case 1030201:
        frmPayMode=new TfrmPayMode(Application);
        return (TForm *)frmPayMode;
      case 1030202:
        frmSettleMode=new TfrmSettleMode(Application);
        return (TForm *)frmSettleMode;
      case 1030203:
        frmUnit=new TfrmUnit(Application);
        return (TForm *)frmUnit;
      case 1030204:
        frmTransMode=new TfrmTransMode(Application);
        return (TForm *)frmTransMode;
      case 1030205:
        frmDept=new TfrmDept(Application);
        return (TForm *)frmDept;
      case 1030206:
        frmArea=new TfrmArea(Application);
        return (TForm *)frmArea;
      case 1030207:
        frmTrade=new TfrmTrade(Application);
        return (TForm *)frmTrade;
      case 1030208:
        frmExpense=new TfrmExpense(Application);
        return (TForm *)frmExpense;
      case 1030209:
        frmDeliver=new TfrmDeliver(Application);
        return (TForm *)frmDeliver;
      default:
        throw Exception("该功能尚未实现!");
    }
  }
  catch(Exception &e)
  {
    throw Exception(e.Message);
  }
}