宾馆信息管理系统

1、毕业设计（论文）题目 宾馆信息管理系统 系 别 专 业 软件开发 班 级 姓 名 学 号 指导教师（职称） 日 期 *大学 摘要随着计算机科学技术的发展,人们已进入了互联网的时代,由于目前计算机文化基础以全部提升到Windows平台,因此作为其后继课程的程序设计语言,自然也应在这一平台上深入下去。本次设计之所以采用Visual Basic ,就是因为其具有程序设计语言简单易学、易用的特点,又在编程系统中引入了面向对象的机制,用一种巧妙的方法把Windows编程的复杂性封装起来,提供了一种可视界面的设计方法,使用窗体和控件设计应用程序界面,从而极大的提高了用户开发应用程序的效率。现代社会中,各行

2、各业都通过应用计算机实现自动化,提高工作效率,把劳动者从繁杂的脑力劳动和体力劳动中解放出来。近20年间，管理信息系统（MIS）的应用得到了迅速的发展，尤其是今年来Internet/Intranet技术的飞速发展，为企业建立MIS系统提供了良好的支持环境。通过本次设计,开发软件应如何下手,按照怎样的顺序来完成软件,从这种基本思想出发,提出了软件开发中一些问题的复杂性和软件工程学的概念。 SUMMARYWith the development of computer, the period of the Internet has come into the humanity. Because th

3、e basis of the computer agriculture has returned the stage of Windows, and as the continuing process design computer language, so it will be continuing. The design uses the Visual Basic, owning to its character of easing to learn and it also use the operate object system; another method is that It c

4、overs the design of the Windows and private a picture design method, which private a visual designing method, and designing the application process through using the window and control, therefore it increase the efficiency of designing application by process-designer.In the modern society, all kinds

5、 of company has already made out of automatic by using computer as well as increasing the work-efficiency, therefore it celebrate the worker from complex brain and hand. In recent twenty years, the Management Information System gets rapidly development, especially for the rapid development of the In

6、ternet in recent years, which private the environment for making up the MIS.Through the design, I know how to design application software, and how to order the sequence to finish the application software. Starting from this basic thought, it private a serious question in designing application softwa

7、re and software project exception.第一章 绪论数据是信息的一种,它是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：关系数据库和非关系数据库。 Microsoft公司的Access数据库管理系统是目前国内使用较为普遍的一种数据库软件。它既是一个独立的数据库平台也是一个强大的数据库开发工具，可以用来开发定制客户机/服务器数据库应用程序。它包括了30多个向导可以执行许多常见的任务，如创建窗体，报表和查询。Access数据库在设计大量的用户或频繁的操作时，它的性能和可靠性会大幅度下降。

8、Visual Basic6.0是微软推出的基于窗口的可视化开发工具。Visual所指的是开发图形用户界面的可视化方法，无需写大量源代码去描述用户界面元素的外观和位置，而只要把预先建立好的控件对象拖入到设计窗体上，着就是可视化。Visual Basic是Windows下最快捷，便利的通用开发工具之一，它具有智能特性集成开发环境。VB6.0的特有四大特点：可视化，面向对象，部件编程，事件驱动等。 宾馆信息管理系统是典型的信息管理系统，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强，数据安全性较好的库，而对于后者而言则要求应用程序功能完备，

9、易使用的特点。宾馆信息要实现一个管理系统为用户使用最关键的是系统能够快速高效地处理并优化多用户条件下的数据访问和查询要求，以及更快捷的实现它便于用户使用。基于Microsoft Access2000和VB6.0各自的特点，本文通过使用这两者的集成设计并开发了宾馆信息管理系统的网络实现方案。第二章 需求分析信息社会的高科技，商品经济化的高效益，使计算机的应用已普及到经济和社会生活的各个领域。计算机虽然与人类的关系愈来愈密切，还有人由于计算机操作不方便继续用手工劳动。为了适应现代社会人们高度强烈的时间观念，档案管理系统软件为企业和公司带来了极大的方便。该软件是以编程语言为实现的，其功能在系统内部有

