dbms.cpp

可实现科研信息管理系统的功能,有项目管理,教师管理,科研项目管理等多项内容

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

#include <vcl.h>
#pragma hdrstop
#define HASRUN 183
#include "UMsgBox.h"
#include "Define.h"
//---------------------------------------------------------------------------
USEFORM("UTemplate.cpp", FormTemplate);
USEFORM("ULoading.cpp", FormLoading);
USEFORM("UMain.cpp", FormMain);
USEFORM("UMsgBox.cpp", FormMsgBox);
USEFORM("UDM.cpp", DM); /* TDataModule: File Type */
USEFORM("UProject.cpp", FormProject);
USEFORM("UTeacher.cpp", FormTeacher);
USEFORM("UDepartment.cpp", FormDepartment);
USEFORM("UAchievement.cpp", FormAchievement);
USEFORM("USQuery.cpp", FormSQuery);
USEFORM("USalary.cpp", FormSalary);
USEFORM("UConfig.cpp", FormConfig);
USEFORM("UMQuery.cpp", FormMQuery);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        void *OnlyRunOnce;
        try
        {
                OnlyRunOnce=CreateMutex(0,1,"科研信息管理系统");
                if(GetLastError()==HASRUN)
                {
                        TFormMsgBox *MsgBox=new TFormMsgBox(Application);
                        MsgBox->MsgBox("提醒","程序已经运行！",MBOKONLY,MBINFORMATION);
                        delete MsgBox;
                        //Application->MessageBoxA("程序已经运行！","提醒",MB_OK|MB_ICONINFORMATION);
                        exit(0);
                }
                Application->Initialize();
                Application->Title="科研信息管理系统";
                Application->CreateForm(__classid(TDM), &DM);
                 Application->CreateForm(__classid(TFormMain), &FormMain);
                 Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        catch (...)
        {
                 try
                 {
                         throw Exception("");
                 }
                 catch (Exception &exception)
                 {
                         Application->ShowException(&exception);
                 }
        }
        return 0;
}
//---------------------------------------------------------------------------