xb.cpp

该源代码是一个关于电力设备和电力行业操作管理的管理系统

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

#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("PersonForm.cpp", PersonFrm);
USEFORM("MainForm.cpp", MainFrm);
USEFORM("DataMod.cpp", Datam); /* TDataModule: File Type */
USEFORM("Lookup_P_Form.cpp", Lookup_P);
USEFORM("ZhiDuForm.cpp", zhiduFrm);
USEFORM("Look_rule.cpp", Lookup_Rule);
USEFORM("TaiZForm.cpp", TaiZFrm);
USEFORM("LookZBTaiz.cpp", Look_ZB_T);
USEFORM("Taiz_drqForm.cpp", drqTaizFrm);
USEFORM("Look_drqForm.cpp", Lookdrq);
USEFORM("Taiz_dkqForm.cpp", TaizdkqFrm);
USEFORM("Look_dkqForm.cpp", Lookdkq);
USEFORM("yhzbTZForm.cpp", yhzbFrm);
USEFORM("Look_yhzbForm.cpp", Lookyhzb);
USEFORM("yhdrqTZForm.cpp", yhdrqFrm);
USEFORM("Look_yhdrqForm.cpp", Lookyhdrqtaiz);
USEFORM("yhdkqTZForm.cpp", yhdkqtaizFrm);
USEFORM("Look_yhdkqForm.cpp", yhdkqtaiz);
USEFORM("yhxbtaizForm.cpp", yhxbtaiz);
USEFORM("Look_yhxbForm.cpp", Lookyhxb);
USEFORM("yhxbyzlForm.cpp", yhxbyzl);
USEFORM("Look_yhxbyzlForm.cpp", Lookyhxbyzl);
USEFORM("xbtjzlForm.cpp", xbtjzl);
USEFORM("Look_xbtjzlForm.cpp", Lookxbtjzl);
USEFORM("StationTuZForm.cpp", stationtzgl);
USEFORM("Look_tzzlForm.cpp", Looktzzl);
USEFORM("D:\湖南湘潭项目(ORACLE)供参考数据库文档\Error\LookmakerForm.cpp", Lookmaker);
USEFORM("AddPartmentForm.cpp", Add_partment);
USEFORM("yhtzzlForm.cpp", yhtzzl);
USEFORM("yhxbyxzForm.cpp", yhxbyxz);
USEFORM("Look_yhtzzl.cpp", Lookyhtz);
USEFORM("departmentxx.cpp", depxx);
USEFORM("makerForm.cpp", maker);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
                 Application->Initialize();
                 Application->Title = "谐波管理系统";
                 Application->CreateForm(__classid(TMainFrm), &MainFrm);
                 Application->CreateForm(__classid(TDatam), &Datam);
                 Application->CreateForm(__classid(Tmaker), &maker);
                 Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        catch (...)
        {
                 try
                 {
                         throw Exception("");
                 }
                 catch (Exception &exception)
                 {
                         Application->ShowException(&exception);
                 }
        }
        return 0;
}
//---------------------------------------------------------------------------