10、源代码直接完成。使用者可以了解本软件的基本工作原理。操作人员只需输入一些简单的知识和培训，即可达到操作的目标。可性行分析宾馆在正常的运营中需要对客房资源、顾客信息、结算信息进行管理，利用宾馆管理信息系统及时了解各个环节中信息的变更，有利于提高管理效率.经济上的可行性首先，本系统功能实现较容易，需要花费的人力物力相对较少，在经济上是可以承担。其次，当前电脑配件的性能不断提高，高档计算机的性能甚至超过了小型服务器，可以花费相对较少的费用就可买到性能比较高的机器。这些都为本系统的开发提供了较为充分的经济基础。 技术上的可行性该软件适用于Win98/2000/NT/XP等系统，并且功能齐全、操作方便、

11、效果甚佳。开发工具可选用Visual Basic 6.0，它作为一种面向对象的可视化开发工具，不仅开发速度快，效率高，成本低，界面友好，数据和图形功能强大，而且易于掌握和使用。另外，在数据库功能方面新增了功能强大、使用方便的ADO（Active Database Object）技术，可以方便地和多种数据库相连，并支持Client/Server多层结构模式，易于将本系统向其他数据库环境的移植和扩展。数据库可选用 Microsoft Access 2000,作为微软出品的数据库产品，其性能比较高，而且数据库安全管理形式灵活方便，更为突出的是它与Windows2000操作系统的集成和协调性是其他数据

12、库产品不能比拟的系统总体设计 软件的研制工作经过需求分析阶段，完全弄清楚了用户的需求，也就是解决软件“做什么”的问题以后，就进入了软件设计阶段，在该阶段着手实现软件需求的工作，也就是解决“怎么做”的问题。通常把设计阶段分成两步，即结构设计（或概要设计）及详细设计。结构设计阶段着重解决实现需求的程序模块设计问题，包括如何把被开发的软件分成若干个对象，决定对象的属性、方法、事件等接口，确定用户与应用程序如何交互作用。详细设计是指开发代码以实现在结构设计中决定的类及用户界面。模块设计具体描述系统开发的总体任务是实现宾馆各种信息的系统化、规范化和自动化。2.1主要完成功能：有关客房标准的制定、标准信息

13、的输入，包括标准编号、标准名称、房间面积、床位数量、住房单价、是否有空调、电视机、电话以及单独卫生间等客房标准信息的修改、查询等。客房基本信息的输入，包括客房编号、客房类型、客房位置、客房单价、备注等。客房基本信息的查询、修改，包括客房编号、客房类型、客房位置、客房单价、备注等。剩余客房信息的查询等。订房信息的输入，包括客房编号、客房种类、客房位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、备注信息等。订房信息的修改和查询，包括客房编号、客房种类、客房位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、备注信息等。结算信息的输入，包括客房编号、客房种类、位置、客房单价、顾客姓名

14、、顾客身份证号码、入住日期、折扣、结算日期、备注信息等。结算信息的修改和查询，包括客房编号、客房种类、客房位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、结日期、备注信息等。对系统进行分析得到如下的系统功能模块图。 宾馆管理系统 客房信息管理系统管理结算信息管理订房信息管理修改密码用户管理剩余客房信息查询设置客房标准订房信息查询设置客房信息订房信息添加订房信息修改结算信息查询结算信息修改结算信息添加 客房信息查询客房信息查询客房信息查询客房信息查询客房信息查询2.2数据流程图基本信息输入客房登记客房标准设置客房标准信息管理基本信息录入顾客登记客房信息管理订房信息输入结算信息输入订房信

