毕业论文(宾馆管理系统).doc

=========再苦再累，只要坚持往前走，属于你的风景终会出现========
☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆
新乡电力宾馆管理系统毕业论文
(系统VB6.0)

指导教师：张敏
计算机专业：裴文龙
前 言
随着21世纪的钟声敲响，人类正以惊人的速度走出工业文明，步入超高速发展的信息时代。当人们昨天还在沉浸在486，586带来的高速、便捷时，而在今天，世界上又超乎人们想象地诞生了P42.4,P43.6……，对于明天，我们无法预想，因为计算机正以摩尔令人难以致信的速度发展。信息时代的来临仅改变着我们的生活，也不断改变着我们的思维方式和学习方式，以及我们周围的一切。可以说，计算机注定要伴随我们一生。电子信息的网络化，各行各业的高度信息化不断推动着社会的高度发展。对于我们新世纪的大学生，并且又是计算机专业的大学生，我们不仅仅要掌握计算机的基本技能，而且要精通计算机的科学技术及其应用。在现代化的经济时代里，信息化竞争已经越来越趋于白热化，具有先进的信息化技术，无论是个人也好，还是企业也罢，都能占据先机，从而有效地拓宽与发展。对于已经加入WTO的中国，我们已经别无选择了……
酒店管理系统是一个酒店行业不可缺少的部分,它的内容对于酒店的决策者和管理者来说都至关重要,所以酒店管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一旦长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。
随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机对教学信息进行管理,具有手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高酒店管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。
1.总体设计
1.1设计目的
　　宾馆在正常的运营中需要对客房资源、顾客信息、结算信息进行管理，利用宾馆管理信息系统及时了解各个环节中信息的变更，有利于提高管理效率。
1.2系统功能分析
　　系统开发的总体任务是实现宾馆各种信息的系统化、规范化和自动化。主要完成功能：
● 有关客房标准的制定、标准信息的输入，包括标准编号、标准名称、房间面积、床位数量、住房单价、是否有空调、电视机、电话以及单独卫生间等。
● 客房标准信息的修改、查询等。
● 客房基本信息的输入，包括客房编号、客房类型、客房位置、客房单价、备注等。
● 客房基本信息的查询、修改，包括客房编号、客房类型、客房位置、客房单价、备注等。
● 剩余客房信息的查询等。
● 订房信息的输入，包括客房编号、客房种类、客房位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、备注信息等。
● 订房信息的修改和查询，包括客房编号、客房种类、客房位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、备注信息等。
● 结算信息的输入，包括客房编号、客房种类、位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、结算日期、备注信息等。
● 结算信息的修改和查询，包括客房编号、客房种类、客房位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、结日期、备注信息等。
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宾馆管理信息系统几个代表窗口的具体程序实现:
房态查询代码实现：
Private Sub Form_Activate()
Dim i As Integer '定义一个整型变量
Dim criteria As String '定义一个字符串变量
Dim mydb1 As Database '定义数据库
Dim myrs1 As Recordset '定义字段
Dim myrs2 As Recordset
Dim myrs3 As Recordset
Set mydb1 = Workspaces(0).OpenDatabase(App.Path & "\db.mdb") '定义数据环境
Set myrs1 = mydb1.OpenRecordset("kf", dbOpenSnapshot) '定义数据表
'入住房间查询
SQL = "select * from kf where kf.房态 like " + Chr(34) + "入住" + Chr(34) + ""
Set myrs2 = mydb1.OpenRecordset(SQL)
'维修房间查询
SQL = "select * from kf where kf.房态 like " + Chr(34) + "维修" + Chr(34) + ""
Set myrs3 = mydb1.OpenRecordset(SQL)
For i = 1 To 25 '房态显示
criteria = "房间号 ='" & Command1(i).Caption & "'"
myrs1.FindFirst criteria
If myrs1.NoMatch Then
Else
If myrs1.Fields("房态") = "空房" Then Command1(i).Picture = LoadPicture("") '空房
If myrs1.Fields("房态") = "入住" Then Command1(i).Picture = LoadPicture(App.Path & "\tupian\happy.bmp")
If myrs1.Fields("房态") = "维修" Then Command1(i).Picture = LoadPicture(App.Path & "\tupian\diamond.bmp")
End If
Next i
If Not myrs2.EOF Then myrs2.MoveLast
If Not myrs3.EOF Then myrs3.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 & "%" '客房使用率
End Sub
Private Sub Form_Unload(Cancel As Integer)
main.Enabled = True
End Sub
Private Sub Command1_Click(Index As Integer) '查询住宿信息

