圖書管理系統(tǒng)設(shè)計(jì)方案

1、圖書管理系統(tǒng)設(shè)計(jì)方案 圖書管理系統(tǒng)設(shè)計(jì)方案目錄1、 引言.12、 需求分析.13、系統(tǒng)設(shè)計(jì).2、設(shè)計(jì)圖書管理系統(tǒng)的功能結(jié)構(gòu).2、圖書管理系統(tǒng)的用戶管理實(shí)體關(guān)系.2、圖書管理系統(tǒng)的借閱管理實(shí)體關(guān)系.2、圖書管理系統(tǒng)的讀者管理實(shí)體關(guān)系.3、圖書管理系統(tǒng)的圖書庫(kù)管理實(shí)體關(guān)系.34、系統(tǒng)詳細(xì)設(shè)計(jì).4 、數(shù)據(jù)庫(kù)的設(shè)計(jì).4、管理模塊的具體設(shè)計(jì).6、數(shù)據(jù)庫(kù)和管理模塊的連接.115、 軟件調(diào)試.12 、管理員權(quán)限操作.12 、普通用戶操作.176、 設(shè)計(jì)總結(jié)及分析.187、 課程設(shè)計(jì)體會(huì).188、設(shè)計(jì)中所用到的程序代碼匯總.19一、引言隨著人們對(duì)物質(zhì)需求的逐步滿足，精神文明的追求日益增加，大大小小的書店，圖書

2、館到處可見，特別是一些規(guī)模較大的學(xué)校，圖書館的數(shù)量以及規(guī)模都在增大。隨著各圖書館的圖書的數(shù)量不斷增多和圖書館規(guī)模的不斷擴(kuò)大，管理這些龐大的體系非常困難的，因?yàn)閳D書的情況是隨時(shí)改變的，因此必需對(duì)圖書進(jìn)行動(dòng)態(tài)的管理，而這對(duì)于一個(gè)管理人員來說是一件比較復(fù)雜的事情，存儲(chǔ)、查詢、借閱是必不可少的業(yè)務(wù)。數(shù)據(jù)處理手工操作，工作量大，出錯(cuò)率高，出錯(cuò)后不易更改。圖書館采取手工方式對(duì)圖書借閱情況進(jìn)行人工管理，由于信息比較多，圖書借閱信息的管理工作混亂而又復(fù)雜；基于這一點(diǎn)，開發(fā)了這個(gè)圖書管理系統(tǒng)，它將圖書借還這一傳統(tǒng)方式進(jìn)行信息化。我們這一系統(tǒng)滿足了對(duì)日常的圖書管理；圖書的出租與歸還的管理；圖書的總量；圖書是否借出

3、查詢一數(shù)據(jù)庫(kù)系統(tǒng)基本實(shí)現(xiàn)了對(duì)圖書的數(shù)據(jù)庫(kù)管理，大大的提高了工作效率和圖書的遺失率。二、需求分析用戶的需求具體體現(xiàn)在各種信息的提供、保存、更新和查詢，這就要求數(shù)據(jù)庫(kù)結(jié)構(gòu)能充分滿足各種信息的輸出和輸入。收集基本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)字典，為以后的具體設(shè)計(jì)打下基礎(chǔ)。針對(duì)一般圖書館管理信息系統(tǒng)的需求，通過對(duì)圖書館管理工作過程的內(nèi)容和數(shù)據(jù)流程分析，設(shè)計(jì)如下面所示的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)：1.讀者信息，包括的數(shù)據(jù)項(xiàng)有：讀者編號(hào)、讀者姓名、聯(lián)系電話、所屬部門。2.書庫(kù)，包括的數(shù)據(jù)項(xiàng)有：書號(hào)、書名、作者、出版社、單價(jià)、類別、在庫(kù)狀態(tài)。3.借閱記錄，包括的數(shù)據(jù)項(xiàng)有：序號(hào)、書號(hào)、書名、借出

