当前位置:文档之家› VB毕业课程设计实验报告

VB毕业课程设计实验报告

(此文档为word格式,下载后您可任意编辑修改!)第1章系统设计的目的与意义:客房管理系统用于宾馆旅客入住情况登记,包括旅客的姓名及身份证号的登记,以及入住房间信息.当旅客离开时,需要办理退房结帐手续.对于一定时间没的旅客入住情况实现基本查询,报表打印功能.对于宾馆本身也实现了客房增减,入住情况查询等功能.无论各种等级的宾馆,使用客房管理系统都具有非常实用的价值.使用该系统可以大大节省时间,提高办公效率,而且非常方便的实现旅客信息的查询,以及对宾馆本身客房入住情况及时了解.因此,客房管理系统的开发无疑具有深远的意义.系统功能设计系统设计包括数据库设计,主界面设计,菜单设计以及功能设计.而其他功能设计包括系统登录设计,旅客信息登记,旅客信息查询,退房信息处理设计以及报表输入等功能设计,系统功能设计流程图如图所示图1.1错误!第2章数据库设计旅客信息表为旅客的个人信息加入住客房信息,数据结构如表旅客信息表设置表2.1客房信息表为客房入住情况的基本信息,数据结构如表客房信息表设置表2.2旅客退房记录表为旅客退房相关的一些记录信息,数据结构如表旅客退房记录表设置表2.3管理人员信息表存储宾馆管理人员使用该系统的帐号密码,数据结构表第一章主界面的设计(余蕾)主体内容3.1 设计标准模块本系统设计过程中,创建一个通用函数模块,用于实现数据库连接及按需要打开一个数据表。

程序代码如下:Option ExplicitPublic 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.RefreshEnd WithEnd Sub3.2 户登录界面设计用户登录的作用是判断使用本程序的用户是否是合法用户。

在程序进入登录界面时要求输入用户名和密码,如果用户名,密码正确程序继续执行。

当密码错误输入的次数超过设定次数时,给出提示信息退出程序,这样防止了非法用户对本程序的使用。

3.2.1工作界面设计图3.1登录窗体程序代码如下: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 "Error", vbOKOnly, "Error" Exit SubElseIf a(i) = "<" ThenMsgBox "Error", vbOKOnly, "Error" Exit SubElseIf a(i) = ">" ThenMsgBox "Error", vbOKOnly, "Error" Exit SubElseIf a(i) = "=" ThenMsgBox "Error", vbOKOnly, "Error" Exit SubElseIf a(i) = " " ThenMsgBox "Error", vbOKOnly, "Error"Exit SubElseIf a(i) = "~" ThenMsgBox "Error", vbOKOnly, "Error"Exit SubElseIf a(i) = "," ThenMsgBox "Error", vbOKOnly, "Error"Exit SubElseIf a(i) = "'" ThenMsgBox "Error", vbOKOnly, "Error"Exit SubEnd Ifc = c + 1txtUserName.SetFocusNext iDim strusername As StringDim strpassword As StringStatic intlogintimes As IntegerIf Trim(txtUserName.Text) = "" ThenMsgBox "用户名不能为空!", vbOKOnly + vbCritical, "错误" Exit SubEnd Ifopentable adousers, "usersinfo"adousers.Refreshadousers.Recordset.Find "姓名=" & "'" & txtUserName.Text & "'", , adSearchForward, 1If Not adousers.Recordset.EOF Thenstrusername = adousers.Recordset!姓名strpassword = adousers.Recordset!密码Elsestrusername = ""strpassword = ""End IIf strusername = txtUserName.Text And strpassword = txtPassword.Text Thenadousers.Recordset.CloseUnload Mefrmmdi.ShowElseMsgBox "用户名或密码不对!", vbOKOnly + vbInformation, "提示"intlogintimes = intlogintimes + 1If intlogintimes >= 3 Thenadousers.Recordset.CloseEndEnd IftxtPassword.SetFocusSendKeys "{HOME}+{END}"End IfEnd SubPrivate Sub cmdcancel_click()Unload MeEnd Sub3.2.2 添加新用户用于添加新的用户包括用户名,密码,及职务工作界面设计如图图3.2添加用户窗体程序代码如下:Private Sub Command1_Click()opentable adousers, "usersinfo"adousers.RefreshWith adousers.RecordsetDim i As IntegerIf Trim(Text1(0).Text) = "" ThenMsgBox "用户名不能为空!", vbExclamation + vbOKOnly, "警告" Text1(0).SetFocusExit SubEnd IfIf Trim(Text1(1).Text) = "" ThenMsgBox "密码不能为空!", vbExclamation + vbOKOnly, "警告"Text1(1).SetFocusExit SubEnd IfIf Trim(Text1(2).Text) = "" ThenMsgBox "确认密码不能为空!", vbExclamation + vbOKOnly, "警告" Text1(2).SetFocusExit SubEnd IfIf Trim(Text1(1).Text) <> Trim(Text1(2).Text) ThenMsgBox "确认密码不正确!", vbExclamation + vbOKOnly, "警告" Text1(2).SetFocusExit SubEnd Ifopentable adousers, "usersinfo"adousers.Refreshadousers.Recordset.Find "姓名=" & "'" & Text1(0).Text & "'", , adSearchForward, 1If adousers.Recordset.EOF = False ThenMsgBox " 已存在该用户!", vbExclamation + vbOKOnly, "警告" Text1(0).SetFocusText1(0).SelStart = 0Text1(0).SelLength = Len(Text1(0).Text)Exit SubEnd Ifopentable adousers, "usersinfo".AddNew!姓名 = Trim(Text1(0).Text)!密码 = Trim(Text1(1).Text)If Option1(0) Then !权限 = 1If Option1(1) Then !权限 = 2If Option1(2) Then !权限 = 3.UpdateMsgBox " 用户添加成功!", vbExclamation + vbOKOnly, "警告" Text1(0).Text = ""Text1(1).Text = ""Text1(2).Text = ""End WithUnload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub3.3 创建系统主界面当系统运行时,首先进入登录界面,当输入帐号,密码合法时,则启动系统主界面。

相关主题