qualityformmgr.cpp

来自「一个以前收集的基于C/S架构的ERP客户端源代码」· C++ 代码 · 共 87 行

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

#include <vcl.h>
#pragma hdrstop

#include "QualityFormMgr.h"
#include "BaseGlobeVars.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
int __stdcall CreateSForm(HWND ahWnd,int FormCode,HWND chWnd,char *MidCode,char *Param,char *gvs)
{
  Application->Handle=ahWnd;
  gGlobeVarsStr=gvs;
  try
  {
    switch(FormCode)
    {
      case 1090101:   //检测内容维护
          frmQcc=new TfrmQcc(Application,chWnd,MidCode,Param);
        return (int)frmQcc;
      case 1090102:   //检测等级代码
          frmQcl=new TfrmQcl(Application,chWnd,MidCode,Param);
        return (int)frmQcl;
      case 1090103:   //质量缺陷等级
          frmQdl=new TfrmQdl(Application,chWnd,MidCode,Param);
        return (int)frmQdl;
      case 1090104:   //质检员维护
          frmQcm=new TfrmQcm(Application,chWnd,MidCode,Param);
        return (int)frmQcm;
      case 1090105:   //重检原因
          frmRqr=new TfrmRqr(Application,chWnd,MidCode,Param);
        return (int)frmRqr;
      case 1090106:   //技术要求
          frmTrd=new TfrmTrd(Application,chWnd,MidCode,Param);
        return (int)frmTrd;
      case 1090107:   //质检方法
          frmQcWay=new TfrmQcWay(Application,chWnd,MidCode,Param);
        return (int)frmQcWay;
      case 1090202:   //工序检验
          frmQcProcH=new TfrmQcProcH(Application,chWnd,MidCode,Param);
        return (int)frmQcProcH;
      case 1090203:   //成品检验
          frmQcProd=new TfrmQcProd(Application,chWnd,MidCode,Param);
        return (int)frmQcProd;
      case 1090204:   //收货检验
          frmQcIncept=new TfrmQcIncept(Application,chWnd,MidCode,Param);
        return (int)frmQcIncept;
      case 1090205:   //外协检验
          frmQcColl=new TfrmQcColl(Application,chWnd,MidCode,Param);
        return (int)frmQcColl;

      case 1090401:   //工序检验报告
          frmQcProcHRep=new TfrmQcProcHRep(Application,chWnd,MidCode,Param);
        return (int)frmQcProcHRep;
      case 1090402:   //成品检验报告
          frmQcProdRep=new TfrmQcProdRep(Application,chWnd,MidCode,Param);
        return (int)frmQcProdRep;
      case 1090403:   //收货检验报告
          frmQcInceptRep=new TfrmQcInceptRep(Application,chWnd,MidCode,Param);
        return (int)frmQcInceptRep;
      case 1090404:   //外协检验报告
          frmQcCollRep=new TfrmQcCollRep(Application,chWnd,MidCode,Param);
        return (int)frmQcCollRep;

      case 1090301:   //工序检验查询
          frmQcProcHQue=new TfrmQcProcHQue(Application,chWnd,MidCode,Param);
        return (int)frmQcProcHQue;
      case 1090302:   //成品检验查询
          frmQcProdQue=new TfrmQcProdQue(Application,chWnd,MidCode,Param);
        return (int)frmQcProdQue;
      case 1090303:   //收货检验查询
          frmQcInceptQue=new TfrmQcInceptQue(Application,chWnd,MidCode,Param);
        return (int)frmQcInceptQue;
      case 1090304:   //外协检验查询
          frmQcCollQue=new TfrmQcCollQue(Application,chWnd,MidCode,Param);
        return (int)frmQcCollQue;

      default:
        return 0;//功能尚未实现
    }
  }
  catch(Exception &e)
  {
     return -1;  //创建窗体失败
  }
}