VB課程設(shè)計(jì)報(bào)告 酒店管理系統(tǒng)

VB語言課程設(shè)計(jì)PAGE3-《VB課程設(shè)計(jì)》報(bào)告題目:酒店管理系統(tǒng)班級(jí)：建環(huán)1241學(xué)號(hào)：35姓名：指導(dǎo)老師：實(shí)習(xí)日期：2013-6-24至2013-6-28目錄課程設(shè)計(jì)目的和意義…………2所需環(huán)境………2總體設(shè)計(jì)思路…………………3各部分設(shè)計(jì)功能介紹…………4程序清單………7課程設(shè)計(jì)總結(jié)………………18教師評(píng)語……19一、課程設(shè)計(jì)目的和意義

通過VB課程設(shè)計(jì)，鞏固加深VB理論知識(shí)，使理論和實(shí)踐相結(jié)合。培養(yǎng)學(xué)生對(duì)VB應(yīng)用系統(tǒng)開發(fā)設(shè)計(jì)能力；提高學(xué)生對(duì)VB知識(shí)的綜合運(yùn)用能力；增強(qiáng)學(xué)生程序設(shè)計(jì)能力，提高學(xué)生實(shí)際上機(jī)調(diào)試程序的動(dòng)手能力。使學(xué)生對(duì)VB軟件開發(fā)有一個(gè)總體認(rèn)識(shí)，使學(xué)生得到很好的鍛煉，為以后的學(xué)習(xí)、工作打下堅(jiān)實(shí)的基礎(chǔ)。二、所需環(huán)境硬件環(huán)境：校內(nèi)機(jī)房微機(jī)軟件環(huán)境：Windowsxp,VB6.0三、總體設(shè)計(jì)思路（功能模塊圖）酒店管理系統(tǒng)酒店管理系統(tǒng)人事管理客戶入住客戶信息查詢系統(tǒng)管理值班管理散客入住團(tuán)體入住新增用戶密碼修改退出系統(tǒng)四、各部分設(shè)計(jì)功能介紹、設(shè)計(jì)界面（抓圖）1登錄界面2主界面3客人查詢界面4值班管理5輸入客人資料6新增用戶五、程序清單新增用戶代碼:PrivateSubCommand1_Click()DimsqlAsStringDimrs_addAsNewADODB.RecordsetIfTrim(Text1.Text)=""ThenMsgBox"用戶名不能為空",vbOKOnly+vbExclamation,""ExitSubText1.SetFocusElsesql="select*from系統(tǒng)管理"rs_add.Opensql,conn,adOpenKeyset,adLockPessimisticWhile(rs_add.EOF=False)IfTrim(rs_add.Fields(0))=Trim(Text1.Text)ThenMsgBox"已有這個(gè)用戶",vbOKOnly+vbExclamation,""Text1.SetFocusText1.Text=""Text2.Text=""Text3.Text=""Combo1.Text=""ExitSubElsers_add.MoveNextEndIfWendIfTrim(Text2.Text)=""ThenMsgBox"密碼不能為空，請(qǐng)重新輸入！",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"請(qǐng)選擇正確的用戶權(quán)限",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系統(tǒng)管理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="房號(hào)"MSFlexGrid1.Col=1MSFlexGrid1.Text="房?jī)r(jià)"MSFlexGrid1.Col=2MSFlexGrid1.Text="姓名"MSFlexGrid1.Col=3MSFlexGrid1.Text="性別"MSFlexGrid1.Col=4MSFlexGrid1.Text="證件號(hào)碼"MSFlexGrid1.Col=5MSFlexGrid1.Text="抵達(dá)日"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("團(tuán)隊(duì)名稱").CellText(DataGrid1.Bookmark))=""ThenMsgBox"團(tuán)隊(duì)名稱不能為空！",vbOKOnly+vbExclamation,""ExitSubEndIfIfTrim(DataGrid1.Columns("負(fù)責(zé)人姓名").CellText(DataGrid1.Bookmark))=""ThenMsgBox"負(fù)責(zé)人姓名不能為空！",vbOKOnly+vbExclamation,""ExitSubEndIfIfTrim(DataGrid1.Columns("證件號(hào)碼").CellText(DataGrid1.Bookmark))=""ThenMsgBox"證件號(hào)碼不能為空！",vbOKOnly+vbExclamation,""ExitSubEndIfIfTrim(DataGrid1.Columns("房間號(hào)碼").CellText(DataGrid1.Bookmark))=""ThenMsgBox"房間號(hào)碼！",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("確定要?jiǎng)h除嗎？",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團(tuán)隊(duì)資料"rs_dclient.CursorLocation=adUseClientrs_dclient.Opensql,conn,adOpenKeyset,adLockPessimistic'設(shè)定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房號(hào)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抵達(dá)日between#"&_find_date1&"#"&"and"&"#"&find_date2&"#"EndIfrs_data1.Opensqlfind,conn,adOpenKeyset,adLockPessimisticfrmdatamanage.displaygrid1UnloadMecmderror:IfErr.Number<>0ThenMsgBox"請(qǐng)輸入正確的查詢條件！",vbOKOnly+vbExclamation,"警告"EndIfEndSubPrivateSubCommand2_Click()UnloadMeMDIForm1.ShowEndSubPrivateSubForm_Load()DimiAsIntegerDimsqlAsString'Iffindok=TrueThen'rs_data1.Close'EndIfsql="select*from散客資料orderby房號(hào)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"沒有這個(gè)用戶",vbOKOnly+vbExclamation,""text1.SetFocusElsesql="select*from系統(tǒng)管理where用戶名='"&text1.Text&"'"rs_login.Opensql,conn,adOpenKeyset,adLockPessimisticIfrs_login.EOF=TrueThenMsgBox"沒有這個(gè)用戶",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"請(qǐng)按照格式y(tǒng)yyy-mm-dd輸入值班開始日期",vbOKOnly+vbExclamation,""ExitSubEndIfIfNotIsDate(Trim(DataGrid1.Columns("值班開始時(shí)間").CellText(DataGrid1.Bookmark)))ThenMsgBox"請(qǐng)按照格式hh-mm輸入值班開始時(shí)間",vbOKOnly+vbExclamation,""ExitSubEndIfIfNotIsDate(Trim(DataGrid1.Columns("值班截止日期").CellText(DataGrid1.Bookmark)))ThenMsgBox"請(qǐng)按照格式y(tǒng)yyy-mm-dd輸入值班截止日期",vbOKOnly+vbExclamation,"ExitSubEndIfIfNotIsDate(Trim(DataGrid1.Columns("值班截止時(shí)間").CellText(DataGrid1.Bookmark)))ThenMsgBox"請(qǐng)按照格式hh-mm輸入值班截止時(shí)間",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