telsystem.cpp

来自「一套BCB６开发的电话管理系统」· C++ 代码 · 共 76 行

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

#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("TelSystemMain.cpp", TelSystemMainForm);
USEFORM("CollectTelRec.cpp", FrmCollectTelRec);
USEFORM("TelSystemDM.cpp", DMTelSys); /* TDataModule: File Type */
USEFORM("TelDetail.cpp", FrmTelDetail);
USEFORM("FCompany.cpp", FrmCompany);
USEFORM("CompanyInfo.cpp", DlgCompanyInfo);
USEFORM("FTeleZone.cpp", FrmTeleZone);
USEFORM("TeleZoneInfo.cpp", DlgTeleZoneInfo);
USEFORM("DFindTel.cpp", DlgFindTel);
USEFORM("FStatOnTelType.cpp", FrmStatOnTelType);
USEFORM("FModifyTelRec.cpp", FrmModifyTelRec);
USEFORM("DModifyTelInfo.cpp", DlgModifyTelInfo);
USEFORM("DFindBillParam.cpp", DlgFindBillParam);
USEFORM("FDepartment.cpp", FrmDepartment);
USEFORM("DDeptInfo.cpp", DlgDeptInfo);
USEFORM("AIDCompanyInfo.cpp", AIDlgCompanyInfo);
USEFORM("FSoleStatTel.cpp", FrmSolelyStatTel);
USEFORM("FReMakeTel.cpp", FrmReMakeTel);
USEFORM("FSetSysParam.cpp", FrmSetSysParam);
USEFORM("FChangeTel.cpp", FrmChangeTel);
USEFORM("DChangeTel.cpp", DlgChangeTel);
USEFORM("DStatSelfTel.cpp", DlgStatSelfTel);
USEFORM("FStatSelfTel.cpp", FrmStatSelfTel);
USEFORM("StatTelParam.cpp", DlgStatTelParam);
USEFORM("PStatSelfTel.cpp", PrtStatSelfTel);
USEFORM("FSumMoney.cpp", FrmSumMoney);
USEFORM("DSumMoney.cpp", DlgSumMoney);
USEFORM("PSumMoney.cpp", PrtSumMoney);
USEFORM("DStatDialCountry.cpp", DlgStatDialCountry);
USEFORM("FStatDialCountry.cpp", FrmStatDialCountry);
USEFORM("PStatDialCountry.cpp", PrtStatDialCountry);
USEFORM("FUserGroup.cpp", FrmUserGroup);
USEFORM("DUserGroup.cpp", DlgUserGroup);
USEFORM("FUsrGrpRight.cpp", FrmUsrGrpRight);
USEFORM("FSetGrpMember.cpp", FrmSetGrpMember);
USEFORM("FModifyUsrRight.cpp", FrmModifyUsrRight);
USEFORM("DLogin.cpp", DlgLogin);
USEFORM("FSwitch.cpp", FrmSwitch);
USEFORM("AIDDepartment.cpp", AIDlgDepartment);
USEFORM("DSwitchInfo.cpp", DlgSwitchInfo);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
                 Application->Initialize();
                 Application->CreateForm(__classid(TTelSystemMainForm), &TelSystemMainForm);
                 Application->CreateForm(__classid(TFrmSwitch), &FrmSwitch);
                 Application->CreateForm(__classid(TAIDlgDepartment), &AIDlgDepartment);
                 Application->CreateForm(__classid(TDlgSwitchInfo), &DlgSwitchInfo);
                 Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        catch (...)
        {
                 try
                 {
                         throw Exception("");
                 }
                 catch (Exception &exception)
                 {
                         Application->ShowException(&exception);
                 }
        }
        return 0;
}
//---------------------------------------------------------------------------