project1.cpp

第一次尝试开发数据库方面的系统

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

#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("Unit1.cpp", frm_denglu);
USEFORM("Unit2.cpp", frm_config);
USEFORM("Unit3.cpp", frm_main);
USEFORM("Unit4.cpp", frm_bellow);
USEFORM("Unit5.cpp", AboutBox);
USEFORM("Unit6.cpp", frm_tshtj);
USEFORM("Unit7.cpp", frm_dzh);
USEFORM("Unit8.cpp", frm_tsh);
USEFORM("Unit9.cpp", frm_tongji);
USEFORM("Unit10.cpp", frm_wm);
USEFORM("Unit11.cpp", DM); /* TDataModule: File Type */
USEFORM("Unit12.cpp", frm_register);
USEFORM("Unit13.cpp", frm_modify);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
                 Application->Initialize();
                 Application->CreateForm(__classid(Tfrm_main), &frm_main);
                 Application->CreateForm(__classid(Tfrm_denglu), &frm_denglu);
                 Application->CreateForm(__classid(TDM), &DM);
                 Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        catch (...)
        {
                 try
                 {
                         throw Exception("");
                 }
                 catch (Exception &exception)
                 {
                         Application->ShowException(&exception);
                 }
        }
        return 0;
}
//---------------------------------------------------------------------------