VB课程设计实验报告-客房管理系统

1第1章统设计的目的与意义:客房管理系统用于宾馆旅客入住情况登记,包括旅客的姓名及身份证号的登记,以及入住房间信息.当旅客离开时,需要办理退房结帐手续.对于一定时间没的旅客入住情况实现基本查询,报表打印功能.对于宾馆本身也实现了客房增减,入住情况查询等功能.无论各种等级的宾馆,使用客房管理系统都具有非常实用的价值.使用该系统可以大大节省时间,提高办公效率,而且非常方便的实现旅客信息的查询,以及对宾馆本身客房入住情况及时了解.因此,客房管理系统的开发无疑具有深远的意义.系统功能设计系统设计包括数据库设计,主界面设计,菜单设计以及功能设计.而其他功能设计包括系统登录设计,旅客信息登记,旅客信息查询,退房信息处理设计以及报表输入等功能设计,系统功能设计流程图如图所示图1.1错误!开始启动用户登录系统主界面旅客基本信息客房基本信息信息查询旅客信息浏览添加旅客信息浏览客房信息旅客退房处理旅客信息查询客房信息查询2第2章数据库设计旅客信息表为旅客的个人信息加入住客房信息，数据结构如表旅客信息表设置字段名类型大小说明登记号Text8旅客入住号姓名Text8旅客姓名身份证号码Text18旅客身份证号房间号Text3入住房间号登记日期Text日期/时间旅客入住时间性别Text3旅客性别籍贯Text8旅客籍贯表2.1客房信息表为客房入住情况的基本信息，数据结构如表客房信息表设置字段名类型大小说明房间号Text3房间号客房等级Text8客房等级客房类型Text8客房类型客房价格Text单精度型客房价格客房状态Text3客房状态客房备注信息备注8客房备注信息表2.2旅客退房记录表为旅客退房相关的一些记录信息，数据结构如表旅客退房记录表设置字段名类型大小说明登记号Text8旅客入住号登记日期日期/时间旅客登记时间退房时间日期/时间旅客退房时间付款金额Text单精度型付费金额退房备注信息Text8退房备注信息表2.3管理人员信息表存储宾馆管理人员使用该系统的帐号密码，数据结构表管理人员信息表设置3字段名类型大小说明姓名Text20管理人员帐号密码Text20管理人员密码权限Text1管理人员权限表2.4第3章主体内容3．1设计标准模块本系统设计过程中，创建一个通用函数模块，用于实现数据库连接及按需要打开一个数据表。程序代码如下：OptionExplicitPublicSubopentable(padoAsAdodc,precordsourceAsString)Withpado.ConnectionString=Provider=Microsoft.Jet.OLEDB.4.0;DataSource=&App.Path&/Total.mdb.CommandType=adCmdUnknown.RecordSource=precordsource.RefreshEndWithEndSub3.2户登录界面设计用户登录的作用是判断使用本程序的用户是否是合法用户。在程序进入登录界面时要求输入用户名和密码，如果用户名，密码正确程序继续执行。当密码错误输入的次数超过设定次数时，给出提示信息退出程序，这样防止了非法用户对本程序的使用。3．2．1工作界面设计4图3.1登录窗体程序代码如下：PrivateSubcmdok_Click()'检查正确的密码'首先要对用户名特殊字符的过滤'防止非授权用户的登陆访问Dims1AsStringDimiAsIntegerDimjAsIntegerDima(18)AsStringj=Len(txtUserName.Text)s1=txtUserName.TextDimcAsIntegerc=1Fori=1Toja(i)=Mid(s1,i,1)'逐一判断字符的合格化Ifa(i)=ThenMsgBoxError,vbOKOnly,ErrorExitSubElseIfa(i)=ThenMsgBoxError,vbOKOnly,ErrorExitSubElseIfa(i)=ThenMsgBoxError,vbOKOnly,ErrorExitSub5ElseIfa(i)==ThenMsgBoxError,vbOKOnly,ErrorExitSubElseIfa(i)=ThenMsgBoxError,vbOKOnly,ErrorExitSubElseIfa(i)=~ThenMsgBoxError,vbOKOnly,ErrorExitSubElseIfa(i)=,ThenMsgBoxError,vbOKOnly,ErrorExitSubElseIfa(i)='ThenMsgBoxError,vbOKOnly,ErrorExitSubEndIfc=c+1txtUserName.SetFocusNextiDimstrusernameAsStringDimstrpasswordAsStringStaticintlogintimesAsIntegerIfTrim(txtUserName.Text)=ThenMsgBox用户名不能为空！,vbOKOnly+vbCritical,错误ExitSubEndIfopentableadousers,usersinfoadousers.Refreshadousers.Recordset.Find姓名=&'&txtUserName.Text&',,adSearchForward,1IfNotadousers.Recordset.EOFThenstrusername=adousers.Recordset!姓名strpassword=adousers.Recordset!密码Elsestrusername=strpassword=6EndIIfstrusername=txtUserName.TextAndstrpassword=txtPassword.TextThenadousers.Recordset.CloseUnloadMefrmmdi.ShowElseMsgBox用户名或密码不对！,vbOKOnly+vbInformation,提示intlogintimes=intlogintimes+1Ifintlogintimes=3Thenadousers.Recordset.CloseEndEndIftxtPassword.SetFocusSendKeys{HOME}+{END}EndIfEndSubPrivateSubcmdcancel_click()UnloadMeEndSub3．2．2添加新用户用于添加新的用户包括用户名,密码,及职务工作界面设计如图图3.2添加用户窗体程序代码如下:PrivateSubCommand1_Click()opentableadousers,usersinfoadousers.RefreshWithadousers.Recordset7DimiAsIntegerIfTrim(Text1(0).Text)=ThenMsgBox用户名不能为空！,vbExclamation+vbOKOnly,警告Text1(0).SetFocusExitSubEndIfIfTrim(Text1(1).Text)=ThenMsgBox密码不能为空！,vbExclamation+vbOKOnly,警告Text1(1).SetFocusExitSubEndIfIfTrim(Text1(2).Text)=ThenMsgBox确认密码不能为空！,vbExclamation+vbOKOnly,警告Text1(2).SetFocusExitSubEndIfIfTrim(Text1(1).Text)Trim(Text1(2).Text)ThenMsgBox确认密码不正确！,vbExclamation+vbOKOnly,警告Text1(2).SetFocusExitSubEndIfopentableadousers,usersinfoadousers.Refreshadousers.Recordset.Find姓名=&'&Text1(0).Text&',,adSearchForward,1Ifadousers.Recordset.EOF=FalseThenMsgBox已存在该用户！,vbExclamation+vbOKOnly,警告Text1(0).SetFocusText1(0).SelStart=0Text1(0).SelLength=Len(Text1(0).Text)ExitSubEndIfopentableadousers,usersinfo.AddNew!姓名=Trim(Text1(0).Text)!密码=Trim(Text1(1).Text)IfOption1(0)Then!权限=18IfOption1(1)Then!权限=2IfOption1(2)Then!权限=3.UpdateMsgBox用户添加成功！,vbExclamation+vbOKOnly,警告Text1(0).Text=Text1(1).Text=Text1(2).Text=EndWithUnloadMeEndSubPrivateSubCommand2_Click()UnloadMeEndSub3．3创建系统主界面当系统运行时，首先进入登录界面，当输入帐号，密码合法时，则启动系统主界面。主窗体是进入其他模块的入口。本系统主界面采用多文档界面，设计情况如图图3.3主界面窗体设计主界面菜单项在操作项目比较多的情况下，通常是通过菜单来调用下级程序。菜单项的设计包含设置快捷键与访问键，设置如表：主窗体菜单表3.4级别菜单名称快捷键访问键主菜单系统功能mnuSystem&S子菜单用户管理mnuUserCtrl+U&U退出系统mnuExit&X9主菜单基本信息管理mnuInfo&I子菜单客房信息mnuRoomInfoCtrl+R&R入住情况mnuGuest&G退房记录mnuQuit&C主菜单信息查询mnuQuerySelect&Q主菜单报表输出mnuReport&R子菜单房间情况表mnuReportRoomCtrl+R&R收费情况表mnuReportMoney&M主菜单窗口布局mnuWindow&W子菜单水平平铺mnuHorCtrl+R&H垂直平铺mnuVer&V层叠mnuCascade&C排列图标mnuIcon&I主菜单帮助信息mnuHelpCtrl+H&H内容mnuContent&C索引mnuIndex&I设计主界面OptionExplicitPrivateSubMDIForm_Load()App.Title=宾馆客房管理系统opentableadoroom,roomopentableadoguest,guestopentableadoquit,quitEndSubPrivateSubmnuCascade_Click()frmmdi.ArrangevbCascadeEndSubPrivateSubmnudenglu_Click()frmLogin.ShowEndSubPrivateSubmnuExit_Click()UnloadMeEndSubPrivateSubmnuGuest_Click()frmGuestInfo.ShowEndSub10PrivateSubmnuHor_Click()frmmdi.ArrangevbTileHorizontalEndSubPrivateSubmnuIcon_Click()frmmdi.ArrangevbArrangeIconsEndSubPrivateSubmnuqueryguest_Click()frmqueryinfo.ShowEndSubPrivateSubmnuqueryroom_Click()frmqueryroom.ShowEndSubPrivateSubmnuQuit_Click()frmquitinfo.ShowEndSubPrivateSubmnuRoomInfo_Click()frmroominfo.ShowEndSubPrivateSubmnuUser_Click()frmuse