4、時(shí)間、歸還時(shí)間、讀者姓名。4.系統(tǒng)設(shè)置，包括的數(shù)據(jù)項(xiàng)有：用戶名、密碼、權(quán)限。 本系統(tǒng)具有的功能：1、實(shí)現(xiàn)讀者的新增、編輯和刪除功能。2、實(shí)現(xiàn)圖書的新增、編輯和刪除功能。3、實(shí)現(xiàn)圖書的查詢功能。4、實(shí)現(xiàn)圖書借出和歸還管理功能。5、實(shí)現(xiàn)借閱歷史信息的查詢功能。6、實(shí)現(xiàn)兩種不同權(quán)限用戶的登錄功能：普通用戶和管理級(jí)用戶。7、實(shí)現(xiàn)用戶管理功能，可以通過管理級(jí)用戶添加新用戶，具有權(quán)限級(jí)別及密碼修改功能。有了上面的數(shù)據(jù)結(jié)構(gòu)、數(shù)據(jù)項(xiàng)和數(shù)據(jù)流程，就可以進(jìn)行下面的數(shù)據(jù)庫(kù)設(shè)計(jì)了。 三、系統(tǒng)設(shè)計(jì) 、設(shè)計(jì)圖書管理系統(tǒng)的功能結(jié)構(gòu)：讀者管理圖書查詢圖書借出借閱管理圖書管理系統(tǒng)庫(kù)圖書庫(kù)管理系統(tǒng)管理 用戶 管理員 節(jié)約查詢圖書

5、歸還圖書刪除圖書編輯圖書新增讀者刪除讀者編輯讀者新增退出系統(tǒng)軟件信息2用戶管理 圖書管理系統(tǒng)的功能結(jié)構(gòu)、圖書管理系統(tǒng)的用戶管理實(shí)體關(guān)系：用戶管理實(shí)體關(guān)系、圖書管理系統(tǒng)的借閱管理實(shí)體關(guān)系：借閱管理實(shí)體-關(guān)系 、圖書管理系統(tǒng)的讀者管理實(shí)體關(guān)系：讀者管理實(shí)體關(guān)系 、圖書管理系統(tǒng)的圖書庫(kù)管理實(shí)體關(guān)系：圖示管理實(shí)體關(guān)系如上的實(shí)體關(guān)系圖，設(shè)計(jì)出功能模塊以及說明：1. 系統(tǒng)管理模塊：用于登錄、增加用戶、修改用戶密碼等操作。2. 讀者管理模塊：用于新增讀者、編輯讀者和刪除讀者的操作。3. 圖書庫(kù)管理模塊：用于新增圖書、編輯圖書和刪除圖書操作。4. 圖書查詢管理模塊：用于庫(kù)中圖書的查詢操作。5. 圖書借閱管理模

6、塊：用于圖書借出、圖書歸還和圖書借閱記錄查詢操作。6. 系統(tǒng)信息模塊：用于顯示軟件信息和退出操作。四、系統(tǒng)詳細(xì)設(shè)計(jì)、數(shù)據(jù)庫(kù)的設(shè)計(jì) 數(shù)據(jù)表的設(shè)計(jì)。本系統(tǒng)的數(shù)據(jù)表共有四張，分別是“系統(tǒng)設(shè)置”數(shù)據(jù)表、“讀者庫(kù)”數(shù)據(jù)表、“書庫(kù)”數(shù)據(jù)表和“借閱記錄”數(shù)據(jù)表。 數(shù)據(jù)庫(kù)表 、“系統(tǒng)設(shè)置”數(shù)據(jù)表主要用于存儲(chǔ)用戶信息，包括用戶名、密碼、權(quán)限三個(gè)字段。 、“讀者庫(kù)”數(shù)據(jù)表主要是用于存儲(chǔ)讀者信息，只有等級(jí)的讀者才具有借閱資格。包括：讀者編號(hào)、讀者姓名、聯(lián)系電話、所屬部門，四個(gè)字段。 、“書庫(kù)”數(shù)據(jù)表主要是用于存儲(chǔ)圖書信息，包括：書號(hào)、書名、作者、出版社、單價(jià)、類別、在庫(kù)狀態(tài)，七個(gè)字段。 、“借閱記錄”數(shù)據(jù)表用于存儲(chǔ)

