VB课程设计报告 酒店管理系统

VB语言课程设计PAGE3-《VB课程设计》报告题目:酒店管理系统班级：建环1241学号：35姓名：指导老师：实习日期：2013-6-24至2013-6-28目录课程设计目的和意义…………2所需环境………2总体设计思路…………………3各部分设计功能介绍…………4程序清单………7课程设计总结………………18教师评语……19一、课程设计目的和意义

通过VB课程设计，巩固加深VB理论知识，使理论和实践相结合。培养学生对VB应用系统开发设计能力；提高学生对VB知识的综合运用能力；增强学生程序设计能力，提高学生实际上机调试程序的动手能力。使学生对VB软件开发有一个总体认识，使学生得到很好的锻炼，为以后的学习、工作打下坚实的基础。二、所需环境硬件环境：校内机房微机软件环境：Windowsxp,VB6.0三、总体设计思路（功能模块图）酒店管理系统酒店管理系统人事管理客户入住客户信息查询系统管理值班管理散客入住团体入住新增用户密码修改退出系统四、各部分设计功能介绍、设计界面（抓图）1登录界面2主界面3客人查询界面4值班管理5输入客人资料6新增用户五、程序清单新增用户代码:PrivateSubCommand1_Click()DimsqlAsStringDimrs_addAsNewADODB.RecordsetIfTrim(Text1.Text)=""ThenMsgBox"用户名不能为空",vbOKOnly+vbExclamation,""ExitSubText1.SetFocusElsesql="select*from系统管理"rs_add.Opensql,conn,adOpenKeyset,adLockPessimisticWhile(rs_add.EOF=False)IfTrim(rs_add.Fields(0))=Trim(Text1.Text)ThenMsgBox"已有这个用户",vbOKOnly+vbExclamation,""Text1.SetFocusText1.Text=""Text2.Text=""Text3.Text=""Combo1.Text=""ExitSubElsers_add.MoveNextEndIfWendIfTrim(Text2.Text)=""ThenMsgBox"密码不能为空，请重新输入！",vbOKOnly+vbExclamation,"警告"Text2.Text=""Text2.SetFocusExitSubEndIfIfTrim(Text2.Text)<>Trim(Text3.Text)ThenMsgBox"两次密码不一致",vbOKOnly+vbExclamation,""Text2.SetFocusText2.Text=""Text3.Text=""ExitSubElseIfTrim(Combo1.Text)<>"system"AndTrim(Combo1.Text)<>"guest"ThenMsgBox"请选择正确的用户权限",vbOKOnly+vbExclamation,""Combo1.SetFocusCombo1.Text=""ExitSubElsers_add.AddNewrs_add.Fields(0)=Text1.Textrs_add.Fields(1)=Text2.Textrs_add.Fields(2)=Combo1.Textrs_add.Updaters_add.CloseMsgBox"添加用户成功",vbOKOnly+vbExclamation,""UnloadMeEndIfEndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()Combo1.AddItem"system"Combo1.AddItem"guest"EndSub密码修改代码PrivateSubCommand1_Click()Dimrs_changAsNewADODB.RecordsetDimsqlAsStringIfTrim(Text1.Text)<>Trim(Text2.Text)ThenMsgBox"密码不一致！",vbOKOnly+vbExclamation,""Text1.SetFocusText1.Text=""Text2.Text=""Elsesql="select*from系统管理where用户名='"&userID&"'"rs_chang.Opensql,conn,adOpenKeyset,adLockPessimisticrs_chang.Fields(1)=Text1.Textrs_chang.Updaters_chang.CloseMsgBox"密码修改成功",vbOKOnly+vbExclamation,""UnloadMeEndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSub主界面PrivateSubadd_user_Click()frmadduser.ShowEndSubPrivateSubdouble_check_Click()frmfind_double.ShowEndSubPrivateSubcheck_Click()frmfind.ShowEndSubPrivateSubdouble_client_Click()frmdouble_client.ShowEndSubPrivateSubexit_Click()UnloadMeEndSubPrivateSubkhts_Click()frmkhts.ShowEndSubPrivateSubMDIForm_Load()frmdata=Falsefind=FalseEndSubPrivateSubmodify_pw_Click()frmchangepwd.ShowEndSubPrivateSubonly_check_Click()frmfind.ShowEndSubPrivateSubonly_client_Click()frmonly_client.ShowEndSubPrivateSubzbgl_Click()frmzhiban.ShowEndSub客人信息代码OptionExplicitDimrs_data2AsNewADODB.RecordsetDimselect_rowAsStringDimshowgrid2AsBooleanDimrs_customAsNewADODB.RecordsetPrivateSubCommand1_Click()UnloadMeEndSubPrivateSubForm_Load()OnErrorGoToloaderrorDimsqlAsStringdisplaygrid1loaderror:IfErr.Number<>0ThenMsgBoxErr.DescriptionEndIfEndSubPublicSubdisplaygrid1()DimiAsIntegerOnErrorGoTodisplayerrorsetgridsetgridheadMSFlexGrid1.Row=0IfNotrs_data1.EOFThenrs_data1.MoveFirstDoWhileNotrs_data1.EOFMSFlexGrid1.Row=MSFlexGrid1.Row+1MSFlexGrid1.Col=0IfNotIsNull(rs_data1.Fields(0))ThenMSFlexGrid1.Text=rs_data1.Fields(0)ElseMSFlexGrid1.Text=""MSFlexGrid1.Col=1IfNotIsNull(rs_data1.Fields(1))ThenMSFlexGrid1.Text=rs_data1.Fields(1)ElseMSFlexGrid1.Text=""MSFlexGrid1.Col=2IfNotIsNull(rs_data1.Fields(2))ThenMSFlexGrid1.Text=rs_data1.Fields(2)ElseMSFlexGrid1.Text=""MSFlexGrid1.Col=3IfNotIsNull(rs_data1.Fields(3))ThenMSFlexGrid1.Text=rs_data1.Fields(3)ElseMSFlexGrid1.Text=""MSFlexGrid1.Col=4IfNotIsNull(rs_data1.Fields(4))ThenMSFlexGrid1.Text=rs_data1.Fields(4)ElseMSFlexGrid1.Text=""MSFlexGrid1.Col=5IfNotIsNull(rs_data1.Fields(5))ThenMSFlexGrid1.Text=rs_data1.Fields(5)ElseMSFlexGrid1.Text=""MSFlexGrid1.Col=6IfNotIsNull(rs_data1.Fields(6))ThenMSFlexGrid1.Text=rs_data1.Fields(6)ElseMSFlexGrid1.Text=""rs_data1.MoveNextLoopEndIfdisplayerror:IfErr.Number<>0ThenMsgBoxErr.DescriptionEndIfEndSubPublicSubsetgrid()DimiAsIntegerOnErrorGoToseterrorWithMSFlexGrid1.ScrollBars=flexScrollBarBoth.FixedCols=0.Rows=rs_data1.RecordCount+1.Cols=7.SelectionMode=flexSelectionByRowFori=0To.Rows-1.RowHeight(i)=315NextFori=0To.Cols-1.ColWidth(i)=1300NextiEndWithExitSubseterror:MsgBoxErr.DescriptionEndSubPublicSubsetgridhead()OnErrorGoTosetheaderrorMSFlexGrid1.Row=0MSFlexGrid1.Col=0MSFlexGrid1.Text="房号"MSFlexGrid1.Col=1MSFlexGrid1.Text="房价"MSFlexGrid1.Col=2MSFlexGrid1.Text="姓名"MSFlexGrid1.Col=3MSFlexGrid1.Text="性别"MSFlexGrid1.Col=4MSFlexGrid1.Text="证件号码"MSFlexGrid1.Col=5MSFlexGrid1.Text="抵达日"MSFlexGrid1.Col=6MSFlexGrid1.Text="离店日"ExitSubsetheaderror:MsgBoxErr.DescriptionEndSubPrivateSubForm_Unload(CancelAsInteger)findok=Falsers_data1.Close'rs_custom.CloseIfshowgrid2=TrueThenrs_data2.CloseEndIfEndSub输入客人资料代码OptionExplicitDimrs_dclientAsNewADODB.RecordsetPrivateSubCommand1_Click()OnErrorGoToadderrorIfCommand1.Caption="新增记录"ThenCommand1.Caption="确定"Command2.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=TrueDataGrid1.AllowAddNew=TrueDataGrid1.AllowUpdate=TrueElseIfNotIsNull(DataGrid1.Bookmark)ThenIfTrim(DataGrid1.Columns("团队名称").CellText(DataGrid1.Bookmark))=""ThenMsgBox"团队名称不能为空！",vbOKOnly+vbExclamation,""ExitSubEndIfIfTrim(DataGrid1.Columns("负责人姓名").CellText(DataGrid1.Bookmark))=""ThenMsgBox"负责人姓名不能为空！",vbOKOnly+vbExclamation,""ExitSubEndIfIfTrim(DataGrid1.Columns("证件号码").CellText(DataGrid1.Bookmark))=""ThenMsgBox"证件号码不能为空！",vbOKOnly+vbExclamation,""ExitSubEndIfIfTrim(DataGrid1.Columns("房间号码").CellText(DataGrid1.Bookmark))=""ThenMsgBox"房间号码！",vbOKOnly+vbExclamation,""ExitSubEndIfrs_dclient.UpdateMsgBox"添加信息成功！",vbOKOnly+vbExclamation,""DataGrid1.AllowAddNew=FalseDataGrid1.AllowUpdate=FalseElseMsgBox"没有添加信息！",vbOKOnly+vbExclamation,""EndIfCommand1.Caption="新增记录"Command2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=FalseEndIfadderror:IfErr.Number<>0ThenMsgBoxErr.DescriptionEndIfEndSubPrivateSubCommand2_Click()DimanswerAsStringOnErrorGoTocmdmodifyIfCommand2.Caption="修改记录"Thenanswer=MsgBox("确定要修改吗？",vbYesNo,"")Ifanswer=vbYesThenCommand2.Caption="确定"Command1.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=TrueDataGrid1.AllowUpdate=TrueElseExitSubEndIfElseIfNotIsNull(DataGrid1.Bookmark)Thenrs_dclient.UpdateEndIfCommand2.Caption="修改记录"Command1.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=FalseDataGrid1.AllowUpdate=FalseMsgBox"修改成功！",vbOKOnly+vbExclamation,""EndIfcmdmodify:IfErr.Number<>0ThenMsgBoxErr.DescriptionEndIfEndSubPrivateSubCommand3_Click()DimanswerAsStringOnErrorGoTodelerroranswer=MsgBox("确定要删除吗？",vbYesNo,"")Ifanswer=vbYesThenDataGrid1.AllowDelete=Truers_dclient.Deleters_dclient.UpdateDataGrid1.RefreshMsgBox"成功删除！",vbOKOnly+vbExclamation,""DataGrid1.AllowDelete=FalseElseExitSubEndIfdelerror:IfErr.Number<>0ThenMsgBoxErr.DescriptionEndIfEndSubPrivateSubCommand4_Click()IfCommand4.Caption="确定"Thenrs_dclient.CancelDataGrid1.ReBindDataGrid1.AllowAddNew=FalseDataGrid1.AllowUpdate=FalseCommand1.Caption="新增记录"Command2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=FalseElseIfCommand2.Caption="确定"Thenrs_dclient.CancelDataGrid1.ReBindDataGrid1.RefreshDataGrid1.AllowUpdate=FalseCommand2.Caption="修改记录"Command1.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=FalseEndIfFrame2.Enabled=TrueEndSubPrivateSubCommand5_Click()UnloadMeEndSubPrivateSubForm_Load()DimsqlAsStringOnErrorGoToloaderrorsql="select*from团队资料"rs_dclient.CursorLocation=adUseClientrs_dclient.Opensql,conn,adOpenKeyset,adLockPessimistic'设定datagrid控件属性DataGrid1.AllowAddNew=FalseDataGrid1.AllowDelete=FalseDataGrid1.AllowUpdate=FalseSetDataGrid1.DataSource=rs_dclientCommand4.Enabled=FalseExitSubloaderror:MsgBoxErr.DescriptionEndSubPrivateSubForm_Unload(CancelAsInteger)SetDataGrid1.DataSource=Nothingrs_dclient.CloseEndSub查询输出代码OptionExplicitDimrs_findAsNewADODB.RecordsetPrivateSubCommand1_Click()OnErrorGoTocmderrorDimfind_date1AsStringDimfind_date2AsStringIfOption1.Value=TrueThensqlfind="select*from散客资料where房号between'"&_Combo1(0).Text&"'"&"and"&"'"&Combo1(1).Text&"'"EndIfIfOption2.Value=TrueThenfind_date1=Format(CDate(Comboy(0).Text&"-"&_Combom(0).Text&"-"&Combod(0).Text),"yyyy-mm-dd")find_date2=Format(CDate(Comboy(1).Text&"-"&_Combom(1).Text&"-"&Combod(1).Text),"yyyy-mm-dd")sqlfind="select*from散客资料where抵达日between#"&_find_date1&"#"&"and"&"#"&find_date2&"#"EndIfrs_data1.Opensqlfind,conn,adOpenKeyset,adLockPessimisticfrmdatamanage.displaygrid1UnloadMecmderror:IfErr.Number<>0ThenMsgBox"请输入正确的查询条件！",vbOKOnly+vbExclamation,"警告"EndIfEndSubPrivateSubCommand2_Click()UnloadMeMDIForm1.ShowEndSubPrivateSubForm_Load()DimiAsIntegerDimsqlAsString'Iffindok=TrueThen'rs_data1.Close'EndIfsql="select*from散客资料orderby房号desc"rs_find.CursorLocation=adUseClientrs_find.Opensql,conn,adOpenKeyset,adLockPessimisticIfrs_find.EOF=FalseThenWithrs_findDoWhileNot.EOFCombo1(0).AddItem.Fields(0)Combo1(1).AddItem.Fields(0).MoveNextLoopEndWithEndIfFori=2001To2005Comboy(0).AddItemiComboy(1).AddItemiNextiFori=1To12Combom(0).AddItemiCombom(1).AddItemiNextiFori=1To31Combod(0).AddItemiCombod(1).AddItemiNextiEndSubPrivateSubForm_Unload(CancelAsInteger)rs_find.CloseEndSub用户登录界面代码OptionExplicitDimcntAsIntegerPrivateSubCommand1_Click()DimsqlAsStringDimrs_loginAsNewADODB.RecordsetIfTrim(text1.Text)=""ThenMsgBox"没有这个用户",vbOKOnly+vbExclamation,""text1.SetFocusElsesql="select*from系统管理where用户名='"&text1.Text&"'"rs_login.Opensql,conn,adOpenKeyset,adLockPessimisticIfrs_login.EOF=TrueThenMsgBox"没有这个用户",vbOKOnly+vbExclamation,""text1.SetFocusElseIfTrim(rs_login.Fields(1))=Trim(text2.Text)ThenuserID=text1.Textuserpow=rs_login.Fields(2)rs_login.CloseUnloadMeMDIForm1.ShowElseMsgBox"密码不正确",vbOKOnly+vbExclamation,""text2.SetFocusEndIfEndIfEndIfcnt=cnt+1Ifcnt=3ThenUnloadMeEndIfExitSubEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()DimconnectionstringAsStringconnectionstring="provider=Microsoft.Jet.oledb.4.0;"&_"datasource=jiudian.mdb"conn.Openconnectionstringcnt=0EndSubOptionExplicitDimrs_zhibanAsNewADODB.RecordsetPrivateSubcmdadd_Click()OnErrorGoToadderrorIfcmdadd.Caption="确定增加记录"Thencmdadd.Caption="确定"cmddel.Enabled=Falsecmdcancel.Enabled=TrueDataGrid1.AllowAddNew=TrueDataGrid1.AllowUpdate=TrueElseIfNotIsNull(DataGrid1.Bookmark)ThenIfNotIsDate(Trim(DataGrid1.Columns("值班开始日期").CellText(DataGrid1.Bookmark)))ThenMsgBox"请按照格式yyyy-mm-dd输入值班开始日期",vbOKOnly+vbExclamation,""ExitSubEndIfIfNotIsDate(Trim(DataGrid1.Columns("值班开始时间").CellText(DataGrid1.Bookmark)))ThenMsgBox"请按照格式hh-mm输入值班开始时间",vbOKOnly+vbExclamation,""ExitSubEndIfIfNotIsDate(Trim(DataGrid1.Columns("值班截止日期").CellText(DataGrid1.Bookmark)))ThenMsgBox"请按照格式yyyy-mm-dd输入值班截止日期",vbOKOnly+vbExclamation,"ExitSubEndIfIfNotIsDate(Trim(DataGrid1.Columns("值班截止时间").CellText(DataGrid1.Bookmark)))ThenMsgBox"请按照格式hh-mm输入值班截止时间",vbOKOnly+vbExclamation,""ExitSubEndIfIfTrim(DataGrid1.Columns("值班人").CellText(DataGrid1.Bookmark))=""ThenMsgBox"值班人不能为空！",vbOKOnly+vbExclamation,""ExitSubEndIfrs_zhiban.Update'MsgBox"添加信息成功！",vbOKOnly+vbExclamation,""DataGrid1.AllowAddNew=FalseDataGrid1.AllowUpdate=FalseElseMsgBox"没有添加信息！",vbOKOnly+vbExclamation,""EndIfcmd