qlydocformctrl.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "QlyDocFormCtrl.h"
#include "qcm.h"
#include "qcc.h"
#include "qcl.h"
#include "qdl.h"
#include "rqr.h"
#include "Trd.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 1090101:        //质检内容维护
        frmQcc = new TfrmQcc(Application);
        return (TForm *)frmQcc;
      case 1090102:       //检测等级代码
        frmQcl = new TfrmQcl(Application);
        return (TForm *)frmQcl;
      case 1090103:       //质量缺陷等级
        frmQdl = new TfrmQdl(Application);
        return (TForm *)frmQdl;
      case 1090104:
        frmQcm = new TfrmQcm(Application);
        return (TForm *)frmQcm;
      case 1090105:       //重检原因
        frmRqr = new TfrmRqr(Application);
        return (TForm *)frmRqr;
      case 1090106:
        frmTrd = new TfrmTrd(Application);
        return (TForm *)frmTrd;
      default:
        throw Exception("该功能尚未实现!");
    }
  }
  catch(Exception &e)
  {
    throw Exception(e.Message);
  }
}