capacityformmgr.cpp

来自「科思ERP部分源码及控件」· C++ 代码 · 共 52 行

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

#include <vcl.h>
#pragma hdrstop

#include "CapacityFormMgr.h"
#include "VW_Capacity_Query.h"
#include "VW_Capacity_Ratio.h"
#include "CptRation_Pict.h"
#include "CptRation_PictPlan.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 1120201:   //产品生产能力
          frmMpc=new TfrmMpc(Application,chWnd,MidCode,Param);
        return (int)frmMpc;
      case 1120202:   //零件供应能力
          frmPpc=new TfrmPpc(Application,chWnd,MidCode,Param);
        return (int)frmPpc;
      case 1120203:   //零件供应能力
         frmVW_CapaCity_Query=new TfrmVW_CapaCity_Query(Application,chWnd,MidCode,Param);
        return (int)frmVW_CapaCity_Query;

      case 1120204:   //能力负荷运算
         frmCapaCptRationGen=new TfrmCapaCptRationGen(Application,chWnd,MidCode,Param);
        return (int)frmCapaCptRationGen;
      case 1120205:   //负荷
         frmVW_Capacity_Ratio=new TfrmVW_Capacity_Ratio(Application,chWnd,MidCode,Param);
        return (int)frmVW_Capacity_Ratio;
       case 1120206:   //负荷
         frmCptRation_Pict=new TfrmCptRation_Pict(Application,chWnd,MidCode,Param);
        return (int)frmCptRation_Pict;
      case 1120207:   //负荷
         frmCptRation_PictPlan=new TfrmCptRation_PictPlan(Application,chWnd,MidCode,Param);
        return (int)frmCptRation_PictPlan;
      default:
        return 0;//功能尚未实现
    }
  }
  catch(Exception &e)
  {
     return -1;  //创建窗体失败
  }
}