宾馆管理完整Word下载.docx
- 文档编号:16759019
- 上传时间:2022-11-25
- 格式:DOCX
- 页数:14
- 大小:54.21KB
宾馆管理完整Word下载.docx
《宾馆管理完整Word下载.docx》由会员分享,可在线阅读,更多相关《宾馆管理完整Word下载.docx(14页珍藏版)》请在冰豆网上搜索。
●订房信息的修改和查询,包括客房编号、客房种类、客房位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、备注信息等。
●结算信息的输入,包括客房编号、客房种类、位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、结算日期、备注信息等。
●结算信息的修改和查询,包括客房编号、客房种类、客房位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、结日期、备注信息等。
1.3系统功能模块设计
按结构化程序设计思想,当然最终设计考虑到自己的编程水平和能力,分析得出如下系统功能模块图
2.系统运行需求
2.1运行环境
操作系统:
windows2000/xp
数据库:
ACCESS
语言:
VB6.0
2.2尚未问决的问题
功能尚不完善,有待于继续开发。
2.3功能概述及界面图示
1)系统登陆
2)系统主框架
系统欢迎界面。
3)系统设置
完成对操作员的增加、对密码的更改操作
添加操作员
4)客房管理
客房设置、客房查询、房态设置功能
客房设置
客房查询
房态设置
5)住宿管理
完成住宿登记、调房登记、住宿查询、退宿查询功能
住宿登记
调房登记
住宿查询
6)员工管理
完成添加员工、查询员工功能。
查询员工
7)消费品管理
完成添加新消费品、消费品查询功能
添加新消费品
消费品查询
8)账务管理
完成追加押金、退宿结账、挂账结款功能
9)关于
完成对系统和开发的介绍
3数据库设计
数据库设计步骤:
●数据库需求分析
●数据库概念结构设计
●数据库逻辑结构设计
首先将宾馆管理信息系统的数据库概念结构转化为ACCESS2003数据库系统所支持的实际数据模型,即:
数据库的逻辑结构。
其各个表格的设计结果如下:
3.1表格
表—djb
表—gzmx
表—kf
表—kfyd
表—qxsz
表—tfd
表—xfp
表—ygb
3.2宾馆管理信息系统几个代表窗口的具体程序实现:
房态查询代码实现:
PrivateSubForm_Activate()
DimiAsInteger'
定义一个整型变量
DimcriteriaAsString'
定义一个字符串变量
Dimmydb1AsDatabase'
定义数据库
Dimmyrs1AsRecordset'
定义字段
Dimmyrs2AsRecordset
Dimmyrs3AsRecordset
Setmydb1=Workspaces(0).OpenDatabase(App.Path&
"
\db.mdb"
)'
定义数据环境
Setmyrs1=mydb1.OpenRecordset("
kf"
dbOpenSnapshot)'
定义数据表
'
入住房间查询
SQL="
select*fromkfwherekf.房态like"
+Chr(34)+"
入住"
"
Setmyrs2=mydb1.OpenRecordset(SQL)
维修房间查询
维修"
Setmyrs3=mydb1.OpenRecordset(SQL)
Fori=1To25'
房态显示
criteria="
房间号='
&
Command1(i).Caption&
'
myrs1.FindFirstcriteria
Ifmyrs1.NoMatchThen
Else
Ifmyrs1.Fields("
房态"
)="
空房"
ThenCommand1(i).Picture=LoadPicture("
空房
ThenCommand1(i).Picture=LoadPicture(App.Path&
\tupian\happy.bmp"
)
\tupian\diamond.bmp"
EndIf
Nexti
IfNotmyrs2.EOFThenmyrs2.MoveLast
IfNotmyrs3.EOFThenmyrs3.MoveLast
Labsy.Caption=myrs2.RecordCount'
客房入住数
Labwx.Caption=myrs3.RecordCount'
客房维修数
Labkx.Caption=25-Val(Labwx.Caption)-Val(Labsy.Caption)'
客房空闲数
Labsyl.Caption=Val(Labsy.Caption)/25*100&
%"
客房使用率
EndSub
PrivateSubForm_Unload(CancelAsInteger)
main.Enabled=True
PrivateSubCommand1_Click(IndexAsInteger)'
查询住宿信息
IfIndex>
=0<
=25Then
main_zscx.Data1.RecordSource="
select*fromdjbwhere标志='
1'
and房间号='
Command1(Index).Caption&
main_zscx.Data1.Refresh
Loadmain_zscx
main_zscx.Show
PrivateSubCommand2_Click()
UnloadMe
调房登记代码实现:
PrivateSubForm_Load()
自动识别数据库路径
Data1.DatabaseName=App.Path&
\db.MDB"
Data2.DatabaseName=App.Path&
Data3.DatabaseName=App.Path&
Data4.DatabaseName=App.Path&
czy.Text=main.StatusBar1.Panels(4).Text'
赋值给czy.text
查询住宿登记信息
Data4.RecordSource="
Data4.Refresh
main.Enabled=True'
设置主窗体有效
PrivateSubDBCombo1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
IfKeyCode=vbKeyReturnThenTexbz.SetFocus'
texbz获得焦点
PrivateSubDBCOMBO2_Change()
IfDBCombo2.Text<
>
Then
Data1.Recordset.FindFirst"
房间号='
DBCombo2.Text&
and标志='
IfData1.Recordset.NoMatchThen
MsgBox("
请核准住宿房间和住宿人!
IfData1.Recordset.Fields("
客房类型"
)<
WithData1.Recordset
查询空闲房间
Data2.RecordSource="
select*fromkfwhere房间类型='
.Fields("
)&
and房态='
空房'
Data2.Refresh
赋值给bh.text等
If.Fields("
凭证号码"
Thenbh.Text=.Fields("
姓名"
ThenTexxmb.Text=.Fields("
证件名称"
ThenCombo1.Text=.Fields("
证件号码"
ThenTexsfz.Text=.Fields("
客房价格"
ThenTexjg.Text=.Fields("
EndWith
DBCombo1.Enabled=True
Texbz.Enabled=True
PrivateSubDBCOMBO2_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
IfKeyCode=vbKeyReturnThenDBCombo1.SetFocus'
按回车键DBCombo1获得焦点
PrivateSubtexbz_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
IfKeyCode=vbKeyReturnThenComok.SetFocus'
按回车键comok获得焦点
PrivateSubcomdj_Click()'
登记
Frame2.Enabled=True:
Frame3.Enabled=True:
DBCombo2.Enabled=True
DBCombo1.Enabled=True:
Texjg.Enabled=True:
Comok.Enabled=True
Comcancel.Enabled=True:
Comok.Enabled=True:
Comdj.Enabled=False
DBCombo2.SetFocus'
DBCombo2获得焦点
PrivateSubcomok_Click()'
确定调房
DimbhAsString'
定义一个字符串类型的变量
查询空闲房间信息
select*fromkfwhere房间号='
DBCombo1.Text&
IfData2.Recordset.RecordCount>
0Then
Dimmydb1AsDatabase
查询所有住宿登记信息
Data1.RecordSource="
select*fromdjb"
Data1.Refresh
bh=Data1.Recordset.Fields("
Data1.Recordset.Edit'
编辑住宿登记信息
IfDBCombo1.Text<
ThenData1.Recordset.Fields("
房间号"
)=Val(DBCombo1.Text)
IfTexbz.Text<
备注"
)=Texbz.Text
Data1.Recordset.Fields("
标志"
1"
摘要"
由源房"
调到目标房"
DBCombo1.Text
Data1.Recordset.Update'
更新记录
Data3.RecordSource="
select*fromdjyswhere凭证号码='
Data3.Refresh
IfData3.Recordset.EOF=FalseThenData3.Recordset.MoveLast
IfData3.Recordset.BOF=FalseThenData3.Recordset.MoveFirst
IfData3.Recordset.RecordCount>
Data3.Recordset.MoveFirst
Fori=1ToData3.Recordset.RecordCount
Data3.Recordset.Edit'
编辑住宿登记预收信息
ThenData3.Recordset.Fields("
Data3.Recordset.Fields("
Data3.Recordset.Update'
IfData3.Recordset.EOF=FalseThenData3.Recordset.MoveNext
编辑客房状态
Data2.Recordset.Edit
Data2.Recordset.Fields("
Data2.Recordset.Update
select*fromkf"
Data2.Recordset.FindFirst"
select*fromkfwhere房态='
设置控件有效或无效
Texxmb.Enabled=False:
Texsfz.Enabled=False:
DBCombo1.Enabled=False
DBCombo2.Enabled=False:
Texbz.Enabled=False:
Comok.Enabled=False
Comcancel.Enabled=False:
Comdj.Enabled=True
清空数据
DBCombo1.Text="
:
DBCombo2.Text="
Texxmb.Text="
Texsfz.Text="
Texbz.Text="
Texjg.Text="
Comdj.SetFocus'
Comdj获得焦点
所选房间已有人入住,请选择空房,再保存!
!
PrivateSubcomcancel_Click()'
取消操作
DBCombo2.Enabled=True:
Comok.Enabled=False:
PrivateSubcomend_Click()
追加押金代码实现:
select凭证号码fromdjbwhere标志='
orderby凭证号码"
PrivateSubDBCombo1_Change()
select*fromdjbwhere凭证号码='
IfData1.Recordset.RecordCount>
0Then'
当记录大于零时赋值给text2等
ThenText2.Text=Data1.Recordset.Fields("
预收金额"
ThenText3.Text=Data1.Recordset.Fields("
住宿天数"
ThenText4.Text=Data1.Recordset.Fields("
ThenText5.Text=Data1.Recordset.Fields("
ThenText6.Text=Data1.Recordset.Fields("
ThenText7.Text=Data1.Recordset.Fields("
住宿日期"
ThenDTP1.Value=Data1.Recordset.Fields("
住宿时间"
Thentim1.Value=Data1.Recordset.Fields("
IfData1.Recordset
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 宾馆 管理 完整