【正文】 39。,39。,39。計(jì)算已經(jīng)借出數(shù) hs1 = update books set 復(fù)本數(shù) =39。where 條碼號 =39。更新 Adodc1 End Sub (4) 刪除某條記錄。借 39。 y amp。)) x = Val((復(fù)本數(shù) )) Val() 39。 DTPicker1 amp。 Text6 amp。 Text5 amp。 Text4 amp。 Text3 amp。 Text1 amp。 39。 Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then = select * from dzxxtb where 讀者編號 =39。 Chr(35) amp。 + + 39。 and amp。 End If If = 1 And = 1 Then If = like Then = select * from dzxxtb where( amp。 End If End If If = 0 And = 1 Then = select * from dzxxtb where 登記日期 between amp。 amp。 Text6 amp。 Text13 amp。 Text4 amp。 Text8 amp。 Text11 amp。 DTPicker2 amp。 Text5 amp。 (1) 添加讀者時自動生成讀者編號。 On Error Resume Next pl = If pl 1000 Then pl = 1000 = pl End If If pl ( 1000) Then pl = 1000 = pl End If = pl 5 = pl 5 = 100 圖書管理系統(tǒng) (Visual Basic + Access ) 17 / 95 = + 100 = 10 = RGB(155, 106, 161) End Sub （ 5） 通過時間控件在狀態(tài)欄顯示當(dāng)前系統(tǒng)時間。在程序運(yùn)行時，當(dāng)單擊 TreeView 控件中的節(jié)點(diǎn)時，通過TreeView 控件的 NodeClick 事件將該節(jié)點(diǎn)下的子菜單顯示在 ListView 控件圖書管理系統(tǒng) (Visual Basic + Access ) 15 / 95 中。 圖書管理系統(tǒng) (Visual Basic + Access ) 14 / 95 amp。 系統(tǒng)的功能概 述 用戶的需求可分為三個方面：一方面是圖書館工作人員通過圖書管理系統(tǒng)來管理各類圖書，使得圖書館的各項(xiàng)工作能夠有序地進(jìn)行，從而滿足學(xué)生的需求；二方面是學(xué)生們能通過該系統(tǒng)來查詢圖書館中的各類圖書，來確定自已需要的書籍的借閱情況，為借閱做好準(zhǔn)備；三方面是對圖書館數(shù)據(jù)庫管理的需求，數(shù)據(jù)庫在系統(tǒng)中扮演著極其重要的角色，所以能對系統(tǒng)數(shù)據(jù)庫進(jìn)行安全和全面地管理也成為了圖書管理者的一個重要需求。系統(tǒng)中用戶的密級改變。 Books（圖書信息表）用于存儲圖書館中的圖書信息，其結(jié)構(gòu)如表 （ 1）。通常，軟件系統(tǒng)中有許多數(shù)據(jù)是需要長期保存的。 圖書管理系統(tǒng) (Visual Basic + Access ) 7 / 95 (1)需求分析階段 (2)流程設(shè)計(jì)階段 (3)程序?qū)崿F(xiàn)階段 (4)運(yùn)行調(diào)試階段 (5)維護(hù)擴(kuò)展階段 數(shù)據(jù)庫的需求分析 在設(shè)計(jì)圖書管理系統(tǒng)之前，我們應(yīng)當(dāng)知道什么是數(shù)據(jù)庫以及 的開發(fā)環(huán)境。數(shù)據(jù)庫中的數(shù)據(jù)可以是文字、圖象、聲音等。 任務(wù)：針對學(xué)校目前的圖書館圖書的管理情況，設(shè)計(jì)出適合一般學(xué)校的計(jì)算機(jī)輔助圖書管理系統(tǒng)。 參考文獻(xiàn) ............................................................................................................. 40 程序源碼 ............................................................................................................. 41 圖書管理系統(tǒng) (Visual Basic + Access ) 4 / 95 第一章 概述 現(xiàn)今，圖書館是任何一個高校不可或缺的部分，圖書館作為一種信息資源的集散地，圖書和用戶借閱資料繁多，包含很多的信息數(shù)據(jù)的管理 。面對如此龐大的信息量，開發(fā)并使用一套合理的、有效、規(guī)范、實(shí)用的圖書管理系統(tǒng)，對學(xué)校的圖書資料進(jìn)行集中的管理必不可少。開發(fā)過程中不斷修正和改進(jìn)，直到形成用戶滿意的可行系統(tǒng)。數(shù)據(jù)處理工作量大，容易出錯。 圖書管理系統(tǒng) (Visual Basic + Access ) 5 / 95 第二章 系統(tǒng)總體設(shè)計(jì) 本系統(tǒng)包括圖書信息管理，讀者信息管理，借閱管理，用戶管理， 信息查詢模塊，系統(tǒng)的功能結(jié)構(gòu)如圖 （ 1）所示。 Access 一種關(guān)系式數(shù)據(jù)庫，關(guān)系式數(shù)據(jù)庫由一系列表組成，表又由一系列行和列組成，每一行是一個記錄，每一列是一個字段，每個字段有一個字段名，字段名在一個表中不能重復(fù)。我們的系統(tǒng)是按用戶的需求進(jìn)行數(shù)據(jù)庫定義、存取、運(yùn)行、建立和維護(hù)功能。圖書信息實(shí)體的 ER 圖如圖 （ 1）。 字段名稱 數(shù)據(jù)類型 字段大小 讀者編號 文本 50 讀者姓名 文本 10 條碼號 文本 30 書籍名稱 文本 50 書籍價格 貨幣 規(guī)定天數(shù) 數(shù)字（小數(shù)） 出版社 文本 30 作者 文本 20 借書數(shù)量 數(shù)字（長整型） 類別代碼 文本 5 借書日期 日期 /時間 應(yīng)還日期 日期 /時間 借 文本 4 表 （ 3） dzjstb 表的結(jié)構(gòu) dzhstb（讀者還書表）用于存儲讀者的還書信息，其結(jié)構(gòu)如表 （ 4）。使數(shù)據(jù)庫的物理存儲情況變壞，降低了數(shù)據(jù)的存取效率，數(shù)據(jù)庫性能下降，這時要對數(shù)據(jù)庫進(jìn)行重組織，或部分重組織（只對頻繁增、刪的表進(jìn)行重組織），按原設(shè)計(jì)要求重新 安排存儲位置、回收垃圾、減少指針鏈等，提高系統(tǒng)性能。 模塊中定義的公共變量如下： Public temp,str,BS As String 定義字符串變量 Public adoCon As New 定義數(shù)據(jù)連接變量 Public adoRs As New 定義數(shù)據(jù)集對象 為了優(yōu)化 ADO 數(shù)據(jù)庫的連接，可以在公共模塊中建立數(shù)據(jù)庫連接共享函數(shù)以及共享數(shù)據(jù)庫連接字符串。用戶單擊左側(cè)的樹狀導(dǎo)航菜單中的節(jié)點(diǎn)，可以在右側(cè)的窗格中顯示出該主菜單下的子菜單。 Public Sub Tree_change() Dim Key As String, Text As String, BH As String Dim Nod As Node = select * from Table_zcd If 0 Then Do While = False Key = Trim((主菜單名稱 )) Text = (主菜單名稱 ) Set Node1 = (, tvwChild, Key, Text, 1 = select * from Table_zcd_zcd where 主菜單名稱 = 39。 圖 .(1) 讀者信息管理 技術(shù)分析： 該框體通過 SSTab 控件實(shí)現(xiàn)讀者信息添加、修改、查詢等選項(xiàng)。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 Else = select * from dzxxtb where dzxxtb. amp。 Chr(35) amp。% + + %39。 Chr(35) amp。 amp。 + + 39。 39。 + + 39。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 Private Sub Command2_Click() If = False Then If = Then Exit Sub Else c = MsgBox(您確認(rèn)要刪除該記錄嗎？ , 17, 提示！ ) If c = vbOK Then Call Main Set adoRs = (delete from dzjstb where 讀者編號 =39。編寫 sql 語句