【正文】 。InitialCatalog=KTVDB。userid=sa。 ? 基本信息：其中包括用戶信息和會員信息， 并且對相應(yīng)的信息進行添加、刪除、修改等操作。 ? 查詢統(tǒng)計： 在查詢統(tǒng)計中可以 對 帳單 、 房間和會員 通過關(guān)鍵字進行 具體的 查詢。 登錄 界面 12 在進入系統(tǒng) 主界面 之前，首先要進入登陸界面 ，如圖 41。 并 將 記錄用戶的權(quán)限 （ ）， 以 便 交給主界面 、會員信息窗體和房間信息窗 來判斷用戶對各種功能的使用權(quán)限。 主界面中最主要的是將所有房間顯示在界面 中和 將處于各種狀態(tài)的房間個數(shù) 在主界面的下方 顯示出來。清空房間圖標(biāo)準(zhǔn)備重新顯示 39。根據(jù)房間狀態(tài)讀取所要顯示的圖片文件 Select Case strRoomState Case 空房 ?如果房間狀態(tài)為空房 = flexAlignCenterTop Set = LoadResPicture(KONGFANG, vbResBitmap) = strRoomName Case 占用 = flexAlignCenterTop Set = LoadResPicture(ZHANYONG, vbResBitmap) = strRoomName Case 維修 = flexAlignCenterTop Set = LoadResPicture(WEIXIU, vbResBitmap) = strRoomName Case 預(yù)定 = flexAlignCenterTop Set = LoadResPicture(YUDING, vbResBitmap) = strRoomName Case 打掃 = flexAlignCenterTop Set = LoadResPicture(DASAO, vbResBitmap) = strRoomName End Select Next i End Functio 39。定義新的記錄集對象 Dim Str As String Str = select RoomID from RoomInfo where amp。在標(biāo)簽中顯示空房 “” 間 ，其中多少間是通過 RSCount 的 RecordCount 方法來計算的 = 空房 : amp。占用 39。 RoomState=39。 間 Str = select RoomID from RoomInfo where amp。 amp。 Str, g_DBConn, adOpenStatic, adLockOptimistic = 打掃 : amp。在這里要注意，當(dāng)刪除房間時，只能刪除沒有過任何使用記錄的房間，因為其它表中有其相關(guān)的記錄，如果要刪除，必須先將所有相關(guān)記錄刪除。 房間信息 窗體 的 Load 事件的代碼： Private Sub Form_Load() = ( ) / 2 39。 = False = False = False End If 39。如圖44 所示。 預(yù)定 、開房、結(jié)帳、維修和打掃 界面 在該系統(tǒng)中，所涉及到的房間業(yè)務(wù)包括預(yù)定、開房、結(jié)帳、維修和打掃。 同理 ，如果選擇了房間編號，則系統(tǒng)自動填充房間類型和房間價格。垂直方向居中 = ( ) / 2 39。自動生成預(yù)定單編號 DBStr = select DestineID from DestineInfo = adOpenStatic = adUseClient DBStr, g_DBConn, adOpenForwardOnly, adLockOptimistic If Then sDestinedID = 0001 = sDestinedID Else i = (DestineID).Value + 1 If i 10 Then = 000 amp。從數(shù)據(jù)庫中讀取數(shù)據(jù)寫入房間編號下拉列表框 Dim adoRs As New DBStr = select RoomID from RoomInfo where RoomState=39。從數(shù)據(jù)庫中讀取數(shù)據(jù)寫入會員編號下拉列表框 Dim adoMs As New DBStr = select MemberID from MemberInfo DBStr, g_DBConn, adOpenStatic, adLockReadOnly If 0 Then 19 Do While Not (0).Value Loop End If Set adoMs = Nothing End Sub 在填寫完 預(yù)定單提交成功后， 系統(tǒng)就 要修改房間狀態(tài)為預(yù)定，并且要把預(yù)定信息寫入DestionInfo 表中。OpenRoomTime,Waitor,Prepay,Remake,DestineDate,MemberID)amp。 39。 Trim() amp。 sRoomID amp。 amp。 ,39。 amp。 39。 Trim() amp。 amp。 ,39。,39。 amp。 amp。 ,39。,39。)。 where RoomID=39。 39。存儲過程是一組完成特定 功能的 SQL 語句集，經(jīng)過編譯后存儲在 數(shù)據(jù)庫中，程序通過存儲過程的名字調(diào)用執(zhí)行它。Connection 對象代表了打開與數(shù)據(jù)源的連接。指示指定的 Command 對象當(dāng)前所屬的 Connection 對象。通知提供者 CommandText 屬性有什么，它可能包括 Command 對象的源類型。 當(dāng)結(jié)帳后，系統(tǒng)將把該結(jié)帳信息放入 CheckInfo 表中。 在這里維修單編號是自動生成的，維修故障要求用戶自己填寫?？辗?39。利用循環(huán)分別寫入下拉列表框中 End If Set adoRs = Nothing 在維修完畢 時，用戶可以通過右擊選擇維修完畢業(yè)務(wù) ， 維修完畢界面 如 圖 411。 amp。 ,39。 amp。 39。 Replace(, 39。 39。 Replace(, 39。 39。 amp。 39。 三者涉及到的技術(shù)在前面已經(jīng)有了介紹，在這里就簡單介紹一下其作用。 圖 413 預(yù)定單明細表 （ 2） 開房 單 明細表 在開房單明細表中可以 看到當(dāng)前正處于開房狀態(tài)的房間信息，可以通過房間編號或者客戶名稱來進行查詢 。 如圖 415 所示： 圖 415 維修單明細表 帳單查詢、房間查詢和會員查詢 界面 在查詢統(tǒng)計菜單的下拉菜單下有 帳單查詢、房間查詢和會員查詢?nèi)?種 選擇，依次按下則相應(yīng)的彈出帳單查詢窗體（如圖 416）、房間查詢窗體（如圖 417）和會員查詢窗體（如圖 418）。在帳單查詢窗體中，即可以三種方式分別查詢，又可以進行組合查詢。 26 圖 418 會員查詢窗體 用戶權(quán)限設(shè)置、用戶設(shè)置、密碼設(shè)置和用戶查詢界面 在系統(tǒng)設(shè)置菜單的下拉菜單中包括用戶權(quán)限設(shè)置、用戶 管理 、密碼設(shè)置和用戶查詢功能，單擊每個菜單即彈出相應(yīng)的用戶權(quán)限設(shè)置 窗體（如圖 419） 、 用戶 管理 窗體 （如圖 420） 、密碼設(shè)置 窗體（如圖 421） 和用戶查詢窗體 （如圖 422）。判斷用戶 ID、用戶編號和用戶類型名稱不能為空 27 MsgBox 請輸入用戶 ID! Exit Sub End If sUserID = Trim() If Trim() = Then MsgBox 請輸入用戶類型編號 ! Exit Sub End If iUserType = Trim() If Trim() = Then MsgBox 請輸入用戶類型名稱 ! Exit Sub End If sRemake = Trim() Str = select * from UserInfo where UserID=39。 Str, g_DBConn, adOpenStatic, adLockOptimistic (UserType).Value = Trim() 39。當(dāng)判斷有一處為空時，則彈出相應(yīng)的對話框提示。 圖 422 用戶查詢窗體 確認 退出系統(tǒng)界面 當(dāng)單擊退出系統(tǒng)菜單時，即彈出 確認退出系統(tǒng)界面（如圖 423） 。 在對用戶進行需求分析后，一一確定系統(tǒng)所要實現(xiàn)的基本功能。 在畢業(yè)設(shè)計的同時 我學(xué)習(xí)了很多的新知識。 30 參考文獻 [1] 何玉潔 《數(shù)據(jù)庫基礎(chǔ)及應(yīng)用技術(shù)》清華大學(xué)出版社 [2]薩師煊 《數(shù)據(jù)庫系統(tǒng)概論》高等教育出版社 [3]郭瑞軍 《 Visual Basic 數(shù)據(jù)庫開發(fā)實例精粹》電子工業(yè)出版社 [4] 賽奎春、李俊民 《 Visual Basic 控件大全》 人民郵電出版社 [5] 梁芳 《 Visual Basic 程序設(shè)計案例教程》清華大學(xué)出 版社 [6] 孫明麗 《 SQL Server 2021 數(shù)據(jù)庫系統(tǒng)開發(fā)完全手冊》 人民郵電出版社 [7] 楊志國 《 SQL Server 2021 數(shù)據(jù)庫管理精講》 電子工業(yè)出版社 [8] 楊志姝、王小瓊《 SQL 應(yīng)用與開發(fā)》 清華大學(xué)出版社 [9] Gary Cornell《 Visual Basic 6 from the Ground Up (Paperback)》 [10] Gary Cornell《 Visual Basic174。在短暫的幾個月里老師淵博的知識、敏銳的思路和實 事求是的工作作風(fēng)給我留下了深刻的印象，這將使我終生受益。