sysformctrl.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "SysFormCtrl.h"
//System
#include "CreateTable.h"
#include "Module.h"
#include "Parameter.h"
#include "user.h"
#include "usergroup.h"
#include "datadict.h"
#include "Vdatadict.h"
#include "Form.h"
#include "Class.h"
#include "Right.h"
#include "navpic.h"
#include "navarrow.h"
#include "Fof.h"
#include "Acm.h"
#include "Fuc.h"
#include "Log.h"
#include "chpassword.h"
#include "waitmsg.h"
#include "FormQuery.h"
#include "ParMat.h"
#include "backup.h"
#include "Restore.h"
#include "InitSys.h"
#include "Lib.h"
//---------------------------------------------------------------------------

#pragma package(smart_init)

//TSysFormCtrl::TSysFormCtrl()
//{
//}

//TSysFormCtrl::~TSysFormCtrl()
//{
//}

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 1010101:
        //Application->CreateForm(__classid(TfrmInitSys), &frmInitSys);
        frmInitSys=new TfrmInitSys(Application);
        return (TForm *)frmInitSys;
      case 1010102:
        //Application->CreateForm(__classid(TfrmParameter), &frmParameter);
        frmParameter=new TfrmParameter(Application);
        return (TForm *)frmParameter;
      case 1010106:
        //Application->CreateForm(__classid(TfrmFormQuery), &frmFormQuery);
        frmFormQuery=new TfrmFormQuery(Application);
        return (TForm *)frmFormQuery;
      case 1010107:
        //Application->CreateForm(__classid(TfrmNavPic), &frmNavPic);
        frmNavPic=new TfrmNavPic(Application);
        return (TForm *)frmNavPic;
      case 1010108:
        //Application->CreateForm(__classid(TfrmNavArrow), &frmNavArrow);
        frmNavArrow=new TfrmNavArrow(Application);
        return (TForm *)frmNavArrow;
      case 1010109:
        //Application->CreateForm(__classid(TfrmAcm), &frmAcm);
        frmAcm=new TfrmAcm(Application);
        return (TForm *)frmAcm;
      case 1010110:
        //Application->CreateForm(__classid(TfrmFuc), &frmFuc);
        frmFuc=new TfrmFuc(Application);
        return (TForm *)frmFuc;
      case 1010201:
        //Application->CreateForm(__classid(TfrmUser), &frmUser);
        frmUser=new TfrmUser(Application);
        return (TForm *)frmUser;
      case 1010202:
        //Application->CreateForm(__classid(TfrmUserGroup), &frmUserGroup);
        frmUserGroup=new TfrmUserGroup(Application);
        return (TForm *)frmUserGroup;
      case 1010203:
        //Application->CreateForm(__classid(TfrmRight), &frmRight);
        frmRight=new TfrmRight(Application);
        return (TForm *)frmRight;
      case 1010204:
        //Application->CreateForm(__classid(TfrmBackup),&frmBackup);
        frmBackup=new TfrmBackup(Application);
        return (TForm *)frmBackup;
      case 1010205:
        //Application->CreateForm(__classid(TfrmRestore),&frmRestore);
        frmRestore=new TfrmRestore(Application);
        return (TForm *)frmRestore;
      case 1010206:
        //Application->CreateForm(__classid(TfrmLog), &frmLog);
        frmLog=new TfrmLog(Application);
        return (TForm *)frmLog;
      case 1010207:
        //Application->CreateForm(__classid(TfrmChPassWord), &frmChPassWord);
        frmChPassWord=new TfrmChPassWord(Application);
        return (TForm *)frmChPassWord;
      case 1020101:
        //Application->CreateForm(__classid(TfrmDataDict), &frmDataDict);
        frmDataDict=new TfrmDataDict(Application);
        return (TForm *)frmDataDict;
      case 1020102:
        //Application->CreateForm(__classid(TfrmCreateTable), &frmCreateTable);
        frmCreateTable=new TfrmCreateTable(Application);
        return (TForm *)frmCreateTable;
      case 1020103:
        //Application->CreateForm(__classid(TfrmForm), &frmForm);
        frmForm=new TfrmForm(Application);
        return (TForm *)frmForm;
      case 1020107:
        //Application->CreateForm(__classid(TfrmVDataDict), &frmVDataDict);
        frmVDataDict=new TfrmVDataDict(Application);
        return (TForm *)frmVDataDict;
      case 1020108:
        //Application->CreateForm(__classid(TfrmFof), &frmFof);
        frmFof=new TfrmFof(Application);
        return (TForm *)frmFof;
      case 1020201:
        //Application->CreateForm(__classid(TfrmClass), &frmClass);
        frmClass=new TfrmClass(Application);
        return (TForm *)frmClass;
      case 1020202:
        //Application->CreateForm(__classid(TfrmModule), &frmModule);
        frmModule=new TfrmModule(Application);
        return (TForm *)frmModule;
      case 1020204:
        //Application->CreateForm(__classid(TfrmLib), &frmLib);
        frmLib=new TfrmLib(Application);
        return (TForm *)frmLib;
      default:
        throw Exception("该功能尚未实现!");
    }
  }
  catch(Exception &e)
  {
    throw Exception("创建窗体失败! 错误:"+e.Message);
  }
}


/*
void TSysFormCtrl::DeleteClientForm(AnsiString FormCode)
{
  int s;
  try
  {
    s=FormCode.ToInt();
  }
  catch(...)
  {
    throw Exception("窗体代码错误!");
  }
  try
  {
    switch(s)
    {
      case 1010101:
        delete frmInitSys;
        break;
      case 1010102:
        delete frmParameter;
        break;
      case 1010106:
        delete frmFormQuery;
        break;
      case 1010107:
        delete frmNavPic;
        break;
      case 1010108:
        delete frmNavArrow;
        break;
      case 1010109:
        delete frmAcm;
        break;
      case 1010110:
        delete frmFuc;
        break;
      case 1010201:
        delete frmUser;
        break;
      case 1010202:
        delete frmUserGroup;
        break;;
      case 1010203:
        delete frmRight;
        break;
      case 1010204:
        delete frmBackup;
        break;
      case 1010205:
        delete frmRestore;
        break;
      case 1010206:
        delete frmLog;
        break;
      case 1010207:
        delete frmChPassWord;
        break;
      case 1020101:
        delete frmDataDict;
        break;
      case 1020102:
        delete frmCreateTable;
        break;
      case 1020103:
        delete frmForm;
        break;
      case 1020107:
        delete frmVDataDict;
        break;
      case 1020108:
        delete frmFof;
        break;
      case 1020201:
        delete frmClass;
        break;
      case 1020202:
        delete frmModule;
        break;
      case 1020204:
        delete frmLib;
        break;
      default:
        throw Exception("该功能尚未实现!");
    }
  }
  catch(Exception &e)
  {
    throw Exception("释放窗体失败! 错误:"+e.Message);
  }
}
*/