basedocformmgr.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "BasedocFormMgr.h"
#include "BaseGlobeVars.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
int __stdcall NewClientForm(HWND ahWnd,int FormCode,HWND chWnd,char *ClassCode,char *Param,char *gvs)
{
  Application->Handle=ahWnd;
  gGlobeVarsStr=gvs;
  try
  {
    switch(FormCode)
    {
      case 1030101:   //公司资料
          frmCompany=new TfrmCompany(Application,chWnd,ClassCode,Param);
        return (int)frmCompany;
      case 1030102:   //税务资料
          frmTax=new TfrmTax(Application,chWnd,ClassCode,Param);
        return (int)frmTax;
      case 1030103:   //货币资料
          frmCurrency=new TfrmCurrency(Application,chWnd,ClassCode,Param);
        return (int)frmCurrency;
      case 1030104:   //财务日历
          frmFC=new TfrmFC(Application,chWnd,ClassCode,Param);
        return (int)frmFC;
      case 1030105:   //短语手册
          frmNoteBook=new TfrmNoteBook(Application,chWnd,ClassCode,Param);
        return (int)frmNoteBook;
      case 1030106:   //每月汇率
          frmRate=new TfrmRate(Application,chWnd,ClassCode,Param);
        return (int)frmRate;
      case 1030107:   //短语查询
          frmNbQuery=new TfrmNbQuery(Application,chWnd,ClassCode,Param);
        return (int)frmNbQuery;
      case 1030108:   //财务年度
          frmFy=new TfrmFy(Application,chWnd,ClassCode,Param);
        return (int)frmFy;
      case 1030201:   //付款方式
          frmPayMode=new TfrmPayMode(Application,chWnd,ClassCode,Param);
        return (int)frmPayMode;
      case 1030202:   //结算方式
          frmSettleMode=new TfrmSettleMode(Application,chWnd,ClassCode,Param);
        return (int)frmSettleMode;
      case 1030203:   //计量单位
          frmUnit=new TfrmUnit(Application,chWnd,ClassCode,Param);
        return (int)frmUnit;
      case 1030204:   //运输方式
          frmTransMode=new TfrmTransMode(Application,chWnd,ClassCode,Param);
        return (int)frmTransMode;
      case 1030205:   //部门资料
          frmDept=new TfrmDept(Application,chWnd,ClassCode,Param);
        return (int)frmDept;
      case 1030206:   //地区代码
          frmArea=new TfrmArea(Application,chWnd,ClassCode,Param);
        return (int)frmArea;
      case 1030207:   //行业类型
          frmTrade=new TfrmTrade(Application,chWnd,ClassCode,Param);
        return (int)frmTrade;
      case 1030208:   //费用维护
          frmExpense=new TfrmExpense(Application,chWnd,ClassCode,Param);
        return (int)frmExpense;
      case 1030209:   //交货方式
          frmDeliver=new TfrmDeliver(Application,chWnd,ClassCode,Param);
        return (int)frmDeliver;
      default:
        return 0;//功能尚未实现
    }
  }
  catch(Exception &e)
  {
     return -1;  //创建窗体失败
  }
}