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

1、新乡电力宾馆管理系统毕业论文(系统VB6.0)指导教师：张敏计算机专业：裴文龙新乡电大计算机专业裴文龙“新乡电力宾馆管理系统”毕业论文前 言随着21世纪的钟声敲响，人类正以惊人的速度走出工业文明，步入超高速发展的信息时代。当人们昨天还在沉浸在486，586带来的高速、便捷时，而在今天，世界上又超乎人们想象地诞生了P42.4,P43.6，对于明天，我们无法预想，因为计算机正以摩尔令人难以致信的速度发展。信息时代的来临仅改变着我们的生活，也不断改变着我们的思维方式和学习方式，以及我们周围的一切。可以说，计算机注定要伴随我们一生。电子信息的网络化，各行各业的高度信息化不断推动着社会的高度发展。对于我

2、们新世纪的大学生，并且又是计算机专业的大学生，我们不仅仅要掌握计算机的基本技能，而且要精通计算机的科学技术及其应用。在现代化的经济时代里，信息化竞争已经越来越趋于白热化，具有先进的信息化技术，无论是个人也好，还是企业也罢，都能占据先机，从而有效地拓宽与发展。对于已经加入WTO的中国，我们已经别无选择了酒店管理系统是一个酒店行业不可缺少的部分,它的内容对于酒店的决策者和管理者来说都至关重要,所以酒店管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一旦长,将产生大量的文件和数据,这对于查找、更

3、新和维护都带来了不少的困难。随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机对教学信息进行管理,具有手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高酒店管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。第2页新乡电大计算机专业裴文龙“新乡电力宾馆管理系统”毕业论文1.总体设计1.1设计目的宾馆在正常的运营中需要对客房资源、顾客信息、结算信息进行管理，利用宾馆管理信息系统及时了解各个环节中信息的变更

4、，有利于提高管理效率。1.2系统功能分析系统开发的总体任务是实现宾馆各种信息的系统化、规范化和自动化。主要完成功能： 有关客房标准的制定、标准信息的输入，包括标准编号、标准名称、房间面积、床位数量、住房单价、是否有空调、电视机、电话以及单独卫生间等。 客房标准信息的修改、查询等。 客房基本信息的输入，包括客房编号、客房类型、客房位置、客房单价、备注等。 客房基本信息的查询、修改，包括客房编号、客房类型、客房位置、客房单价、备注等。 剩余客房信息的查询等。 订房信息的输入，包括客房编号、客房种类、客房位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、备注信息等。 订房信息的修改和查询，包

5、括客房编号、客房种类、客房位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、备注信息等。 结算信息的输入，包括客房编号、客房种类、位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、结算日期、备注信息等。 结算信息的修改和查询，包括客房编号、客房种类、客房位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、结日期、备注信息等。1.3系统功能模块设计按结构化程序设计思想，当然最终设计考虑到自己的编程水平和能力，分析得出如下系统功能模块图第3页新乡电大计算机专业裴文龙“新乡电力宾馆管理系统”毕业论文2.系统运行需求2.1运行环境操作系统：windows2000/xp数据库：AC

6、CESS语言：VB6.02.2尚未问决的问题功能尚不完善，有待于继续开发。2.3功能概述及界面图示1）系统登陆2）系统主框架系统欢迎界面。3） 系统设置完成对操作员的增加、对密码的更改操作添加操作员第4页新乡电大计算机专业裴文龙“新乡电力宾馆管理系统”毕业论文4）客房管理客房设置、客房查询、房态设置功能客房设置客房查询房态设置5）住宿管理完成住宿登记、调房登记、住宿查询、退宿查询功能第5页新乡电大计算机专业裴文龙“新乡电力宾馆管理系统”毕业论文住宿登记调房登记住宿查询6）员工管理完成添加员工、查询员工功能。查询员工第6页新乡电大计算机专业裴文龙“新乡电力宾馆管理系统”毕业论文7） 消费品管理完

7、成添加新消费品、消费品查询功能添加新消费品消费品查询8）账务管理完成追加押金、退宿结账、挂账结款功能第7页新乡电大计算机专业裴文龙“新乡电力宾馆管理系统”毕业论文9）关于完成对系统和开发的介绍3数据库设计数据库设计步骤： 数据库需求分析 数据库概念结构设计 数据库逻辑结构设计首先将宾馆管理信息系统的数据库概念结构转化为ACCESS2003数据库系统所支持的实际数据模型，即：数据库的逻辑结构。其各个表格的设计结果如下：3.1 表格第8页新乡电大计算机专业裴文龙“新乡电力宾馆管理系统”毕业论文表djb表gzmx表kf表kfyd表qxsz第9页新乡电大计算机专业裴文龙“新乡电力宾馆管理系统”毕业论文

