hotelmengement.~cpp

来自「Raize控件包的安装路径为D:Program Files(一定要安装到正确位置」· ~CPP 代码 · 共 57 行

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

#include <vcl.h>
#pragma hdrstop
#include"cover.h"
USEFORM("hotelmanagement.cpp", Form1);
USEFORM("cover.cpp", Form2);
USEFORM("workchange.cpp", Form3);
USEFORM("customer.cpp", Form4);
USEFORM("order.cpp", Form5);
USEFORM("datamodule.cpp", DataModule1); /* TDataModule: File Type */
USEFORM("checkin.cpp", Form7);
USEFORM("data.cpp", DataModule2); /* TDataModule: File Type */
USEFORM("continue.cpp", Form8);
USEFORM("changeroom.cpp", Form9);
USEFORM("checkout.cpp", Form10);
USEFORM("orderdeal.cpp", Form11);
USEFORM("bill.cpp", Form12);
USEFORM("fangjian.cpp", Form21);
USEFORM("worker.cpp", Form22);
USEFORM("keren.cpp", Form23);
USEFORM("quanxian.cpp", Form25);
USEFORM("roomcontrol.cpp", Form26);
//---------------------------------------------------------------------------
extern AnsiString username;


WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {        Application->CreateForm(__classid(TDataModule1), &DataModule1);
                 Application->CreateForm(__classid(TDataModule2), &DataModule2);
                 Application->Initialize();//手工创建新窗体，用于启动界面
                 Form2=new TForm2(Application);//显示窗体
                 Form2->ShowModal();
                 Form2->Update();



                 Application->Run();
        }

        catch (...)
        {
                 try
                 {
                         throw Exception("");
                 }
                 catch (Exception &exception)
                 {
                         Application->ShowException(&exception);
                 }
        }
        return 0;
}
//---------------------------------------------------------------------------