purchaseformmgr.cpp

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

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

#include <vcl.h>
#pragma hdrstop
#include "PurchaseFormMgr.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 1040101:   //供应商类别
          frmPtype=new TfrmPtype(Application,chWnd,MidCode,Param);
        return (int)frmPtype;
      case 1040102:   //采购方式
          frmPmode=new TfrmPmode(Application,chWnd,MidCode,Param);
        return (int)frmPmode;
      case 1040103:   //采购员资料
          frmBuyer=new TfrmBuyer(Application,chWnd,MidCode,Param);
        return (int)frmBuyer;
      case 1040104:   //供应商资料
          frmSupply=new TfrmSupply(Application,chWnd,MidCode,Param);
        return (int)frmSupply;
      case 1040105:   //供应商交货地点
          frmPsite=new TfrmPsite(Application,chWnd,MidCode,Param);
        return (int)frmPsite;
      case 1040106:   //供应商结算方式
          frmPsd=new TfrmPsd(Application,chWnd,MidCode,Param);
        return (int)frmPsd;
      case 1040108:   //供应商物品资料
          frmPgd=new TfrmPgd(Application,chWnd,MidCode,Param);
        return (int)frmPgd;
      case 1040109:   //供应商物品报价
          frmPquote=new TfrmPquote(Application,chWnd,MidCode,Param);
        return (int)frmPquote;
      case 1040111:   //请购单取消原因
          frmRpoCr=new TfrmRpoCr(Application,chWnd,MidCode,Param);
        return (int)frmRpoCr;
      case 1040112:   //信誉等级
          frmCredit=new TfrmCredit(Application,chWnd,MidCode,Param);
        return (int)frmCredit;
      case 1040113:   //退货原因
          frmPretRr=new TfrmPretRr(Application,chWnd,MidCode,Param);
        return (int)frmPretRr;
       case 1040114:   //退货参数
          frmPurParam=new TfrmPurParam(Application,chWnd,MidCode,Param);
        return (int)frmPurParam;
      case 1040202:   //请购单维护
          frmRpoh=new TfrmRpoh(Application,chWnd,MidCode,Param);
        return (int)frmRpoh;
      case 1040203:   //请购单审核
          frmRpohCheck=new TfrmRpohCheck(Application,chWnd,MidCode,Param);
        return (int)frmRpohCheck;
      case 1040204:   //请购单取消
         frmRpohCancel=new TfrmRpohCancel(Application,chWnd,MidCode,Param);
         return (int)frmRpohCancel;
      case 1040301:   //采购单维护
         frmPoh=new TfrmPoh(Application,chWnd,MidCode,Param);
         return (int)frmPoh;
      case 1040303:   //采购单审核
         frmPohCheck=new TfrmPohCheck(Application,chWnd,MidCode,Param);
         return (int)frmPohCheck;
      case 1040304:   //采购单中止
          frmPohStop=new TfrmPohStop(Application,chWnd,MidCode,Param);
        return (int)frmPohStop;
      case 1040305:   //采购单取消
          frmPohCancel=new TfrmPohCancel(Application,chWnd,MidCode,Param);
        return (int)frmPohCancel;
      case 1040306:   //采购单结清
          frmPohClose=new TfrmPohClose(Application,chWnd,MidCode,Param);
        return (int)frmPohClose;
      case 1040308:   //采购费用分摊
          frmPbeh=new TfrmPbeh(Application,chWnd,MidCode,Param);
        return (int)frmPbeh;
      case 1040309:   //催货单维护
          frmUlh=new TfrmUlh(Application,chWnd,MidCode,Param);
        return (int)frmUlh;
      case 1040401:   //采购收货(按订单)
          frmPrech_P_I=new TfrmPrech_P_I(Application,chWnd,MidCode,Param);
        return (int)frmPrech_P_I;
//***      case 1040402:   //采购收货(按物料)
//***          frmPrech_G_I=new TfrmPrech_G_I(Application,chWnd,MidCode,Param);
//***        return (int)frmPrech_G_I;
      case 1040403:   //采购在途单维护
          frmZth=new TfrmZth(Application,chWnd,MidCode,Param);
        return (int)frmZth;
      case 1040404:   //采购收货审核
          frmPrechCheck=new TfrmPrechCheck(Application,chWnd,MidCode,Param);
        return (int)frmPrechCheck;
      case 1040405:   //采购收货(非计划)
          frmPrech_N_I=new TfrmPrech_N_I(Application,chWnd,MidCode,Param);
        return (int)frmPrech_N_I;
      case 1040406:   //采购退货
          frmPreth=new TfrmPreth(Application,chWnd,MidCode,Param);
        return (int)frmPreth;
