VB酒店管理系统 4.docx

1、VB酒店管理系统 4VB.NET设计报告酒店客房管理系统一、 课程设计的目的 本系统是模拟酒店客房管理系统。主要用于宾馆旅客入住情况登记,包括旅客的姓名及身份证号的登记,以及入住房间信息.当旅客离开时,需要办理退房结帐手续.对于一定时间没有旅客入住情况实现基本查询,报表打印功能.对于宾馆本身也实现了客房增减,入住情况查询等功能. 二、功能简介系统开发的总体任务是实现酒店的管理，主要完成的功能有：1、 入住信息管理：即管理和维护住户的各项数据信息，包括入住者登记号、姓名、身份证号、房间号、登记日期、性别、籍贯。当住户离开酒店时，允许高级管理员和系统管理员添加住户信息、删除住户信息和维护住户信息。

2、2、 酒店客房信息管理：即管理和维护酒店的各项数据信息，包括房间号、客房等级、客房价格、客房类型、客房状态、客房备注信息。其中房间号必须是酒店客房数据表中的一种。允许高级管理员和系统管理员添加客房信息、删除客房信息和维护客房信息。3、酒店客房类别管理：即管理和维护酒店客房类别的各项数据信息，包括有普通客房和贵宾客房两项。允许高级管理员和系统管理员添加客房类别信息、删除客房类别信息和维护客房类别信息。4、 入住和退房管理：即管理和维护客房的入住、退房及客户的缴纳房款等信息。包括住户的登记号、姓名、身份证号、房间号、登记日期、籍贯等数据。主要功能有客房入住、客房退还和缴纳罚款3项功能5、 管理员权

3、限管理：按照数据表里的记录来确定管理员权限，并允许其执行相应的功能。这里我们定义了管理员的作用：（1）、可以添加管理员 （2）、可以添加职员信息。（3）、可以授权用户。管理员可以进行所有权限。 三、数据库设计3.1 建立Access数据库及表在一个酒店管理系统中，数据库的地位是非常重要的，是一个系统正常运行的基础。本系统的数据库是采用Microsoft公司的Access 2003设计的。在数据库的设计过程中，首先是收集、分析需求；再从需求抽象出一般的实体、关系和他们的属性；再将这些实体、关系和属性按照一定的规则转化为二元表结构。本系统中共有4数据表表3-1为Usersinfo管理员资料数据表。

4、管理员资料数据表记录了所有管理的基本资料，管理员可添加、删除和查询该表。该表包括管理员ID、姓名、密码和权限等资料。表3-1为UsersInfo管理员资料数据表字段名类型大小说明姓名Text20管理人员帐号密码Text20管理人员密码权限Text1管理人员权限表3-2旅客信息表为旅客的个人信息加入住客房信息数据结构表字段名类型大小说明登记号Text8旅客入住号姓名Text8旅客姓名身份证号码Text18旅客身份证号房间号Text3入住房间号登记日期Text日期/时间旅客入住时间性别Text3旅客性别籍贯Text8旅客籍贯表3-3为room资料数据表。room料数据表记录了room基本资料，可供

5、查询。该表主要包括了房间号、客房等级、客房类型、客房价格、客房状态、客房备注信息等基本资料。表3-2room资料数据表字段名类型大小说明房间号Text3房间号客房等级Text8客房等级客房类型Text8客房类型客房价格Text单精度型客房价格客房状态Text3客房状态客房备注信息备注8客房备注信息表3-4为quit资料数据表。quit资料数据表记录了所有退房的基本资料，管理员可添加、删除和查询该表。类型的基本资料,包括登记号、登记日期、退房日期、付款金额、退房备注信息。表3-4为quit资料数据表字段名类型大小说明登记号Text8旅客入住号登记日期日期/时间旅客登记时间退房时间日期/时间旅客退

