《数据库原理》课程设计论文

《数据库原理》课程设计论文

客房管理系统的设计

姓名

成绩评定

目

一、

二、

1

2

3

4、系统流程图

5、数据库设计

6、E—R图设计

7、程序源代码及说明

三、课程设计总结

四、参考文献

一、设计目的

随着市场经济的迅速发展和人们生活水平的不段提高，宾馆酒店业的竞争愈来愈激烈。要想在竞争中取得优势,必须在经营管理、产品服务等方面提高服务管理意识。

而对客房的经营起决定作用的是客房的管理。为提高客房的管理水平，做到最细微让顾客体会到客房服务的高标准，高质量。面对信息时代的挑战，利用科技手段提高企业管理无疑是一条行之有效的途径。

二、设计内容

1、题目简介

本系统利用信息技术提高宾馆酒店旅馆管理水平，主要是管理其日常业务。使用本系统能够可大幅度提高业务部门的工作效率。

2、需求分析

某宾馆（酒店、旅馆）设有：豪华套间、标准间、普间等各种设施。随着社会的进步和科学技术的不段发展，随着宾馆酒店业的竞争激励加剧，该宾馆（酒店、旅馆）的管理人员已意识到使用计算机网络和管理系统的重要性，决定着现在客房管理上采用计算机管理。

本系统利用信息技术提高其管理水平，主要管理宾馆的日常业务。希望通过本系统的开发，对宾馆的客房、客

人及各种收费进行系统管理。客房管理要实现客房登记、追加押金、客人调放、房态设置等功能。客人管理要实现宿费提醒（提示前台要求客人补交押金）、客人挂帐、客人结帐等功能，满足多种需求。使用本系统可大幅度提高业务部门的工作效率。

根据其具体情况，系统重要功能包括：

（1）住宿管理：包括住宿登记、调房登记、追加押金、退房结帐。

（2）客房管理：包括客房设置、客房查询、房态查询。

（3）挂帐管理： 包括挂帐查询、客户结款。

（4）查询统计： 包括住宿查询、退宿查询、宿费提醒。

（5）日 结： 包括登记预收报表、客房销售报表、客房销售统计。 （6）系统设置：包括操作员设置、密码设置、初始化、权限设置。

图

—1、客房管理系统结构图

4

、系统流程图

图—2客房管理系统流程图

5、数据库设计

本系统数据库名为KFGL，包括以下8个表：住宿登记表（djb）、登记预收表（djys）、挂帐明细表（gzmx）、客房类型表（kf）、权限表（qxsz）、退房单表（tfd）、密码表（ma）。

1、住宿登记表

备注：由于空间等问题，其他数据表不在此一一列出，望谅解！！！！

6、E—R图设计

需求1：旅客登记的e-r图

（1）主界面下的源代码：

Private Sub Form_Load()

Data1.DatabaseName = App.Path & "\Kfgl.MDB" '自动识别数据库路径

End Sub

Private Sub Form_Activate() '设置操作员权限

With Data1.Recordset

If .BOF = False Then .MoveFirst

.FindFirst "操作员like " + Chr(34) + StatusBar1.Panels(4).Text + Chr(34) + ""

Private Sub label1_Click() '调入住宿登记

zsdj_Click

End Sub

Private Sub label2_Click() '调入退宿结帐

tf_Click

End Sub

Private Sub Label3_Click() '调入住宿查询

zscx_Click

End Sub

Private Sub Label4_Click() '调入客房销售报表

xsbb_Click

End Sub

Private Sub Label5_Click() '调入宿费提醒

sftx_Click

End Sub

Private Sub label6_Click()

End

End Sub

Private Sub kfyd_Click() '调入客房预定

main_kfyd.Show

End Sub

Private Sub Timer1_Timer()

Label7.Left = Label7.Left - 15

If Label7.Left < 0 Then Label7.Left = Label7.Left + 12000

End Sub

Private Sub zsdj_Click() '调入住宿登记

main_kfdj.Show

main.Enabled = False

End Sub

Private Sub zjyj_Click() '调入追加押金

Load main_zjyj

main_zjyj.Show

main.Enabled = False

End Sub

Private Sub tfdj_Click() '调入调房登记

main_tfdj.Show

main.Enabled = False

End Sub

Private Sub tf_Click() '调入退宿结帐main_tf.Show

main.Enabled = False

End Sub

Private Sub kfsz_Click() '调入客房管理main_kfsz.Show

main.Enabled = False

End Sub

Private Sub kfcx_Click() '调入客房查询main_kfcx.Show

main.Enabled = False

End Sub

Private Sub ftck_Click() '调入房态查看main_ftcx.Show

main.Enabled = False

End Sub

Private Sub gzcx_Click() '调入挂帐查询Load main_gzcx

main_gzcx.Show

main.Enabled = False

End Sub

Private Sub khjk_Click() '调入客户结款Load main_khjk

main_khjk.Show

main.Enabled = False

End Sub

Private Sub ydfcx_Click() '调入预定房查询main_kfydcx.Show

main.Enabled = False

End Sub

Private Sub zscx_Click() '调入住宿查询Load main_zscx

