project1.~cpp

来自「员工管理系统 功能还算齐全,主要用于一般的小型公司」· ~CPP 代码 · 共 54 行

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

#include <vcl.h>
#include "Unit2.h"
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("Unit1.cpp", Fmain);
USEFORM("Unit2.cpp", Fwelcome);
USEFORM("Unit3.cpp", DataModule3); /* TDataModule: File Type */
USEFORM("Unit4.cpp", Fadd);
USEFORM("Unit5.cpp", AboutBox);
USEFORM("Unit6.cpp", Fshow);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
                 Application->Initialize();
                 //打开logo窗口
               //  Fwelcome=new TFwelcome(Application);
               //  Fwelcome->Show() ;
               //  Fwelcome->Update();

                 Application->Title = "人事管理系统";
                 Application->CreateForm(__classid(TFmain), &Fmain);
                 Application->CreateForm(__classid(TFwelcome), &Fwelcome);
                 Application->CreateForm(__classid(TDataModule3), &DataModule3);
                 Application->CreateForm(__classid(TFadd), &Fadd);
                 Application->CreateForm(__classid(TAboutBox), &AboutBox);
                 Application->CreateForm(__classid(TFshow), &Fshow);
                 //释放logo
             //    Fwelcome->Hide();
             //    Fwelcome->Free();
                 Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        catch (...)
        {
                 try
                 {
                         throw Exception("");
                 }
                 catch (Exception &exception)
                 {
                         Application->ShowException(&exception);
                 }
        }
        return 0;
}
//---------------------------------------------------------------------------