VB毕业课程设计实验报告Word文档格式.docx
《VB毕业课程设计实验报告Word文档格式.docx》由会员分享，可在线阅读，更多相关《VB毕业课程设计实验报告Word文档格式.docx（30页珍藏版）》请在冰豆网上搜索。
Text
8
旅客入住号
姓名
旅客姓名
身份证号码
18
旅客身份证号
房间号
3
入住房间号
登记日期
日期时间
旅客入住时间
性别
旅客性别
籍贯
旅客籍贯
表2.1
客房信息表为客房入住情况的基本信息，数据结构如表
客房信息表设置
客房等级
客房类型
客房价格
单精度型
客房状态
客房备注信息
备注
表2.2
旅客退房记录表为旅客退房相关的一些记录信息，数据结构如表
旅客退房记录表设置
旅客登记时间
退房时间
旅客退房时间
付款金额
付费金额
退房备注信息
表2.3
管理人员信息表存储宾馆管理人员使用该系统的帐号密码，数据结构表
第一章主界面的设计（余蕾）
主体内容
3．1设计标准模块
本系统设计过程中，创建一个通用函数模块，用于实现数据库连接及按需要打开一个数据表。
程序代码如下：
OptionExplicit
PublicSubopentable（padoAsAdodc,precordsourceAsString）
Withpado
.ConnectionString="
Provider=Microsoft.Jet.OLEDB.4.0;
DataSource="
&
App.Path&
"
Total.mdb"
mandType=adCmdUnknown
.RecordSource=precordsource
.Refresh
EndWith
EndSub
3.2户登录界面设计
用户登录的作用是判断使用本程序的用户是否是合法用户。
在程序进入登录界面时要求输入用户名和密码，如果用户名，密码正确程序继续执行。
当密码错误输入的次数超过设定次数时，给出提示信息退出程序，这样防止了非法用户对本程序的使用。
3．2．1工作界面设计
图3.1登录窗体
PrivateSubcmdok_Click（）'
检查正确的密码
'
首先要对用户名特殊字符的过滤
防止非授权用户的登陆访问
Dims1AsString
DimiAsInteger
DimjAsInteger
Dima（18）AsString
j=Len（txtUserName.Text）
s1=txtUserName.Text
DimcAsInteger
c=1
Fori=1Toj
a（i）=Mid（s1,i,1）
逐一判断字符的合格化
Ifa（i）="
"
Then
MsgBox"
Error"
vbOKOnly,"
ExitSub
ElseIfa（i）="
<
>
="
~"
"
EndIf
c=c+1
txtUserName.SetFocus
Nexti
DimstrusernameAsString
DimstrpasswordAsString
StaticintlogintimesAsInteger
IfTrim（txtUserName.Text）="
MsgBox"
用户名不能为空！
vbOKOnly+vbCritical,"
错误"
ExitSub
EndIf
opentableadousers,"
usersinfo"
adousers.Refresh
adousers.Recordset.Find"
姓名="
txtUserName.Text&
,adSearchForward,1
IfNotadousers.Recordset.EOFThen
strusername=adousers.Recordset!
strpassword=adousers.Recordset!
密码
Else
strusername="
strpassword="
EndIIfstrusername=txtUserName.TextAndstrpassword=txtPassword.TextThen
adousers.Recordset.Close
UnloadMe
frmmdi.Show
用户名或密码不对！
vbOKOnly+vbInformation,"
提示"
intlogintimes=intlogintimes+1
Ifintlogintimes>
=3Then
adousers.Recordset.Close
End
txtPassword.SetFocus
SendKeys"
{HOME}+{END}"
EndSub
PrivateSubcmdcancel_click（）
UnloadMe
3．2．2添加新用户用于添加新的用户包括用户名,密码,及职务工作界面设计如图
图3.2添加用户窗体
程序代码如下:
PrivateSubCommand1_Click（）
Withadousers.Recordset
IfTrim（Text1（0）.Text）="
vbExclamation+vbOKOnly,"
警告"
Text1（0）.SetFocus
IfTrim（Text1
（1）.Text）="
密码不能为空！
Text1
（1）.SetFocus
IfTrim（Text1
（2）.Text）="
确认密码不能为空！
Text1
（2）.SetFocus
IfTrim（Text1
（1）.Text）<
Trim（Text1
（2）.Text）Then
确认密码不正确！
opentableadousers,"
adousers.Refresh
adousers.Recordset.Find"
Text1（0）.Text&
Ifadousers.Recordset.EOF=FalseThen
已存在该用户！
Text1（0）.SelStart=0
Text1（0）.SelLength=Len（Text1（0）.Text）
.AddNew
!
姓名=Trim（Text1（0）.Text）
密码=Trim（Text1
（1）.Text）
IfOption1（0）Then!
权限=1
IfOption1
（1）Then!
权限=2
IfOption1
（2）Then!
权限=3
.Update
用户添加成功！
Text1（0）.Text="
Text1
（1）.Text="
Text1
（2）.Text="
UnloadMe
PrivateSubCommand2_Click（）
3．3创建系统主界面
当系统运行时，首先进入登录界面，当输入帐号，密码合法时，则启动系统主界面。
主窗体是进入其他模块的入口。
本系统主界面采用多文档界面，设计情况如图
图3.3主界面窗体
设计主界面菜单项
在操作项目比较多的情况下，通常是通过菜单来调用下级程序。
菜单项的设计包含设置快捷键与访问键，设置如表：
主窗体菜单表3.4
级别
菜单
名称
快捷键
访问键
主菜单
系统
升级会员 