VB毕业课程设计实验报告Word文档下载推荐.docx
《VB毕业课程设计实验报告Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《VB毕业课程设计实验报告Word文档下载推荐.docx（30页珍藏版）》请在冰豆网上搜索。
客房价格
单精度型
客房状态
客房备注信息
备注
表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
级别
菜单
名称
快捷键
访问键
主菜单
系统功能
mnuSystem
&
S
子菜单
用户管理
mnuUser
Ctrl+U
U
退出系统
mnuExit
X
基本信息管理
mnuInfo
I
客房信息
mnuRoomInfo
Ctrl+R
R
入住情况
mnuGuest
G
退房记录
mnuQuit
C
信息查询
mnuQuerySelect
Q
报表输出
mnuReport
房间情况表
mnuReportRoom
收费情况表
mnuReportMoney
M
窗口布局
mnuWindow
W
水平平铺
mnuHor
H
垂直平铺
mnuVer
V
层叠
mnuCascade
排列图标
mnuIcon
帮助信息
mnuHelp
Ctrl+H
内容
mnuContent
索引
mnuIndex
设计主界面
PrivateSubMDIForm_Load（）
App.Title="
宾馆客房管理系统"
opentableadoroom,"
room"
opentableadoguest,"
guest"
opentableadoquit,"
quit"
PrivateSubmnuCascade_Click（）
frmmdi.ArrangevbCascade
PrivateSubmnudenglu_Click（）
frmLogin.Show
PrivateSubmnuExit_Click（）
PrivateSubmnuGuest_Click（）
frmGuestInfo.Show
PrivateSubmnuHor_Click（）
frmmdi.ArrangevbTileHorizontal
PrivateSubmnuIcon_Click（）
frmmdi.ArrangevbArrangeIcons
PrivateSubmnuqueryguest_Click（）
frmqueryinfo.Show
PrivateSubmnuqueryroom_Click（）
frmqueryroom.Show
PrivateSubmnuQuit_Click（）
frmquitinfo.Show
PrivateSubmnuRoomInfo_Click（）
frmroominfo.Show
PrivateSubmnuUser_Click（）
frmusers.Show
PrivateSubmnuver_Click（）
frmmdi.ArrangevbTileVertical
PrivateSubtoolbar1_buttonclick（ByValbuttonAsMSComctlLib.button）
SelectCasebutton.Index
Case1
mnuRoomInfo_Click
Case2
mnuGuest_Click
Case3
mnuQuit_Click
Case4
mnuqueryroom_Click
Case5
'
mnuReportRoom_Click
Case6
mnuExit_Click
EndSelectEndSub
第二章制作客户信息登记窗体（赵岩辉）
客户信息窗体包括对全体旅客信息浏览，修改及删除的窗体和添加新入住旅客信息窗体。
旅客基本信息窗体，工作界面设计情况如图：
控件属性表3.5
控件名称
属性
设置值
DataGrid1
（名称）
dtgGuestInfo
Command1
cmdAddNew
Caption
添加（&
A）
Command2
cmdEdit
修改（&
E）
Command3
cmdDelete
删除（&
D）
Command4
cmdExit
退出（&
X）
图3.6旅客信息窗体
PrivateSubdtgguestrefresh（）
Withdtgguestinfo
Set.DataSource=frmmdi.adoguest
.AllowRowSizing=False
.HeadFont=2
.MarqueeStyle=dbgHighlightRow
.AllowAddNew=False
.AllowDelete=False
.AllowUpdate=False
.Columns（0）.Caption="
登记号"
.Columns（0）.Width=600
.Columns（0）.AllowSizing=False
.Columns
（1）.Caption="
客人姓名"
.Columns
（1）.Width=600
.Columns
（1）.AllowSizing=False
.Columns
（2）.Caption="
身份证号码"
.Columns
（2）.Width=1500
.Columns
（2）.AllowSizing=False
.Columns（3）.Caption="
房间号"
.Columns（3）.Width=600
.Columns（3）.AllowSizing=False
.Columns（4）.Caption="
登记日期"
.Columns（4）.Width=1000
.Columns（4）.AllowSizing=False
.Columns（5）.Caption="
性别"
.Columns（5）.Width=500
.Columns（5）.AllowSizing=False
.Columns（6）.Caption="
籍贯"
.Columns（6）.Width=2000
.Columns（6）.AllowSizing=False
PrivateSubcmdaddnew_Click（）
Withfrmguestinfoedit
.Caption="
添加新旅客"
.txtbookno.Locked=False
.txtbookno.Text="
.txtguestname.Text="
.txtcardid.Text="
.txtroomno.Text="
dtpbookdate.Text=Date
.dtpbookdate.Enabled=False
frmguestinfoedit.Show
PrivateSubcmddelete_Click（）
Iffrmmdi.adoguest.Recordset.EOF<
TrueAndfrmmdi.adoguest.Recordset.BOF<
TrueThen
Withfrmmdi.adoroom.Recordset
IfMsgBox（"
确认要删除当前记录吗？
vbYesNo+vbQuestion+vbDefaultButton2,"
确认框"
）=vbYesThen
.Find"
房间号="
frmmdi.adoguest.Recordset!
房间号&
IfNot.EOFThen
客房状态="
空"
Withfrmmdi.adoguest.Recordset
.Delete
frmGuestInfo.SetFocus
PrivateSubcmdedit_Click（）
Iffrmmdi.adoguest.Recordset.EOF<
Withfrmguestinfoedit
修改客人信息"
.txtbookno.Text=frmmdi.adoguest.Recordset!
.txtbookno.Locked=True
.txtbookno.Enabled=False
.txtguestname.Text=frmmdi.adoguest.Recordset!
.txtcardid.Text=frmmdi.adoguest.Recordset!
.txtroomno=frmmdi.adoguest.Recordset!
.dtpbookdate.Text=frmmdi.adoguest.Recordset!
PrivateSubcmdexit_Click（）
PrivateSubForm_Load（）
Me.Left=（frmmdi.Width-Me.Width）2
Me.Top=（frmmdi.Height-Me.Height）4
dtgguestrefresh
第三章旅客信息登记窗体（龚剑）
本窗体用于当旅客入住时，登记其基本信息，包括入住房间号。
图3.7添加新旅客窗体
窗体初始化与激活事件代码：
DimproomnoAsString
PrivateSubcmdcancle_Click（）
PrivateSubcmdok_Click（）
Withfrmmdi.adoguest.Recordset
IfNottxtbookno.LockedThen
IfTrim（txtbookno.Text）="
登记号不能为空！
txtbookno.SetFocus
txtbookno&
已经有相同登记号！
升级会员 