6、房时间付款金额Text单精度型付费金额退房备注信息Text8退房备注信息3.2 连接数据库由于本系统是采用ADO对象访问数据库的技术，所以在VB中需要添加ADO库。添加的方法是在VB中选择“工程”“引用”命令，在对话框中选择Microdoft ActiveX Data Objects 2.0 Library，单击“确定”按钮。在程序设计的公共模块中，先定义ADO连接对象。语句如下：Public conn As New ADODB.connection 标记连接对象Dim connection As StringConnectionString = provider=microsoft.jet.

7、oledb.4.0; & data source=carshale.mdbconn.Open ConnectionString四、具体实现4.1 创建主窗体建立主窗体：单击”工程”-”添加MDI窗体”菜单,在弹出的对话框中单击”打开”按钮则为当前项目添加了一个MDI窗体。设置好MDI窗体属性后,设置此项目的属性。单击”工程”-”工程1属性”菜单,进入项目属性设置窗体。在此项目属性窗体中通用选项卡的启动对象中选择MDIfrmMain项,将这一多文档窗体作为程序的启动窗体。图41 菜单结构4.2 主要窗体的实现(1)登录模块的设计：此模块的功能是检查管理员是否有进入系统的权限。用到的主要控件为二个

8、text、两个label和两个Button按钮。窗体界面如图4-2所示。 图4-2 登录窗体的界面在此模块中管理员可以选择相应的管理员帐号进行登录，减去了忘记帐号或帐号名输入不方便的烦恼。(2)主页面模块的设计：此模块是系统服务器端的主要控制界面，通过菜单的选择，可以控制系统的所有功能,窗体界面如图4-3,4-4所示。主界面的设计步骤：1)设计主界面控件布局：在主界面的布局中使用了工具栏（ToolBar）、时钟控件（timer）和图象列表（ImageList）等非Vb标准控件。2）工具栏的设置： 给工具栏添加按钮3）添加菜单：菜单的使用是为了更好的给用户提供功能指引。 图4-3图象列表图4-3

9、工具栏列表系统通过Timer控件在状态栏中显示系统的当前时间，Timer控件的时间间隔是1000，也就是1秒钟，这样状态栏中的时间每秒钟都会变化，达到显示系统时钟的目的，具体实现代码为：Private Sub Timer1_Timer() StatusBar1.Panels(2).Text = Date & & TimeEnd Sub（4）创建系统主界面当系统运行时，首先进入登录界面，当输入帐号，密码合法时，则启动系统主界面。图4-4 系统主窗体的界面5)用户进入客房需要必要的登记来完成如图：图4-5用户登记界面图4-6已经登记的用户（6）退房信息：当旅客离开宾馆时，需要为其办理退房手续，在这

10、过程中需要在旅客退房信息表中添加记录信息，以及修改客房信息表，改变客房状态。旅客退房信息窗体，工作界面设计情况如图：图4-7退房登记表（7）查询住户信息：此界面用于查询房间状态如是否有所需的类型或是否为空房或满房，可以全部浏览，也可以按照查询条件来查找，如图：图4-8 客房状态界面 (8)查询客房：客查询窗体主要功能是实现客房信息查询显示，查询方式可以是按旅客姓名，登记号也可以按房间号查询。工作界面如图： 图4-9查询住户登记表(8)客房情况打印表:图4-10客房情况打印表五、运行效果在完成了程序各个功能模块的创建之后，就可以运行整个系统了。运行程序，进入系统。1、登录系统由用户登录、修改密码

11、、退出系统等组成。图5-1 管理员进入2、进入主页面，登录主页面后，可进入主页面运行系统。图5-2 主页面 附录一、酒店管理信息系统程序代码:Private Sub CmdOK_Click() Dim s1 As StringDim i As IntegerDim j As IntegerDim a(18) As Stringj = Len(txtUserName.Text)s1 = txtUserName.TextDim c As Integerc = 1For i = 1 To ja(i) = Mid(s1, i, 1) 逐一判断字符的合格化If a(i) = ThenMsgBox Err