8、表tfd表xfp表ygb3.2宾馆管理信息系统几个代表窗口的具体程序实现: 房态查询代码实现：Private Sub Form_Activate()Dim i As Integer 定义一个整型变量Dim criteria As String 定义一个字符串变量 Dim mydb1 As Database 定义数据库Dim myrs1 As Recordset 定义字段第10页新乡电大计算机专业裴文龙“新乡电力宾馆管理系统”毕业论文Dim myrs2 As RecordsetDim myrs3 As RecordsetSet mydb1 = Workspaces(0).OpenDatabase

9、(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

10、)For i = 1 To 25 房态显示criteria = 房间号 = & Command1(i).Caption & myrs1.FindFirst criteriaIf myrs1.NoMatch ThenElseIf myrs1.Fields(房态) = 空房 Then Command1(i).Picture = LoadPicture() 空房If myrs1.Fields(房态) = 入住 Then Command1(i).Picture = LoadPicture(App.Path & tupianhappy.bmp) If myrs1.Fields(房态) = 维修 Then

11、 Command1(i).Picture = LoadPicture(App.Path & tupiandiamond.bmp) End IfNext iIf Not myrs2.EOF Then myrs2.MoveLastIf Not myrs3.EOF Then myrs3.MoveLastLabsy.Caption = myrs2.RecordCount 客房入住数Labwx.Caption = myrs3.RecordCount 客房维修数Labkx.Caption = 25 - Val(Labwx.Caption) - Val(Labsy.Caption) 客房空闲数Labsyl.

12、Caption = Val(Labsy.Caption) / 25 * 100 & % 客房使用率End SubPrivate Sub Form_Unload(Cancel As Integer)main.Enabled = TrueEnd SubPrivate Sub Command1_Click(Index As Integer) 查询住宿信息If Index = 0 = 25 Thenmain_zscx.Data1.RecordSource = select * from djb where 标志=1and 房间号= & Command1(Index).Caption & main_zs

13、cx.Data1.RefreshEnd IfLoad main_zscxmain_zscx.ShowEnd SubPrivate Sub Command2_Click()Unload Memain.Enabled = TrueEnd Sub调房登记代码实现：Private Sub Form_Load()自动识别数据库路径第11页新乡电大计算机专业裴文龙“新乡电力宾馆管理系统”毕业论文Data1.DatabaseName = App.Path & db.MDBData2.DatabaseName = App.Path & db.MDBData3.DatabaseName = App.Path &

14、 db.MDBData4.DatabaseName = App.Path & db.MDBEnd SubPrivate Sub Form_Activate()czy.Text = main.StatusBar1.Panels(4).Text 赋值给czy.text查询住宿登记信息Data4.RecordSource = select * from djb where 标志=1Data4.RefreshEnd SubPrivate Sub Form_Unload(Cancel As Integer)main.Enabled = True 设置主窗体有效End SubPrivate Sub DBC

15、ombo1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn Then Texbz.SetFocus texbz获得焦点End SubPrivate Sub DBCOMBO2_Change()If DBCombo2.Text ThenData1.Recordset.FindFirst 房间号= & DBCombo2.Text & and 标志=1If Data1.Recordset.NoMatch ThenMsgBox (请核准住宿房间和住宿人！)ElseIf Data1.Recordset.Fields

16、(客房类型) ThenWith 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

17、Texsfz.Text = .Fields(证件号码)If .Fields(客房价格) Then Texjg.Text = .Fields(客房价格)End WithEnd IfEnd IfDBCombo1.Enabled = TrueTexbz.Enabled = TrueEnd IfEnd SubPrivate Sub DBCOMBO2_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn Then DBCombo1.SetFocus 按回车键DBCombo1获得焦点End SubPrivate Sub

18、texbz_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn Then Comok.SetFocus 按回车键comok获得焦点第12页新乡电大计算机专业裴文龙“新乡电力宾馆管理系统”毕业论文End SubPrivate Sub comdj_Click() 登记Frame2.Enabled = True: Frame3.Enabled = True: DBCombo2.Enabled = TrueDBCombo1.Enabled = True: Texjg.Enabled = True: Comok.En

19、abled = TrueComcancel.Enabled = True: Comok.Enabled = True: Comdj.Enabled = FalseDBCombo2.SetFocus DBCombo2获得焦点End SubPrivate Sub comok_Click() 确定调房Dim bh As String 定义一个字符串类型的变量查询空闲房间信息Data2.RecordSource = select * from kf where 房间号= & DBCombo1.Text & and 房态=空房 Data2.RefreshIf Data2.Recordset.Record

20、Count 0 ThenDim mydb1 As DatabaseDim myrs2 As RecordsetSet mydb1 = Workspaces(0).OpenDatabase(App.Path & db.MDB)查询所有住宿登记信息Data1.RecordSource = select * from djbData1.RefreshData1.Recordset.FindFirst 房间号 = & DBCombo2.Text & and 标志=1bh = Data1.Recordset.Fields(凭证号码)Data1.Recordset.Edit 编辑住宿登记信息If DBCo