7、讀者借出歸還的歷史記錄，包括：序號(hào)、書號(hào)、書名、借出時(shí)間、歸還時(shí)間、讀者編號(hào)、讀者姓名，七個(gè)字段。 、管理模塊的具體設(shè)計(jì) 主窗體模塊設(shè)計(jì)主窗體模塊指的是所以模塊的操作界面，在本系統(tǒng)中使用多文檔窗體及菜單方式來實(shí)現(xiàn)，創(chuàng)建主窗體的步驟：1、在工程中創(chuàng)建mdi窗體，然后在選定的mdi窗體的前提下，從菜單欄中選擇，從而進(jìn)行菜單編輯。 2、在菜單編輯器中依次創(chuàng)建系統(tǒng)管理、新增用戶、修改密碼、分割線、關(guān)于軟件、分割線、退出系統(tǒng)、讀者管理、讀者新增、讀者編輯、讀者刪除、圖書庫(kù)管理、圖書新增、圖書編輯、圖書刪除、圖書查詢、借閱管理、圖書接觸、圖書歸還、借閱查詢等菜單。 3、菜單設(shè)計(jì)完成后，返回mdi窗體，顯示

8、如下圖。、系統(tǒng)管理模塊設(shè)計(jì) 系統(tǒng)管理模塊包括登陸模塊窗體、新增用戶窗體模塊和密碼修改模塊窗體。用戶登錄模塊的功能是防止不合法用戶的登錄；增加用戶窗體模塊用于實(shí)現(xiàn)新增用戶功能；密碼修改模塊用于實(shí)現(xiàn)合法用戶修改密碼的功能。具體設(shè)計(jì)如下： 1、在空白的窗體上，添加標(biāo)簽控件、文本框控件、命令按鈕等并調(diào)整大小及位置然后設(shè)置其各自的屬性，顯示如下。 2、對(duì)下列事件編程，為登錄窗體調(diào)價(jià)啟動(dòng)事件，為定時(shí)器添加timer事件，為登陸窗體添加啟動(dòng)事件，為登錄窗體添加“登錄”按鈕事件，為在登錄窗體中實(shí)現(xiàn)權(quán)限設(shè)置在公共模塊添加代碼。具體代碼見附件3、創(chuàng)建新增用戶窗體，添加標(biāo)簽控件、文本框控件、文本框控件以及組合框控件

9、以及命令按鈕控件，調(diào)整大小以及位置顯示如下。4、 在窗體中將新用戶、密碼和權(quán)限添加到數(shù)據(jù)庫(kù)中。代碼見附件。5、 創(chuàng)建修改密碼窗體模塊，即只要知道用戶名和正確密碼前提下，修改登錄密碼。在窗體上添加各控件并設(shè)置相應(yīng)屬性后顯示如下。6、設(shè)置“提交”按鈕功能，實(shí)現(xiàn)修改密碼的目的，代碼見附件、讀者管理模塊設(shè)計(jì)1、在創(chuàng)建讀者新增窗體模塊，即在一個(gè)空白的窗體上添加frame控件、標(biāo)簽控件、文本框控件以及命令控件，調(diào)整窗體大小以及其他控件的屬性，顯示如下。2、 設(shè)置窗體啟動(dòng)事件，主要實(shí)現(xiàn)連接數(shù)據(jù)庫(kù)并初始化讀者編號(hào)等功能，代碼見附件3、 設(shè)置“確定”按鈕，用于實(shí)現(xiàn)登錄新的圖紙信息的目的，具體代碼見附件。4、同上

10、創(chuàng)建讀者編輯窗體以及讀者刪除窗體。顯示如下。（代碼見附件）、圖書庫(kù)管理模塊設(shè)計(jì)如上述的步驟建立圖書庫(kù)管理模塊，顯示如下（代碼見附件）、圖書查詢模塊以及圖書借閱管理模塊設(shè)計(jì)如上述的步驟建立，顯示如下（代碼見附件）數(shù)據(jù)庫(kù)和管理模塊的連接、準(zhǔn)備工作主要包括ado庫(kù)文件的導(dǎo)入以及模塊中sub main的設(shè)置，具體操作步驟如下：第一步：新建exe標(biāo)準(zhǔn)工程，并保存為“圖書管理系統(tǒng)”工程。從菜單欄中選擇【工程】【引用】命令，彈出【引用】對(duì)話框。第二步：在【引用】對(duì)話框中的列表框內(nèi)選中microsoft activex data objects 復(fù)選框。第三步：?jiǎn)螕簟敬_定】按鈕返回集成開發(fā)環(huán)境，即完成ado庫(kù)

