VB課程設(shè)計(jì)實(shí)驗(yàn)報(bào)告

系統(tǒng)主界面系統(tǒng)主界面信息查詢旅客基本信息客房基本信息信息查詢旅客基本信息客房基本信息客房信息查詢旅客信息查詢旅客退房處理瀏覽客房信息添加旅客信息旅客信息瀏覽客房信息查詢旅客信息查詢旅客退房處理瀏覽客房信息添加旅客信息旅客信息瀏覽第2章數(shù)據(jù)庫設(shè)計(jì)旅客信息表為旅客的個(gè)人信息加入住客房信息，數(shù)據(jù)結(jié)構(gòu)如表旅客信息表設(shè)置字段名類型大小說明登記號(hào)Text8旅客入住號(hào)姓名Text8旅客姓名身份證號(hào)碼Text18旅客身份證號(hào)房間號(hào)Text3入住房間號(hào)登記日期Text日期/時(shí)間旅客入住時(shí)間性別Text3旅客性別籍貫Text8旅客籍貫表2.1客房信息表為客房入住情況的基本信息，數(shù)據(jù)結(jié)構(gòu)如表客房信息表設(shè)置字段名類型大小說明房間號(hào)Text3房間號(hào)客房等級(jí)Text8客房等級(jí)客房類型Text8客房類型客房?jī)r(jià)格Text單精度型客房?jī)r(jià)格客房狀態(tài)Text3客房狀態(tài)客房備注信息備注8客房備注信息表2.2旅客退房記錄表為旅客退房相關(guān)的一些記錄信息，數(shù)據(jù)結(jié)構(gòu)如表旅客退房記錄表設(shè)置字段名類型大小說明登記號(hào)Text8旅客入住號(hào)登記日期日期/時(shí)間旅客登記時(shí)間退房時(shí)間日期/時(shí)間旅客退房時(shí)間付款金額Text單精度型付費(fèi)金額退房備注信息Text8退房備注信息表2.3管理人員信息表存儲(chǔ)賓館管理人員使用該系統(tǒng)的帳號(hào)密碼，數(shù)據(jù)結(jié)構(gòu)表管理人員信息表設(shè)置字段名類型大小說明姓名Text20管理人員帳號(hào)密碼Text20管理人員密碼權(quán)限Text1管理人員權(quán)限表2.4第3章主體內(nèi)容3．1設(shè)計(jì)標(biāo)準(zhǔn)模塊本系統(tǒng)設(shè)計(jì)過程中，創(chuàng)建一個(gè)通用函數(shù)模塊，用于實(shí)現(xiàn)數(shù)據(jù)庫連接及按需要打開一個(gè)數(shù)據(jù)表。程序代碼如下：OptionExplicitPublicSubopentable(padoAsAdodc,precordsourceAsString)Withpado.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"/Total.mdb".CommandType=adCmdUnknown.RecordSource=precordsource.RefreshEndWithEndSub3.2戶登錄界面設(shè)計(jì)用戶登錄的作用是判斷使用本程序的用戶是否是合法用戶。在程序進(jìn)入登錄界面時(shí)要求輸入用戶名和密碼，如果用戶名，密碼正確程序繼續(xù)執(zhí)行。當(dāng)密碼錯(cuò)誤輸入的次數(shù)超過設(shè)定次數(shù)時(shí)，給出提示信息退出程序，這樣防止了非法用戶對(duì)本程序的使用。3．2．1工作界面設(shè)計(jì)圖3.1登錄窗體程序代碼如下：PrivateSubcmdok_Click()'檢查正確的密碼'首先要對(duì)用戶名特殊字符的過濾'防止非授權(quán)用戶的登陸訪問Dims1AsStringDimiAsIntegerDimjAsIntegerDima(18)AsStringj=Len(txtUserName.Text)s1=txtUserName.TextDimcAsIntegerc=1Fori=1Toja(i)=Mid(s1,i,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)="~"ThenMsgBox"Error",vbOKOnly,"Error"ExitSubElseIfa(i)=","ThenMsgBox"Error",vbOKOnly,"Error"ExitSubElseIfa(i)="'"ThenMsgBox"Error",vbOKOnly,"Error"ExitSubEndIfc=c+1txtUserName.SetFocusNextiDimstrusernameAsStringDimstrpasswordAsStringStaticintlogintimesAsIntegerIfTrim(txtUserName.Text)=""ThenMsgBox"用戶名不能為空！",vbOKOnly+vbCritical,"錯(cuò)誤"ExitSubEndIfopentableadousers,"usersinfo"adousers.Refreshadousers.Recordset.Find"姓名="&"'"&txtUserName.Text&"'",,adSearchForward,1IfNotadousers.Recordset.EOFThenstrusername=adousers.Recordset!姓名strpassword=adousers.Recordset!密碼Elsestrusername=""strpassword=""EndIIfstrusername=txtUserName.TextAndstrpassword=txtPassword.TextThenadousers.Recordset.CloseUnloadMefrmmdi.ShowElseMsgBox"用戶名或密碼不對(duì)！",vbOKOnly+vbInformation,"提示"intlogintimes=intlogintimes+1Ifintlogintimes>=3Thenadousers.Recordset.CloseEndEndIftxtPassword.SetFocusSendKeys"{HOME}+{END}"EndIfEndSubPrivateSubcmdcancel_click()UnloadMeEndSub3．2．2添加新用戶用于添加新的用戶包括用戶名,密碼,及職務(wù)工作界面設(shè)計(jì)如圖圖3.2添加用戶窗體程序代碼如下:PrivateSubCommand1_Click()opentableadousers,"usersinfo"adousers.RefreshWithadousers.RecordsetDimiAsIntegerIfTrim(Text1(0).Text)=""ThenMsgBox"用戶名不能為空！",vbExclamation+vbOKOnly,"警告"Text1(0).SetFocusExitSubEndIfIfTrim(Text1(1).Text)=""ThenMsgBox"密碼不能為空！",vbExclamation+vbOKOnly,"警告"Text1(1).SetFocusExitSubEndIfIfTrim(Text1(2).Text)=""ThenMsgBox"確認(rèn)密碼不能為空！",vbExclamation+vbOKOnly,"警告"Text1(2).SetFocusExitSubEndIfIfTrim(Text1(1).Text)<>Trim(Text1(2).Text)ThenMsgBox"確認(rèn)密碼不正確！",vbExclamation+vbOKOnly,"警告"Text1(2).SetFocusExitSubEndIfopentableadousers,"usersinfo"adousers.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!權(quán)限=1IfOption1(1)Then!權(quán)限=2IfOption1(2)Then!權(quán)限=3.UpdateMsgBox"用戶添加成功！",vbExclamation+vbOKOnly,"警告"Text1(0).Text=""Text1(1).Text=""Text1(2).Text=""EndWithUnloadMeEndSubPrivateSubCommand2_Click()UnloadMeEndSub3．3創(chuàng)建系統(tǒng)主界面當(dāng)系統(tǒng)運(yùn)行時(shí)，首先進(jìn)入登錄界面，當(dāng)輸入帳號(hào)，密碼合法時(shí)，則啟動(dòng)系統(tǒng)主界面。主窗體是進(jìn)入其他模塊的入口。本系統(tǒng)主界面采用多文檔界面，設(shè)計(jì)情況如圖圖3.3主界面窗體設(shè)計(jì)主界面菜單項(xiàng)在操作項(xiàng)目比較多的情況下，通常是通過菜單來調(diào)用下級(jí)程序。菜單項(xiàng)的設(shè)計(jì)包含設(shè)置快捷鍵與訪問鍵，設(shè)置如表：主窗體菜單表3.4級(jí)別菜單名稱快捷鍵訪問鍵主菜單系統(tǒng)功能mnuSystem&S子菜單用戶管理mnuUserCtrl+U&U退出系統(tǒng)mnuExit&X主菜單基本信息管理mnuInfo&I子菜單客房信息mnuRoomInfoCtrl+R&R入住情況mnuGuest&G退房記錄mnuQuit&C主菜單信息查詢mnuQuerySelect&Q主菜單報(bào)表輸出mnuReport&R子菜單房間情況表mnuReportRoomCtrl+R&R收費(fèi)情況表mnuReportMoney&M主菜單窗口布局mnuWindow&W子菜單水平平鋪mnuHorCtrl+R&H垂直平鋪mnuVer&V層疊mnuCascade&C排列圖標(biāo)mnuIcon&I主菜單幫助信息mnuHelpCtrl+H&H內(nèi)容mnuContent&C索引mnuIndex&I設(shè)計(jì)主界面OptionExplicitPrivateSubMDIForm_Load()App.Title="賓館客房管理系統(tǒng)"opentableadoroom,"room"opentableadoguest,"guest"opentableadoquit,"quit"EndSubPrivateSubmnuCascade_Click()frmmdi.ArrangevbCascadeEndSubPrivateSubmnudenglu_Click()frmLogin.ShowEndSubPrivateSubmnuExit_Click()UnloadMeEndSubPrivateSubmnuGuest_Click()frmGuestInfo.ShowEndSubPrivateSubmnuHor_Click()frmmdi.ArrangevbTileHorizontalEndSubPrivateSubmnuIcon_Click()frmmdi.ArrangevbArrangeIconsEndSubPrivateSubmnuqueryguest_Click()frmqueryinfo.ShowEndSubPrivateSubmnuqueryroom_Click()frmqueryroom.ShowEndSubPrivateSubmnuQuit_Click()frmquitinfo.ShowEndSubPrivateSubmnuRoomInfo_Click()frmroominfo.ShowEndSubPrivateSubmnuUser_Click()frmusers.ShowEndSubPrivateSubmnuver_Click()frmmdi.ArrangevbTileVerticalEndSubPrivateSubtoolbar1_buttonclick(ByValbuttonAsMSComctlLib.button)SelectCasebutton.IndexCase1mnuRoomInfo_ClickCase2mnuGuest_ClickCase3mnuQuit_ClickCase4mnuqueryroom_ClickCase5'mnuReportRoom_ClickCase6mnuExit_ClickEndSelectEndSub3．4制作客戶信息登記窗體客戶信息窗體包括對(duì)全體旅客信息瀏覽，修改及刪除的窗體和添加新入住旅客信息窗體。旅客基本信息窗體，工作界面設(shè)計(jì)情況如圖：控件屬性表3.5控件名稱屬性設(shè)置值DataGrid1(名稱)dtgGuestInfoCommand1(名稱)cmdAddNewCaption添加(&A)Command2(名稱)cmdEditCaption修改(&E)控件名稱屬性設(shè)置值Command3(名稱)cmdDeleteCaption刪除(&D)Command4(名稱)cmdExitCaption退出(&X)圖3.6旅客信息窗體程序代碼如下：OptionExplicitPrivateSubdtgguestrefresh()WithdtgguestinfoSet.DataSource=frmmdi.adoguest.AllowRowSizing=False.HeadFont=2.MarqueeStyle=dbgHighlightRow.AllowAddNew=False.AllowDelete=False.AllowUpdate=False.Columns(0).Caption="登記號(hào)".Columns(0).Width=600.Columns(0).AllowSizing=False.Columns(1).Caption="客人姓名".Columns(1).Width=600.Columns(1).AllowSizing=False.Columns(2).Caption="身份證號(hào)碼".Columns(2).Width=1500.Columns(2).AllowSizing=False.Columns(3).Caption="房間號(hào)".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=FalseEndWithEndSubPrivateSubcmdaddnew_Click()Withfrmguestinfoedit.Caption="添加新旅客".txtbookno.Locked=False.txtbookno.Text="".txtguestname.Text="".txtcardid.Text="".txtroomno.Text=""dtpbookdate.Text=Date.dtpbookdate.Enabled=FalseEndWithfrmguestinfoedit.ShowEndSubPrivateSubcmddelete_Click()Iffrmmdi.adoguest.Recordset.EOF<>TrueAndfrmmdi.adoguest.Recordset.BOF<>TrueThenWithfrmmdi.adoroom.RecordsetIfMsgBox("確認(rèn)要?jiǎng)h除當(dāng)前記錄嗎？",vbYesNo+vbQuestion+vbDefaultButton2,"確認(rèn)框")=vbYesThen.Find"房間號(hào)="&"'"&frmmdi.adoguest.Recordset!房間號(hào)&"'",,adSearchForward,1IfNot.EOFThen!客房狀態(tài)="空"EndIfWithfrmmdi.adoguest.Recordset.DeleteEndWithfrmGuestInfo.SetFocusEndIfEndWithEndIfEndSubPrivateSubcmdedit_Click()Iffrmmdi.adoguest.Recordset.EOF<>TrueAndfrmmdi.adoguest.Recordset.BOF<>TrueThenWithfrmguestinfoedit.Caption="修改客人信息".txtbookno.Text=frmmdi.adoguest.Recordset!登記號(hào).txtbookno.Locked=True.txtbookno.Enabled=False.txtguestname.Text=frmmdi.adoguest.Recordset!姓名.txtcardid.Text=frmmdi.adoguest.Recordset!身份證號(hào)碼.txtroomno=frmmdi.adoguest.Recordset!房間號(hào).dtpbookdate.Text=frmmdi.adoguest.Recordset!登記日期.dtpbookdate.Enabled=FalseEndWithEndIffrmguestinfoedit.ShowEndSubPrivateSubcmdexit_Click()UnloadMeEndSubPrivateSubForm_Load()Me.Left=(frmmdi.Width-Me.Width)/2Me.Top=(frmmdi.Height-Me.Height)/4dtgguestrefreshEndSub3．5旅客信息登記窗體本窗體用于當(dāng)旅客入住時(shí)，登記其基本信息，包括入住房間號(hào)。圖3.7添加新旅客窗體窗體初始化與激活事件代碼：OptionExplicitDimproomnoAsStringPrivateSubcmdcancle_Click()UnloadMeEndSubPrivateSubcmdok_Click()Withfrmmdi.adoguest.RecordsetIfNottxtbookno.LockedThenIfTrim(txtbookno.Text)=""ThenMsgBox"登記號(hào)不能為空！",vbOKOnly+vbInformation,"提示"txtbookno.SetFocusExitSubEndIf.Find"房間號(hào)="&"'"&txtbookno&"'",,adSearchForward,1IfNot.EOFThenMsgBox"已經(jīng)有相同登記號(hào)！",vbOKOnly+vbInformation,"提示"txtbookno.SetFocusExitSubEndIffrmmdi.adoroom.Recordset.Find"房間號(hào)="&"'"&Trim(txtroomno.Text)&"'",,adSearchForward,1IfNotfrmmdi.adoroom.Recordset.EOFThenIffrmmdi.adoroom.Recordset!客房狀態(tài)<>"空"ThenMsgBox"已有客人居??！",vbOKOnly+vbInformation,"提示"txtroomno.SetFocusExitSubEndIfElseMsgBox"沒有此客房編號(hào),請(qǐng)重新輸入！",vbOKOnly+vbInformation,"提示"txtroomno.SetFocusExitSubEndIfIfTrim(txtguestname.Text)=""ThenMsgBox"客人姓名不能為空！",vbOKOnly+vbInformation,"提示"txtguestname.SetFocusExitSubEndIf.AddNew!登記號(hào)=Trim(txtbookno.Text)frmmdi.adoroom.Recordset.Find"房間號(hào)="&"'"&Trim(txtroomno.Text)&"'",,adSearchForward,1frmmdi.adoroom.Recordset!客房狀態(tài)="有人"EndIf!姓名=txtguestname.Text!身份證號(hào)碼=txtcardid.Text!性別=txtsex.Text!籍貫=txtpro.TextIftxtbookno.LockedThenIfTrim(txtroomno.Text)<>proomnoThenWithfrmmdi.adoroom.Recordset.Find"房間號(hào)="&"'"&Trim(txtroomno.Text)&"'",,adSearchForward,1!客房狀態(tài)="有人".Find"房間號(hào)="&"'"&proomno&"'",,adSearchForward,1!客房狀態(tài)="空"EndWithEndIfEndIf!房間號(hào)=Trim(txtroomno.Text)!登記日期=dtpbookdate.Text.UpdateUnloadMeEndWithEndSubPrivateSubform_activate()proomno=Trim(txtroomno.Text)EndSub3．6制作退房信息處理窗體當(dāng)旅客離開賓館時(shí)，需要為其辦理退房手續(xù)，在這過程中需要在旅客退房信息表中添加記錄信息，以及修改客房信息表，改變客房狀態(tài)。旅客退房信息窗體，工作界面設(shè)計(jì)情況如圖：圖3.8退房窗體程序代碼如下：PrivateSubdtgQuitRefresh()WithdtgQuitInfo'綁定Set.DataSource=frmmdi.adoquit.AllowRowSizing=False'表頭寬度設(shè)為兩行.HeadLines=2'選擇方式為整行選中.MarqueeStyle=dbgHighlightRow'不允許修改(設(shè)為只讀).AllowAddNew=False.AllowDelete=False.AllowUpdate=False'第一列標(biāo)題和寬度.Columns(0).Caption="登記號(hào)".Columns(0).Width=700.Columns(0).AllowSizing=False'第二列標(biāo)題和寬度.Columns(1).Caption="登記日期".Columns(1).Width=1200.Columns(1).AllowSizing=False'第三列標(biāo)題和寬度.Columns(2).Caption="退房時(shí)間".Columns(2).Width=1200.Columns(2).AllowSizing=False'第四列標(biāo)題和寬度.Columns(3).Caption="付費(fèi)金額".Columns(3).Width=1200.Columns(3).AllowSizing=False.Columns(4).Caption="備注".Columns(4).Width=4000Columns(4).AllowSizing=FalseEndWithEndSubPrivateSubcmdaddnew_Click()Withfrmquitinfoedit'窗體標(biāo)題.Caption="添加退房信息".txtbookno.Locked=False.txtbookno.Text="".txtpaymoney.Text="".txtinfo.Text="".dtpquitdate.Text=Date'顯示為模式窗體.ShowEndWithEndSubPrivateSubcmddelete_Click()Iffrmmdi.adoquit.Recordset.EOF<>TrueAndfrmmdi.adoquit.Recordset.BOF<>TrueThenWithfrmmdi.adoquit.RecordsetIfMsgBox("確認(rèn)要?jiǎng)h除當(dāng)前記錄嗎?",vbYesNo+vbQuestion+vbDefaultButton2,"確認(rèn)框")=vbYesThenFind"登記號(hào)='"&frmmdi.adoquit.Recordset!登記號(hào)&"'",,adSearchForward,1IfNot.EOFThen'!QuitStatus=FalseEndIfWithfrmmdi.adoquit.Recordset.DeleteEndWithdtgQuitInfo.SetFocusEndIfEndWithEndIfEndSubPrivateSubcmdedit_Click()Iffrmmdi.adoguest.Recordset.EOF<>TrueAndfrmmdi.adoguest.Recordset.BOF<>TrueThenWithfrmquitinfoedit'窗體標(biāo)題.Caption="修改退房信息".txtbookno.Text=frmmdi.adoquit.Recordset!登記號(hào).txtbookno.Locked=True.txtpaymoney.Text=frmmdi.adoquit.Recordset!付款金額'.TxtInfo.Text=frmMDI.AdoQuit.Recordset!QuitInfo.dtpquitdate.Text=frmmdi.adoquit.Recordset!退房時(shí)間.ShowEndWithEndIfEndSubPrivateSubcmdexit_Click()UnloadMeEndSubPrivateSubForm_Load()Me.Height=4155Me.Width=7920Me.Left=(frmmdi.Width-Me.Width)/2Me.Top=(frmmdi.Height-Me.Height)/4dtgQuitRefreshEndSub3．7添加退房信息窗體本窗體用于當(dāng)旅客離開時(shí)，登記旅客退房信息，以及計(jì)算并記錄付額,：圖3.9添加退房信息窗體程序代碼如下：PrivateSubCmdOK_Click()Withfrmmdi.adoquit.RecordsetIfNottxtbookno.LockedThen'可修改狀態(tài)表示是添加記錄IfTrim(txtbookno.Text)=""ThenMsgBox"登記號(hào)不能為空!",vbOKOnly+vbInformation,"提示"txtbookno.SetFocusExitSubEndIffrmmdi.adoguest.Recordset.Find"登記號(hào)='"&Trim(txtbookno.Text)&"'",,adSearchForward,1Iffrmmdi.adoguest.Recordset.EOFThen'有就提示,然后退出MsgBox"非法登記號(hào)!",vbOKOnly+vbInformation,"提示"txtbookno.SetFocusSendKeys"{HOME}+{END}"txtpaymoney.Text=""ExitSubEndIffrmmdi.adoquit.Recordset.Find"登記號(hào)='"&Trim(txtbookno.Text)&"'",,adSearchForward,1IfNotfrmmdi.adoquit.Recordset.EOFThen'有就提示,然后退出MsgBox"已經(jīng)有相同登記號(hào)!",vbOKOnly+vbInformation,"提示"txtbookno.SetFocusSendKeys"{HOME}+{END}"txtpaymoney.Text=""ExitSubEndIf'沒有就添加記錄.AddNew!登記號(hào)=Trim(txtbookno.Text)EndIf'給字段賦值!付款金額=Val(Trim(txtpaymoney.Text))!退房時(shí)間=dtpquitdate.TextIftxtinfo.Text=""ThenMsgBox"備注不能為空!",vbOKOnly+vbInformation,"提示"txtinfo.SetFocus!退房備注信息=txtinfo.TextEndIf.Update'退出窗體UnloadMeEndWithEndSubPrivateSubCmdQuit_Click()'退出窗體UnloadMeEndSubPrivateSubForm_Load()Me.Height=3405Me.Width=7440EndSub3．8制作旅客查詢窗體旅客查詢窗體主要功能是實(shí)現(xiàn)客房信息查詢顯示，查詢方式可以是按旅客姓名，登記號(hào)也可以按房間號(hào)查詢。工作界面如圖：旅客查詢窗體控件屬性表3.10控件名稱屬性設(shè)置值DataGrid1(名稱)dtgQueryOption1(名稱)OptRoomNoCaption房間號(hào)Option2(名稱)OptionNameCaption旅客姓名Option3(名稱)optBookNoCaption登記號(hào)Text1(名稱)TxtValue圖3.11旅客信息查詢窗體程序代碼如OptionExplicitPrivateSubdtgqueryrefresh()WithdtgquerySet.DataSource=frmmdi.adoguest.AllowRowSizing=False.HeadFont=2.MarqueeStyle=dbgHighlightRow.AllowAddNew=False.AllowDelete=False.AllowUpdate=False.Columns(0).Caption="登記號(hào)".Columns(0).Width=600.Columns(0).AllowSizing=False.Columns(1).Caption="客人姓名".Columns(1).Width=600.Columns(1).AllowSizing=False.Columns(2).Caption="身份證號(hào)碼".Columns(2).Width=1500.Columns(2).AllowSizing=False.Columns(3).Caption="房間號(hào)".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=FalseEndWithEndSubPrivateSubCommand1_Click()IfoptroomnoThenopentablefrmmdi.adoguest,"select*fromguestwhere(((guest.房間號(hào))like'"&Trim(txtvalue.Text)&"%""'))"ElseIfoptnameThenopentablefrmmdi.adoguest,"select*fromguestwhere(((guest.姓名)like'"&Trim(txtvalue.Text)&"%""'))"'ElseIfoptbooknoThenopentablefrmmdi.adoguest,"select*fromguestwhere(((guest.登記號(hào))like'"&Trim(txtvalue.Text)&"%"'))"EndIfdtgqueryrefreshEndSubPrivateSubForm_Load()Me.Left=(frmmdi.Width-Me.Width)/2Me.Left=(frmmdi.Height-Me.Height)/2opentablefrmmdi.adoguest,"select*fromguestorderby登記號(hào)"dtgqueryrefreshEndSubPrivateSuboptname_Click()txtvalue.Text=""txtvalue.Visible=TrueFrame2.Caption="按姓名查詢"Frame2.Visible=TrueSendKeys"{TAB}"EndSubPrivateSuboptroomno_click()txtvalue.Text=""txtvalue.Visible=TrueFrame2.Caption="按房間號(hào)查詢"Frame2.Visible=TrueSendKeys"{TAB}"EndSubPrivateSuboptbookno_click()txtvalue.Text=""'Label1.Visible=Truetxtvalue.Visible=TrueFrame2.Caption="按登記號(hào)查詢"Frame2.Visible=TrueSendKeys"{TAB}"EndSub3．9查詢客房信息客房查詢窗體主要功能是實(shí)現(xiàn)客房信息查詢顯示，查詢方式可以按房間號(hào)，客房等級(jí)，客房類型查詢，工作界面如圖：圖3.12客房信息查詢程序代碼如下：PrivateSubdtgroomqueryinforefresh()WithdtgroomqueryinfoSet.DataSource=frmmdi.adoroom.AllowRowSizing=False.HeadFont=2.MarqueeStyle=dbgHighlightRow.AllowAddNew=False.AllowDelete=False.AllowUpdate=False.Columns(0).Caption="房間號(hào)".Columns(0).Width=600.Columns(0).AllowSizing=False.Columns(1).Captio