21、mbo1.Text Then Data1.Recordset.Fields(房间号) = Val(DBCombo1.Text)If Texbz.Text Then Data1.Recordset.Fields(备注) = Texbz.TextData1.Recordset.Fields(标志) = 1Data1.Recordset.Fields(摘要) = 由源房 & DBCombo2.Text & 调到目标房 & DBCombo1.Text Data1.Recordset.Update 更新记录Data3.RecordSource = select * from djys where 凭证号

22、码= & Data1.Recordset.Fields(凭证号码) & Data3.RefreshIf Data3.Recordset.EOF = False Then Data3.Recordset.MoveLastIf Data3.Recordset.BOF = False Then Data3.Recordset.MoveFirstIf Data3.Recordset.RecordCount 0 ThenData3.Recordset.MoveFirstFor i = 1 To Data3.Recordset.RecordCountData3.Recordset.Edit 编辑住宿登记预

23、收信息If DBCombo1.Text Then Data3.Recordset.Fields(房间号) = Val(DBCombo1.Text)If Texbz.Text Then Data3.Recordset.Fields(备注) = Texbz.TextData3.Recordset.Fields(标志) = 1Data3.Recordset.Fields(摘要) = 由源房 & DBCombo2.Text & 调到目标房 & DBCombo1.Text Data3.Recordset.Update 更新记录If Data3.Recordset.EOF = False Then Dat

24、a3.Recordset.MoveNextNext iEnd If编辑客房状态Data2.Recordset.EditData2.Recordset.Fields(房态) = 入住第13页新乡电大计算机专业裴文龙“新乡电力宾馆管理系统”毕业论文Data2.Recordset.UpdateData2.RecordSource = select * from kfData2.RefreshData2.Recordset.FindFirst 房间号 = & DBCombo2.Text & Data2.Recordset.EditData2.Recordset.Fields(房态) = 空房Data2

25、.Recordset.Update查询空闲房间信息Data3.RecordSource = select * from kf where 房态=空房Data3.RefreshData4.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

26、清空数据DBCombo1.Text = : DBCombo2.Text = : Texxmb.Text = Texsfz.Text = : Texbz.Text = : Texjg.Text = Comdj.SetFocus Comdj获得焦点ElseMsgBox (所选房间已有人入住，请选择空房,再保存!)End IfEnd SubPrivate Sub comcancel_Click() 取消操作DBCombo2.Enabled = True: DBCombo1.Enabled = True: Comdj.Enabled = True Comok.Enabled = False: Texb

27、z.Enabled = TrueDBCombo1.Text = : DBCombo2.Text = : Texxmb.Text = Texsfz.Text = : Texbz.Text = : Texjg.Text = End SubPrivate Sub comend_Click()Unload Memain.Enabled = True 设置主窗体有效End Sub追加押金代码实现：Private Sub Form_Load()自动识别数据库路径Data1.DatabaseName = App.Path & db.MDBData2.DatabaseName = App.Path & db.

28、MDBData3.DatabaseName = App.Path & db.MDBEnd SubPrivate Sub Form_Activate()czy.Text = main.StatusBar1.Panels(4).Text 赋值给czy.text查询住宿登记信息Data2.RecordSource = select 凭证号码 from djb where 标志=1order by 凭证号码 Data2.RefreshEnd Sub第14页新乡电大计算机专业裴文龙“新乡电力宾馆管理系统”毕业论文Private Sub Form_Unload(Cancel As Integer)main

29、.Enabled = True 设置主窗体有效End SubPrivate Sub DBCombo1_Change()查询住宿登记信息Data1.RecordSource = select * from djb where 凭证号码= & DBCombo1.Text & Data1.RefreshIf Data1.Recordset.RecordCount 0 Then 当记录大于零时赋值给text2等If Data1.Recordset.Fields(姓名) Then Text2.Text = Data1.Recordset.Fields(姓名)If Data1.Recordset.Fiel

30、ds(预收金额) 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.Reco

31、rdset.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(提醒日期)I

32、f 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 IfEnd SubPrivate Sub DBCombo1_KeyDown(KeyCode As Integer, Shift

33、 As Integer)If KeyCode = vbKeyReturn Then Text1.SetFocusEnd SubPrivate 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) Th

34、entim2.Value = #6:00:00 PM#Elsetim2.Value = #12:00:00 AM#End IfEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn Then Command1.SetFocusEnd SubPrivate Sub Command1_Click()保存追加押金信息If Text1.Text And DBCombo1.Text Then查询住宿登记信息Data1.RecordSource = select * fro

35、m djb where 凭证号码= & DBCombo1.Text & Data1.RefreshIf Data1.Recordset.RecordCount 0 Then编辑住宿登记信息Data1.Recordset.Edit第15页新乡电大计算机专业裴文龙“新乡电力宾馆管理系统”毕业论文Data1.Recordset.Fields(预收金额) = Val(Text3.Text) + Val(Text1.Text)Data1.Recordset.Fields(提醒日期) = DTP2.ValueData1.Recordset.Fields(提醒时间) = tim2.ValueData1.Recordset.Update 更新数据查询住宿登记预收信息Data3.RecordSource = select * from djys where 凭证号码= & DBCombo1.Text & Data3.Refresh编辑