【正文】 添加數(shù)據(jù)庫中的值班管理信息。代碼如下：Private Sub Form_Load()Dim sql As StringOn Error GoTo loaderrorsql = select * from 團(tuán)隊資料 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic 39。打開數(shù)據(jù)庫39。設(shè)定datagrid控件屬性 = False 39。不可增加 = False 39。不可刪除 = FalseSet = rs_dclient = FalseExit Subloaderror: MsgBox End Sub。 運行的投訴管理子窗體此窗體主要是按鈕部分的代碼：Private Sub Command2_Click() If Then MsgBox 這是最后一條記錄, vbOKCancel + vbQuestion End IfEnd SubPrivate Sub Command5_Click() On Error GoTo adderr 39。 Unload Me Exit Subadderr: MsgBox End SubPrivate Sub Command6_Click() On Error GoTo deleteerr With If Not .EOF And Not .BOF Then If MsgBox(刪除當(dāng)前記錄嗎？, vbYesNo + vbQuestion) = vbYes Then .Delete .MoveNext If .EOF Then .MoveLast End If End If End With Exit Subdeleteerr: MsgBox End SubPrivate Sub Command3_Click()If Then MsgBox 紀(jì)錄空, vbOKCancel + vbQuestion End Else End If Exit SubEnd SubPrivate Sub Command1_Click() If Then MsgBox 這是第一條記錄, vbOKCancel + vbQuestion End IfEnd SubPrivate Sub Command4_Click()If = 0 Then MsgBox 空紀(jì)錄, vbOKCancel + vbQuestion End Else End IfEnd SubPrivate Sub Command7_Click()If = 0 Then MsgBox 空紀(jì)錄, vbOKCancel + vbQuestion End Else End IfEnd SubPrivate Sub Command8_Click()Unload MeEnd SubPrivate Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)End Sub。在本項目中，用戶登陸子窗體是運行的第一個 界面，它的作用是檢查用戶名和密碼是否正確。由于用戶的資料是存放在數(shù)據(jù)庫中，所以在啟動該子窗體時，就已經(jīng)連接了數(shù)據(jù)庫。其代碼如下：Private Sub Form_Load()Dim connectionstring As Stringconnectionstring = provider=。 amp。 _ data source= connectionstringt = 0End Sub “確定”按鈕控件的作用是檢查輸入的數(shù)據(jù)是否與數(shù)據(jù)庫中的數(shù)據(jù)一致。Private Sub Command1_Click()Dim sql As StringDim rs_login As New If Trim() = Then 39。判斷輸入的用戶名是否為空 MsgBox 沒有這個用戶, vbOKOnly + vbExclamation, Else sql = select * from 系統(tǒng)管理 where 用戶名=39。 amp。 amp。 39。 sql, conn, adOpenKeyset, adLockPessimistic If = True Then MsgBox 沒有這個用戶, vbOKOnly + vbExclamation, Else 39。檢驗密碼是否正確用戶名和密碼通過后，要關(guān)閉本窗體并打開主窗體。 If Trim((1)) = Trim() Then userID = userpow = (2) Unload Me Else MsgBox 密碼不正確, vbOKOnly + vbExclamation, End If End IfEnd Ift = t + 1If t = 3 Then Unload MeEnd IfExit SubEnd Sub到這里，基本上各個窗體的界面和代碼都介紹完了。第六章 系統(tǒng)測試 系統(tǒng)功能酒店管理系統(tǒng)是針對各個企業(yè)單位在給員工工資發(fā)放過程中面對的各種問題，對其工資信息規(guī)范化、自動化，使企業(yè)管理更為簡捷、效率。 系統(tǒng)程序分析總體上本系統(tǒng)的程序結(jié)構(gòu)緊湊、明晰，邏輯嚴(yán)密，層次分明，簡潔明了，布局巧妙，模塊劃分清晰，充分體現(xiàn)了設(shè)計思想。當(dāng)然程序存在著的不足之處也是在所難免的，如功能不夠完善，數(shù)據(jù)庫的維護(hù)和管理沒有涉及，數(shù)據(jù)字典的應(yīng)用不夠充分等，但由于時間上的問題，如有必要可以進(jìn)一步完善。通過這次設(shè)計初步了解了一個項目完成的整個情況和過程，為以后的工作和學(xué)習(xí)奠定一定的基礎(chǔ)。 編程的重點和難點企酒店管理系統(tǒng)是一個很普通的管理系統(tǒng)，但作為畢業(yè)生作出此系統(tǒng)也是不容易的。此系統(tǒng)的重點是在VB數(shù)據(jù)庫開發(fā)中用到操作數(shù)據(jù)庫的方法以及對數(shù)據(jù)庫記錄進(jìn)行統(tǒng)計的方法和數(shù)據(jù)報表等。編程過程中也遇到一些問題和難點，比如：在做好系統(tǒng)之后，界面和數(shù)據(jù)庫脫離原計算機(jī)后就不能連接成功，后來在冀老師和同學(xué)的幫助下，成功的完成此系統(tǒng)。 測試環(huán)境與測試條件軟件測試環(huán)境是進(jìn)行軟件測試所必需的工作平臺和前提條件，包括硬件環(huán)境和軟件環(huán)境，硬件環(huán)境指進(jìn)行測試所必需的服務(wù)器、客戶端、網(wǎng)絡(luò)連接設(shè)備，以及打印機(jī)/掃描儀等輔助硬件設(shè)備所構(gòu)成的環(huán)境；軟件環(huán)境則指被測軟件運行時的操作系統(tǒng)、數(shù)據(jù)庫及其他應(yīng)用軟件等構(gòu)成的環(huán)境。軟件由數(shù)據(jù)和程序兩個最基本的要素組成， 對數(shù)據(jù)進(jìn)行軟件測試，就是在檢查用戶輸入的信息、返回結(jié)果以及中間計算結(jié)果是否正確。主要根據(jù)下列原則來進(jìn)行等價分配，以合理減少測試實例：邊界條件、次邊界條件和無效數(shù)據(jù)。 實例測試該測試的主要內(nèi)容是按實際操作的數(shù)據(jù)向系統(tǒng)的各個功能模塊輸入數(shù)據(jù)，檢測輸出結(jié)果是否符合預(yù)期要求。 登錄用戶名：11密 碼：11 實例演示散客入住實例演示：客戶房號：42號房 價：420姓 名：張三性 別：男證 件 號：1234567入住日期：200761離開日期：200764團(tuán)隊入住實例演示：團(tuán)隊名稱：山水旅行團(tuán)負(fù)責(zé)人：李四房間號：1020證件號：123456入住日期：200751離開日期：2007510投訴管理實體實例演示：編號：9投訴日期：2007110投訴對象：部門經(jīng)理投訴內(nèi)容：衛(wèi)生不到位受訴部門：受訴日期：處理意見：值班管理實體實例演示：值班開始時間：9：00值班截至?xí)r間：22：00值班人：王五記事：無值班開始日期：200761值班截至日期：200762 性能測試評價在對各個模塊的測試完成后對整個系統(tǒng)作一個完整的測試，以檢驗各模塊在聯(lián)合運行時運行結(jié)果是否符合預(yù)期要求。本系統(tǒng)功能雖不是十分完善，但已開發(fā)出來的功能已能滿足當(dāng)前多數(shù)情況的需要，經(jīng)過測試各個功能模塊的實現(xiàn)均正常有效.結(jié) 束 語時間過得飛快,一個多月的畢業(yè)設(shè)計就要結(jié)束了,在這一個多月里,我學(xué)到了許多書本上沒有涉及的東西,、提出方案、進(jìn)行設(shè)計、軟件測試等，雖然這次的設(shè)計是我的第一次嘗試,還沒有投入到實際應(yīng)用中,但這次的設(shè)計過程可以說是一知識綜合運用的過程,考驗了我的水平, Basic 編程語言,我一邊做一邊復(fù)習(xí),讓我學(xué)到了不少曾遺忘的知識,提高了應(yīng)用水平,改變了以往只學(xué)不練的習(xí)慣,我的指導(dǎo)老師冀佩剛老師給了我很多的幫助和輔導(dǎo),充分體現(xiàn)了師生之情,在即將畢業(yè)之際,我衷心的感謝我的老師給我的關(guān)心!三年的大學(xué)生活即將結(jié)束,我特別珍惜這三年時光,因為這三年是我的學(xué)生生活中重要的一段,這三年是我的人生里程碑中重要的一部分,我想這三年也將成為我日后回憶中重要的一程。我的畢業(yè)設(shè)計主要實現(xiàn)了進(jìn)出流水帳、財務(wù)資料、帳目匯總、系統(tǒng)管理等，具有添加、刪除、匯總、查詢等功能。通過這些管理模塊，可以是企業(yè)的財務(wù)部分更加清晰，更加簡捷，提高的工作效率，減少操作人員的工作量，以實現(xiàn)帳務(wù)系統(tǒng)管理的規(guī)范化和自動化。雖然此系統(tǒng)已達(dá)到預(yù)期效果但是系統(tǒng)中還存在不少癖露，希望它能給業(yè)內(nèi)人士提供幫助。在以后的工作中，我也要象對待自己的畢業(yè)設(shè)計一樣一絲不茍，積極思考，努力完成自己的任務(wù)。致 謝在本次畢業(yè)設(shè)計中，我從指導(dǎo)老師武學(xué)東身上學(xué)到了很多東西。冀老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。冀老師無論在理論上還是在實踐中，都給予我很大的幫助，使我得到了不少的提高這些對于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝他耐心的輔導(dǎo)。另外，在系統(tǒng)開發(fā)過程中周圍的同學(xué)也給于我很大的幫助，幫助解決了不少的難點，使得系統(tǒng)能及時開發(fā)完成，這里表示感謝。參 考 文 獻(xiàn) [1] 趙振江、張二峰，Visual Basic 程序設(shè)計案例教程，北京：人民郵電出版社.[2] 李禹生、廖明潮，Access 2000 應(yīng)用技術(shù)實訓(xùn)指導(dǎo)，北京：中國水利水電出版社.[3] 郭勝、夏邦貴，Visual Basic 數(shù)據(jù)庫開發(fā)入門與范例解析，北京：機(jī)械工業(yè)出版社.[4] 楊誠忠，中文版 Access 2000 快速入門教程，北京：航空工業(yè)出版社.[5] 郭琦，Visual Basic 數(shù)據(jù)庫系統(tǒng)開發(fā)技術(shù)，北京：人民郵電出版社.[6] 賈嵐，中文 Access 數(shù)據(jù)庫應(yīng)用教程——數(shù)據(jù)庫開發(fā)師，北京：北京希望電子出版社.[7] 于英杰，Visual Basic 數(shù)據(jù)庫開發(fā)與專業(yè)應(yīng)用，北京：國防工業(yè)出版社.