financeformmgr.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "FinanceFormMgr.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 1100101:   //科目编码
          frmGlkm=new TfrmGlkm(Application,chWnd,MidCode,Param);
        return (int)frmGlkm;
      case 1100102:   //凭证类别
          frmFvct=new TfrmFvct(Application,chWnd,MidCode,Param);
        return (int)frmFvct;
      case 1100103:   //个人所得税率
          frmInTax=new TfrmInTax(Application,chWnd,MidCode,Param);
        return (int)frmInTax;
      case 1100104:   //会计员维护
          frmPurser=new TfrmPurser(Application,chWnd,MidCode,Param);
        return (int)frmPurser;
      case 1100105:   //出纳员维护
          frmCashier=new TfrmCashier(Application,chWnd,MidCode,Param);
        return (int)frmCashier;
      case 1100106:   //帐号权限分配
          frmArd=new TfrmArd(Application,chWnd,MidCode,Param);
        return (int)frmArd;
      case 1100107:   //帐户管理
          frmCac=new TfrmCac(Application,chWnd,MidCode,Param);
        return (int)frmCac;
      case 1100108:   //凭证事务
          frmVoAct=new TfrmVoAct(Application,chWnd,MidCode,Param);
        return (int)frmVoAct;
      case 1100201:   //出纳日记帐
          frmFbb=new TfrmFbb(Application,chWnd,MidCode,Param);
        return (int)frmFbb;
      case 1100202:   //银行对帐单
          frmBcs=new TfrmBcs(Application,chWnd,MidCode,Param);
        return (int)frmBcs;
      case 1100203:   //现金盘点表
          frmCts=new TfrmCts(Application,chWnd,MidCode,Param);
        return (int)frmCts;
      case 1100204:   //银行对帐
          frmFdz=new TfrmFdz(Application,chWnd,MidCode,Param);
        return (int)frmFdz;
      case 1100205:   //余额调节表
          frmFdzBtjb=new TfrmFdzBtjb(Application,chWnd,MidCode,Param);
        return (int)frmFdzBtjb;
      case 1100301:   //总帐初始化
          frmGlb=new TfrmGlb(Application,chWnd,MidCode,Param);
        return (int)frmGlb;
      case 1100302:   //凭证录入
          frmPzh=new TfrmPzh(Application,chWnd,MidCode,Param);
        return (int)frmPzh;
      case 1100303:   //凭证查询
          frmPzhQuery=new TfrmPzhQuery(Application,chWnd,MidCode,Param);
        return (int)frmPzhQuery;
      case 1100304:   //凭证汇总
          frmPzhTotal=new TfrmPzhTotal(Application,chWnd,MidCode,Param);
        return (int)frmPzhTotal;
      case 1100305:   //凭证审核
          frmPzhCheck=new TfrmPzhCheck(Application,chWnd,MidCode,Param);
        return (int)frmPzhCheck;
      case 1100306:   //凭证登帐
          frmPzhPost=new TfrmPzhPost(Application,chWnd,MidCode,Param);
        return (int)frmPzhPost;

      case 1100307:   //凭证生成
          frmPzhGen=new TfrmPzhGen(Application,chWnd,MidCode,Param);
        return (int)frmPzhGen;

      case 1100401:   //总分类帐
          frmGlbQuery=new TfrmGlbQuery(Application,chWnd,MidCode,Param);
        return (int)frmGlbQuery;
      case 1100602:   //明细分类帐
          frmGlbmQuery=new TfrmGlbmQuery(Application,chWnd,MidCode,Param);
        return (int)frmGlbmQuery;
      case 1100403:   //数量金额总帐
          frmGlbQtyAmt=new TfrmGlbQtyAmt(Application,chWnd,MidCode,Param);
        return (int)frmGlbQtyAmt;
      case 1100604:   //数量金额明细帐
          frmGlbmQtyAmt=new TfrmGlbmQtyAmt(Application,chWnd,MidCode,Param);
        return (int)frmGlbmQtyAmt;
      case 1100405:   //科目余额表
          frmKmBalance=new TfrmKmBalance(Application,chWnd,MidCode,Param);
        return (int)frmKmBalance;
      case 1100606:   //多栏式明细帐
          frmGlb_DLZ=new TfrmGlb_DLZ(Application,chWnd,MidCode,Param);
        return (int)frmGlb_DLZ;
      case 1100407:   //核算项目分类总帐
          frmGlb_Project=new TfrmGlb_Project(Application,chWnd,MidCode,Param);
        return (int)frmGlb_Project;
      case 1100608:   //核算项目分类明细帐
          frmGlbm_Project=new TfrmGlbm_Project(Application,chWnd,MidCode,Param);
        return (int)frmGlbm_Project;
      case 1100409:   //应收帐款总帐
          frmGlbQtyNeedGet=new TfrmGlbQtyNeedGet(Application,chWnd,MidCode,Param);
        return (int)frmGlbQtyNeedGet;
      case 1100610:   //应收帐款明细
          frmGlbmQtyNeedGet=new TfrmGlbmQtyNeedGet(Application,chWnd,MidCode,Param);
        return (int)frmGlbmQtyNeedGet;
      case 1100411:   //预收帐款总帐
          frmGlbQtyWillGet=new TfrmGlbQtyWillGet(Application,chWnd,MidCode,Param);
        return (int)frmGlbQtyWillGet;
      case 1100612:   //预收帐款明细
          frmGlbmQtyWillGet=new TfrmGlbmQtyWillGet(Application,chWnd,MidCode,Param);
        return (int)frmGlbmQtyWillGet;
      case 1100413:   //应付帐款总帐
          frmGlbQtyNeedRev=new TfrmGlbQtyNeedRev(Application,chWnd,MidCode,Param);
        return (int)frmGlbQtyNeedRev;
      case 1100614:   //应付帐款明细
          frmGlbmQtyNeedRev=new TfrmGlbmQtyNeedRev(Application,chWnd,MidCode,Param);
        return (int)frmGlbmQtyNeedRev;
      case 1100415:   //预付帐款总帐
          frmGlbQtyWillRev=new TfrmGlbQtyWillRev(Application,chWnd,MidCode,Param);
        return (int)frmGlbQtyWillRev;
      case 1100616:   //预付帐款明细
          frmGlbmQtyWillRev=new TfrmGlbmQtyWillRev(Application,chWnd,MidCode,Param);
        return (int)frmGlbmQtyWillRev;
/*
      case 1100501:   //财务报表
          frmFinReport=new TfrmFinReport(Application,chWnd,MidCode,Param);
        return (int)frmFinReport;
*/
      default:
        return 0;//功能尚未实现
    }
  }
  catch(Exception &e)
  {
     return -1;  //创建窗体失败
  }
}