11、文件的導(dǎo)入工作。接著在模塊中設(shè)置 sub main，即在工程資源管理窗口中完成模塊的添加操作后，接著便為模塊添加代碼，即在工程資源管理窗口中雙擊新建的模塊圖標(biāo)，進(jìn)入模塊的代碼編輯窗口，在其中輸入如下代碼：sub main() on error goto err 使用錯(cuò)誤處理語(yǔ)句 “provider= source=”& &” exit suberr: msgbox”數(shù)據(jù)庫(kù)連接錯(cuò)誤！”,vbcritical,”警告” endend sub第四步：在工程屬性中設(shè)置啟動(dòng)對(duì)象，即從菜單欄中選擇【工程】【屬性】命令，在彈出的【工程屬性】對(duì)話框中的【通用】選項(xiàng)下，將“啟動(dòng)對(duì)象”設(shè)置為sub

12、 main，單擊【確定】按鈕，即可完成進(jìn)圖書系統(tǒng)的數(shù)據(jù)庫(kù)連接準(zhǔn)備工作。、用戶的權(quán)限及實(shí)現(xiàn)方法定義權(quán)限，即普通用戶權(quán)限不能增加新用戶、不能使用圖書管理模塊和借閱管理模塊，而管理級(jí)用戶可以使用全部功能。第一步 在公共模塊中定義一個(gè)布爾變量并聲明一個(gè)函數(shù)，代碼編寫如下：public function quanxian(blndj as boolean) if blndj = true then 當(dāng)為true時(shí)，即管理級(jí)用戶 = true = true = true else 否則為普通用戶 = false 響應(yīng)的菜單呈無用狀態(tài) = false = false end ifend function第二

13、步 在登錄窗體中添加獲取登錄時(shí)用戶的應(yīng)有權(quán)限。 "select 權(quán)限 from 系統(tǒng) where 用戶名='" & & "' ", _ cn, adopenkeyset, adlockoptimistic if (0) = "system" then blndj = true if (0) = "guest" then blndj = false 第三步 在主窗體（mdi）窗體下響應(yīng)登錄窗體中用戶權(quán)限的選擇，即在主窗體的啟動(dòng)事件中添加如下代碼即可。call quanxian(blnd

14、j)5、 軟件的調(diào)試分為兩個(gè)部分進(jìn)行，一是管理員，二是用戶。、管理員權(quán)限登錄操作新增用戶、修改密碼、讀者新增、讀者編輯、圖書新增、圖書編輯、圖書刪除、圖書搜索、圖書借出、圖書歸還、借閱查詢、普通用戶權(quán)限登錄修改密碼5.、搜索6、 設(shè)計(jì)總結(jié)及分析、功能 ：軟件基本完成上述所分析要求的功能。、界面設(shè)計(jì)1.界面友好：本系統(tǒng)的界面很大眾化，功能不復(fù)雜，管理人員和用戶可以較好的把握各自對(duì)應(yīng)權(quán)限所有的功能。2.界面美觀：本系統(tǒng)界面比較粗糙，設(shè)計(jì)一些大方得體的圖片，圖表等使得界面更加的美麗，給人感覺更親近。 七、課程設(shè)計(jì)體會(huì)圖書管理系統(tǒng)的使用，大大增加了圖書管理員的效率，這次我們?cè)O(shè)計(jì)的系統(tǒng)雖然完成，但依然存