12、or, vbOKOnly, ErrorExit SubElseIf a(i) = ThenMsgBox Error, vbOKOnly, ErrorExit SubElseIf a(i) = = ThenMsgBox Error, vbOKOnly, ErrorExit SubElseIf a(i) = ThenMsgBox Error, vbOKOnly, ErrorExit SubElseIf a(i) = ThenMsgBox Error, vbOKOnly, ErrorExit SubElseIf a(i) = , ThenMsgBox Error, vbOKOnly, ErrorEx

13、it SubElseIf a(i) = ThenMsgBox Error, vbOKOnly, ErrorExit SubEnd If c = c + 1txtUserName.SetFocus Next iDim strusername As StringDim strpassword As StringStatic intlogintimes As IntegerIf Trim(txtUserName.Text) = ThenMsgBox 用户名不能为空！, vbOKOnly + vbCritical, 错误Exit SubEnd Ifopentable adousers, usersin

14、foadousers.Refreshadousers.Recordset.Find 姓名= & & txtUserName.Text & , , adSearchForward, 1If Not adousers.Recordset.EOF Thenstrusername = adousers.Recordset!姓名strpassword = adousers.Recordset!密码Elsestrusername = strpassword = End IfIf strusername = txtUserName.Text And strpassword = txtPassword.Tex

15、t Thenadousers.Recordset.CloseUnload Me frmmdi.ShowElseMsgBox 用户名或密码不对！, vbOKOnly + vbInformation, 提示intlogintimes = intlogintimes + 1If intlogintimes = 3 Thenadousers.Recordset.CloseEndEnd IftxtPassword.SetFocusSendKeys HOME+ENDEnd IfEnd SubPrivate Sub cmdcancel_click()Unload MeEnd SubOption Explic

16、itPrivate Sub Command1_Click()With frmmdi.adoroom.RecordsetIf Not txtroomno.Locked ThenIf Trim(txtroomno.Text) = ThenMsgBox 房间号不能为空！, vbOKOnly + vbInformation, 提示txtroomno.SetFocusExit SubEnd IfEnd If!房间号 = Trim(txtroomno.Text)!客房等级 = Trim(txtroomgrade.Text)!客房类型 = Trim(txtroomtype.Text)!客房价格 = Trim

17、(txtroomprice.Text)!客房状态 = Trim(txtroomstatus.Text)!客房备注信息 = txtroominfo.TextUpdateUnload MeEnd WithEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub 退房登记实现代码：Private Sub CmdOK_Click()With frmmdi.adoquit.RecordsetIf Not txtbookno.Locked Then If Trim(txtbookno.Text) = ThenMsgBox 登记号不能为空!, vbOKOnly

18、+ vbInformation, 提示txtbookno.SetFocusExit SubEnd Iffrmmdi.adoguest.Recordset.Find 登记号= & Trim(txtbookno.Text) & , , adSearchForward, 1If frmmdi.adoguest.Recordset.EOF Then MsgBox 非法登记号!, vbOKOnly + vbInformation, 提示 txtbookno.SetFocusSendKeys HOME+ENDtxtpaymoney.Text = Exit SubEnd Iffrmmdi.adoquit.R

19、ecordset.Find 登记号= & Trim(txtbookno.Text) & , , adSearchForward, 1If Not frmmdi.adoquit.Recordset.EOF Then 有就提示,然后退出MsgBox 已经有相同登记号!, vbOKOnly + vbInformation, 提示 txtbookno.SetFocusSendKeys HOME+ENDtxtpaymoney.Text = Exit SubEnd If.AddNew!登记号 = Trim(txtbookno.Text)End If!付款金额 = Val(Trim(txtpaymoney.

20、Text)!登记日期 = Trim(txtbookdate.Text)!退房时间 = dtpquitdate.TextUpdateIf Trim(txtinfo.Text) = ThenMsgBox 备注不能为空!, vbOKOnly + vbInformation, 提示txtinfo.SetFocusEnd If!退房备注信息 = txtinfo.TextUpdateUnload Mefrmmdi.adoroom.Recordset!客房状态 = 空With frmmdi.adoguest.RecordsetDeleteEnd WithEnd WithEnd Sub Private Sub

21、 Command1_Click()If optroom Thenopentable frmmdi.Adoroom1, select * from room where (room.房间号) like & Trim(txtvalue.Text) & % & )ElseIf optgrade Thenopentable frmmdi.Adoroom1, select * from room where (room.客房等级) like & Trim(txtvalue.Text) & % & ) ElseIf opttype Thenopentable frmmdi.Adoroom1, select

