【正文】 load MeElseMsgBox 密碼不正確, vbOKOnly + vbExclamation, End IfEnd IfEnd If39。 只能輸入3次t = t + 1If t = 3 ThenUnload MeEnd IfExit SubEnd Sub值班管理子窗體的作用是把值班人員的時(shí)間安排形成列表。運(yùn)行的值班管理子窗體如圖所示。運(yùn)行的值班管理子窗體先定義連接數(shù)據(jù)庫(kù)的變量:Option ExplicitDim rs_zhiban As New 然后列出窗體部分的代碼。Private Sub cmdadd_Click()On Error GoTo adderrorIf = 新增記錄 Then 39。 當(dāng)此按鈕的狀態(tài)為為“增加記錄”時(shí) = 確定 39。 按鈕名稱改“確定” = False = True = True 39。 設(shè)定DataGrid可以增加記錄ElseIf Not IsNull() ThenIf Not IsDate(Trim((值班開(kāi)始日期).CellText())) ThenMsgBox 請(qǐng)按照格式y(tǒng)yyymmdd輸入值班開(kāi)始日期, vbOKOnly + vbExclamation, Exit SubEnd IfIf Not IsDate(Trim((值班開(kāi)始時(shí)間).CellText(DataGrid1. Bookmark))) ThenMsgBox 請(qǐng)按照格式hhmm輸入值班開(kāi)始時(shí)間, vbOKOnly + vbExclamation, Exit SubEnd IfIf Not IsDate(Trim((值班截止日期).CellText(DataGrid1. Bookmark))) ThenMsgBox 請(qǐng)按照格式y(tǒng)yyymmdd輸入值班截止日期, vbOKOnly + vbExclamation, Exit SubEnd IfIf Not IsDate(Trim((值班截止時(shí)間).CellText(DataGrid1. Bookmark))) ThenMsgBox 請(qǐng)按照格式hhmm輸入值班截止時(shí)間, vbOKOnly + vbExclamation, Exit SubEnd IfIf Trim((值班人).CellText()) = ThenMsgBox 值班人不能為空!, vbOKOnly + vbExclamation, Exit SubEnd IfMsgBox 添加信息成功!, vbOKOnly + vbExclamation, = False = FalseElseMsgBox 沒(méi)有添加信息!, vbOKOnly + vbExclamation, End If = 新增記錄 = TrueEnd Ifadderror:If 0 ThenMsgBox End IfEnd SubPrivate Sub cmdcancel_Click()Unload MeEnd SubPrivate Sub cmddel_Click()Dim answer As StringOn Error GoTo delerroranswer = MsgBox(確定要?jiǎng)h除嗎?, vbYesNo, )If answer = vbYes Then = TrueMsgBox 成功刪除!, vbOKOnly + vbExclamation, = FalseElseExit SubEnd Ifdelerror:If 0 ThenMsgBox End IfEnd SubPrivate Sub Form_Load()Dim sql As StringOn Error GoTo loaderrorsql = select * from 值班管理 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic 39。 打開(kāi)數(shù)據(jù)庫(kù)39。 設(shè)定DataGrid控件屬性 = False 39。 不可增加 = False 39。 不可刪除 = FalseSet = rs_zhibanExit Subloaderror:MsgBox End SubPrivate Sub Form_Unload(Cancel As Integer)Set = NothingEnd Sub投訴管理子窗體是為了對(duì)人員進(jìn)行更好的管理而設(shè)置的，可以向其添加投訴的對(duì)象、時(shí)間和內(nèi)容等。投訴管理運(yùn)行后的子窗體如圖所示。運(yùn)行的投訴管理子窗體以下為窗體的代碼:Private Sub Command1_Click()On Error GoTo adderrExit Subadderr:MsgBox End SubPrivate Sub Command2_Click()On Error GoTo deleteerrWith If Not .EOF And Not .BOF ThenIf MsgBox(刪除當(dāng)前記錄嗎?, vbYesNo + vbQuestion) = vbYes Then.Delete.MoveNextIf .EOF Then .MoveLastEnd IfEnd IfEnd WithExit Subdeleteerr:MsgBox End SubPrivate Sub Command3_Click()If ThenMsgBox 這是第一條記錄, vbOKCancel + vbQuestionEnd IfEnd SubPrivate Sub Command4_Click()If ThenMsgBox 這是最后一條記錄, vbOKCancel + vbQuestionEnd IfEnd SubPrivate Sub Command5_Click()If ThenMsgBox 記錄空, vbOKCancel + vbQuestionEndElseEnd IfExit SubEnd SubPrivate Sub Command6_Click()If = 0 ThenMsgBox 空記錄, vbOKCancel + vbQuestionEndElseEnd IfEnd SubPrivate Sub Command7_Click()End Sub5．實(shí)施概況在開(kāi)發(fā)本系統(tǒng)時(shí)，為了使系統(tǒng)能夠穩(wěn)定運(yùn)行，對(duì)本系統(tǒng)進(jìn)行了有針對(duì)性的全面測(cè)試，采取的方式是：菜單項(xiàng)測(cè)試：為了保證每一項(xiàng)下拉菜單能夠正確實(shí)現(xiàn)系統(tǒng)設(shè)計(jì)的功能，我把該圖書(shū)館有關(guān)圖書(shū)的所有基礎(chǔ)數(shù)據(jù)，基本上全部輸入到本系統(tǒng)中，并對(duì)每一個(gè)菜單項(xiàng)反復(fù)進(jìn)行了增加、刪除、修改等操作，從而保證了菜單級(jí)功能的正確實(shí)現(xiàn)。數(shù)據(jù)跟蹤：完成菜單項(xiàng)測(cè)試后，我又對(duì)系統(tǒng)內(nèi)的每一個(gè)數(shù)據(jù)進(jìn)行了跟蹤。例如：例如對(duì)最多可借書(shū)數(shù)的管理，我首先在借書(shū)證管理模塊中對(duì)某個(gè)讀者的可借書(shū)數(shù)進(jìn)行設(shè)定，然后在借書(shū)模塊進(jìn)行數(shù)據(jù)操作，隨時(shí)觀察這兩個(gè)數(shù)值之間是否有沖突產(chǎn)生，經(jīng)過(guò)對(duì)可借書(shū)數(shù)的數(shù)值多次不同大小的設(shè)置并進(jìn)行驗(yàn)證，說(shuō)明該功能完全正常。綜合測(cè)試：在以上測(cè)試的基礎(chǔ)上對(duì)系統(tǒng)功能進(jìn)行了整體的測(cè)試，依次來(lái)檢驗(yàn)系統(tǒng)功能是否符合系統(tǒng)設(shè)計(jì)的要求。 系統(tǒng)運(yùn)行與維護(hù)、系統(tǒng)的運(yùn)行：1初始數(shù)據(jù)的輸入本系統(tǒng)的的輸入采用鼠標(biāo)和鍵盤(pán)相結(jié)合的輸入方法。怎樣進(jìn)入系統(tǒng)A、將本系統(tǒng)所在的文件夾拷貝到硬盤(pán)，然后執(zhí)行其中的圖書(shū)管理系統(tǒng)的程序文件即可，應(yīng)注意要將全部文件的屬性變以存檔，消除只讀屬性。B、在隨后出現(xiàn)的登錄界面上輸入正確的用戶名和密碼即可怎樣使用本系統(tǒng)：點(diǎn)擊鼠標(biāo)左鍵即可進(jìn)行相應(yīng)功能的選擇。、系統(tǒng)的維護(hù)：本系統(tǒng)是個(gè)較復(fù)雜的人機(jī)系統(tǒng)，由于系統(tǒng)外部環(huán)境與內(nèi)部因素的變化，不斷影響系統(tǒng)的運(yùn)行，同時(shí)需要系統(tǒng)不斷地適應(yīng)這些變化，不斷地完善系統(tǒng)，以提高系統(tǒng)運(yùn)行的效率與服務(wù)水平，這就需要自始至終進(jìn)行系統(tǒng)的維護(hù)工作。系統(tǒng)的維護(hù)主要包括四個(gè)方面：（1）程序的維護(hù)：指的是修改部分或全部程序，這種維護(hù)往往是在條件發(fā)生變化或原系統(tǒng)的效率低的情況下進(jìn)行的。（2）數(shù)據(jù)文件的維護(hù)：指的是按照用戶的要求對(duì)數(shù)據(jù)文件進(jìn)行不定期的修改。（3）代碼的維護(hù)：隨著系統(tǒng)的發(fā)展和變化，可能會(huì)出現(xiàn)舊代碼不能適應(yīng)新要求的問(wèn)題，因此，有必要變更代碼，予以維護(hù)。（4）硬件的維護(hù)：指的是對(duì)系統(tǒng)所使用的設(shè)備進(jìn)行維護(hù)。本系統(tǒng)的日常維護(hù)由圖書(shū)館的專人來(lái)負(fù)責(zé)，如果出現(xiàn)一些不能解決的問(wèn)題，則由開(kāi)發(fā)者來(lái)負(fù)責(zé)。 結(jié)論通過(guò)初步設(shè)計(jì)該圖書(shū)管理系統(tǒng)(1) 可以實(shí)現(xiàn)圖書(shū)的登記、借閱和賠償?shù)墓芾怼?2) 可以實(shí)現(xiàn)對(duì)圖書(shū)的各種信息的查詢，包括逐個(gè)瀏覽，以及對(duì)圖書(shū)信息的增加、刪除和編輯操作。另外，可以根據(jù)輸入的信息來(lái)檢索某個(gè)圖書(shū)的信息。(3) 可以實(shí)現(xiàn)對(duì)管理人員的投訴管理。(4) 可以實(shí)現(xiàn)對(duì)值班人員的管理等幾方面的功能。在本系統(tǒng)的開(kāi)發(fā)過(guò)程中，由于畢業(yè)設(shè)計(jì)時(shí)間較短，本人是初次開(kāi)發(fā)軟件，在知識(shí)、經(jīng)驗(yàn)方面都存在著不足，所以該系統(tǒng)還有許多不盡如人意的地方，比如用戶界面不夠美觀，圖書(shū)資料業(yè)務(wù)需要細(xì)化，圖書(shū)賠償?shù)葮I(yè)務(wù)處理過(guò)于簡(jiǎn)單，出錯(cuò)處理不夠等多方面問(wèn)題，后期軟件的運(yùn)行和維護(hù)方面敘述不詳，這些都有待進(jìn)一步改善。由于另外，在整個(gè)開(kāi)發(fā)的過(guò)程中，時(shí)間也比較倉(cāng)促。因此，該系統(tǒng)必然會(huì)存在一些缺陷和不足。因?yàn)閷?duì)圖書(shū)管理的整個(gè)流程不夠熟悉，在需求分析時(shí)未能做到完全滿足用戶的需求。雖然網(wǎng)絡(luò)在圖書(shū)管理系統(tǒng)中的應(yīng)用已經(jīng)很普遍，但在開(kāi)發(fā)過(guò)程由于硬件的限制，未能實(shí)現(xiàn)網(wǎng)絡(luò)功能，在大多數(shù)圖書(shū)管理系統(tǒng)單機(jī)版中，數(shù)據(jù)庫(kù)是用普通的單機(jī)版數(shù)據(jù)庫(kù)，那么在以后的系統(tǒng)更新過(guò)程中會(huì)造成不必要的損失。通過(guò)這次畢業(yè)設(shè)計(jì)，使我提高了實(shí)際操作能力，從以前的理論上升到實(shí)踐，從感性認(rèn)識(shí)上升到理性認(rèn)識(shí)，真正做到學(xué)有所用，懂得先要發(fā)現(xiàn)問(wèn)題，分析問(wèn)題，解決問(wèn)題，雖然在設(shè)計(jì)過(guò)程中我也遇到一些困難，但在老師的幫助和自己的努力下，我都認(rèn)真克服了，但由于時(shí)間緊觸，我并不能做到盡善盡美，不能不說(shuō)這是一大遺憾，但我相信這樣的設(shè)計(jì)將會(huì)對(duì)我以后的學(xué)習(xí)和工作有諸多裨益。參考文獻(xiàn)[1] 王珊. 數(shù)據(jù)庫(kù)系統(tǒng)概論[M]. 高等教育出版社，1991.[2] 清源計(jì)算機(jī)工作室Visual Basic設(shè)計(jì)與制作[M]，機(jī)械工業(yè)出版社，2004年.[3] 潘錦平. 軟件開(kāi)發(fā)技術(shù)[M]. 西安電子科技大學(xué)出版社，1997 .[4] 田金蘭等. VisualBasic6使用指南[M]. 電子工業(yè)出版社，1997.[5] 黃淼云，[M],國(guó)防工業(yè)出版社,2003年.[6] 周佩德，數(shù)據(jù)庫(kù)原理及應(yīng)用[M]，電子工業(yè)出版社,2005年.[7] [M].中央廣播電視大學(xué)出版社, 2001. [8] Basic數(shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)實(shí)例導(dǎo)航[M].人民郵電出版社, 2003.[9] Jeffrey. VisualBasic6數(shù)據(jù)庫(kù)訪問(wèn)技術(shù)[M]. 機(jī)械工業(yè)出版社，1995.[10]劉炳文，精通VISUAL BASIC [M]，人民郵電出版社,2001年.[11]張路平，喻波, Basic編程案例精解[M].電子工業(yè)出版社,2005. 42