【正文】 程 用戶需要創(chuàng)建工程存儲的目錄，例如“ f:\酒店客房管理信息系統(tǒng)”。 運行 主程序，并選擇新建“標準 EXE”工程。新建工程后，在 VisualBasic窗口中有個缺省的窗 體 Form1,我們在此基礎上設計系統(tǒng)的主界面。 選擇“工程”菜單中的“工程 1 屬性”命令，在“工程屬性”對話框中，將工程名設置為“酒店客房管理信息系統(tǒng)”。單擊“保存”，將工程存儲為 酒店客房管理信息系統(tǒng) .vbp。 （二） 添加模塊 根據 VisualBasic 功能模塊的劃分原則，將創(chuàng)建以下幾個模塊： Const 用來管理工程中的常量 DbFunc 用來管理工程中與數據庫操作相關的聲明，變量和函數 GeneralFunc 用來管理工程中一些通用的自定義函數 Variable 用來管理工程中的全局變量 添加模塊的 具體操作請參照系統(tǒng)實體，這里不再詳述。 （三） 系統(tǒng)模塊的設計 登錄模塊的設計： 用戶要使用本系統(tǒng)，首先必須通過系統(tǒng)的身份認證，這個過程叫做登錄。登錄過程需要完成以下任務： 根據用戶名和密碼來判斷是否可能進入系統(tǒng)。 根據用戶類型決定用戶擁有的權限。 成功登錄的用戶將進入系統(tǒng)的主界面。 登錄窗體的名稱為 FrmLogin,它的界面布局如圖七所示。 圖 7 登錄窗體的界面布局 下面介紹登錄窗體的部分代碼。 變量聲明 登錄窗體的變量 聲明如下： Public PasswordKey As String Public NameKey As String Public Try_times As Integer NameKey 保存用戶名， PasswordKey 保存密碼， Try_times 記錄嘗試登錄的次數 Cmd_Ok_Click 過程 當用戶單擊“確定”按鈕是時，觸發(fā) Cmd_Ok_Click 事件，進行身份驗證，對應的代碼如下： Private Sub Cmd_OK_Click() 39。數據有效性檢查 If Trim(txtUser) = Then MsgBox 請輸入用戶名 Exit Sub End If If Trim(txtPwd) = Then MsgBox 請輸入密碼 Exit Sub End If NameKey = MakeStr(txtUser) PasswordKey = MakeStr(txtPwd) 39。判斷用戶是否存在 If (NameKey) = False Then MsgBox 用戶名不存在 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已經三次嘗試進入本系統(tǒng)，均不成功，系統(tǒng)將關閉 DBapi_Disconnect End Else Exit Sub End If End If 39。判斷密碼是否正確 (NameKey) If PasswordKey Then MsgBox 密碼錯誤 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已經三次嘗試進入本系統(tǒng)，均不成功，系統(tǒng)將關閉 DBapi_Disconnect End Else Exit Sub End If End If 39。登錄成功，將當前用戶的信息保存在 CurUser 中 = = 39。關閉自己 Unload Me End Sub 其他模塊設計請參照系統(tǒng)實體，在這里不在詳細敘述。 五、系統(tǒng)運行 （一） 系統(tǒng)登錄 單擊“酒店客房管理信息系統(tǒng)”圖標。進入系統(tǒng)展示畫面。 圖 8 系統(tǒng)展示窗體 經過 5 秒鐘，自動跳轉到系統(tǒng)登錄窗體。 圖 9 系統(tǒng)登錄窗體 選擇 操作員名稱（ admin） ,輸入密碼（ 111）。單擊“確定”進入系統(tǒng)的主界面。 圖 10 系統(tǒng)主界面 （二） 房客管理 1．客房預定 單擊“房客管理”，單擊“預定房間”。彈出客房預定窗體。 在預定窗體中輸入客戶信息，單擊“預定”，完成預定房間操作。 圖 11 客房預定窗體 2．預定入住 圖 12 預定入住窗體 單擊“預定入住”，彈出預定入住窗體。 在預定入住窗體中輸入相關信息，單擊“登記”完成預定入住操作。 3．客房登記 圖 13 客房登記窗體 單擊“客房登記”，彈出客房登記窗體。 在客房登記窗體中輸入相關信息，單擊“登記”，完成客房登記操作。 4．鐘點房登記 單擊“鐘點房登記”，彈出鐘點房登記窗體，輸入相關信息，單擊“登記”完成客房登記操作。 圖 14 鐘點房登記窗體 5．客人換房 圖 15 客人換房窗體 6．補交押金 圖 16 補交押金窗體 7．退房登記 圖 17 退房登記窗體 8．在店客人表 圖 18 在店客人表窗體 （三） 客房管理 1．客房狀態(tài) 圖 19 客房狀態(tài)窗體 2．客房編輯 圖 20 客房編輯窗體 （四） 消費管理 1．消費入帳 圖 21 消費入帳窗體 2．餐費入帳 圖 22 餐費入帳 3．話費入帳 圖 23 話費入帳 窗體 （五） 報表管理 圖 24 報表管理窗體 （六） 系統(tǒng)管理 圖 25 添加用戶窗體 圖 26 密碼設置窗體 圖 27 初始化數據庫窗體 圖 28 用戶查看窗體 （七） 系統(tǒng)信息 圖 29 系統(tǒng)信息窗體 圖 30 系統(tǒng)介紹窗體 Dim TIM As Integer 39。定義一個整型變量 Dim myval As String 39。定義一個字符串變量 Private Sub Form_Load() 39。自動識別數據庫路徑 = amp。 \ = amp。 \ End Sub Private Sub Form_Activate() 39。當記錄為零時，進入系統(tǒng)具有所有權限 If = 0 Then MsgBox (請先設置操作員密碼和權限！ ) Load MDIForm1 Unload Me Else End If End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 39。按回車鍵， text2 獲得焦點 End Sub Private Sub text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 39。按回車鍵 cmd1 獲得焦點 If KeyCode = vbKeyUp Then If KeyCode = vbKeyDown Then End Sub Private Sub cmd1_Click() 39。驗證操作員及密碼 If = False Then 操作員 like + Chr(34) + + Chr(34) + If Then MsgBox (操作員輸入錯誤 !) Else = select * from qxsz where 操作員 =39。 amp。 amp。 39。 If And And = (密碼) Then drm = If (角色名稱 ) = 管理員 Then gly = 0 Else gly = 1 End If Load MDIForm1 Unload Me Else If TIM = 3 Then 39。密碼輸錯 3 次，退出系統(tǒng) myval = MsgBox(密碼輸入錯誤 ,請向系統(tǒng)管理員查詢 !, 0, ) If myval = vbOK Then End End If If = Then MsgBox (請輸入操作員 !) Else If (操作員 ) Then MsgBox (查無此操作員 ,請重新輸入操作員 !) Else If = Then MsgBox (請輸入操作員密碼 !) Else If (密碼 ) Then MsgBox (密碼錯誤 ,請重新輸入密碼 !) TIM = TIM + 1 End If End If End If End If End If End If End Sub Private Sub cmd2_Click() End End Sub Dim db As Database 39。定義數據庫 Dim rs As Recordset 39。定義字段 Dim connter As Integer 39。定義一個整型變量 Dim workarea(200), sql As String 39。定義字符串變量 Private Sub Form_Load() 39。自動識別數據庫路徑 = amp。 \ End Sub Private Sub start_Click() = True: = True End Sub Private Sub creat_Click() 39。清空選定表中的數據 = True = UBound(workarea) = For Counter = LBound(workarea) To UBound(workarea) workarea(Counter) = initial value amp。 Counter = Counter Set db = Workspaces(0).OpenDatabase( amp。 \) If = 1 Then sql = delete * from djb sql End If If = 1 Then sql = delete * from kf sql End If If = 1 Then sql = delete * from yd sql End If If = 1 Then sql = delete * from qxsz sql End If Next Counter = False = End Sub Private Sub end_Click() 39。 = True Unload Me End Sub 六、結束語 這次設計，使我學到了很多書本上沒有的知識，提高了我對問題的分析能力。在這些天不分晝夜實踐 和摸索中，我受益匪淺，感觸良多。通過這次畢業(yè)設計，使我感到我的所學知識還是不夠的，還要繼續(xù)多加努力。 致謝：在這次畢業(yè)設計中，得到了陳榮華老師的精心指導，提出了很多建議和看法，在此，對陳老師表示我最真摯的謝意。另外，還要謝謝在此期間幫助我的同學們。同時感謝多年來關心和支持我的老師和同學們！ 參考文獻 [1] 陳明 軟件工程 [N]，中央廣播電視大學出版社， 2021 年 [2] 陳明 Visual Basic 程序設計 [N]，中央廣播電視大學出版社， 2021 年 [3] 劉韜、駱娟、何旭洪 Visual 數據庫系統(tǒng)開發(fā)實例導航 [N]，人民郵電出版社 2021 年 [4] 王利，數據庫基礎與應用 [N]，中央廣播電視大學出版社， 1997年 [5] Bob Reselman , Richard Peasley , Wayne Pruchniak. Visual Basic 使用指南 [N]，電子工業(yè)出版社 可畢竟還是做過主持人，意識到這是一個暗示，馬上接過來。 “對啊，我們很急。” “你們急什么？”謝正看著已經慌成一團的學員們，嚴肅的問道。 “嗯，著急簽合同啊?！币呀浻悬c抽泣的小姑娘 接話到，不禁讓這個有點悲哀的氣氛添加一點喜劇色彩。 謝正搖搖頭，意思這不是他想要的答案。 “如果今天簽不回去，經理肯定會對我們很失望，請您關照一下我的工作?！庇峥煽稍囂叫缘膯柕?。 “嗯，聽上去不錯，還有么？我為什么要提前一天和你們簽？晚簽我也沒什么損失?！敝x正暗示他們把答案和客戶的需求聯系在一起。 “嗯??”俞可可著急地轉來轉去，急于去尋找答案。 “您只要一簽合同，美國就馬上開始為您生產設備，這樣會提前一天到達，為您節(jié)省相關成本。每拖一秒鐘，對您都是個損失。如果您沒有什么疑問，我們決心就 等在您的辦公室門口，直到您決定為止，好為您節(jié)約每一秒鐘的成本?！庇峥煽稍谥x正不斷的點頭暗示下，終于緊張地完成這段陳述，不過已經毫無風采可言。 “成交?！? 啪啪啪，謝正鼓起掌，站起來和每個學員都握一遍手。 “恭喜你們，本來還有一個廠商和我約到明天再談一次，但是聽了你們的話，我決定現在就簽合同，讓美國馬上生產，絕對不能耽誤項目的進展。” 大家都長出一口氣，眼睛紅腫的小姑娘也破涕為笑。 “你們知道，如果今天不簽單，會導致什么后果么？”謝正拿起手里的資料給大家看。 “如果你們同意明天再簽單， 那競爭對手今天晚上就會降價 10%，和 Jack 成交?！爸x正示意大家看著自己手頭的背景材料，所有人都暗自點頭，慶幸自己闖過這關。 “我非常喜歡培訓的這個安排，商機一縱即失，既然已經到第七步，就差臨門一腳決定著生死。這時無論如何，按著客戶的手也要把合同簽下來，不能給對手機會，當然理由能滿足客戶的需求最好。恭喜你們?！? 謝正沖著俞可可點點頭，心里也很佩服她的臨場發(fā)揮，但是口頭還是把它總結成整個團隊的功勞。 謝正給這個團隊打個還不錯的分數，只是在點評的時候，提到俞可可在開場時遇到突如其來的問題的時候，反應 隔代大遺傳，是指物種身體的某些特性，并不在下一代身上表現出來，而是隔了數代，或者數十代，然后才表現出來，這是有遺傳學作為根據的，隱性基因在非隱性基因的結合下，始終以隱性方式表現，也就是從外部看不出絲毫問題，直到碰到另一隱性基因，兩者相結合，最終變成顯性基因，而表達出基因的特性，有好的一面，也有壞的一面。方新教授的隔自然需要用大量的時間用在體育訓練上，但是，可千萬別吊死在這一棵樹上了。學校招收體育特長生就只是為了讓這些人在體育賽事中為學校爭點光，至于這些學生畢業(yè)以后何去何從他們可不會考慮。就算有些學校還會保送 優(yōu)秀的體育特長生讀研究生，可讀了研究生以后干什么呢？得奧運金牌的運動員尚且需要考慮退役以后干什么，更何況大學里的體育特長生？如果將體育特長作為自己的核心競爭力，那恐怕除了去做體育老師或者健身房教練之外，就只能去當保安了。所以，大部分體育特長生都必須考慮自己在體育之外如何實現個人價值，也就是說，必須讓自己擁有一項體育之外的有效專長。 體育特長生尚且如此，更何況其他那些整天活躍在球場上的同學呢？熱愛運動確實值得肯定，但是有些同學荒廢學業(yè)而將太多的時間用在球場上就實屬舍本逐末了。 套餐效應 告別大學生畢業(yè)包 分配的時代之后，大學畢業(yè)生其實就成為了市場經濟中的一種商品，而且越來越成為一種供過于求的商品。學校只負責給自己批量生產的商品發(fā)個叫做“畢業(yè)證”的產品合格證，至于產品是不是真的合格、產品有沒有市場，他們就無暇顧及了。 就業(yè)，其實就是將自己作為一件商