15、息设置客房信息返回结算信息管理2.3实体客房单价床位数量标准编号E-R图客房标准信息实体E-R图客房标准信息实体标准名称客房信息实体E-R图客房编号客房标准客房位置客房单价客房信息实体订房信息实体E-R图订房信息实体客房信息折扣顾客信息入住时间结算信息实体E-R图结算信息实体顾客信息结算金额客房信息结算时间第三章 系统的配置 本文中的企业档案管理系统是基于Microsoft Access2000和Visual Basic6.0来设计并开发的，因此在进行数据库的设计创建之前，必须安装并配置上述两个软件。3.1 Microsoft Access2000的安装 安装Microsoft Access2

16、000的时候，可以选择只安装Microsoft Access2000，也可以同时安装其他的Office应用程序或组件，安装时采用默认设置即可。3.2 Visual Basic 6.0的安装 启动安装程序，通过Windows的“控制面板/添加删除程序”，“资源管理器”，“我的电脑”“更改文件夹”按钮设置安装路径，在Visual Basic6.0提供的“典型安装”和“自定义安装”方式中选择一种，重新启动计算机完成安装过程。第四章 数据库的设计4.1数据表的设计设置操作人员。系统初始设置一个超级用户名和密码，操作人员可以利用这个超级用户名和密码登录，之后，可以设置其他的超级用户名称，也可以设置权限用

17、户，设置这个用户可以使用的权限。roomtype 客房标准信息表列名数据类型可否为空说明TypeidvarcharNOTNULL标准编号TypenamevarcharNOTNULL标准名称areafloatNULL房间面积bednumfloatNULL床位数量hairconditionvarcharNULL是否有空调htelephonevarcharNULL是否有电话htekevisionvarcharNULL是否有电视htolietvarcharNULL是否有独立卫生间pricefloatNULL单价Rooms 客房信息表列名数据类型可否为空说明roomNOvarcharNOTNULL客房编

18、号roomtypevarcharNOTNULL客房种类roompositionvarcharNULL客房位置roompriceFloatNULL单价PutupvarcharNULL是否被预定roommemotextNULL备注信息Bookin 订房信息表列名数据类型可否为空说明booknovarcharNOTNULL订房编号customnamevarcharNOTNULL顾客姓名customIDvarcharNOTNULL身份证号roomnovarcharNOTNULL客房编号iddatedatetimeNULL入住信息discountfloatNULL折扣inmemotextNULL备注ch

19、eckdatedatetimeNULL结算日期amountfloatNULL金额42关系的设计数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的记录，一个更高级的连接形式称为自然连接。这种连接是指一个表被连接到它自己的一个字段，或在不同的记录中由重复数据的组合字段。数据库有三种不同类型的关键字：主关键字，组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其他的库建立关系。关系是数据库查询设计的基础。关系数据库中表之间的关系有一对

20、一的关系，一对多的关系以及多对多的关系，其中前两种是最为常用的两种关系。 第五章 详细设计51详细窗体的设计主窗体 子窗体这部分窗体是整个系统的核心部分。建立登录窗体作为一个管理系统，不仅要求它具有实用性和可操作性，系统安全也是必不可少的分之一，一个档案管理系统应该不是任何人都可以随便使用的，应该具有不同的权限。为了区分这一不同，登录窗体就显得很必要了。为了在一定程序上防止使用穷举法破解用户密码，设定用户如果输入用户和密码出错3次，系统将自动退出。首先判断用户输入是否为空，如果为空，则给出提示；如果不为空，则在系统数据中的系统信息表中检查是否有这个用户名，然后打开数据中确定存在这个用户名，则检

