【導(dǎo)讀】讀者信息、書籍信息、借書信息、還書信息進行管理。環(huán)節(jié)中信息的變更。管理人員必須以管理員身份登錄，保證了系統(tǒng)的。系統(tǒng)的總體任務(wù)是使圖書管理人員可以輕松快捷地完成對圖。在各行各業(yè)中離不開信息處理，這正是計。進行信息管理與信息管理系統(tǒng)的開發(fā)密切相關(guān)，系統(tǒng)的開發(fā)是系統(tǒng)管理的前提。根據(jù)調(diào)查得知，他們以前對信息管理的主要方式是基于文本、限、以及借閱天數(shù)等用人工計算、手抄進行。由于數(shù)據(jù)繁多，容易丟失，且不易查找。盡管有的圖書館有計算機，但是尚未用于信息管理，沒有發(fā)揮它的效力，數(shù)據(jù)處理手工操作，工作量大，出錯率高，出錯后不易更改。進行查詢，就得在眾多的資料中翻閱、查找了，造成查詢費時、費力?；?，系統(tǒng)化，程序化，避免圖書管理的隨意性，提高信息處理的速度和準(zhǔn)確性，能夠及時、準(zhǔn)確、有效的查詢和修改圖書情況。的發(fā)展趨勢以及設(shè)計的目的及內(nèi)容。構(gòu)以及系統(tǒng)的實現(xiàn)。

　　