15、在一定問題：1.功能還比較簡(jiǎn)單；2.沒有經(jīng)過大量用戶的實(shí)踐檢驗(yàn)，無法保證完全滿足用戶各方面的要求；3.功能有待在使用過程中完善提高。在程序的設(shè)計(jì)過程中，通過各種資料的閱讀，更深一步的了解了圖書館管理信息系統(tǒng)、數(shù)據(jù)庫(kù)系統(tǒng)的的概念，為今后開發(fā)和設(shè)計(jì)信息系統(tǒng)和數(shù)據(jù)庫(kù)系統(tǒng)打下了深厚的基礎(chǔ)。在開發(fā)軟件的過程中，對(duì)編程工具 visual basic從一無所知到能夠簡(jiǎn)單的應(yīng)用，不僅新學(xué)會(huì)了一種功能強(qiáng)大的編程語(yǔ)言，而且提高了獨(dú)立自學(xué)的能力。在學(xué)習(xí)過程中，遇到了許多的問題，經(jīng)過努力，我終于沖破了這些難點(diǎn)。由于每個(gè)軟件的自身設(shè)計(jì)思路是不一樣的，在各種功能的實(shí)現(xiàn)上多存在著差異，這使我走了許多的彎路。但同時(shí)使我了解了

16、一種新的思路，使我獲益匪淺。學(xué)到的知識(shí)是有限的，面對(duì)的實(shí)踐應(yīng)用是多種多樣的，所學(xué)很可能無法滿足所用，必須在實(shí)踐中、在應(yīng)用中不斷學(xué)習(xí)不斷提高，這次完成畢業(yè)設(shè)計(jì)的過程中我學(xué)到了許多從前聞所未聞的知識(shí)和技能。八、設(shè)計(jì)中所用到的程序代碼匯總option explicitprivate sub cmdok_click() unload meend subprivate sub form_load() = loadpicture & "")' = loadpicture & "pic")end sub ext = "" o

17、r txt(1).text = "" or = "" then msgbox "請(qǐng)輸入完成的信息！" else "select * from 系統(tǒng)設(shè)置 where 用戶名='" & txt(0).text & "'", cn, adopenkeyset, adlockoptimistic if = false then ' if <> 0 then msgbox "有重名！", vbcritical, "警告&qu

18、ot; exit sub end if if txt(2).text = txt(1).text then "系統(tǒng)設(shè)置", cn, adopenkeyset, adlockoptimistic (0) = txt(0).text (1) = txt(1).text (2) = msgbox "添加新用戶成功！", , "恭喜" txt(0).text = "" txt(1).text = "" txt(2).text = "" = -1 else msgbox "兩

19、次輸入的密碼不相同，請(qǐng)確認(rèn)后重新輸入", vbcritical, "警告" end if end ifend sub ext = "" or txt(1).text = "" or txt(2).text = "" or txt(3).text = "" then msgbox "請(qǐng)輸入完整的信息！" else "讀者庫(kù)", cn, adopenkeyset, adlockoptimistic for i = 0 to 3 (i) = txt(i

20、).text next i msgbox "添加新用戶成功！", , "恭喜" txt(0).text = (0) + 1 for i = 1 to 3 txt(i).text = "" next i end ifend subprivate sub form_load() "provider= source=" & & "" "讀者庫(kù)", cn, adopenkeyset, adlockoptimistic if = 0 then txt(0).text =

21、 1 else txt(0).text = (0) + 1 '自動(dòng)設(shè)置讀者編號(hào) 避免讀者編號(hào)重復(fù) end if txt(0).enabled = false icon = loadpicture & "")end subprivate sub form_unload(cancel as integer) end suboption explicitprivate sub cmdadd_click() dim i as integer if txt(0).text = "" or txt(1).text = "" or

22、txt(2).text = "" or txt(3).text = "" or txt(4).text = "" or = "" then msgbox "請(qǐng)輸入完整的信息！", vbcritical, "警告" exit sub else for i = 0 to 4 (i) = txt(i).text next i (5) = (6) = "yes" adaffectcurrent end if msgbox "圖書新增成功！",

23、, "提示" txt(0).text = "isbn-" & right(0), 1) + 1 for i = 1 to 4 txt(i).text = "" next i = -1end subprivate sub cmdcancel_click() unload meend subprivate sub form_load() "provider= source=" & & "" "書庫(kù)", cn, adopenkeyset, adlockopt