If Index >= 0 <= 25 Then
main_zscx.Data1.RecordSource = "select * from djb where 标志='1'and 房间号='" & Command1(Index).Caption & "'"
main_zscx.Data1.Refresh
End If
Load main_zscx
main_zscx.Show
End Sub
Private Sub Command2_Click()
Unload Me
main.Enabled = True
End Sub
调房登记代码实现：
Private Sub Form_Load()
'自动识别数据库路径
Data1.DatabaseName = App.Path & "\db.MDB"
Data2.DatabaseName = App.Path & "\db.MDB"
Data3.DatabaseName = App.Path & "\db.MDB"
Data4.DatabaseName = App.Path & "\db.MDB"
End Sub
Private Sub Form_Activate()
czy.Text = main.StatusBar1.Panels(4).Text '赋值给czy.text
'查询住宿登记信息
Data4.RecordSource = "select * from djb where 标志='1'"
Data4.Refresh
End Sub
Private Sub Form_Unload(Cancel As Integer)
main.Enabled = True '设置主窗体有效
End Sub
Private Sub DBCombo1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then Texbz.SetFocus 'texbz获得焦点
End Sub
Private Sub DBCOMBO2_Change()
If DBCombo2.Text <> "" Then
Data1.Recordset.FindFirst "房间号='" & DBCombo2.Text & "'and 标志='1'"
If Data1.Recordset.NoMatch Then
MsgBox ("请核准住宿房间和住宿人！")
Else
If Data1.Recordset.Fields("客房类型") <> "" Then
With Data1.Recordset
'查询空闲房间
Data2.RecordSource = "select * from kf where 房间类型='" & .Fields("客房类型") & "'and 房态='空房'"
Data2.Refresh
'赋值给bh.text等
If .Fields("凭证号码") <> "" Then bh.Text = .Fields("凭证号码")
If .Fields("姓名") <> "" Then Texxmb.Text = .Fields("姓名")
If .Fields("证件名称") <> "" Then Combo1.Text = .Fields("证件名称")
If .Fields("证件号码") <> "" Then Texsfz.Text = .Fields("证件号码")
If .Fields("客房价格") <> "" Then Texjg.Text = .Fields("客房价格")
End With
End If
End If
DBCombo1.Enabled = True
Texbz.Enabled = True
End If
End Sub
Private Sub DBCOMBO2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then DBCombo1.SetFocus '按回车键DBCombo1获得焦点
End Sub
Private Sub texbz_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then Comok.SetFocus '按回车键comok获得焦点
End Sub
Private Sub comdj_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获得焦点
End Sub
Private Sub comok_Click() '确定调房
Dim bh As String '定义一个字符串类型的变量
'查询空闲房间信息
Data2.RecordSource = "select * from kf where 房间号='" & DBCombo1.Text & "'and 房态='空房'"
Data2.Refresh
If Data2.Recordset.RecordCount > 0 Then
Dim mydb1 As Database
Dim myrs2 As Recordset
Set mydb1 = Workspaces(0).OpenDatabase(App.Path & "\db.MDB")
'查询所有住宿登记信息
Data1.RecordSource = "select * from djb"
Data1.Refresh
Data1.Recordset.FindFirst "房间号 ='" & DBCombo2.Text & "'and 标志='1'"
bh = Data1.Recordset.Fields("凭证号码")
Data1.Recordset.Edit '编辑住宿登记信息
If DBCombo1.Text <> "" Then Data1.Recordset.Fields("房间号") = Val(DBCombo1.Text)
If Texbz.Text <> "" Then Data1.Recordset.Fields("备注") = Texbz.Text
Data1.Recordset.Fields("标志") = "1"
Data1.Recordset.Fields("摘要") = "由源房" & DBCombo2.Text & "调到目标房" & DBCombo1.Text
Data1.Recordset.Update '更新记录
Data3.RecordSource = "select * from djys where 凭证号码='" & Data1.Recordset.Fields("凭证号码") & "'"
Data3.Refresh
If Data3.Recordset.EOF = False Then Data3.Recordset.MoveLast
If Data3.Recordset.BOF = False Then Data3.Recordset.MoveFirst
If Data3.Recordset.RecordCount > 0 Then
Data3.Recordset.MoveFirst
For i = 1 To Data3.Recordset.RecordCount
Data3.Recordset.Edit '编辑住宿登记预收信息
If DBCombo1.Text <> "" Then Data3.Recordset.Fields("房间号") = Val(DBCombo1.Text)
If Texbz.Text <> "" Then Data3.Recordset.Fields("备注") = Texbz.Text
Data3.Recordset.Fields("标志") = "1"
Data3.Recordset.Fields("摘要") = "由源房" & DBCombo2.Text & "调到目标房" & DBCombo1.Text
Data3.Recordset.Update '更新记录
If Data3.Recordset.EOF = False Then Data3.Recordset.MoveNext
Next i
End If
'编辑客房状态
Data2.Recordset.Edit
Data2.Recordset.Fields("房态") = "入住"
Data2.Recordset.Update
Data2.RecordSource = "select * from kf"
Data2.Refresh
Data2.Recordset.FindFirst "房间号 ='" & DBCombo2.Text & "'"
Data2.Recordset.Edit
Data2.Recordset.Fields("房态") = "空房"
Data2.Recordset.Update
'查询空闲房间信息
Data3.RecordSource = "select * from kf where 房态='空房'"
Data3.Refresh
Data4.Refresh
'设置控件有效或无效
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获得焦点
Else
MsgBox ("所选房间已有人入住，请选择空房,再保存!!!")
End If
End Sub
Private Sub comcancel_Click() '取消操作
DBCombo2.Enabled = True: DBCombo1.Enabled = True: Comdj.Enabled = True
Comok.Enabled = False: Texbz.Enabled = True
DBCombo1.Text = "": DBCombo2.Text = "": Texxmb.Text = ""
Texsfz.Text = "": Texbz.Text = "": Texjg.Text = ""
End Sub
Private Sub comend_Click()
Unload Me
main.Enabled = True '设置主窗体有效
End Sub
追加押金代码实现：
Private Sub Form_Load()
'自动识别数据库路径
Data1.DatabaseName = App.Path & "\db.MDB"
Data2.DatabaseName = App.Path & "\db.MDB"
Data3.DatabaseName = App.Path & "\db.MDB"
End Sub
Private Sub Form_Activate()
czy.Text = main.StatusBar1.Panels(4).Text '赋值给czy.text
'查询住宿登记信息
Data2.RecordSource = "select 凭证号码 from djb where 标志='1'order by 凭证号码"
Data2.Refresh
End Sub
Private Sub Form_Unload(Cancel As Integer)
main.Enabled = True '设置主窗体有效
End Sub
Private Sub DBCombo1_Change()
'查询住宿登记信息
Data1.RecordSource = "select * from djb where 凭证号码='" & DBCombo1.Text & "'"
Data1.Refresh
If Data1.Recordset.RecordCount > 0 Then '当记录大于零时赋值给text2等
If Data1.Recordset.Fields("姓名") <> "" Then Text2.Text = Data1.Recordset.Fields("姓名")
If Data1.Recordset.Fields("预收金额") <> "" Then Text3.Text = Data1.Recordset.Fields("预收金额")
If Data1.Recordset.Fields("住宿天数") <> "" Then Text4.Text = Data1.Recordset.Fields("住宿天数")
If Data1.Recordset.Fields("房间号") <> "" Then Text5.Text = Data1.Recordset.Fields("房间号")
If Data1.Recordset.Fields("客房类型") <> "" Then Text6.Text = Data1.Recordset.Fields("客房类型")
If Data1.Recordset.Fields("客房价格") <> "" Then Text7.Text = Data1.Recordset.Fields("客房价格")
If Data1.Recordset.Fields("住宿日期") <> "" Then DTP1.Value = Data1.Recordset.Fields("住宿日期")
If Data1.Recordset.Fields("住宿时间") <> "" Then tim1.Value = Data1.Recordset.Fields("住宿时间")
If Data1.Recordset.Fields("提醒日期") <> "" Then DTP2.Value = Data1.Recordset.Fields("提醒日期")
If Data1.Recordset.Fields("提醒时间") <> "" Then tim2.Value = Data1.Recordset.Fields("提醒时间")
If Data1.Recordset.Fields("退宿日期") <> "" Then DTP3.Value = Data1.Recordset.Fields("退宿日期")
If Data1.Recordset.Fields("退宿时间") <> "" Then tim3.Value = Data1.Recordset.Fields("退宿时间")
End If
End Sub
Private Sub DBCombo1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then Text1.SetFocus
End Sub
Private Sub Text1_Change() '计算提醒日期及时间
DTP2.Value = DTP1.Value + Int(Val(Text3.Text) + Val(Text1.Text)) / Val(Text7.Text)
If (Val(Text3.Text) + Val(Text1.Text) - Int(Val(Text3.Text) + Val(Text1.Text))) / Val(Text7.Text) > 0.5 * Val(Text7.Text) Then
tim2.Value = #6:00:00 PM#
Else
tim2.Value = #12:00:00 AM#
End If
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then Command1.SetFocus
End Sub
Private Sub Command1_Click()
'保存追加押金信息
If Text1.Text <> "" And DBCombo1.Text <> "" Then
'查询住宿登记信息
Data1.RecordSource = "select * from djb where 凭证号码='" & DBCombo1.Text & "'"
Data1.Refresh
If Data1.Recordset.RecordCount > 0 Then
'编辑住宿登记信息
Data1.Recordset.Edit
Data1.Recordset.Fields("预收金额") = Val(Text3.Text) + Val(Text1.Text)
Data1.Recordset.Fields("提醒日期") = DTP2.Value
Data1.Recordset.Fields("提醒时间") = tim2.Value
Data1.Recordset.Update '更新数据
'查询住宿登记预收信息
Data3.RecordSource = "select * from djys where 凭证号码='" & DBCombo1.Text & "'"
Data3.Refresh
'编辑住宿登记预收信息
Data3.Recordset.Edit
Data3.Recordset.Fields("预收金额") = Val(Text3.Text) + Val(Text1.Text)
Data3.Recordset.Fields("提醒日期") = DTP2.Value
Data3.Recordset.Fields("提醒时间") = tim2.Value
Data3.Recordset.Update '更新数据
Data3.Refresh
'设置控件有效或无效
Command1.Enabled = False: Command2.Enabled = False: Command4.Enabled = True
Command5.Enabled = True: Command3.Enabled = True
Command5.SetFocus 'command5获得焦点
Else
MsgBox ("请检查凭证号码是否有效,再保存!")
End If
Else
MsgBox ("请填写完整的数据,再保存!")
End If
End Sub
Private Sub Command2_Click() '取消操作
DBCombo1.Enabled = False: Command1.Enabled = False: Command2.Enabled = False
Command4.Enabled = False: Command5.Enabled = True: Command3.Enabled = True
'清空数据
Text1.Text = "": Text2.Text = "": Text3.Text = "": Text4.Text = "":
Text5.Text = "": Text6.Text = "": Text7.Text = ""
'初始化日期
DTP1.Value = Date: DTP2.Value = Date: DTP3.Value = Date
End Sub
Private Sub Command3_Click()
Unload Me
main.Enabled = True '设置主窗体有效
End Sub
4.致谢
论文完成，三年的大专生活即将结束，感慨万千！
首先，感谢老师三年来对我的教导，我时刻体会着老师们严肃的科学态度，严谨的治学精神，精益求精的工作作风，我想这是够我一生受用的人格魅力。从专业课学习，课题选择、开题，到系统开发、论文写作，整个过程，老师们都倾注了大量的心血。正是在老师科学、严谨的指导下，我的研究课题才能顺利进行，这篇研究论文也才得以顺利完成。
其次，感谢我的导师张敏老师，她严谨细致、一丝不苟的作风一直是我工作、学习中的榜样；她循循善诱的教导和不拘一格的思路给予我无尽的启迪。谢谢你们。

