【正文】 10 所示的窗體中進(jìn)行修 改。在下拉式文本框中選擇書(shū)籍種類時(shí)，書(shū)籍名稱中將自動(dòng)加入所有書(shū)籍的名稱；選擇書(shū)籍名稱后，在所有書(shū)籍信息都將顯示出來(lái)；選擇讀者種類后，讀者姓名中將自動(dòng)加入所有同類形的讀者；選擇讀者姓名后，所有讀者信息都將顯示出來(lái)。 圖 47 添加書(shū)籍信息窗體 輸入完畢，單擊“保存”按鈕，程序?qū)⑹紫葯z查內(nèi)容是否符合要求，然后檢查是否有重復(fù)記錄，最后添加到數(shù)據(jù)庫(kù)中。程序判斷修改狀態(tài)后，首先刪除愿有記錄，然后把新內(nèi)容加入到數(shù)據(jù)庫(kù)中。 39。程序?qū)⑴袛嗍欠裼兄貜?fù)編號(hào)的記錄，然后添加到數(shù)據(jù)庫(kù)。 Trim(txtItem(0)) amp。 Trim(txtItem(0)) amp。 請(qǐng)輸入數(shù)字！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtItem(intCount).SetFocus Exit Sub End If Next intCount 39。 添加 ElseIf gintRTmode = 2 Then‘判斷是否屬于修改狀態(tài) Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then With mrc For intCount = 0 To 5 txtItem(intCount) = .Fields(intCount) Next intCount End With txtItem(0).Enabled = False End If = amp。 讀者管理：讀者種類管理：添加讀者種類、修改讀者種類、刪除讀者種類； 讀者信息管理：添加讀者信息、修改讀者信息、刪除讀者信息、查詢讀者信息。在這個(gè)窗體上添加所需的控件，窗體和控件的屬性設(shè)置見(jiàn)表 41。管理員可以根據(jù)這些主鍵來(lái)添加，查詢，修改借閱信息。管理員可以根據(jù)主鍵來(lái)添加、修改和刪除讀者類別信息。 圖 36書(shū)籍信息實(shí)體 屬性 圖 借閱信息試題 屬性 圖如圖 37所示。 針對(duì)一般圖書(shū)管理信息系統(tǒng)的需求，通過(guò)對(duì)圖書(shū)管理工作過(guò)程的內(nèi)容和數(shù)據(jù)流分析，設(shè)計(jì) 如下面所示的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)： 讀者種類信息：（種類編號(hào)、種類名稱、借書(shū)數(shù)量、借書(shū)期限、有效日期） 讀者信息：（讀者編號(hào)、讀者姓名、讀者種類、讀者性別、工作單位、家庭住址、電話號(hào)碼、電子郵件地址、辦證日期） 書(shū)籍類別信息：（類別編號(hào)、類別名稱、關(guān)鍵詞） 書(shū)籍信息：（書(shū)籍編號(hào)、書(shū)籍名稱、書(shū)籍類別、作者姓名、出版社名稱、出版日期、書(shū)籍頁(yè)數(shù)、關(guān)鍵詞、登記日期） 借閱信息：（借閱信息編號(hào)、讀者編號(hào)、讀者姓名、書(shū)籍編號(hào)、書(shū)籍名稱、借書(shū)日期、還書(shū)日期） 10 數(shù)據(jù)流程模塊 仔細(xì)分析調(diào)查有關(guān)圖書(shū)管理信息需求 的基礎(chǔ)上，將得到如圖 32所示本系統(tǒng)所處理的數(shù)據(jù)流程。系統(tǒng)初始設(shè)置一個(gè)超級(jí)用戶名和密碼，操作人員可以利用這個(gè)超級(jí)用戶名和密碼登錄，之后，可以設(shè)置其他的超級(jí)用戶名稱，也可以設(shè)置權(quán)限用戶，同時(shí)也設(shè)置了這個(gè)用戶可以使用的權(quán)限。 （ 2）還書(shū)管理：實(shí)現(xiàn)添加還書(shū)信息功能。系統(tǒng)功能分析是在系統(tǒng)開(kāi)發(fā)的總體任務(wù)的基礎(chǔ)上完成的，圖書(shū)管理系統(tǒng)需要完成的功能主要有：圖書(shū)管理部分：包括圖書(shū)信息管理和類別管理，其功能是實(shí)現(xiàn) 對(duì)各部分?jǐn)?shù)據(jù)內(nèi)容進(jìn)行添加、修改、查詢等操作。 ? 借書(shū)信息輸入，包括借書(shū)信息編號(hào)、讀者編號(hào)、讀者姓名、書(shū)籍編號(hào)、書(shū)籍名稱、借書(shū)日期、備注等。系統(tǒng)功能分析是在系統(tǒng)開(kāi)發(fā)總體任務(wù)的基礎(chǔ)上完成。 因此原有的人工管理工作已不能適應(yīng)現(xiàn)行的工作需要。 MIS 是一門(mén)新的學(xué)科，它跨越了若干個(gè)領(lǐng)域，比如管理科學(xué)、系統(tǒng)科學(xué)，運(yùn)籌學(xué)、統(tǒng)計(jì)學(xué)以及計(jì)算機(jī)科學(xué)。 SQL 語(yǔ)言使用方便、 功能豐富、簡(jiǎn)潔易學(xué)，是操作數(shù)據(jù)庫(kù)的工業(yè)標(biāo)準(zhǔn)語(yǔ)言，得到廣泛地應(yīng)用。在 Visual Basic 環(huán)境下，利用事件驅(qū)動(dòng)的編程機(jī)制、新穎易用的可視化設(shè)計(jì)工具，使用 Windows 內(nèi)部的廣泛應(yīng)用程序接口（ API）函數(shù)，以用動(dòng)態(tài)鏈接庫(kù)（ DLL）、對(duì)象的鏈接與世隔嵌入（ OLE）、開(kāi)放式數(shù)據(jù)連接（ ODBC）等技術(shù)，可以高效、快速地開(kāi)發(fā) Windows 環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。根據(jù)數(shù)據(jù)模型的不同， DBMS 可以分成層次型、網(wǎng)狀型、關(guān)系型、面向?qū)ο笮偷取? 2 圖書(shū)管理系統(tǒng)代替了原來(lái)的手工操作，從而快速、準(zhǔn)確地對(duì)讀者及圖書(shū)等各種信息進(jìn)行管理和維護(hù)。使用該程序之后，工作人員可以查詢某位讀者、某種圖書(shū)的借閱情況，還可以對(duì)當(dāng)前圖書(shū)借閱情況進(jìn)行一些統(tǒng)計(jì)，給出統(tǒng)計(jì)表格，以便全面掌握?qǐng)D書(shū)的流通情況。有了這個(gè)系統(tǒng)就使圖書(shū)館的工作變得簡(jiǎn)單了許多，使圖書(shū)館的圖書(shū)管理形成了一個(gè)整體自動(dòng)化管理模式。本圖書(shū)管 理系統(tǒng) ,介紹了該系統(tǒng)組成結(jié)構(gòu) 、 功能特點(diǎn) 、 使用原理和方法 ,本系統(tǒng)實(shí)現(xiàn)了系統(tǒng)登陸、圖書(shū)管理、學(xué)生管理，圖書(shū)的借閱與歸還等功能。為方便對(duì)圖書(shū)館書(shū)籍、讀者資料、借還書(shū)等進(jìn)行高效的管理，特編寫(xiě)該程序以提高圖書(shū)館的管理效率。 圖書(shū)借閱者的需求是查詢圖書(shū)館所存的圖書(shū)、個(gè)人借閱情況及個(gè)人信息的修改 ， 圖書(shū)館管理人員對(duì)圖書(shū)借閱者的借閱及還書(shū)要求進(jìn)行操作，同時(shí)形 成借書(shū)或還書(shū)報(bào)表給借閱者查看確認(rèn) 。 DBMS 總是基于某種數(shù)據(jù)模型，可以把 DBMS 看成是某種數(shù)據(jù)模型在計(jì)算機(jī)系統(tǒng)上的具體實(shí)現(xiàn)。它簡(jiǎn)單易學(xué)、效率高，且功能強(qiáng)大可以與 Windowsr 專業(yè)開(kāi)發(fā)工具 SDK 相媲美。 1986 年ANSI 采用 SQL 語(yǔ)言作為關(guān)系數(shù)據(jù)庫(kù)系統(tǒng)的標(biāo)準(zhǔn)語(yǔ)言，后被國(guó)際化標(biāo)準(zhǔn)組織（ ISO）采納為國(guó)際標(biāo)準(zhǔn)。當(dāng)設(shè)計(jì)者在關(guān)系表上定義了索引時(shí) ，系統(tǒng)會(huì)自動(dòng)利用索引進(jìn)行快速檢索，用戶不需知道表上是否有索引或者有什么類型的索引等細(xì)節(jié) 5 第 3 章 系統(tǒng)基本需求分析 圖書(shū)管理系統(tǒng)需求分析 管理信息系統(tǒng)是我們常說(shuō)的 MIS（ Management Information System），在強(qiáng)調(diào)管理，強(qiáng)調(diào)信息的現(xiàn)代社會(huì)中它變得越來(lái)越普及。 （ 3）圖書(shū)統(tǒng)計(jì)工作難、藏書(shū)更新不能及時(shí)完成。 6 系統(tǒng)功能分析 系統(tǒng)開(kāi)發(fā)的總體任務(wù)是實(shí)現(xiàn)各種信息的系統(tǒng)化、規(guī)范化和自動(dòng)化。 ? 書(shū)籍信息的輸入，包括書(shū)籍編號(hào)、書(shū)籍名稱、書(shū)籍類別、作者姓名、出版社名稱、出版日期、關(guān)鍵詞、登記日期、備注 等。 系統(tǒng)開(kāi)發(fā)的總體任務(wù)是實(shí)現(xiàn)圖書(shū)管理的系統(tǒng)化、規(guī)范化和自動(dòng)化。其中，借閱信息包括借閱編號(hào)、讀者編號(hào)、讀者姓名、圖書(shū)編號(hào)、圖書(shū)名稱、出借日期和還書(shū)日期。 系統(tǒng)管理部分：包括修改系統(tǒng)用戶密碼、增加新用戶和退出系統(tǒng)三項(xiàng)功能。收集基本書(shū)記、數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)字典，為后面的具體設(shè)計(jì)打下基礎(chǔ)。 圖 35 書(shū)籍類別信息實(shí)體 屬性 圖 書(shū)籍信息實(shí)體 屬性 圖如圖 36所示。 表 31 reader type 讀者種類信息表 字段名 數(shù)據(jù)類型 長(zhǎng)度 可否為空 說(shuō)明 Type no varchar 10 NOT NULL 種類編號(hào) Type name varchar 10 NOT NULL 種類名稱 Book number numeric 5 NULL 借書(shū)數(shù)量 Book days numeric 5 NULL 借書(shū)期限 User fulllife numeric 5 NULL 有效期限 memo text 16 NULL 備注 表 31 是讀者種類信息表，其中 typeno 和 typename 兩個(gè)字段名是主鍵，不能為空，其他字段名是讀者信息的其他屬性，可以為空。當(dāng)?shù)卿浵到y(tǒng)以后，讀者可以根據(jù)書(shū)籍 id,name,type,author來(lái)查詢書(shū)籍是否被借。 創(chuàng)建圖書(shū)館管理信息系統(tǒng)的主窗體 單擊工具欄中的 ADD MDI Form 按鈕，生成一個(gè)窗體。 系統(tǒng)：修改密碼、添加用戶、退出。 表 42 添加讀者種類窗體中各個(gè)控件的屬性設(shè)置 控件 屬性 屬性取值 frmReadertype1(Form) Name frmReadertype1 Caption 客房標(biāo)準(zhǔn) MDIChild True txtItem(0)txtItem(4) Name txtItem(0)txtItem(4) Label1 Caption 種類編號(hào) 20 Label2 Caption 種類名稱 Label3 Caption 借書(shū)數(shù)量 Label4 Caption 借書(shū)期限 Label5 Caption 有效日期 Label6 Caption 備注信息 在載入窗體時(shí)，程序首先判斷所處狀態(tài)，代碼入下： Private Sub Form_Load()‘載入窗體后，判斷所處狀態(tài) Dim intCount As Integer Dim MsgText As String‘用來(lái)存放返回信息 Dim i As Integer If gintRTmode = 1 Then‘判斷是否屬于添加狀態(tài) = amp。 不能為空！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtItem(intCount).SetFocus Exit Sub End If Next intCount For intCount = 2 To 4‘判斷輸入內(nèi)容是否為數(shù)字 22 If Not IsNumeric(Trim(txtItem(intCount))) Then Select Case intCount Case 2 sMeg = 借書(shū)數(shù)量 Case 3 sMeg = 借書(shū)期限 Case 4 sMeg = 有效期限 End Select sMeg = sMeg amp。 amp。 amp。 26 圖 44 添加讀者信息窗體 程序首先對(duì)是否輸入內(nèi)容進(jìn)行判斷，然后進(jìn)行格式判斷。 Trim(txtItem(0)) amp。再加入新記錄 Set mrc = ExecuteSQL(txtSQL, MsgText) ‘為數(shù)據(jù)庫(kù)對(duì)象添加記錄 For intCount = 0 To 1 (intCount) = Trim(txtItem(intCount)) Next intCount (2) = Trim(cboItem(5)) (3) = Trim(cboItem(1)) For intCount = 2 To 7 29 (intCount + 2) = Trim(txtItem(intCount)) Next intCount If gintRmode = 1 Then For intCount = 0 To 7 txtItem(intCount) = Next intCount mblChange = False If flagRedit Then Unload frmReader = select * from readers‘重新顯示數(shù)據(jù) End If ElseIf gintRmode = 2 Then Unload Me If flagRedit Then Unload frmReader End If = select * from readers End If End Sub 同樣在選擇“修改讀者信息”命令，將觸發(fā) memnuModifyreader 的 Click 時(shí)間。 添加書(shū)籍信息窗體的創(chuàng)建 選擇“書(shū)籍管理 |書(shū)籍信息管理 |添加書(shū)籍信息”菜單，將出現(xiàn)如圖 47所示的窗體。 圖 410 添加借書(shū)信息窗體 載入窗體時(shí)，所有書(shū)籍信息和讀者信息都將自動(dòng) 加入。 37 查詢借書(shū)信息 選擇“借閱信息管理 |