【正文】 明一些公用的變量和公用的子程序、聲明API函數(shù)，以便在系統(tǒng)代碼中調(diào)用。III. 使用VB自帶的可視化數(shù)據(jù)管理工具制作系統(tǒng)數(shù)據(jù)庫(kù)，錄入數(shù)據(jù)字段。IV. 為系統(tǒng)寫(xiě)入代碼。V. 測(cè)試整個(gè)系統(tǒng)，修正系統(tǒng)中出現(xiàn)的錯(cuò)誤。系統(tǒng)在開(kāi)發(fā)中，添加一個(gè)窗體后，馬上為窗體添加代碼，單個(gè)的一步步實(shí)現(xiàn)各個(gè)模塊的功能，反復(fù)以上步驟，完成全部模塊的制作，然后運(yùn)行調(diào)試無(wú)誤后，才完成整個(gè)系統(tǒng)的設(shè)計(jì)工作。系統(tǒng)界面圖1. 主窗體Mainform及子窗體roomform、kfform、fwform （seekkf） 注：因系統(tǒng)中客房、客戶、服務(wù)員表的添加、更改、查詢界面基本相同，所以以上只列出一幅圖片，具體界面樣式，請(qǐng)參看附帶光碟中的源程序。 讀入全部窗體并隱藏，完成、程序流程圖1. 啟動(dòng)沒(méi)有設(shè)密碼輸入密碼正確檢查是否設(shè)有密碼Initform運(yùn)行inputpwform運(yùn)行Inputpwform關(guān)閉已設(shè)置密碼輸入密碼錯(cuò)誤重新輸入系統(tǒng)退出2. 系統(tǒng)菜單關(guān)于系統(tǒng)使用說(shuō)明打開(kāi)記事本打開(kāi)計(jì)算器全部關(guān)閉全部最小化橫向排列縱向排列系統(tǒng)設(shè)置刪除密碼更改密碼打開(kāi)服務(wù)員表打開(kāi)客戶表退出系統(tǒng)設(shè)置密碼打開(kāi)客房表幫助工具子窗體設(shè)置數(shù)據(jù)庫(kù)Setpwform顯示Editpwform顯示刪除注冊(cè)表中的密碼系統(tǒng)結(jié)束顯示setform窗體fwform顯示kfform顯示Roomform顯示子窗體全部隱藏子窗體全部縱向排列子窗體全部橫向排列子窗體全部最小化狀態(tài)輸入或修改密碼輸入要設(shè)置的內(nèi)容顯示Initform窗體暫無(wú)調(diào)用記事本程序調(diào)用計(jì)算器程序保存到注冊(cè)表3. 工具欄流程圖查找空房查詢首條記錄刪除客房更改客房新增客房退房開(kāi)房上一條記錄下一條記錄輸入或更改信息輸入查詢條件末條記錄輸入房間號(hào)輸入房間號(hào)和客戶的信息作出相應(yīng)的操作在客房表中刪除一條記錄更改客房表字段的內(nèi)容在客房表中添加一條新記錄顯示出查詢結(jié)果在客戶表中刪除一條記錄在客戶表中添加一條新記錄更改客房表字段的內(nèi)容 刷新數(shù)據(jù)庫(kù)，操作成功，完成 注：以上為客房數(shù)據(jù)表工具欄的流程圖，其它數(shù)據(jù)表的各流程圖與上大致相同，只是個(gè)別命今沒(méi)有，請(qǐng)根據(jù)實(shí)際情況，參考以上流程圖、系統(tǒng)功能的具體實(shí)現(xiàn) 本系統(tǒng)使用面向?qū)ο笳Z(yǔ)言VB開(kāi)發(fā)設(shè)計(jì)，其功能的具體實(shí)現(xiàn)方法以下分部分或模塊一一敘述：u 系統(tǒng)密碼模塊：1. 設(shè)置密碼：使用VB中提供的函數(shù)SaveSetting()把用戶輸入的系統(tǒng)密碼保存在VB指定的注冊(cè)表根健下。2. 刪除密碼：使用VB中提供的函數(shù)DeleteSetting()刪除保存在注冊(cè)表中的系統(tǒng)密碼。3. 輸入密碼：如果系統(tǒng)設(shè)置了密碼，則進(jìn)入系統(tǒng)時(shí)要求用戶輸入正確的密碼。使用VB中提供的函數(shù)GetSetting()調(diào)出注冊(cè)表中的系統(tǒng)密碼，與用戶輸入的進(jìn)行對(duì)比，正確才允許進(jìn)入本系統(tǒng)。u 數(shù)據(jù)表管理模塊：使用Date控件綁定到對(duì)應(yīng)的數(shù)據(jù)表，用MSFlexGrid控件綁定到對(duì)應(yīng) 的數(shù)據(jù)控件。1. 添加記錄：使用Date控件的方法AddNew來(lái)增加一條新的記錄。2. 更改記錄：使用Date控件的方法Edit來(lái)對(duì)一條記錄進(jìn)行更改。3. 刪除記錄：使用Date控件的方法Delete來(lái)刪除一條記錄。4. 移動(dòng)記錄：使用Date控件的方法MoveFirst、MoveLast、MovePrevious和MoveNext對(duì)記錄進(jìn)行首條、末條、上一條和下一條的定位操作。5. 查詢記錄：使用Date控件的方法FindFirst來(lái)查找數(shù)據(jù)表中符合用戶指定條件的記錄u 子窗體控制模塊：1. 縱向排列與橫向排列：使用父窗體的方法Arrange不同的取值來(lái)實(shí)現(xiàn)。2. 全部最小化：使用窗體的屬性WindowState的取值等于1Minimized來(lái)實(shí)現(xiàn)各個(gè)窗體的最小化。3. 全部關(guān)閉：實(shí)際是使用窗體的方法Hide()來(lái)隱藏全部的窗體u 打開(kāi)工具模塊：使用方法Shell(PathName,WindowStyle)來(lái)打開(kāi)指定路徑的應(yīng)用程序，并可以設(shè)置要打的應(yīng)用程序打開(kāi)時(shí)的狀態(tài)（普通，最小化，最大化）u 窗體位最上層：使用API函數(shù)SetWindowPos()來(lái)實(shí)現(xiàn)窗體出現(xiàn)時(shí)，永遠(yuǎn)位于頂層。u 讀入或打開(kāi)窗體：使用Load()、Show()來(lái)讀入、顯示指定的窗體。u 窗體永遠(yuǎn)居中：在窗體Load事件中，再與窗體的寬和高相減，然后取半實(shí)現(xiàn)。第七章：系統(tǒng)測(cè)試 ：發(fā)布系統(tǒng) 在VB的菜單欄中選擇“文件”224?！啊?。經(jīng)過(guò)對(duì)生成的應(yīng)用程序反復(fù)運(yùn)行，修改后，系統(tǒng)全部功能可以正常使用。 本系統(tǒng)第一次運(yùn)行時(shí)默認(rèn)不需要密碼，如果要使用登陸密碼，請(qǐng)選擇系統(tǒng)菜單欄中的“數(shù)據(jù)庫(kù)”224?！霸O(shè)置密碼”。結(jié)束語(yǔ)： 通過(guò)這次畢業(yè)設(shè)計(jì)作業(yè)——大型賓館、酒店客房管理系統(tǒng)的設(shè)計(jì)開(kāi)發(fā)，我學(xué)會(huì)了使用VB開(kāi)發(fā)數(shù)據(jù)庫(kù)管理程序的基本方法，學(xué)習(xí)了許多關(guān)于系統(tǒng)開(kāi)發(fā)的技巧，積累了許多相關(guān)經(jīng)驗(yàn)。明白了開(kāi)發(fā)一個(gè)好的管理系統(tǒng)需要很多的相關(guān)經(jīng)驗(yàn)、大量的時(shí)間及耐心。 在此對(duì)我的畢業(yè)設(shè)計(jì)指導(dǎo)老師：XX講師XX講師XX講師表示感謝，謝謝他們對(duì)本系統(tǒng)開(kāi)發(fā)的支持和對(duì)本人的耐心指導(dǎo)。六、參考文獻(xiàn)書(shū)名或資料名作者出版社VB6/.NET編程實(shí)例精選陳學(xué)、紹山等四川電子音像出版社Visual Basic 佳文工作室電子工業(yè)出版社軟件工程張海藩人民郵電出版社電腦應(yīng)用疑難問(wèn)題與技巧1000唐凱軍四川電子音像出版社軟星工作室軟星教學(xué)軟件制作Visual Basic編程資源大全VB木屋清華大學(xué)出版社電腦報(bào)2004年合訂本（下）電腦報(bào)編輯社西南師范大學(xué)出版社Microsoft MSDN LibraryMicrosoftMicrosoft Corporation大型圖書(shū)館管理系統(tǒng)設(shè)計(jì) 劉 明無(wú)VB中使用API操作注冊(cè)表李林森無(wú)大型賓館的管理理念 華孝清求實(shí)出版社七、附錄（源代碼） Begin inputpwform Caption = 登陸密碼？ ClientHeight = 1320 ClientLeft = 60 ClientTop = 345 ClientWidth = 3180 Icon = :0000 LinkTopic = Form1 MaxButton = 0 39。False MinButton = 0 39。False ScaleHeight = 1320 ScaleWidth = 3180 StartUpPosition = 3 39。窗口缺省 Begin Command1 Caption = 登 陸 Default = 1 39。True Height = 375 Left = 2040 TabIndex = 2 Top = 900 Width = 855 End Begin Text1 Height = 270 IMEMode = 3 39。DISABLE Left = 720 PasswordChar = * TabIndex = 1 Top = 480 Width = 2175 End Begin Label1 Caption = 請(qǐng)輸入管理員密碼： Height = 195 Left = 240 TabIndex = 0 Top = 240 Width = 1695 EndEndAttribute VB_Name = inputpwformAttribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseDim password As StringPrivate Sub Command1_Click()password = GetSetting(ajew, system, password)If = password ThenLoad editpwformLoad setpwform = 正在讀入客房信息...Load roomform = 正在讀入客戶信息...Load kfform = 正在讀入服務(wù)員信息...Load fwformLoad seekroomLoad seekfwLoad seekkf = TrueElseMsgBox 對(duì)不起，密碼錯(cuò)誤，請(qǐng)重新輸入！, vbOKOnly, 密碼錯(cuò)誤 = End IfEnd SubPrivate Sub Form_Load() = False = ( ) / 2 = ( ) / 2SetWindowPos , 1, 0, 0, 0, 0, 3End SubPrivate Sub Form_Unload(Cancel As Integer)EndEnd Sub Object = {831FDD160C5C11D2A9FC0000F8754DA1}0。 Object = {5E9E78A0531B11CF91F6C2863C385E30}0。 Begin kfform Caption = 客戶管理表 ClientHeight = 3195 ClientLeft = 60 ClientTop = 345 ClientWidth = 7785 Icon = :0000 LinkTopic = Form1 MDIChild = 1 39。True ScaleHeight = 3195 ScaleWidth = 7785 Begin cutform BorderStyle = 0 39。None Height = 900 Left = 0 ScaleHeight = 900 ScaleWidth = 8175 TabIndex = 2 ToolTipText = 關(guān)閉 Top = 370 Visible = 0 39。False Width = 8175 Begin Text1 Alignment = 2 39。Center Appearance = 0 39。Flat DataField = 客戶姓名 DataSource = kfData Height = 270 Index = 0 Left