costformmgr.cpp

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

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

#include <vcl.h>
#pragma hdrstop
#include "CostFormMgr.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 1080101:   //成本中心
          frmCc=new TfrmCc(Application,chWnd,MidCode,Param);
        return (int)frmCc;
      case 1080104:   //定额工时
          frmRwt=new TfrmRwt(Application,chWnd,MidCode,Param);
        return (int)frmRwt;
      case 1080105:   //约当产量系数
          frmEquc=new TfrmEquc(Application,chWnd,MidCode,Param);
        return (int)frmEquc;
      case 1080201:   //成本初始化
          frmCd=new TfrmCd(Application,chWnd,MidCode,Param);
        return (int)frmCd;
      case 1080401:   //库存成本调整
          frmAdjCoh=new TfrmAdjCoh(Application,chWnd,MidCode,Param);
        return (int)frmAdjCoh;
      case 1080403:   //标准成本调整
          frmScmbh=new TfrmScmbh(Application,chWnd,MidCode,Param);
        return (int)frmScmbh;
      case 1080701:   //库存成本调整查询
          frmQu_AdjCoh=new TfrmQu_AdjCoh(Application,chWnd,MidCode,Param);
        return (int)frmQu_AdjCoh;
      case 1080702:   //标准成本查询
          frmQu_Scmbh=new TfrmQu_Scmbh(Application,chWnd,MidCode,Param);
        return (int)frmQu_Scmbh;
      case 1080703:   //成本帐查询
          frmQu_Cd=new TfrmQu_Cd(Application,chWnd,MidCode,Param);
        return (int)frmQu_Cd;
      case 1080708:   //成本帐查询
          frmCostQuery=new TfrmCostQuery(Application,chWnd,MidCode,Param);
        return (int)frmCostQuery;
      /*case 1080709:   //成本帐查询
        frmMuchQuery=new TfrmMuchQuery(Application,chWnd,MidCode,Param);
        return (int)frmMuchQuery; */
      default:
        return 0;//功能尚未实现
    }
  }
  catch(Exception &e)
  {
     return -1;  //创建窗体失败
  }
}