VB毕业课程设计实验报告Word文档下载推荐.docx
- 文档编号:16283225
- 上传时间:2022-11-22
- 格式:DOCX
- 页数:30
- 大小:413.57KB
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&
已经有相同登记号!
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 毕业 课程设计 实验 报告