//***      case 1040407:   //供应商退货
//***          frmPreth_N_O=new TfrmPreth_N_O(Application,chWnd,MidCode,Param);
//***        return (int)frmPreth_N_O;
      case 1040408:   //采购退货审核
          frmPrethCheck=new TfrmPrethCheck(Application,chWnd,MidCode,Param);
        return (int)frmPrethCheck;
      case 1040409:   //采购收货取消
          frmPrechCancel=new TfrmPrechCancel(Application,chWnd,MidCode,Param);
        return (int)frmPrechCancel;
      case 1040410:   //采购退货取消
          frmPrethCancel=new TfrmPrethCancel(Application,chWnd,MidCode,Param);
        return (int)frmPrethCancel;
      case 1040411:   //采购在途单结清
          frmZthClose=new TfrmZthClose(Application,chWnd,MidCode,Param);
        return (int)frmZthClose;
      case 1040412:   //采购发票
          frmPivoh=new TfrmPivoh(Application,chWnd,MidCode,Param);
        return (int)frmPivoh;
       case 1040501:   //MRP计划维护
         frmVW_Mrp_p=new TfrmVW_Mrp_p(Application,chWnd,MidCode,Param);
       return (int)frmVW_Mrp_p;
       case 1040502:   //采购计划维护
          frmBplan=new TfrmBplan(Application,chWnd,MidCode,Param);
        return (int)frmBplan;
      case 1040505:   //采购周期维护
          frmPeriod=new TfrmPeriod(Application,chWnd,MidCode,Param);
        return (int)frmPeriod;
      case 1040701:   //物料供应商查询
          frmVW_Supply=new TfrmVW_Supply(Application,chWnd,MidCode,Param);
        return (int)frmVW_Supply;
      case 1040703:   //请购单查询
          frmVW_Rpoh=new TfrmVW_Rpoh(Application,chWnd,MidCode,Param);
        return (int)frmVW_Rpoh;
      case 1040704:   //采购单查询
          frmVW_Poh=new TfrmVW_Poh(Application,chWnd,MidCode,Param);
        return (int)frmVW_Poh;
      case 1040705:   //收货单查询
          frmVW_Prech=new TfrmVW_Prech(Application,chWnd,MidCode,Param);
        return (int)frmVW_Prech;
      case 1040706:   //退货单查询
          frmVW_Preth=new TfrmVW_Preth(Application,chWnd,MidCode,Param);
        return (int)frmVW_Preth;
      case 1040707:   //采购发票查询
          frmVW_Pivoh=new TfrmVW_Pivoh(Application,chWnd,MidCode,Param);
        return (int)frmVW_Pivoh;
      case 1040708:   //采购计划查询
          frmVW_Period=new TfrmVW_Period(Application,chWnd,MidCode,Param);
        return (int)frmVW_Period;
      case 1040712:   //采购综合查询
          frmVW_Po_Sum=new TfrmVW_Po_Sum(Application,chWnd,MidCode,Param);
        return (int)frmVW_Po_Sum;
      case 1040713:   //供应商信息中心
          frmPurchInf = new TfrmPurchInf(Application,chWnd,MidCode,Param);
        return (int)frmPurchInf;
      case 1040714: //采购评估
          frmPurchEva = new TfrmPurchEva(Application,chWnd,MidCode,Param);
        return (int)frmPurchEva;
      case 1040601:   //供应商评估
          frmSueval= new TfrmSueval(Application,chWnd,MidCode,Param);
        return (int)frmSueval;
      case 1040710:   //采购报表
          frmPurchRep= new TfrmPurchRep(Application,chWnd,MidCode,Param);
        return (int)frmPurchRep;
      default:
        return 0;//功能尚未实现
    }
  }
  catch(Exception &e)
  {
     return -1;  //创建窗体失败
  }
}
//标准版本