裴文龙
2008-3-292010年读书节活动方案
一、     活动目的：
书是人类的朋友，书是人类进步的阶梯！为了拓宽学生的知识面，通过开展“和书交朋友，遨游知识大海洋”系列读书活动，激发学生读书的兴趣，让每一个学生都想读书、爱读书、会读书，从小养成热爱书籍，博览群书的好习惯，并在读书实践活动中陶冶情操，获取真知，树立理想！
二、活动目标：
1、通过活动，建立起以学校班级、个人为主的班级图书角和个人小书库。
2、通过活动，在校园内形成热爱读书的良好风气。
3、通过活动，使学生养成博览群书的好习惯。
4、通过活动，促进学生知识更新、思维活跃、综合实践能力的提高。
三、活动实施的计划
1、 做好读书登记簿
（1） 每个学生结合实际，准备一本读书登记簿，具体格式可让学生根据自己喜好来设计、装饰，使其生动活泼、各具特色，其中要有读书的内容、容量、实现时间、好词佳句集锦、心得体会等栏目，高年级可适当作读书笔记。
（2） 每个班级结合学生的计划和班级实际情况，也制定出相应的班级读书目标和读书成长规划书，其中要有措施、有保障、有效果、有考评，简洁明了，易于操作。
（3）中队会组织一次“读书交流会”展示同学们的读书登记簿并做出相应评价。
2、 举办读书展览：
各班级定期举办“读书博览会”，以“名人名言”、格言、谚语、经典名句、“书海拾贝”、“我最喜欢的＿＿＿”、“好书推荐”等形式，向同学们介绍看过的新书、好书、及书中的部分内容交流自己在读书活动中的心得体会,在班级中形成良好的读书氛围。
3、 出读书小报：

☆☆☆☆不是因为有希望才去努力，而是努力了，才能看到希望。☆☆☆