bossmanager.cpp

来自「用C++ Builder编写的个人财务管理软件」· C++ 代码 · 共 54 行

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

#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("bossmanage.cpp", MainForm);
USEFORM("AddDelete.cpp", AddDelForm);
USEFORM("C:\Documents and Settings\lb\My Documents\ZoneDelete.cpp", CityDeleteForm);
USEFORM("QueryData.cpp", QueryDataForm);
USEFORM("Preview.cpp", PreviewForm);
USEFORM("FormPrint1.cpp", FormStatistic);
USEFORM("DayStat.cpp", FormDayStat); /* TQuickRep: File Type */
USEFORM("WeiZhangDatOutDLg.cpp", Dat_OutForm);
USEFORM("WeiZhangDatInDLg.cpp", Dat_InForm);
USEFORM("SetForm.cpp", SetJLForm);
USEFORM("InformationBrowAll.cpp", AllBrowseForm);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
                 Application->Initialize();
                 Application->CreateForm(__classid(TMainForm), &MainForm);
                 Application->CreateForm(__classid(TAddDelForm), &AddDelForm);
                 Application->CreateForm(__classid(TCityDeleteForm), &CityDeleteForm);
                 Application->CreateForm(__classid(TQueryDataForm), &QueryDataForm);
                 Application->CreateForm(__classid(TPreviewForm), &PreviewForm);
                 Application->CreateForm(__classid(TFormStatistic), &FormStatistic);
                 Application->CreateForm(__classid(TFormDayStat), &FormDayStat);
                 Application->CreateForm(__classid(TDat_OutForm), &Dat_OutForm);
                 Application->CreateForm(__classid(TDat_InForm), &Dat_InForm);
                 Application->CreateForm(__classid(TSetJLForm), &SetJLForm);
                 Application->CreateForm(__classid(TAllBrowseForm), &AllBrowseForm);
                 Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        catch (...)
        {
                 try
                 {
                         throw Exception("");
                 }
                 catch (Exception &exception)
                 {
                         Application->ShowException(&exception);
                 }
        }
        return 0;
}
//---------------------------------------------------------------------------