【正文】 首先進行館藏圖書的查詢（具體界面的設置見圖53）： 圖54然后單擊命令按鈕“借這本書”，若這本書已被借出，則彈出如下的對話框： 圖55否則進入到“借書”界面：圖56流程圖如下：選擇查詢條件借書顯示書籍信息選擇讀者信息此書已借出確定借書再借否？是否否退出有關(guān)代碼如下：a、館藏圖書查詢表單的有關(guān)代碼：Option ExplicitDim panduan As StringPrivate Sub Command1_Click()Dim rs_findbook As New Dim sql As StringIf = vbChecked Then sql = 書名=39。 amp。 Trim( amp。 ) amp。 39。End IfIf = vbChecked Then If Trim(sql) = Then sql = 類別=39。 amp。 Trim( amp。 ) amp。 39。 Else sql = sql amp。 and 書名=39。 amp。 Trim( amp。 ) amp。 39。 End IfEnd IfIf = vbChecked Then If Trim(sql) = Then sql = 作者=39。 amp。 Trim( amp。 ) amp。 39。 Else sql = sql amp。 and 作者=39。 amp。 Trim( amp。 ) amp。 39。 End IfEnd IfIf = vbChecked Then If Trim(sql) = Then sql = 出版社=39。 amp。 Trim( amp。 ) amp。 39。 Else sql = sql amp。 and 出版社=39。 amp。 Trim( amp。 ) amp。 39。 End IfEnd IfIf = vbChecked Then If Trim(sql) = Then sql = 書籍編號=39。 amp。 Trim( amp。 ) amp。 39。 Else sql = sql amp。 and 書籍編號=39。 amp。 Trim( amp。 ) amp。 39。 End IfEnd IfIf Trim(sql) = Then MsgBox 請選擇查詢方式！, vbOKOnly + vbExclamation Exit SubEnd Ifsql = select * from 書籍信息 where amp。 sql = adUseClient sql, conn, adOpenKeyset, adLockPessimistic = False = False = FalseSet = rs_findbook39。End SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()If Trim(book_num) = Then MsgBox 請選擇要借閱的圖書！, vbOKOnly + vbExclamation Exit SubEnd IfIf panduan = 是 Then MsgBox 此書已被借出！, vbOKOnly + vbExclamation Exit SubEnd IfEnd SubPrivate Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)book_num = (0).CellValue()panduan = (7).CellValue()End SubPrivate Sub Form_Load()Dim rs_find As New Dim sql As Stringsql = select * from 圖書類別 sql, conn, adOpenKeyset, adLockPessimisticIf Not Then Do While Not (0) Loop = 0End IfEnd Sub b、借書表單的有關(guān)代碼：Private Sub Command1_Click()Dim rs_borrowbook As New Dim sql As Stringsql = select * from 讀者信息 where 讀者編號=39。 amp。 amp。 39。 sql, conn, adOpenKeyset, adLockPessimisticleibie = (3)shumu = (8)sql = select * from 讀者類別 where 種類名稱=39。 amp。 leibie amp。 39。 sql, conn, adOpenKeyset, adLockPessimisticqixian = (2)maxnum = (1)If shumu = maxnum Then MsgBox 該讀者借書數(shù)額已滿！, vbOKOnly + vbExclamation Exit SubEnd Ifsql = select * from 借閱信息 sql, conn, adOpenKeyset, adLockPessimistic(1) = (2) = (3) = (4) = (5) = Date(6) = DateAdd(Ww, qixian, Date)sql = select * from 書籍信息 where 書籍編號=39。 amp。 book_num amp。 39。 sql, conn, adOpenKeyset, adLockPessimistic(7) = 是sql = select * from 讀者信息 where 讀者編號=39。 amp。 amp。 39。 sql, conn, adOpenKeyset, adLockPessimistic(8) = (8) + 1MsgBox 本書借閱成功！, vbOKOnly + vbExclamationUnload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim rs_borrow As New Dim rs_reader As New Dim sql As Stringsql = select * from 書籍信息 where 書籍編號=39。 amp。 book_num amp。 39。 sql, conn, adOpenKeyset, adLockPessimistic = (0) = (1) = (2) = (3) = (4) = (5) = (6)sql = select * from 讀者信息 sql, conn, adOpenKeyset, adLockPessimisticIf Not Then Do While Not (1) (0) LoopElse MsgBox 請先登記讀者！, vbOKOnly + vbExclamation Exit SubEnd IfEnd Sub限于篇幅，其它模塊的代碼舉例從略。第六章 實施概況：系統(tǒng)開發(fā)環(huán)境包括硬件平臺和軟件平臺兩種。硬件平臺是指開發(fā)與運行所需要的硬件環(huán)境，主要包括計算機機型及硬件配置。由于本系統(tǒng)是一個小型的MIS管理系統(tǒng)，因此對計算機硬件的要求不高，比較經(jīng)濟，只要配備有PII300處理器（或以上）、64M內(nèi)存（或以上）、20G硬盤（或以上）的普通微機即可順利運行。軟件平臺是指系統(tǒng)開發(fā)與運行的軟件環(huán)境。本系統(tǒng)在開發(fā)時選用了穩(wěn)定性較強的Windows XP中文專業(yè)版和Visual ，同時選用了Access數(shù)據(jù)庫，由于這些軟件產(chǎn)品都是Microsoft公司的產(chǎn)品，因此彼此之間的兼容性較好，開發(fā)出的應用系統(tǒng)穩(wěn)定性較高。Visual Basic ，可以快速完成系統(tǒng)的開發(fā)，內(nèi)部集成的數(shù)據(jù)庫訪問通道，使得可以輕松方便的對數(shù)據(jù)庫管理。數(shù)據(jù)庫采用MICROSOFT ACCESS，由于我們的系統(tǒng)要求，采用它完全可以適合我們的工作需求，并且它所支持的數(shù)據(jù)類型十分豐富，維護簡便，費用比較低，人員素質(zhì)要求不是很高，容易升級。本系統(tǒng)在單機上運行。：在開發(fā)本系統(tǒng)時，為了使系統(tǒng)能夠穩(wěn)定運行，對本系統(tǒng)進行了有針對性的全面測試，采取的方式是：菜單項測試：為了保證每一項下拉菜單能夠正確實現(xiàn)系統(tǒng)設計的功能，我對每一個菜單項反復進行了增加、刪除、修改等操作，從而保證了菜單級功能的正確實現(xiàn)。數(shù)據(jù)跟蹤：完成菜單項測試后，我又對系統(tǒng)內(nèi)的每一個數(shù)據(jù)進行了跟蹤。綜合測試：在以上測試的基礎(chǔ)上對系統(tǒng)功能進行了整體的測試，依次來檢驗系統(tǒng)功能是否符合系統(tǒng)設計的要求。 系統(tǒng)運行與維護：系統(tǒng)的運行：初始數(shù)據(jù)的輸入本系統(tǒng)的輸入采用鼠標和鍵盤相結(jié)合的輸入方法。怎樣進入系統(tǒng)A、將本系統(tǒng)所在的文件夾拷貝到硬盤，然后執(zhí)行其中的圖書管理系統(tǒng)的程序文件即可，應注意要將全部文件的屬性變以存檔，消除只讀屬性。B、在隨后出現(xiàn)的登錄界面上輸入正確的用戶名和密碼即可怎樣使用本系統(tǒng)：點擊鼠標左鍵即可進行相應功能的選擇。系統(tǒng)的維護：本系統(tǒng)是個較復雜的人機系統(tǒng)，由于系統(tǒng)外部環(huán)境與內(nèi)部因素的變化，不斷影響系統(tǒng)的運行，同時需要系統(tǒng)不斷地適應這些變化，不斷地完善系統(tǒng)，以提高系統(tǒng)運行的效率與服務水平，這就需要自始至終進行系統(tǒng)的維護工作。系統(tǒng)的維護主要包括四個方面：（1）程序的維護：指的是修改部分或全部程序，這種維護往往是在條件發(fā)生變化或原系統(tǒng)的效率低的情況下進行的。（2）數(shù)據(jù)文件的維護：指的是按照用戶的要求對數(shù)據(jù)文件進行不定期的修改。（3）代碼的維護：隨著系統(tǒng)的發(fā)展和變化，可能會出現(xiàn)舊代碼不能適應新要求的問題，因此，有必要變更代碼，予以維護。（4）硬件的維護：指的是對系統(tǒng)所使用的設備進行維護。本系統(tǒng)的日常維護由圖書館的專人來負責，如果出現(xiàn)一些不能解決的問題，則由開發(fā)者來負責。：本次開發(fā)的圖書管理系統(tǒng)采用了并行轉(zhuǎn)換方式，以保證平衡可靠的過度。即一方面使用本系統(tǒng)來進行工作，另一方面又繼續(xù)沿用老的方式—手工方式，這種狀況持續(xù)了半個月的時間，在這期間發(fā)現(xiàn)了一些程序中存在的漏洞和錯誤，用戶也提出一些修改意見，經(jīng)過程序的進一步完善后，正式投入了使用，中止了以前老的手工的操作方式。結(jié)束語在本系統(tǒng)的開發(fā)過程中，由于本人是初次開發(fā)軟件，在知識、經(jīng)驗方面都存在著不足。另外，在整個開發(fā)的過程中，時間也比較倉促。因此，該系統(tǒng)必然會存在一些缺陷和不足。因為對圖書管理的整個流程不夠熟悉，在需求分析時未能做到完全滿足用戶的需求。在系統(tǒng)功能上，未能實現(xiàn)常用的超期或損壞圖書罰款功功能，還有圖書的冊數(shù)問題沒有考慮。雖然網(wǎng)絡在圖書管理系統(tǒng)中的應用已經(jīng)很普遍，但在開發(fā)過程由于硬件的限制，未能實現(xiàn)網(wǎng)絡功能，在大多數(shù)圖書管理系統(tǒng)單機版中，數(shù)據(jù)庫是用普通的單機版數(shù)據(jù)庫，那么在以后的系統(tǒng)更新過程中會造成不必要的損失。盡管該圖書管理系統(tǒng)存在著很多不足，但其功能全面、易于日后程序更新、數(shù)據(jù)庫管理容易、界面友好、操作方便、效率高、安全性好等優(yōu)點是圖書管理系統(tǒng)所必需的。相信該圖書管理系統(tǒng)將是一套圖書館管理員必不可少的管理軟件，在本次畢業(yè)設計中，我從指導老師身上學到了很多東西。他認真負責的工作態(tài)度，嚴謹?shù)闹螌W精神和深厚的理論水平都使我受益匪淺。他無論在理論上還是在實踐中，都給與我很大的幫助，使我得到很大的提高，這對于我以后的工作和學習都有一種巨大的幫助，在此感謝他耐心的輔導。另外，在系統(tǒng)開發(fā)過程中還有同組的同學也給了我不少幫助，這里同時表示感謝。 【參考文獻】《Visual Basic 6使用指南》 田金蘭等 電子工業(yè)出版社 2002年出版《Visual Basic 6數(shù)據(jù)庫訪問技術(shù)》Jeffrey 機械工業(yè)出版社 2003年出版《軟件開發(fā)技術(shù)》 潘錦平 西安電子科技大學出版社1999年出版《數(shù)據(jù)庫系統(tǒng)概論》 王珊、薩師宣 高等教育出版社 2001年出版42