reportformctrl.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "ReportFormCtrl.h"
#include "RptCenter.h"
#include "rpttype.h"
#include "rpttempleth.h"
#include "rptsort.h"
#include "rptfilter.h"
#include "rptgroup.h"
#include "rptfile.h"
#include "report.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 1170101:
        frmRptCenter=new TfrmRptCenter(Application);
        return (TForm *)frmRptCenter;
      case 1170201:
        frmRptTempleth=new TfrmRptTempleth(Application);
        return (TForm *)frmRptTempleth;
      case 1170202:
        frmRptSort=new TfrmRptSort(Application);
        return (TForm *)frmRptSort;
      case 1170203:
        frmRptFilter=new TfrmRptFilter(Application);
        return (TForm *)frmRptFilter;
      case 1170204:
        frmRptGroup=new TfrmRptGroup(Application);
        return (TForm *)frmRptGroup;
      case 1170205:
        frmRptType=new TfrmRptType(Application);
        return (TForm *)frmRptType;
      case 1170206:
        frmReport=new TfrmReport(Application);
        return (TForm *)frmReport;
      case 1170207:
        frmRptFile=new TfrmRptFile(Application);
        return (TForm *)frmRptFile;
      default:
        throw Exception("该功能尚未实现!");
    }
  }
  catch(Exception &e)
  {
    throw Exception(e.Message);
  }
}