[工学]vb课程设计实验报告

《[工学]vb课程设计实验报告》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、第1章系统设计的目的与意义:客房管理系统用于宾馆旅客入住情况登记,包括旅客的姓名及身份证号的登记,以及入住房间信息.当旅客离开时,需要办理退房结帐手续.对于一定时间没的旅客入住情况实现基本查询,报表打印功能.对于宾馆本身也实现了客房增减,入住情况查询等功能.无论各种等级的宾馆,使用客房管理系统都具有非常实用的价值.使用该系统可以大大节省时间,提高办公效率,而且非常方便的实现旅客信息的查询,以及对宾馆本身客房入住情况及时了解.因此,客房管理系统的开发无疑具有深远的意义.系统功能设计系统设计包括数据库设计,主界面设计,菜单设计以及功能设计.而其他功能设计包括系统登录设计,旅客信息登记,旅客信息

2、查询,退房信息处理设计以及报表输入等功能设计,系统功能设计流程图如图所示开始启动图1.1用户登录系统主界面信息查询旅客基本信息客房基本信息客房信息查询旅客信息查询旅客退房处理浏览客房信息添加旅客信息旅客信息浏览36第2章数据库设计旅客信息表为旅客的个人信息加入住客房信息，数据结构如表旅客信息表设置字段名类型大小说明登记号Text8旅客入住号姓名Text8旅客姓名身份证号码Text18旅客身份证号房间号Text3入住房间号登记日期Text日期/时间旅客入住时间性别Text3旅客性别籍贯Text8旅客籍贯表2.1客房信息表为客房入住情况的基本信息，数据结构如表客房信息表设置字段名类型大小说明房

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

4、及按需要打开一个数据表。程序代码如下：OptionExplicitPublicSubopentable(padoAsAdodc,precordsourceAsString)Withpado.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"/Total.mdb".CommandType=adCmdUnknown.RecordSource=precordsource.RefreshEndWithEndSub3.2户登录界面设计用户登录的作用是判断使用本程序的用户是否是合法用户。在程序进入登录界面

5、时要求输入用户名和密码，如果用户名，密码正确程序继续执行。当密码错误输入的次数超过设定次数时，给出提示信息退出程序，这样防止了非法用户对本程序的使用。3．2．1工作界面设计图3.1登录窗体程序代码如下：PrivateSubcmdok_Click()'检查正确的密码36'首先要对用户名特殊字符的过滤'防止非授权用户的登陆访问Dims1AsStringDimiAsIntegerDimjAsIntegerDima(18)AsStringj=Len(txtUserName.Text)s1=txtUserName.TextDimcAsIntegerc=1Fori=1Toja(i)=Mid(s1,i,

6、1)'逐一判断字符的合格化Ifa(i)=""ThenMsgBox"Error",vbOKOnly,"Error"ExitSubElseIfa(i)="<"ThenMsgBox"Error",vbOKOnly,"Error"ExitSubElseIfa(i)=">"ThenMsgBox"Error",vbOKOnly,"Error"ExitSubElseIfa(i)="="ThenMsgBox"Error",vbOKOnly,"Error"ExitSubElseIfa(i)=""ThenMsgBox"Error",vbOKOnly,"Error"ExitSubElseIfa(i)="~"Th

7、enMsgBox"Error",vbOKOnly,"Error"ExitSubElseIfa(i)=","ThenMsgBox"Error",vbOKOnly,"Error"ExitSubElseIfa(i)="'"ThenMsgBox"Error",vbOKOnly,"Error"36ExitSubEndIfc=c+1txtUserName.SetFocusNextiDimstrusernameAsStringDims