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