22、 * from room where (room.客房类型) like & Trim(txtvalue.Text) & % & )End IfdtgroomqueryinforefreshEnd SubPrivate Sub CmdOK_Click() Dim s1 As StringDim i As IntegerDim j As IntegerDim a(18) As Stringj = Len(txtUserName.Text)s1 = txtUserName.TextDim c As Integerc = 1For i = 1 To ja(i) = Mid(s1, i, 1)If a(

23、i) = ThenMsgBox Error, vbOKOnly, ErrorExit Sub ElseIf a(i) = ThenMsgBox Error, vbOKOnly, ErrorMsgBox Error, vbOKOnly, ErrorExit SubElseIf a(i) = = ThenMsgBox Error, vbOKOnly, ErrorExit SubElseIf a(i) = ThenMsgBox Error, vbOKOnly, ErrorExit SubElseIf a(i) = ThenMsgBox Error, vbOKOnly, ErrorExit SubEl

24、seIf a(i) = , ThenMsgBox Error, vbOKOnly, ErrorExit SubElseIf a(i) = ThenMsgBox Error, vbOKOnly, ErrorExit SubEnd Ifc = c + 1txtUserName.SetFocusNext iDim strusername As String Dim strpassword As StringStatic intlogintimes As IntegerIf Trim(txtUserName.Text) = ThenMsgBox 用户名不能为空！, vbOKOnly + vbCriti

25、cal, 错误Exit SubEnd Ifopentable adousers, usersinfoadousers.Refreshadousers.Recordset.Find 姓名= & & txtUserName.Text & , , adSearchForward, 1If Not adousers.Recordset.EOF Thenstrusername = adousers.Recordset!姓名strpassword = adousers.Recordset!密码Elsestrusername = strpassword = End IfIf strusername = tx

26、tUserName.Text And strpassword = txtPassword.Text Thenadousers.Recordset.CloseUnload Mefrmmdi.ShowElseMsgBox 用户名或密码不对！, vbOKOnly + vbInformation, 提示intlogintimes = intlogintimes + 1If intlogintimes = 3 Thenadousers.Recordset.CloseEnd End IftxtPassword.SetFocusSendKeys HOME+ENDEnd IfEnd SubPrivate Su

27、b cmdcancel_click()Unload MeEnd Sub二、主控制窗体代码：Option ExplicitPrivate Sub MDIForm_Load()App.Title = 宾馆客房管理系统opentable adoroom, roomopentable Adoroom1, roomopentable adoguest, guestopentable Adoguest1, guestopentable adoquit, quitStatusBar1.Panels(1).Text = 欢迎登陆宾馆管理系统StatusBar1.Panels(2).Text = Date &

28、& TimeEnd SubPrivate Sub mnuCascade_Click()frmmdi.Arrange vbCascadeEnd SubPrivate Sub mnudenglu_Click()frmLogin.ShowEnd SubPrivate Sub mnuExit_Click() Unload MeEnd SubPrivate Sub mnuGuest_Click()frmGuestInfo.ShowEnd SubPrivate Sub mnuHor_Click()frmmdi.Arrange vbTileHorizontalEnd SubPrivate Sub mnuin_Click()frmusers.ShowEnd SubPrivate Sub mnuqueryguest_Click()frmqueryinfo.ShowEnd SubPrivate Sub mnuqueryroom_Click()frmqueryroom.ShowEnd SubPrivate Sub mnuQuit_Click()frmq