【正文】 Box 記錄空, vbOKCancel + vbQuestionEndElseEnd IfExit SubEnd SubPrivate Sub Command6_Click()If = 0 ThenMsgBox 空記錄, vbOKCancel + vbQuestionEndElseEnd IfEnd SubPrivate Sub Command7_Click()End Sub5．實(shí)施概況在開發(fā)本系統(tǒng)時(shí)，為了使系統(tǒng)能夠穩(wěn)定運(yùn)行，對本系統(tǒng)進(jìn)行了有針對性的全面測試，采取的方式是：菜單項(xiàng)測試：為了保證每一項(xiàng)下拉菜單能夠正確實(shí)現(xiàn)系統(tǒng)設(shè)計(jì)的功能，我把該圖書館有關(guān)圖書的所有基礎(chǔ)數(shù)據(jù)，基本上全部輸入到本系統(tǒng)中，并對每一個(gè)菜單項(xiàng)反復(fù)進(jìn)行了增加、刪除、修改等操作，從而保證了菜單級功能的正確實(shí)現(xiàn)。 系統(tǒng)運(yùn)行與維護(hù)、系統(tǒng)的運(yùn)行：1初始數(shù)據(jù)的輸入本系統(tǒng)的的輸入采用鼠標(biāo)和鍵盤相結(jié)合的輸入方法。系統(tǒng)的維護(hù)主要包括四個(gè)方面：（1）程序的維護(hù)：指的是修改部分或全部程序，這種維護(hù)往往是在條件發(fā)生變化或原系統(tǒng)的效率低的情況下進(jìn)行的。本系統(tǒng)的日常維護(hù)由圖書館的專人來負(fù)責(zé)，如果出現(xiàn)一些不能解決的問題，則由開發(fā)者來負(fù)責(zé)。(3) 可以實(shí)現(xiàn)對管理人員的投訴管理。因此，該系統(tǒng)必然會(huì)存在一些缺陷和不足。參考文獻(xiàn)[1] 王珊. 數(shù)據(jù)庫系統(tǒng)概論[M]. 高等教育出版社，1991.[2] 清源計(jì)算機(jī)工作室Visual Basic設(shè)計(jì)與制作[M]，機(jī)械工業(yè)出版社，2004年.[3] 潘錦平. 軟件開發(fā)技術(shù)[M]. 西安電子科技大學(xué)出版社，1997 .[4] 田金蘭等. VisualBasic6使用指南[M]. 電子工業(yè)出版社，1997.[5] 黃淼云，[M],國防工業(yè)出版社,2003年.[6] 周佩德，數(shù)據(jù)庫原理及應(yīng)用[M]，電子工業(yè)出版社,2005年.[7] [M].中央廣播電視大學(xué)出版社, 2001. [8] Basic數(shù)據(jù)庫系統(tǒng)開發(fā)實(shí)例導(dǎo)航[M].人民郵電出版社, 2003.[9] Jeffrey. VisualBasic6數(shù)據(jù)庫訪問技術(shù)[M]. 機(jī)械工業(yè)出版社，1995.[10]劉炳文，精通VISUAL BASIC [M]，人民郵電出版社,2001年.[11]張路平，喻波, Basic編程案例精解[M].電子工業(yè)出版社,2005. 42。雖然網(wǎng)絡(luò)在圖書管理系統(tǒng)中的應(yīng)用已經(jīng)很普遍，但在開發(fā)過程由于硬件的限制，未能實(shí)現(xiàn)網(wǎng)絡(luò)功能，在大多數(shù)圖書管理系統(tǒng)單機(jī)版中，數(shù)據(jù)庫是用普通的單機(jī)版數(shù)據(jù)庫，那么在以后的系統(tǒng)更新過程中會(huì)造成不必要的損失。在本系統(tǒng)的開發(fā)過程中，由于畢業(yè)設(shè)計(jì)時(shí)間較短，本人是初次開發(fā)軟件，在知識、經(jīng)驗(yàn)方面都存在著不足，所以該系統(tǒng)還有許多不盡如人意的地方，比如用戶界面不夠美觀，圖書資料業(yè)務(wù)需要細(xì)化，圖書賠償?shù)葮I(yè)務(wù)處理過于簡單，出錯(cuò)處理不夠等多方面問題，后期軟件的運(yùn)行和維護(hù)方面敘述不詳，這些都有待進(jìn)一步改善。(2) 可以實(shí)現(xiàn)對圖書的各種信息的查詢，包括逐個(gè)瀏覽，以及對圖書信息的增加、刪除和編輯操作。（3）代碼的維護(hù)：隨著系統(tǒng)的發(fā)展和變化，可能會(huì)出現(xiàn)舊代碼不能適應(yīng)新要求的問題，因此，有必要變更代碼，予以維護(hù)。B、在隨后出現(xiàn)的登錄界面上輸入正確的用戶名和密碼即可怎樣使用本系統(tǒng)：點(diǎn)擊鼠標(biāo)左鍵即可進(jìn)行相應(yīng)功能的選擇。例如：例如對最多可借書數(shù)的管理，我首先在借書證管理模塊中對某個(gè)讀者的可借書數(shù)進(jìn)行設(shè)定，然后在借書模塊進(jìn)行數(shù)據(jù)操作，隨時(shí)觀察這兩個(gè)數(shù)值之間是否有沖突產(chǎn)生，經(jīng)過對可借書數(shù)的數(shù)值多次不同大小的設(shè)置并進(jìn)行驗(yàn)證，說明該功能完全正常。 不可刪除 = FalseSet = rs_zhibanExit Subloaderror:MsgBox End SubPrivate Sub Form_Unload(Cancel As Integer)Set = NothingEnd Sub投訴管理子窗體是為了對人員進(jìn)行更好的管理而設(shè)置的，可以向其添加投訴的對象、時(shí)間和內(nèi)容等。 設(shè)定DataGrid可以增加記錄ElseIf Not IsNull() ThenIf Not IsDate(Trim((值班開始日期).CellText())) ThenMsgBox 請按照格式y(tǒng)yyymmdd輸入值班開始日期, vbOKOnly + vbExclamation, Exit SubEnd IfIf Not IsDate(Trim((值班開始時(shí)間).CellText(DataGrid1. Bookmark))) ThenMsgBox 請按照格式hhmm輸入值班開始時(shí)間, vbOKOnly + vbExclamation, Exit SubEnd IfIf Not IsDate(Trim((值班截止日期).CellText(DataGrid1. Bookmark))) ThenMsgBox 請按照格式y(tǒng)yyymmdd輸入值班截止日期, vbOKOnly + vbExclamation, Exit SubEnd IfIf Not IsDate(Trim((值班截止時(shí)間).CellText(DataGrid1. Bookmark))) ThenMsgBox 請按照格式hhmm輸入值班截止時(shí)間, vbOKOnly + vbExclamation, Exit SubEnd IfIf Trim((值班人).CellText()) = ThenMsgBox 值班人不能為空!, vbOKOnly + vbExclamation, Exit SubEnd IfMsgBox 添加信息成功!, vbOKOnly + vbExclamation, = False = FalseElseMsgBox 沒有添加信息!, 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。運(yùn)行的值班管理子窗體先定義連接數(shù)據(jù)庫的變量:Option ExplicitDim rs_zhiban As New 然后列出窗體部分的代碼。 檢驗(yàn)密碼是否正確用戶名和密碼通過后，要關(guān)閉本窗體并打開主窗體。 amp。 amp。查詢結(jié)果 運(yùn)行的用戶登錄子窗體如圖所示。 添加編號With rs_findDo While Not .EOFCombo1(0).AddItem .Fields(0)Combo1(1).AddItem .Fields(0).MoveNextLoopEnd WithEnd IfFor i = 2001 To 2005 39。 amp。 Combod(1).Text), yyyymmdd)sqlfind = select * from 圖書資料 where 購買日期 between amp。 Combod(0).Text), yyyymmdd)ind_date2 = Format(CDate(Comboy(1).Text amp。End IfIf = True Thenfind_date1 = Format(CDate(Comboy(0).Text amp。 39。 _Combo1(0).Text amp。其運(yùn)行效果如圖所示。 修改狀態(tài)標(biāo)志Private Sub cmdexit_Click()Unload MeEnd SubPrivate Sub Form_Load()On Error GoTo loaderrorDim sql As Stringsql = select * from 圖書資料 = adUseClient sql, conn, adOpenKeyset, adLockPessimisticWhile Not (0)Wendfindok = Truemodify = False 39。庫房管理子窗體實(shí)際上，設(shè)計(jì)庫房管理子窗體的程序代碼與增加用戶子窗體的代碼在思路上是完全相同的。 sql, conn, adOpenKeyset, adLockPessimistic(1) = MsgBox 密碼修改成功, vbOKOnly + vbExclamation, Unload MeEnd IfEnd Sub在上述代碼中，首先比較兩個(gè)表中的數(shù)據(jù)是否一致，(1) = 。 修改密碼子窗體運(yùn)行效果在“確定”按鈕的Click事件中添加如下代碼:Private Sub Command1_Click()Dim rs_chang As New Dim sql As StringIf Trim() Trim() ThenMsgBox 密碼不一致!, vbOKOnly + vbExclamation, = = Elsesql = select * from 系統(tǒng)管理 where 用戶名=39。單擊“確定”按鈕后，還要返回一個(gè)信息框，提示成功信息，如圖所示。圖書登記子窗體按鈕控件要求先填寫基本信息，然后與數(shù)據(jù)庫信息比較。Private Sub zhibanguanli_Click() 1End Sub下面是響應(yīng)“投訴管理”子菜單Click事件，調(diào)出投訴管理窗體代碼。Private Sub checkin_Click()End Sub下面是響應(yīng)“修改密碼”子菜單Click事件，調(diào)出修改密碼窗體代碼。下面是響應(yīng)“增加用戶”子菜單Click事件，調(diào)出增加用戶窗體代碼。 標(biāo)記查詢Public sqlfind As String 39。Public conn As New 39。創(chuàng)建公共模塊的步驟如下:(1) 在菜單中選擇“工程”→“添加模塊”命令，則出現(xiàn)模塊對話框，如圖所示。庫房管理子窗體其控件如表6所示。(1) 圖書登記子窗體如所示，其控件如表4所示。圖21 主窗體創(chuàng)建各子窗體選擇“工程”→“添加窗體”命令，添加子窗體。將“菜單”組件從“工具箱”拖到窗體上。