main_zscx.Show

main.Enabled = False

End Sub

Private Sub tfcx_Click() '调入退宿查询Load main_tfcx

main_tfcx.Show

main.Enabled = False

End Sub

Private Sub sftx_Click() '调入宿费提醒Load main_xftx

main_xftx.Show

main.Enabled = False

End Sub

Private Sub ysbb_Click() '调入登记预收报表

main_ysbb.Show

main.Enabled = False

End Sub

Private Sub xsbb_Click() '调入客房销售报表

main_xsbb.Show

main.Enabled = False

End Sub

Private Sub xstj_Click() '调入客房销售统计

main_xstj.Show

main.Enabled = False

End Sub

Private Sub czysz_Click() '调入操作员设置

Load main_czysz

main_czysz.Show

main.Enabled = False

End Sub

Private Sub ma_Click() '调入密码设置

main_mmsz.Show

main.Enabled = False

End Sub

Private Sub csh_Click() '调入初始化

main_csh.Show

main.Enabled = False

End Sub

Private Sub qxsz_Click() '调入权限设置

main_qxsz.Show

main.Enabled = False

End Sub

Private Sub tc_Click()

End

End Sub

（2）操作员登陆界面下的源代码

Private Sub Form_Load()

'自动识别数据库路径

Data1.DatabaseName = App.Path & "\KFGL.mdb"

Data2.DatabaseName = App.Path & "\KFGL.mdb"

End Sub

Private Sub Form_Activate()

'当记录为零时，进入系统具有所有权限

If Data1.Recordset.RecordCount = 0 Then

MsgBox ("请先设置操作员密码和权限！")

Load main

main.Show

Unload Me

Else

Text1.SetFocus

End If

End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyReturn Then Text2.SetFocus '按回车键，text2获得焦点

End Sub

Private Sub text2_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyReturn Then Cmd1.SetFocus '按回车键cmd1获得焦点

If KeyCode = vbKeyUp Then Text1.SetFocus

If KeyCode = vbKeyDown Then Cmd1.SetFocus

End Sub

Private Sub cmd1_Click()

main.StatusBar1.Panels(4).Text = Text1.Text '赋值给main.StatusBar1.Panels(4).Text

'验证操作员及密码

If Data2.Recordset.BOF = False Then Data2.Recordset.MoveFirst

Data2.Recordset.FindFirst "操作员like " + Chr(34) + Text1.BoundText + Chr(34) + ""

If Data2.Recordset.NoMatch Then

MsgBox ("操作员输入错误!")

Else

Data1.RecordSource = "select * from qxsz where 操作员='" & Text1.BoundText & "'"

Data1.Refresh

If Text1.BoundText <> "" And Text2.Text <> "" And Text2.Text = Data1.Recordset.Fields("密码") Then

Load main

main.Show

Unload Me

Else

If TIM = 3 Then '密码输错3次，退出系统

myval = MsgBox("密码输入错误,请向系统管理员查询!", 0, "")

If myval = vbOK Then End

End If

If Text1.BoundText = "" Then

MsgBox ("请输入操作员!")

Text1.SetFocus

Else

If Text1.BoundText <> Data1.Recordset.Fields("操作员") Then

MsgBox ("查无此操作员,请重新输入操作员!")

Text1.SetFocus

Else

If Text2.Text = "" Then

MsgBox ("请输入操作员密码!")

Text2.SetFocus

Else

If Text2.Text <> Data1.Recordset.Fields("密码") Then

MsgBox ("密码错误,请重新输入密码!")

TIM = TIM + 1

Text2.SetFocus

End If

End If

End If

End If

End If

End If

End Sub

Private Sub cmd2_Click()

End

End Sub

备注:在此只列出主要程序代码,其它代码详见具体程序.

三、课程设计总结

此客房管理系统，能应用于简单的宾馆管理系统，实现基本的旅客查询和交易查询。

程序短小实用。由于我的水平有限，对于其中一些东西没有更进一步的弄明白，以至此系统运行中还有很多欠缺的地方，本系统所做参考了多方面的内容和借鉴了他人的一些东西，其中有类似之处，不过都是我自己亲手去对其中问题进行分析、更改，由于我对于VB这种语言不是太熟，在此次编程中还有很多问题不能加以改正，希望老师给予指导。

这次数据库课程设计，使我弄懂了不少以前模糊的东西，并了解了一些VB语言的使用，还有对数据库的知识又进一步掌握。特别是VB以前根本不懂，通过这次实验对VB 的知识，我也略知一二。谢谢老师的指导。

四、参考文献

1、学用Visual Basic 6.0 . (美)Greg Perry 编著.戴红姚娜译. 清华大学出版社. 2000

年

2、Visual Basic 6.0程序设计与数据库应用. 王新民、张艳玲编著. 电子工业出版

社.2004年

3、Visual Basic 6.0数据库开发应用教程. 张炜主编.航空工业出版社.2000年

4、Visual Basic 程序设计教程. 唐兵等编著. 机械工业出版社.2005年

5、Visual FoxPro数据库开发实例解析.王晶莹等编著.机械工业出版社.2004年