21、查对应的密码是否正确，如果不正确则给提示，并要求用户重新输入密码：如果用户和密码都正确，则记录当前用户的用户和权限，关闭数据对象，关闭窗体同时加载主窗体：除非用户名和密码都正确，否则cnt的值将随着每一次单击“确定”按钮而增加1，当出错3次，即cnt的值为3时，退出系统。用户以正确的用户名和密码登录后，还有着权限不同的区别。本系统设立了两种用户权限System和guest。其中，system为系统管理员权限，具有浏览、管理数据库，添加新用户等全部权限。52程序代码的编写创建公用模块 Module1.bas Public Function ExecuteSQL(ByValSQL As Strin

22、g,MsgString AsString)ADODB.Recordset 执行SQL语句，并返回记录集对象Dim cnn As ADODB.ConnectionDim rst As ADODB.RecordsetDim sTokens() As String异常处理On Error GoTo ExecuteSQL_Error用Split函数产生一个包含各个子串的数组 sTokens=Split(SQL) Set cnn=NEW ADODB.Connection打开连接 cnn.Open ConnectString If InStr(“INSERT,DELETE,UPDATE”,UCase$(s

23、Tokens(0) Then Cnn.Execute SQL MsgString=sTokens(0)&”query successful” Else Set rst=NEW ADODO.Recordset rst.Open Trim$(SQL),cnn,adOpenKeyset,adLockOptimistic rst.MoveLast get RecordCount 返回记录集对象 Set ExecuteSQL=rst MsgString=”查询到”&rst.RecordCount&”条记录” End IfExecuteSQL_Exit: Set rst=Nothi

24、ng Set cnn=Nothing Exit FunctionExecuteSQL_Error: MsgString=”查询错误:”&Err.Description Resume ExecuteSQL_ExitEnd FunctionPublic Sub EnterToTab(Keyasc As Integer)判断是否为回车键 If Keyasc=13 Then Keyasc用来保存当前按键 转换成Tab键 SendKeys”TAB” End IfEnd sub添加全局变量，用来记录各个窗口的读写状态，代码如下：Public flagTedit As Boolean 标示是否进入修

25、改的窗体Public flagRedit As BooleanPublic flagBedit As BooleanPublic flagCedit As BooleanPublic gintCmode As Integer Public gintTmode As Integer 记录是添加还是修改状态，1为添加，2为修改Public gintRmode As IntegerPublic gintBmode As Integer Public flagSedit As Boolean系统用户管理模块的创建 用户管理模块主要实现： ·用户登陆。 ·添加用户。·修改用

26、户 具体客房标准添加代码：Private Sub Form_Load() 载入窗体后，判断所处状态 Dim intCount As Integer Dim MsgText As String Dim i As Integer If gintTmode=1 Then 判断是否属于添加状态 Me.Caption=Me.Caption & ”添加” For i=0 To 3 Combo1(i).AddItem ”否” Combo1(i).AddItem ”是” Combo1(i).ListIndex=0 Next i ElseIf gintTmode=2 Then 判断是否处于修改状态 Se

27、t mrc=ExecuteSql(txtSQL,MsgText) If mrc.EOF=false Then With mrc For intCount=0 To 3 txtItem(intCount)=.Fields(intCount) Next intCount txtItem(4)=.Fileds(8) For i=0 To 3 Combo1(i).Additem ”否” Combo1(i).Additem ”是” Combo1(i).ListIndex=0 Next i End With txtItem(0).Enabled=False End If Me.Caption=Me.cap

28、tion&”修改”End IfmblChang=False End SubPrivate Sub cmd_Click()用户输入内容完毕后，单击cmdSave按钮触发Click事件 Dim intCount As Integer Dim sMeg As String Dim MsgText As String For intCount=0 To 4 判断是否输入内容 If Trim(txtItem(intCount)&”)=” Then Select Case intCount Case 0 sMeg=”标准编号” Case 1 sMeg=”标准名称” Case 2 sMeg=

29、”房间面积” Case 3 sMeg=”床位数量” Case 4 sMeg=”床位单价” End Select sMeg=sMeg&”不能为空!” MsgBox sMeg,vbOkOnly+vbExclamation,”警告” txtItem(intCount).SetFocus Exit Sub End if Next intCount 判断输入内容是否为数字 For intCount=2 To 4 If Not IsNumeric(Trim(txtItem(intCount) Then Select Case intCount Case 2 sMeg=”房间面积” Case 3 s

30、Meg=”床位数量” Case 4 sMeg=”床位单价” End Select sMeg=sMeg&”请输入数字!”MsgBox sMeg,vbOKOnly+vbExclamation,”警告”txtItem(intCount).SeFocusExit Sub End If Next intCount If gintTmode=1 Then 判断是否有相同ID记录 txtSQL=”select*from roomtype where typeid_ =”&Trim(txtItem(0)&” Set mrc=ExecuteSQL(txtSQL,MsgText) If m

31、rc.EOF=False Then MsgBox “已经存在此标准编号的记录!”,vbOKOnly+vbExclamation,”警告” txtItem(0).SetFocus Exit Sub End If Mrc.Close End If txtSQL=”select * from roomtype where typeid<>”&Trim(txtItem(0)&”and typename=”&Trim(txtItem(1)&” Set mrc=ExecuteSQL(txtSQL,MsgText) If mrc.EOF=False Then Ms

32、gBox”已经存在相同客房标准的记录!”,vbOKOnly+vbExclamation,“警告” txtItem(1).Setfocus Exit Sub End If txtSQL=”delete from roomtype where typeid=”&Trim(txtItem(0)&”删除已有记录 Set mrc=ExecuteSQL(txtSQL,MsgText) txtSQL=”select *from roottype”添加新记录 Set mrc=ExecuteSQL(txtSQL,MsgText) mrc.AddNew For intCount=0 To 3 mr

33、c.Fields(intCount)=Trim(txtItem(intCount) Next intCount For intCount=0 To 3 mrc.Fields(intCount+4)=Trim(Combo1(intCount) Next intCount mrc.Fields(8)=Trim(txtItem(4) mrc.Update 更新数据库 mrc.Close if gintTmode=1 Then 判断是否属于添加状态 MsgBox “添加纪录成功!”,vbOKOnly+vbExclamtion,“添加记录” For intCount=0 To 4 txtItem(int

34、Count)=” 清除已经输入的内容 Next intCount For intCount=0 To 3 Combo1(intCount).ListIndex=0 Next intCount mblChange=False判断是否打开窗口 if flagTedit Then Unload frmRoomtype frmRoomtype.txtSQL=“select *from roomtype” frmRoomtype.Show End If ElseIf gintTmode=2 Then 判断是否处于修改状态 Unload Me If flagTedit Then Unload frmRoo

35、mtype EndIf frmRoomtype.txtSQL=”select *from roomtype” frmRoomtype.Show End If End SubPrivate Sub txtItem_GotFocus(Index As Integer)文本框获得焦点时触发该事件，即自动选中输入的内容，便于修改txtItem(Index).SelStart=0txtItem(Index).SelLength=Len(txtItem(Index)End SubPrivate Sub cmdExit_Click()单击按钮cmdExit取消添加信息If mblChange And cmd

36、Save.Enabled Then If MsgBox(“保存当前记录的变化吗？”,vbOKCancel+vbExclamation,”警告”)=vbOK Then 保存 Call cmdSave_Click End IfEnd IfUnload MeEnd SubPrivate Sub txtItem_KeyDown(Index As Integer,KeyCode As Integer,Shift_ As Integer)输入完内容，单击回车键将自动进入下一个文本框，触发文本框的Keydown事件 EnterToTab KeyCodeEnd Sub修改客房标准窗体的创建Private Su

37、b From_Load()ShowTitleShowDataflagTedit=TrueEnd SubPrivate Sub ShowTitle()调用showTitle函数，显示表头Dim i As IntegerWith msgList .Cols=10 .TextMatrix(0,1)=”标准编号” .TextMatrix(0,2)=”标准名称” .TextMatrix(0,3)=”房间面积” .TextMatrix(0,4)=”床位数量” .TextMatrix(0,5)=”是否有空调” .TextMatrix(0,6)=”是否有电话” .TextMatrix(0,7)=”是否有电视”

38、 .TextMatrix(0,8)=”是否有卫生间” .TextMatrix(0,9)=”房间单价” .FixedRows=1固定表头 For i=0 To 9 设置各列的对齐方式 .ColAlignment(i)=0 Next i .FillStyle=flexFillRepeat表头项居中 .Col=0 .Row=0 .RowSel=1 .ColSel=.Cols-1 .CellAlignment=4 .ColWidth(0)=300设置单元大小 .ColWidth(1)=1000 .ColWidth(2)=2000 .ColWidth(3)=2000 .ColWidth(4)=1000

39、.ColWidth(5)=1000 .ColWidth(6)=1000 .ColWidth(7)=1000 .ColWidth(8)=1000 .ColWidth(9)=1000 .Row=1End WithEnd SubPrivate Sub ShowData()调用showData函数，显示记录列表 Dim i As Integer Set mrc=ExecuteSQL(txtSQL,MsgText)根据需要设置SQL语句，显示需要的记录 With msgList .Rows=1 Do While Not mrc.EOF .Rows=Rows+1 Select Case mrc.Field

40、s(i-1).Type Case adDBDate .TextMatrix(.Rows-1,i)=Format(mrc.Fields(i-1)&”,”yyyy-mm-dd”) Case Else .TextMatrix(.Rows-1,i)=mrc.Fields(i-1)&” End Select Next i Mrc.MoveNext Loop End With mrc.CloseEnd SubPrivate Sub msgList_MouseUp(Button As Integer,Shift As Integer,x As Single,y As Single)选择记录，

41、然后单击鼠标右键，触发MouseUp事件 If Button=2 And Shift=0 Then PopupMenu fMainFrom.menuRoomtype End IfEnd SubPrivate Sub menuModifyroomtype_Click() Dim intCount As Integer If flagTedit Then 判断是否打开记录窗体 fintTmode=2设置为修改状态记下选择记录 frmRoomtype1.Show Else Call menuAddroomtype_Click End If Else frmRoomtype.txtSQL=”selec

42、t*from roomtype” frmRoomtype.Show End IfEnd SubPrivate Sub From_Resize()窗体变化时，调整标签和表格位置，使标签处于窗体的最上方，而表格始终处于标签下方 If Me.WindowState<>vbMinimized And fMainFrom.WindowState<>vbMinimized Then边界处理 If Me.Scaleheight<10*lblTitle.Height Then Exit Sub End If If Me.ScaleWidth<lblTitle.Width+l

43、blTitle.Width/2 Then Exit Sub End If lblTitle.Top=lblTitle.Height控制控件的位置 lblTitle.Left=(Me.Width-lblTitle.Width)/2 msgList.Top=lblTitle.Top+lblTitle.Height+lblTitle.Height/2 msgList.Width=Me.ScaleWidth-200 msgList.Left=Me.ScaleLeft+100 msgList.Height=Me.ScaleHeight-msgList.Top-200 End IfEnd Sub删除客房标

44、准Private Sub menuDeleteroomtype_Click() Dim txtSQL As String Dim intCount As Integer Dim mrc As ADODB.Recordset Dim MsgText As String If flagTedit Then 判断是否打开记录窗体 If MsgBox(“真的要删除这条文件记录么？”，vbOKCancel+vbExclamation,”警告”)=vbOK Then Set mrc=ExecuteSQL(txtSQL,MsgText) Unload frmRoomtype关闭记录窗体 frmRoomtyp

45、e.txtSQL=”select*from roomtype”重新选择所有记录 frmRoomtype.Show End If End If End IfEnd Sub客房信息管理模块的创建 客房信息管理模块主要实现如下功能： ·添加客房信息 ·修改客房信息 ·删除客房信息 ·查询客房信息 具体实现代码如下：Private Sub From_Load()载入窗体时，自动添加客房信息种类 Dim sSql As String Dim intCount As Integer Dim MsgText As String Dim mrcc As ADODB.Recordset If gintRmode=1 Then 判断是否处于添加状态 Me.Caption=me.Caption&“添加” txtSQL=”select DISTINCT typename from roomtype” Set mrc=Execu