his.cpp

来自「C++ Builder数据库开发经典案例解析 示例程序都是在C++ Build」· C++ 代码 · 共 35 行

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

#include <vcl.h>
#pragma hdrstop
USEFORM("Main.cpp", fmMain);
USEFORM("Parent.cpp", fmParent);
USEFORM("db.cpp", DataModule1); /* TDataModule: File Type */
USEFORM("medinfo.cpp", fmMedInfo);
USEFORM("feeinfo.cpp", fmFeeInfo);
USEFORM("Reg.cpp", fmReg);
USEFORM("CalFee.cpp", fmCalFee);
USEFORM("pay.cpp", fmPay);
USEFORM("Paymoney.cpp", fmPayMoney);
USEFORM("getmed.cpp", fmGetMed);
USEFORM("ghquery.cpp", fmQueryGH);
USEFORM("QueryStock.cpp", fmQuerySTK);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
    try
    {
         Application->Initialize();
         Application->Title = "医院管理系统";
         Application->CreateForm(__classid(TfmMain), &fmMain);
         Application->CreateForm(__classid(TDataModule1), &DataModule1);
         Application->Run();
    }
    catch (Exception &exception)
    {
         Application->ShowException(&exception);
    }
    return 0;
}
//---------------------------------------------------------------------------