【正文】 = adStateOpen Then select book_id from 借閱信息 where book_id=39。 + txt_bookid(i) + 39。, myconn, adOpenKeyset, adLockOptimistic, 1 If 0 Then MsgBox 該圖書已借閱，請選擇其它圖書 txt_bookid(i).SetFocus txt_bookid(i).SelStart = 0 txt_bookid(i).SelLength = Len(txt_bookid(i)) 42 Exit Sub End If End If Next i For i = 1 To 3 If txt_bookid(i).ForeColor = vbBlack And txt_bookid(i) Then insert into 借 閱 信 息 (USER_ID,BOOK_ID,LEND_DATE) values (39。 + txt_userid(0) + 39。,39。 + txt_bookid(i).Text + 39。,39。 txt_bookid(i).Locked = True txt_bookid(i).ForeColor = vbRed txt_bookid(i).BackColor = txt_bookid(i + 3) = txt_bookid(i) Check1(i).Value = 1 = 1 Call renew Call Cmdjy_search_Click End If Next i MsgBox OK End Sub 自動生成代碼如下：（清除） Private Sub Cmdjy_clear_Click() Call renew End Sub 自動生成代碼如下：（退出） Private Sub Cmdjy_exit_Click() Unload Me End Sub 43 完成后的圖書借閱的畫面： (六 ).工作人員－圖書借閱 /歸還模塊的實現(xiàn) 1. 工作人員進行圖書借閱功能實現(xiàn) 在這個功能中，工作人員 點擊借閱一覽 ， 隨后就跳出上圖所示的所有借閱信息 。 工作人員就可以查閱什么書籍在什么人手里。能方面查找讀者的姓名，圖書名稱，借閱時間。 44 控件 屬性 設(shè)定值 CommandButtom Name Command9 Caption 退出 Form Name frmbook_borrow Caption 圖書借閱 SSTab Name SSTab1 Caption 借閱一覽 自動生成代碼如 下： （退出） Private Sub Command9_Click() Unload Me End Sub 45 完成后的圖書借閱一覽的畫面： 2. 工作人員進行圖書歸還功能實現(xiàn) 在此功能中，工作人員根據(jù)借閱者的 編號 和歸還的圖書編號進行圖書的歸還工作。并且根據(jù)現(xiàn)實中可能會出現(xiàn)的只知圖書名不知圖書編號的歸還情況，所以加入了按書籍名稱進行歸還的功能。這個功能是圖書借閱功能中把圖書名稱轉(zhuǎn)換成圖書編號的一種改進方法，這樣就不用如借閱功能中一樣要先轉(zhuǎn)換再借閱了。 46 控件 屬性 設(shè)定值 Form Name frmbook_borrow Caption 圖書借閱 Label Name Label7 Caption 圖書編號 1 AutoSize False Label Name Label9 Caption 圖書編號 2 AutoSize False Label Name Label10 Caption 圖書編號 3 AutoSize False Label Name Label11 Caption 借閱日期 AutoSize False CommandButtom Name cmdgh_clear Caption 清除 47 CommandButtom Name cmdgh_exit Caption 退出 CommandButtom Name cmdgh_search Caption 查詢 CommandButtom Name Cmdguihuan Caption 歸還 TextBox Name txt_bookid(5) Text TextBox Name txt_bookid(6) Text TextBox Name txt_userid(0) Text TextBox Name txt_bookid(1) Text SSTab Name SSTab1 Caption 歸還 自動生成代碼如下： （查詢） Private Sub Cmdgh_search_Click() txt_userid(0) = txt_userid(1) Call Cmdjy_search_Click End Sub 自動生成代碼如下： （歸還） Private Sub Cmdguihuan_Click() If txt_userid(1) = Then: MsgBox 請 輸 入 讀 者 編 號 : txt_userid(1).SetFocus: Exit Sub If txt_userid(0) = Then Call Cmdgh_search_Click Dim i As Integer For i = 4 To 6 If txt_bookid(i) And Check1(i 3).Value = 1 Then 48 If = adStateOpen Then SELECT 借閱信息 .BOOK_ID, 圖書信息 .BOOK_NAME FROM 借閱 信息 INNER JOIN 圖 書信 息 ON 借閱信 息 .BOOK_ID= 圖書信息 .BOOK_ID where 圖書信息 .BOOK_NAME=39。 + txt_bookid(i) + 39。, myconn, adOpenKeyset, adLockOptimistic, 1 delete * from 借閱信息 where USER_ID=39。 + txt_userid(1) + 39。 AND BOOK_ID=39。 + (0) + 39。 AND LEND_DATE=39。 + lbl_lenddate(i) + 39。 Check1(i 3).Value = 0 txt_bookid(i) = txt_bookid(i 3) = txt_bookid(i 3).Locked = False txt_bookid(i 3).ForeColor = vbBlack txt_bookid(i 3).BackColor = vbWhite lbl_msg(0) = lbl_msg(1) = End If Next i = True End Sub 49 完成后的圖書歸還的畫面： (七 ). 各模塊調(diào) 試及運行結(jié)果 1．操作員登錄 50 2． 圖書館管理員圖書 查詢 3． 圖書館管理員 注冊 51 圖書登記 讀者查詢 52 讀者 信息修改及登記 53 54 六 . 小結(jié)、自我評價 經(jīng)過幾個月的調(diào)研，取材，磨合，對整個系統(tǒng)的開發(fā)先進行需求分析，然后將其結(jié)果反映成結(jié)構(gòu)圖，再到設(shè)計數(shù)據(jù)庫，再到邏輯設(shè)計，并對上個階段的分析結(jié)果進行適當(dāng)?shù)膬?yōu)化，再到數(shù)據(jù)庫的物理設(shè)計利用計算機，利用數(shù)據(jù)庫系統(tǒng)的開發(fā) 工具進行具體的實施。經(jīng)歷了軟件開發(fā)過程所要經(jīng)過的各個主要設(shè)計流程后，一個數(shù)據(jù)庫管理系統(tǒng)便應(yīng) 運 而生了。 這個系統(tǒng)的主要特點：首先界面友好，進入各個功能模塊之前都很簡單，登錄之前又有一個界面。其次各個模塊的功能清晰，一個主界面就可以對這個系統(tǒng)所能起到的作用一覽無余了，這又是該系統(tǒng)的另外一個特色。第三，為了能對整個系統(tǒng)有一個整體的管理又設(shè)計了一個該系統(tǒng)的菜單，以便于用戶對自己的信息進行更改等?？傊@個系統(tǒng)旨在為讀者和管理人員提供便利的服務(wù)。 在開發(fā)過程中，對很多課本之外的我們還未接觸的領(lǐng)域的知識點的認識，我才發(fā) 現(xiàn)單獨嫻熟的掌握一種程序設(shè)計語言是不夠的。開發(fā)應(yīng)用系統(tǒng)所涉及的邊緣學(xué)科，如軟件開發(fā)，信息管理系統(tǒng)，程序語言設(shè)計等都是很關(guān)鍵的，他們直接影響了開發(fā)的軟件的質(zhì)量。同時， 我對 辦公自動化系統(tǒng) 的概念有了一定的了解。 辦公自動化做 為一門新興的、具有獨特風(fēng)格的邊緣科學(xué)，隨著計算機信息科學(xué)的飛速發(fā)展，已經(jīng)滲透并應(yīng)用于各個 企業(yè) 。 但對于這個應(yīng)用系統(tǒng)，自己并不是很滿意，和當(dāng)初設(shè)想的設(shè)計一個程序簡潔，各個界面友好且好用還是有一定的距離的。程序經(jīng)過調(diào)試和運行中出現(xiàn)了很多意想不到的問題，有的看似代碼都對，可是結(jié)果就是和預(yù)想的不太相同。 所以我想我還要經(jīng)過不斷的對系統(tǒng)進行后期的維護才能找到更多的讓自己可以學(xué)到更多東西的問題。解題的過程就又是一種知識應(yīng)用和各方面能力和技能交互的過程，才能體現(xiàn)自己對知識的掌握程度。自己也從這次畢業(yè)設(shè)計的過程對兩年多來的學(xué)習(xí)情況有一個清楚的認識，前面的路還很長這，我還應(yīng)該繼續(xù)努力。 由于所學(xué)專業(yè)知識的限制，在開發(fā)過程中遇到了很多不能獨立解決的問題，請教了很多老師和同學(xué)，在此特別的對給了我莫大幫助的人提出感謝。 55 【 參考文獻 】 劉世峰：《數(shù)據(jù)庫基礎(chǔ)與應(yīng)用》，中央電大出版社 。 劉世峰：《 VISUAL BASIC 程序設(shè)計》（第一版），中央電大出版社， 2020年 7 月第 1 版，第 175 頁 。 劉世峰：《 VISUAL BASIC 程序設(shè)計實驗》，中央電大出版社， 2020 年 7月第 1 版 。 唐學(xué)忠：《 VISUAL BASIC 程序教程》，中國電力出版社， 2020 年 3 月 。 張洪明：《 VISUAL BASIC 程序設(shè)計基礎(chǔ)教程》，科學(xué)出版社， 2020年 。 56 附：完整的源代碼 窗體： Frmabout（關(guān)于） 代碼： Private Sub Form_Load() Lblver = 指 導(dǎo)老師：柯白楊 End Sub 窗體： frmbook_borrow（圖書借閱） 代碼： Option Explicit Dim havenum As Integer Private Sub renew() Dim i As Integer, j As Integer For i = 0 To 1 lbl_msg(i) = Next i For j = 1 To 6 txt_bookid(j) = If j = 3 Then txt_bookid(j).Locked = False txt_bookid(j).ForeColor = vbBlack txt_bookid(j).BackColor = vbWhite Check1(j).Value = 0 End If Next j = False End Sub Private Sub search_book() Dim i As Integer With rds_jieyue .Open SELECT 借閱信息 .USER_ID, 借閱信息 .BOOK_ID, 圖書信息 .BOOK_name,LEND_DATE FROM 借閱信息 INNER JOIN 圖書信息 ON 借閱信息 .BOOK_ID=圖書信息 .BOOK_ID where 借閱信息 .USER_ID=39。 + txt_userid(0) + 39。, myconn, adOpenKeyset, adLockOptimistic, 1 57 For i = 1 To havenum txt_bookid(i