24、imistic txt(0).text = "isbn-" & right(0), 1) + 1 txt(0).enabled = false "技術(shù)類" "非技術(shù)類" icon = loadpicture & "")end subprivate sub form_unload(cancel as integer) end suboption explicitprivate sub cmdb_click() if text1(0).text = "" or text2(0).te

25、xt = "" or = "" then msgbox "請(qǐng)輸入完整的數(shù)據(jù)！", vbcritical, "警告" exit sub else "select * from 書庫(kù) where 書號(hào)='" & text1(0).text & "'", cn, adopenkeyset, adlockoptimistic if (6) = "yes" then dim temp1 as string, temp2 as stri

26、ng "select * from 書庫(kù) where 書號(hào)='" & text1(0).text & "'", cn, adopenkeyset, adlockoptimistic temp1 = (1) "select * from 讀者庫(kù) where 讀者編號(hào)= '" & text2(0).text & "'", cn, adopenkeyset, adlockoptimistic temp2 = (1) "借閱記錄", cn,

27、 adopenkeyset, adlockoptimistic (1) = text1(0).text (2) = temp1 (3) = (5) = text2(0).text (6) = temp2 adaffectcurrent "select * from 書庫(kù) where 書號(hào)='" & text1(0).text & "'", cn, adopenkeyset, adlockoptimistic (6) = "no" adaffectcurrent msgbox "已辦理好借閱手續(xù)

28、！", , "提示" else msgbox "該書已經(jīng)被借出", vbcritical, "提示" end if end ifend subprivate sub cmdcancel_click() unload meend subprivate sub form_load() "provider= source=" & & "" = date = false icon = loadpicture & "")end subprivate s

29、ub form_unload(cancel as integer) end suboption explicitprivate sub cmdcancel_click() unload meend subprivate sub cmddelete_click()if txt(0).text = "" or txt(1) = "" or txt(2) = "" or txt(3) = "" or txt(4) = "" or = "" then msgbox "請(qǐng)單擊

30、行標(biāo)選擇需要修改的圖書行", vbcritical, "提示" exit subelse if txt(0) <> (0) then msgbox "請(qǐng)單擊行標(biāo)選擇需要修改的圖書行", vbcritical, "提示" else if msgbox("確認(rèn)刪除讀者么", vbyesno, "提示") = vbyes then adaffectcurrent ' adaffectcurrent dim i as integer for i = 0 to 4 txt(i

31、) = "" next i = -1 end if msgbox "刪除成功！", , "提示" end ifend ifend subprivate sub datagrid1_click() dim i as integer for i = 0 to 4 txt(i).text = (i) next i = (5)end subprivate sub form_load() "provider= source=" & & "" = aduseclient "書庫(kù)&q

32、uot;, cn, adopenkeyset, adlockoptimistic set = rs1 txt(0).enabled = false icon = loadpicture & "")end subprivate sub form_unload(cancel as integer) end suboption explicitprivate sub cmdcancel_click() unload meend subprivate sub cmdedit_click()if txt(0).text = "" or txt(1) = &

33、quot;" or txt(2) = "" or txt(3) = "" or txt(4) = "" or = "" then msgbox "請(qǐng)單擊行標(biāo)選擇需要修改的圖書行", vbcritical, "提示" exit subelse if txt(0) <> (0) then msgbox "請(qǐng)單擊行標(biāo)選擇需要修改的圖書行", vbcritical, "提示" else if msgbox("確認(rèn)

34、要修改么", vbyesno, "提示") = vbyes then dim i as integer for i = 0 to 4 (i) = txt(i).text next i (5) = adaffectcurrent msgbox "修改成功", , "提示" end if end ifend ifend subprivate sub datagrid1_click() dim i as integer for i = 0 to 4 txt(i).text = (i) next i = (5)end subpriv

35、ate sub form_load() "provider= source=" & & "" = aduseclient "書庫(kù)", cn, adopenkeyset, adlockoptimistic set = rs1 txt(0).enabled = false icon = loadpicture & "")end subprivate sub form_unload(cancel as integer) end suboption explicitprivate sub cmdsearch_click() on error resume next = aduseclient "select * from 書庫(kù) where " & & " ='" & & "'", cn, adopenkeyset, adlockoptimistic set = rs1 if = 0 then msgbox &qu