easyhis.cpp

来自「醫院管理 還不錯 醫院管理 還不錯 醫院管理 還不錯」· C++ 代码 · 共 60 行

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

#include <vcl.h>
#pragma hdrstop
USERES("EasyHIS.res");
USEFORM("src\BaseFrm.cpp", frmBase);
USEFORM("src\MainFrm.cpp", frmMain);
USEFORM("src\ProInfFrm.cpp", frmProInf);
USEFORM("src\LogonFrm.cpp", frmLogon);
USEFORM("src\MainDm.cpp", dmMain); /* TDataModule: File Type */
USEUNIT("src\ConstUnt.cpp");
USEUNIT("src\DBConn.cpp");
USEFORM("src\NewCltFrm.cpp", frmNewClt);
USEFORM("src\OptInfFrm.cpp", frmOptInf);
USEFORM("src\BasicInfFrm.cpp", frmBasicInf);
USEFORM("src\OptKndFrm.cpp", frmOptKnd);
USEFORM("src\ChPwdFrm.cpp", frmChPwd);
USEFORM("src\TableManFrm.cpp", frmTableMan);
USEFORM("src\WizardFrm.cpp", frmWizard);
USEFORM("src\MedicalFrm.cpp", frmMedical);
USEFORM("src\ExamFrm.cpp", frmExam);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
    try
    {
        Application->Initialize();
        Application->Title = "EasyHIS Beta 0.91";
        Application->CreateForm(__classid(TdmMain), &dmMain);
        Application->CreateForm(__classid(TfrmMain), &frmMain);
        Application->Run();
    }
    catch (Exception &exception)
    {
        Application->ShowException(&exception);
    }
    return 0;
}
//---------------------------------------------------------------------------