equipmentformmgr.cpp

科思ERP部分源码及控件

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

#include <vcl.h>
#pragma hdrstop

#include "EquipmentFormMgr.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 1150101:   //设备分类码
          frmFat=new TfrmFat(Application,chWnd,MidCode,Param);
        return (int)frmFat;
      case 1150102:   //卡片样式
          frmFacs=new TfrmFacs(Application,chWnd,MidCode,Param);
        return (int)frmFacs;
      case 1150103:   //使用状态
          frmFaUse=new TfrmFaUse(Application,chWnd,MidCode,Param);
        return (int)frmFaUse;
      case 1150104:   //变动类型
          frmFav=new TfrmFav(Application,chWnd,MidCode,Param);
        return (int)frmFav;
      case 1150105:   //折旧方法
          frmFadm=new TfrmFadm(Application,chWnd,MidCode,Param);
        return (int)frmFadm;
      case 1150106:   //折旧方法
          frmEQParam=new TfrmEQParam(Application,chWnd,MidCode,Param);
        return (int)frmEQParam;
      case 1150201:   //增加设备
          frmFadn=new TfrmFadn(Application,chWnd,MidCode,Param);
        return (int)frmFadn;
      case 1150202:   //减少设备
          frmFaDec=new TfrmFaDec(Application,chWnd,MidCode,Param);
        return (int)frmFaDec;
      case 1150203:   //设备报废
          frmFaDisCard=new TfrmFaDisCard(Application,chWnd,MidCode,Param);
        return (int)frmFaDisCard;
      case 1150204:   //工作量维护
          frmFaWork=new TfrmFaWork(Application,chWnd,MidCode,Param);
        return (int)frmFaWork;
      case 1150205:   //计提折旧
          frmFaDc=new TfrmFaDc(Application,chWnd,MidCode,Param);
        return (int)frmFaDc;
      case 1150301:   //原值增加
          frmFaChOva=new TfrmFaChOva(Application,chWnd,MidCode,Param);
        return (int)frmFaChOva;
      case 1150302:   //原值减少
          frmFaChOvd=new TfrmFaChOvd(Application,chWnd,MidCode,Param);
        return (int)frmFaChOvd;
      case 1150303:   //累计折旧增加
          frmFaChDva=new TfrmFaChDva(Application,chWnd,MidCode,Param);
        return (int)frmFaChDva;
      case 1150304:   //累计折旧减少
          frmFaChDvd=new TfrmFaChDvd(Application,chWnd,MidCode,Param);
        return (int)frmFaChDvd;
      case 1150305:   //折旧方法变动
          frmFaChDmc=new TfrmFaChDmc(Application,chWnd,MidCode,Param);
        return (int)frmFaChDmc;
      case 1150306:   //使用年限变动
          frmFaChPrd=new TfrmFaChPrd(Application,chWnd,MidCode,Param);
        return (int)frmFaChPrd;
      case 1150307:   //工作总量变动
          frmFaChWk=new TfrmFaChWk(Application,chWnd,MidCode,Param);
        return (int)frmFaChWk;
      case 1150308:   //净残值变动
          frmFaChNv=new TfrmFaChNv(Application,chWnd,MidCode,Param);
        return (int)frmFaChNv;
      case 1150401:   //检查记录
          frmFaCheck=new TfrmFaCheck(Application,chWnd,MidCode,Param);
        return (int)frmFaCheck;
      case 1150402:   //维修记录
          frmFaFix=new TfrmFaFix(Application,chWnd,MidCode,Param);
        return (int)frmFaFix;
      case 1150403:   //事故记录
          frmFaAcd=new TfrmFaAcd(Application,chWnd,MidCode,Param);
        return (int)frmFaAcd;
      case 1150404:   //停工记录
          frmFaStop=new TfrmFaStop(Application,chWnd,MidCode,Param);
        return (int)frmFaStop;
      case 1150405:   //租赁记录
          frmFaRent=new TfrmFaRent(Application,chWnd,MidCode,Param);
        return (int)frmFaRent;
      case 1150601:   //卡片查询
          frmQu_Fadn=new TfrmQu_Fadn(Application,chWnd,MidCode,Param);
        return (int)frmQu_Fadn;
      case 1150602:   //变动查询
          frmQu_FaChg=new TfrmQu_FaChg(Application,chWnd,MidCode,Param);
        return (int)frmQu_FaChg;
      case 1150603:   //折旧查询
          frmQu_FaDc=new TfrmQu_FaDc(Application,chWnd,MidCode,Param);
        return (int)frmQu_FaDc;
      case 1150604:   //工作量查询
          frmQu_FaWork=new TfrmQu_FaWork(Application,chWnd,MidCode,Param);
        return (int)frmQu_FaWork;
      default:
        return 0;//功能尚未实现
    }
  }
  catch(Exception &e)
  {
     return -1;  //创建窗体失败
  }
}