equipformctrl.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "EquipFormCtrl.h"

#include "FaAcd.h"
#include "FaChDmc.h" //折旧方法变动
#include "FaChDva.h" //折旧增加
#include "FaChDvd.h" //折旧减少
#include "FaCheck.h"
#include "FaChNv.h"  //净残值变动
#include "FaChOva.h" //原值增加
#include "FaChOvd.h" //原值减少
#include "FaChPrd.h" //使用年限变动
#include "FaChWk.h"  //工作总量变动
#include "FaDc.h"
#include "FaDec.h"
#include "FaDisCard.h"
#include "Fadn.h"
#include "FaFix.h"
#include "FaRent.h"
#include "FaStop.h"
#include "FaWork.h"
#include "Qu_FaChg.h"
#include "Qu_FaDc.h"
#include "Qu_Fadn.h"
#include "Qu_FaWork.h"

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

#pragma package(smart_init)

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

#pragma package(smart_init)
void __stdcall InitModuleVar(TIComServer *IComServer,
    TIComResultSet *IComResultSet,TComResultSet *RsGoods,
    TComResultSet *RsGlkm)
{
  g_IComServer=IComServer;
  g_ClientComm=g_IComServer->ClientComm;
  g_IComResultSet=IComResultSet;
  g_sdRsGoods=RsGoods;
  g_sdRsGlkm=RsGlkm;
  Application->Handle=g_ClientComm->App->Handle;
  InitGlobeVar();
}


TForm* __stdcall NewClientForm(AnsiString FormCode,int FormRight)
{
  int s;
  try
  {
    s=FormCode.ToInt();
  }
  catch(...)
  {
    throw Exception("窗体代码错误!");
  }
  try
  {
    switch(s)
    {
      case 1150201:
         frmFadn=new TfrmFadn(Application);
        return (TForm *)frmFadn;
      case 1150202:
         frmFaDec=new TfrmFaDec(Application);
        return (TForm *)frmFaDec;
      case 1150203:
         frmFaDisCard=new TfrmFaDisCard(Application); 
        return (TForm *)frmFaDisCard;
      case 1150204:
         frmFaWork=new TfrmFaWork(Application); 
        return (TForm *)frmFaWork;
      case 1150205:
         frmFaDc=new TfrmFaDc(Application); 
        return (TForm *)frmFaDc;
      case 1150301:
         frmFaChOva=new TfrmFaChOva(Application); 
        return (TForm *)frmFaChOva;
      case 1150302:
         frmFaChOvd=new TfrmFaChOvd(Application); 
        return (TForm *)frmFaChOvd;
      case 1150303:
         frmFaChDva=new TfrmFaChDva(Application); 
        return (TForm *)frmFaChDva;
      case 1150304:
         frmFaChDvd=new TfrmFaChDvd(Application); 
        return (TForm *)frmFaChDvd;
      case 1150305:
         frmFaChDmc=new TfrmFaChDmc(Application); 
        return (TForm *)frmFaChDmc;
      case 1150306:
         frmFaChPrd=new TfrmFaChPrd(Application); 
        return (TForm *)frmFaChPrd;
      case 1150307:
         frmFaChWk=new TfrmFaChWk(Application); 
        return (TForm *)frmFaChWk;
      case 1150308:
         frmFaChNv=new TfrmFaChNv(Application); 
        return (TForm *)frmFaChNv;
      case 1150401:
         frmFaCheck=new TfrmFaCheck(Application); 
        return (TForm *)frmFaCheck;
      case 1150402:
         frmFaFix=new TfrmFaFix(Application); 
        return (TForm *)frmFaFix;
      case 1150403:
         frmFaAcd=new TfrmFaAcd(Application); 
        return (TForm *)frmFaAcd;
      case 1150404:
         frmFaStop=new TfrmFaStop(Application); 
        return (TForm *)frmFaStop;
      case 1150405:
         frmFaRent=new TfrmFaRent(Application); 
        return (TForm *)frmFaRent;
      case 1150601:
         frmQu_Fadn=new TfrmQu_Fadn(Application); 
        return (TForm *)frmQu_Fadn;
      case 1150602:
         frmQu_FaChg=new TfrmQu_FaChg(Application); 
        return (TForm *)frmQu_FaChg;
      case 1150603:
         frmQu_FaDc=new TfrmQu_FaDc(Application); 
        return (TForm *)frmQu_FaDc;
      case 1150604:
         frmQu_FaWork=new TfrmQu_FaWork(Application); 
        return (TForm *)frmQu_FaWork;
      default:
        throw Exception("该功能尚未实现!");
    }
  }
  catch(Exception &e)
  {
    throw Exception(e.Message);
  }
}