pForm->Show();
}
//---------------------------------------------------------------------------
void __fastcall TfmMain::mmuPreOrderClick(TObject *Sender)
{
// 预定管理
TForm *pForm = FormExist("预定管理");
// 如果已存在则激活，否则新建一个字窗体
if(pForm)
pForm->SetFocus();
else
pForm = new TfmPreOrder(Application);
pForm->Height = 530;
pForm->Show();
}
//---------------------------------------------------------------------------
void __fastcall TfmMain::mnuCheckInClick(TObject *Sender)
{
// 入住管理
TForm *pForm = FormExist("入住管理");
// 如果已存在则激活，否则新建一个字窗体
if(pForm)
pForm->SetFocus();
else
pForm = new TfmCheckIn(Application);
pForm->Height = 530;
pForm->Show();
}
//---------------------------------------------------------------------------
void __fastcall TfmMain::mnuCheckSerClick(TObject *Sender)
{
// 消费记帐
TForm *pForm = FormExist("消费记帐");
// 如果已存在则激活，否则新建一个字窗体
if(pForm)
pForm->SetFocus();
else
pForm = new TfmCheckSer(Application);
pForm->Height = 530;
pForm->Show();
}
//---------------------------------------------------------------------------
void __fastcall TfmMain::mnuCheckOutClick(TObject *Sender)
{
// 收银退房管理
TForm *pForm = FormExist("收银退房");
// 如果已存在则激活，否则新建一个字窗体
if(pForm)
pForm->SetFocus();
else
pForm = new TfmCheckOut(Application);
pForm->Height = 530;
pForm->Show();
}
//---------------------------------------------------------------------------
void __fastcall TfmMain::mnuRoomStautsClick(TObject *Sender)
{
// 房态图管理
TForm *pForm = FormExist("房态图");
// 如果已存在则激活，否则新建一个字窗体
if(pForm)
pForm->SetFocus();
else
pForm = new TfmRoomStatus(Application);
// 可以编辑房态
((TfmRoomStatus*)pForm)->SetSelect(1);
pForm->Height = 530;
pForm->Show();
}
5.3创建数据访问模块
因为各个窗体均需要对数据库进行访问，可以把与数据库进行连接的控件放置到一个数据访问模块中，这样所有的窗体都可以共享来访的数据库。
1） 在ODBC中添加一个驱动程序为SQL Server的系统DNS数据指向前面创建的hotellink数据库，名称为hotellink。
2） 在C++builder中选择file/new/data module菜单命令，生成一个数据模块并保存为“db.cpp”文件。
|
对象名 |
属性 |
取值（说明） |
|
Database1 |
Name Aliasname Databasename Params Loginprompt |
Database1 Hotellink Db User name=sa false |
3） 为数据库添加一个database控件，控件的属性设置如表
5.4完成客房的类别设置功能
若图片无法显示请联系QQ752018766筹措file/new/other菜单命令，弹出new items窗体，在hotel选项卡中选择fmparent选项，单击ok键。具体窗体不再列出，添加主要代码如下
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Parent"
#pragma resource "*.dfm"
TfmRoomType *fmRoomType;
//---------------------------------------------------------------------------
__fastcall TfmRoomType::TfmRoomType(TComponent* Owner)
: TfmParent(Owner)
{
this->szCondition1 = "类型名称";
this->szCondition2 = "类型编号";
Table1->Active = true;
this->SetSeekEditStatus();
lblCount->Caption = "记录数: " + IntToStr(Table1->RecordCount) ;
}
//-----------------------------------------------
5.5完成客房信息设置功能
具体窗体按照个人爱好设置，代码如下。
inherited fmRoom: TfmRoom
Left = 161
Top = 137
Height = 447
Caption = #23458#25151#20449#24687#35774#32622
OldCreateOrder = True
PixelsPerInch = 96
TextHeight = 13
inherited DBGrid1: TDBGrid
Columns = <
item
Expanded = False
FieldName = #23458#25151#32534#21495
Width = 52
Visible = True
上一页 [1] [2] [3] [4] [5] [6] [7] 下一页