VB毕业课程设计实验报告.docx

1、VB毕业课程设计实验报告(此文档为word格式，下载后您可任意编辑修改！)第1章系统设计的目的与意义:客房管理系统用于宾馆旅客入住情况登记,包括旅客的姓名及身份证号的登记,以及入住房间信息.当旅客离开时,需要办理退房结帐手续.对于一定时间没的旅客入住情况实现基本查询,报表打印功能.对于宾馆本身也实现了客房增减,入住情况查询等功能. 无论各种等级的宾馆,使用客房管理系统都具有非常实用的价值.使用该系统可以大大节省时间,提高办公效率,而且非常方便的实现旅客信息的查询,以及对宾馆本身客房入住情况及时了解.因此,客房管理系 统的开发无疑具有深远的意义.系统功能设计 系统设计包括数据库设计,主界面设计,

2、菜单设计以及功能设计.而其他功能设计包括系统登录设计,旅客信息登记,旅客信息查询,退房信息处理设计以及报表输入等功能设计,系统功能设计流程图如图所示图1.1 第2章数据库设计旅客信息表为旅客的个人信息加入住客房信息，数据结构如表 旅客信息表设置字段名类型大小说明登记号Text8旅客入住号姓名Text8旅客姓名身份证号码Text18旅客身份证号房间号Text3入住房间号登记日期Text日期时间旅客入住时间性别Text3旅客性别籍贯Text8旅客籍贯表2.1客房信息表为客房入住情况的基本信息，数据结构如表客房信息表设置字段名类型大小说明房间号Text3房间号客房等级Text8客房等级客房类型Tex

3、t8客房类型客房价格Text单精度型客房价格客房状态Text3客房状态客房备注信息备注8客房备注信息 表2.2旅客退房记录表为旅客退房相关的一些记录信息，数据结构如表旅客退房记录表设置字段名类型大小说明登记号Text8旅客入住号登记日期日期时间旅客登记时间退房时间日期时间旅客退房时间付款金额Text单精度型付费金额退房备注信息Text8退房备注信息 表2.3管理人员信息表存储宾馆管理人员使用该系统的帐号密码，数据结构表第一章 主界面的设计(余蕾)主体内容31 设计标准模块本系统设计过程中，创建一个通用函数模块，用于实现数据库连接及按需要打开一个数据表。程序代码如下：Option Explici

4、tPublic Sub opentable(pado As Adodc, precordsource As String)With pado .ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & Total.mdb mandType = adCmdUnknown .RecordSource = precordsource .Refresh End WithEnd Sub3.2 户登录界面设计用户登录的作用是判断使用本程序的用户是否是合法用户。在程序进入登录界面时要求输入用户名和密码，如果用户

5、名，密码正确程序继续执行。当密码错误输入的次数超过设定次数时，给出提示信息退出程序，这样防止了非法用户对本程序的使用。321工作界面设计 图3.1登录窗体程序代码如下：Private Sub cmdok_Click() 检查正确的密码首先要对用户名特殊字符的过滤防止非授权用户的登陆访问Dim s1 As StringDim i As IntegerDim j As IntegerDim a(18) As String j = Len(txtUserName.Text) s1 = txtUserName.Text Dim c As Integer c = 1 For i = 1 To j a(i

6、) = Mid(s1, i, 1)逐一判断字符的合格化 If a(i) = Then MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = Then MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = = Then MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = Then MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = Then MsgBox Error, vbOKOnly,

7、 Error Exit Sub ElseIf a(i) = , Then MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = Then MsgBox Error, vbOKOnly, Error Exit Sub End If c = c + 1 txtUserName.SetFocus Next iDim strusername As StringDim strpassword As StringStatic intlogintimes As IntegerIf Trim(txtUserName.Text) = ThenMsgBox 用户

8、名不能为空！, vbOKOnly + vbCritical, 错误Exit SubEnd Ifopentable adousers, usersinfoadousers.Refreshadousers.Recordset.Find 姓名= & & txtUserName.Text & , , adSearchForward, 1If Not adousers.Recordset.EOF Then strusername = adousers.Recordset!姓名strpassword = adousers.Recordset!密码Elsestrusername = strpassword

9、= End IIf strusername = txtUserName.Text And strpassword = txtPassword.Text Thenadousers.Recordset.CloseUnload Mefrmmdi.Show ElseMsgBox 用户名或密码不对！, vbOKOnly + vbInformation, 提示 intlogintimes = intlogintimes + 1 If intlogintimes = 3 Thenadousers.Recordset.Close EndEnd IftxtPassword.SetFocus SendKeys H

10、OME+END End If End Sub Private Sub cmdcancel_click() Unload Me End Sub322 添加新用户用于添加新的用户包括用户名,密码,及职务 工作界面设计如图 图3.2添加用户窗体程序代码如下:Private Sub Command1_Click()opentable adousers, usersinfoadousers.RefreshWith adousers.RecordsetDim i As IntegerIf Trim(Text1(0).Text) = Then MsgBox 用户名不能为空！, vbExclamation +

11、 vbOKOnly, 警告 Text1(0).SetFocus Exit SubEnd IfIf Trim(Text1(1).Text) = Then MsgBox 密码不能为空！, vbExclamation + vbOKOnly, 警告 Text1(1).SetFocus Exit SubEnd IfIf Trim(Text1(2).Text) = Then MsgBox 确认密码不能为空！, vbExclamation + vbOKOnly, 警告 Text1(2).SetFocusExit SubEnd IfIf Trim(Text1(1).Text) Trim(Text1(2).Te

12、xt) Then MsgBox 确认密码不正确！, vbExclamation + vbOKOnly, 警告 Text1(2).SetFocusExit SubEnd If opentable adousers, usersinfo adousers.Refresh adousers.Recordset.Find 姓名= & & Text1(0).Text & , , adSearchForward, 1If adousers.Recordset.EOF = False Then MsgBox 已存在该用户！, vbExclamation + vbOKOnly, 警告 Text1(0).Set

13、Focus Text1(0).SelStart = 0 Text1(0).SelLength = Len(Text1(0).Text) Exit SubEnd If opentable adousers, usersinfo .AddNew !姓名 = Trim(Text1(0).Text) !密码 = Trim(Text1(1).Text) If Option1(0) Then !权限 = 1 If Option1(1) Then !权限 = 2 If Option1(2) Then !权限 = 3 .Update MsgBox 用户添加成功！, vbExclamation + vbOKOn

14、ly, 警告 Text1(0).Text = Text1(1).Text = Text1(2).Text = End With Unload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub33 创建系统主界面当系统运行时，首先进入登录界面，当输入帐号，密码合法时，则启动系统主界面。主窗体是进入其他模块的入口。本系统主界面采用多文档界面，设计情况如图 图3.3主界面窗体设计主界面菜单项在操作项目比较多的情况下，通常是通过菜单来调用下级程序。菜单项的设计包含设置快捷键与访问键，设置如表： 主窗体菜单表3.4级别菜单名称快捷键访问键主菜单系统