【正文】 ... 31 查詢(xún)書(shū)籍信息 ...................................................................................... 32 借書(shū)信息管理模 塊 ......................................................................................... 33 添加借書(shū)信息窗體的創(chuàng)建 ................................................................. 33 修改借書(shū)信息 ..................................................................................... 36 查詢(xún)借書(shū)信息 ..................................................................................... 37 還書(shū)信息管理模塊 .......................................................................................... 37 添加還書(shū)信息窗體的創(chuàng)建 ................................................................. 37 修改還書(shū)信息 ..................................................................................... 38 查詢(xún)還書(shū)信息 ..................................................................................... 39 第 5 章 結(jié)束語(yǔ) ............................................................................................................... 40 致謝 ................................................................................................................................. 41 參考文獻(xiàn) ......................................................................................................................... 42 1 第 1 章 引言 目前，我國(guó)的科技水平不斷提高，計(jì)算機(jī)作為今天使用最廣的現(xiàn)代化工具已深入到各個(gè)領(lǐng)域，并且正在成為未來(lái)社會(huì) — 信息社會(huì)的重要支柱。 I 摘要 二十一世紀(jì)是信息的社會(huì)，計(jì)算機(jī)技術(shù)的飛速發(fā)展，使各行各業(yè)在計(jì)算機(jī)技術(shù)應(yīng)用方面得到了廣泛的普及和使用。在這樣的大背景下，現(xiàn)代圖書(shū)館的管理方式、資源建設(shè)等方面都發(fā)生了重大變化，這種變化表現(xiàn)在圖書(shū)館管理和服務(wù)平臺(tái)發(fā)生的變化，圖書(shū)館不再是傳統(tǒng)的手工操作、人工管理，而是全面實(shí)行計(jì)算機(jī)管理。在對(duì)圖書(shū)、讀者的管理，其實(shí)是對(duì)圖書(shū)、讀者數(shù)據(jù)的管理。 數(shù)據(jù)庫(kù)管理系統(tǒng)（ DBMS）是指數(shù)據(jù)庫(kù)系統(tǒng)中管理數(shù)據(jù)的軟件系統(tǒng)。Visual Basic 有學(xué)習(xí)版、專(zhuān)業(yè)版和企業(yè)版三種版本，以滿(mǎn)足不同的開(kāi)發(fā)需要。關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)幾乎都提供關(guān)系數(shù)據(jù)庫(kù)標(biāo)準(zhǔn)語(yǔ)言 —— SQL。 SQL 語(yǔ)言是一種非過(guò)程化語(yǔ)言，它一次處理一個(gè)記錄集合，對(duì)數(shù)據(jù)提供自動(dòng)導(dǎo)航。開(kāi)發(fā)圖書(shū)管理信息系統(tǒng)就是采用現(xiàn)代化的信息管理方式代替手工管理方式，提高圖書(shū)管理工作效率，作到信息的規(guī)范管理， 科學(xué)統(tǒng)計(jì)和快速查詢(xún)，讓圖書(shū)館更好的為學(xué)校服務(wù)。 本系統(tǒng)實(shí)現(xiàn)的目的是使學(xué)校對(duì)圖書(shū)的管理，實(shí)現(xiàn)電子化和網(wǎng)絡(luò)化。 ? 讀者基本信息的查詢(xún)、修改，包括讀者編號(hào)、讀者姓名、讀者種類(lèi)、讀者性別、工作單位、家庭住址、電話(huà)號(hào)碼、電子郵件地址、辦證日期、備注等。 7 系統(tǒng)功能模塊設(shè)計(jì) 對(duì)上述各項(xiàng)功能進(jìn)行集中、分塊，按照結(jié)構(gòu)化程序設(shè)計(jì)的要 求等到如圖 31所示的系統(tǒng)功能模塊圖。其中，圖書(shū)類(lèi)別包括類(lèi)別名稱(chēng)和類(lèi)別編號(hào)兩部分。其中，用戶(hù)信息包括用戶(hù)姓名、用戶(hù)編號(hào)、性別、讀者類(lèi)別、已借書(shū)數(shù)量。 設(shè)計(jì)數(shù)據(jù)庫(kù)系統(tǒng)時(shí)應(yīng)該首先充分了解用戶(hù)各個(gè)方面的需求，包括現(xiàn)有的以及將來(lái)可能增加的需求。各個(gè)實(shí)體具體描述ER圖如下。圖書(shū)管理系統(tǒng)數(shù)據(jù)庫(kù)中各個(gè)表格的設(shè) 計(jì)結(jié)果如下面的幾個(gè)表所示，每個(gè)表表示在數(shù)據(jù)庫(kù)中的 — 個(gè)數(shù)據(jù)表。 表 33 booktype 書(shū)籍類(lèi)別信息表 字段名 數(shù)據(jù)類(lèi)型 長(zhǎng)度 可否為空 說(shuō)明 booktypeno varchar 10 NULL 類(lèi)別編號(hào) typename varchar 20 NOT NULL 類(lèi)別名稱(chēng) keyword varchar 20 NOT NULL 關(guān)鍵詞 memo text 16 NOT NULL 備注 在表 33 中可以發(fā)現(xiàn)，除了字段名 booktypeno 外，其他字段都是書(shū)籍類(lèi)別信息的主鍵，不能為空。有關(guān)數(shù)據(jù)庫(kù)結(jié)構(gòu)的所有后臺(tái)工作已經(jīng)完成。面 18 板 1 用來(lái)顯示各種文本信息，面板 2 用來(lái)顯示當(dāng)前日期，面板 3 用來(lái)顯示當(dāng)前時(shí)間。讀者種類(lèi)管理 要實(shí)現(xiàn)如下功能：添加讀者種類(lèi)、修改讀者種類(lèi)、刪除讀者種類(lèi)。在載入窗體時(shí)，將首先通過(guò)變量 gintRTmode 判斷是否添加還是修改，如果是添加狀態(tài)，文本框?qū)⑶宄?nèi)容，窗體有提示信息；如果 是修改狀態(tài)，將選擇顯示當(dāng)前的記錄。 39。 Trim(txtItem(1)) amp。選擇相應(yīng)記錄，單擊右鍵，選擇彈出式菜但，將刪除當(dāng)前記錄。 ) = Then Select Case intCount Case 0 27 sMeg = 讀者編號(hào) Case 1 sMeg = 讀者姓名 Case 2 sMeg = 工作單位 Case 3 sMeg = 家庭住址 Case 4 sMeg = 電話(huà)號(hào)碼 Case 5 sMeg = 電子郵件地址 Case 6 sMeg = 辦證日期 End Select sMeg = sMeg amp。 Trim(txtItem(0)) amp。 圖 46 書(shū)籍類(lèi)別信息列表 在列表中選中記錄，單擊鼠標(biāo)右鍵出現(xiàn)“修改書(shū)籍類(lèi)別”的命令。 圖 49 查詢(xún)書(shū)籍信息窗體 設(shè)置產(chǎn)尋方式并輸入查詢(xún)內(nèi)容后，單擊“確定”按鈕后，所有滿(mǎn)足要求的記錄都將顯示在如圖 49所示的窗體中。初始化物資名稱(chēng) txtSQL = select DISTINCT typename from booktype Set mrc = ExecuteSQL(txtSQL, MsgText) If Not Then Do While Not cboItem(0).AddItem Trim((0)) Loop cboItem(0).ListIndex = 0 Else MsgBox 請(qǐng)先進(jìn)行書(shū)籍標(biāo)準(zhǔn) 設(shè)置！ , vbOKOnly + vbExclamation, 警告 = False Exit Sub End If txtNo = GetRkno() ElseIf gintBmode = 2 Then Set mrcc = ExecuteSQL(txtSQL, MsgText) If = False Then 35 With mrcc txtNo = .Fields(0) txtItem(0) = .Fields(1) For intCount = 1 To 6 If Not IsNull(.Fields(intCount + 2)) Then txtItem(intCount) = .Fields(intCount + 2) End If Next intCount txtItem(7) = .Fields(9) txtSQL = select DISTINCT typename from booktype cboItem(0).Clear Set mrc = ExecuteSQL(txtSQL, MsgText) If Not Then Do While Not cboItem(0).AddItem Trim((0)) Loop Else MsgBox 請(qǐng)先進(jìn)行書(shū)籍種類(lèi)設(shè)置！ , vbOKOnly + vbExclamation, 警告 = False Exit Sub End If End With 36 End If = amp。代碼如下： Private Sub Form_Load() Dim sSql As String Dim intCount As Integer Dim MsgText As String 34 Dim mrcc As If gintBmode = 1 Then = amp。 32 圖 48 書(shū)籍信息記錄別表 選擇需要修改的記錄，單擊右鍵，出現(xiàn)“選擇修改書(shū)籍信息”命令，就可以在圖47所示的窗體中對(duì)記錄進(jìn)行修改。 選擇“書(shū)籍管理 |書(shū)籍類(lèi)別管理 |添加書(shū)籍類(lèi)別”菜單，將出現(xiàn)如圖 45所示的窗體，用來(lái)添加書(shū)籍類(lèi)別。先刪除已有記錄 txtSQL = delete from readers where readerno=39。將各種文本框放在窗體的框架中，組成“讀者種類(lèi)”和“讀者信息”兩項(xiàng)。 Set mrc = ExecuteSQL(txtSQL, MsgText) End If ‘再加入新記錄 txtSQL = select * from readertype Set mrc = ExecuteSQL(txtSQL, MsgText) For intCount = 0 To 5 (intCount) = Trim(txtItem(intCount)) Next intCount ‘更新數(shù)據(jù)庫(kù)