hotel.cpp

机器须安装SQL Server2000 程序安装完之后

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

#include <vcl.h>

#pragma hdrstop
USERES("hotel.res");
USEFORM("Main.cpp", MainForm);
USEFORM("DataMoudle.cpp", DM); /* TDataModule: File Type */
USEFORM("Modify.cpp", ModifyForm);
USEFORM("CustomSerach.cpp", CustomSearchForm);
USEFORM("RoomSt.cpp", RoomStForm);
USEFORM("Login.cpp", LoginForm);
USEFORM("Search.cpp", SearchForm);
USEFORM("VilueInfor.cpp", VilueInforForm);
USEFORM("AddRoom.cpp", AddRoomForm);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
    try
    {
         Application->Initialize();
         Application->CreateForm(__classid(TDM), &DM);
         Application->CreateForm(__classid(TMainForm), &MainForm);
         Application->Run();
    }
    catch (Exception &exception)
    {
         Application->ShowException(&exception);
    }
    return 0;
}
//---------------------------------------------------------------------------