【正文】 信息 = = = = = = = = = = = = End If ElseIf keyascii = 13 And = Then MsgBox 請輸入需要返還的圖書編號！ , vbInformation + vbOKOnly, 信息 End If End Sub 查找圖書窗體 Private Sub Command1_Click() Dim findsql As String Dim strcon(6) As String Dim x As Integer findsql = select * from bookinfo where If = False And = False And = False And _ = False And = False And = False Then MsgBox 請選擇查詢方式 , vbInformation + vbOKOnly, 警告 = True Exit Sub End If If = Then MsgBox 請?zhí)?寫查詢內(nèi)容！ , vbInformation + vbOKOnly, 警告 Exit Sub End If If = True Then If = 0 Then strcon(1) = 書籍編號 =39。 End If Else strcon(1) = End If If = True Then If = 0 Then strcon(2) = 書籍名稱 =39。 End If Else strcon(2) = End If If = True Then If = 0 Then strcon(3) = 類別代碼 =39。 End If Else strcon(3) = End If If = True Then If = 0 Then strcon(4) = 出版社 =39。 End If Else strcon(4) = End If If = True Then If = 0 Then strcon(5) = 作者姓名 =39。 End If Else strcon(5) = End If If = True Then If = 0 Then strcon(6) = 登記日期 = amp。 End If Else strcon(6) = End If For x = 1 To 6 If strcon(x) Then findsql = findsql + strcon(x) End If Next x = adUseClient = adCmdText = findsql If 0 Then = True = True Else MsgBox 對不起館內(nèi)沒有你所查詢的書籍，請核對后再查詢！ , vbInformation + vbOKOnly, 提示 OptionV = End If End Sub Private Sub Command2_Click() OptionV = End Sub Private Sub Command3_Click() If = False Then MsgBox 對不起，你的權(quán)限不夠，不能進(jìn)行修改操作！ , vbInformation + vbOKOnly, 信息 Exit Sub Else End If End Sub Private Sub Command4_Click() Dim BookID As String Dim lent As String If = False Then MsgBox 對不起 ，你的權(quán)限不夠，不能進(jìn)行刪除操作！ , vbInformation + vbOKOnly, 信息 Exit Sub Else = 0 BookID = If MsgBox(你確定要刪除編號為 + BookID + _ 的書籍信息嗎？ , vbInformation + vbOKCancel, 刪除 ) = vbOK Then = 8 lent = If lent = 1 Then If MsgBox(此書尚未還回館內(nèi)，你是否繼續(xù)刪除操作？ , vbInformation + vbOKCancel, 提示 ) = vbOK Then With .Delete If Not .EOF Then .MoveNext Else .MoveLast End If End With MsgBox 編號為 + BookID + 的書籍信息已經(jīng)刪除！ , vbInformation + vbOKOnly, 提示 Exit Sub Else Exit Sub End If End If With .Delete 。 amp。 amp。 amp。 amp。 amp。 amp。 39。 amp。Mode=ReadWrite。 amp。 amp。 amp。 \backup\ amp。 \backup\*.mdb FileCopy Trim(), amp。 \Backup = True Dir1_Change End Sub Private Sub Dir1_Change() = 39。 39。在表中使用的關(guān)鍵字類型用于 描述庫表示什么以及在數(shù)據(jù)庫中如何與其它的庫建立關(guān)系。一個好的全局 ER模式，除能準(zhǔn)確、全面地反映用戶功能需求外，還應(yīng)滿足下列條件：實體類型的個數(shù)要盡可能的少；實體類型所含屬性個數(shù)盡可能少；實體類型間聯(lián)系無冗余。全局概念結(jié)構(gòu)不僅要支持所有局部 ER模式，而且必須合理地表示一個完整、一致的數(shù)據(jù)庫概念結(jié)構(gòu)。將概念 設(shè)計從設(shè)計過程中獨(dú)立開來，使各階段的任務(wù)相對單一化，設(shè)計復(fù)雜程度大大降低，不受特定 DBMS的限制。本功能實現(xiàn)對圖書信息、借閱者信息、總體借閱情況信息的管理和統(tǒng)計、工作人員和管理人員信息查看及維護(hù)。 第三范式 (third normal form，簡稱 3rd NF)就是指表中的所有數(shù)據(jù)元素不但要能夠唯一地被主關(guān)鍵字所標(biāo)識，而且它們之間還必須相互獨(dú)立，不存在其它的函數(shù)關(guān)系。 第一范式 (first normal form，簡稱 1st NF)就是指在同一表中沒有重復(fù)項出現(xiàn)，如果有則應(yīng)將重復(fù)項去掉。規(guī)范化表達(dá)還規(guī)定在每一個基本表中必須定義一個數(shù)據(jù)元素為關(guān)鍵字 (key)，它可以唯一地標(biāo)識出該 表中其它相關(guān)的數(shù)據(jù)元素。 b．統(tǒng)計文件 (表 )和數(shù)據(jù)錄入文 件一般只對本工作站定義為只寫方式，對其它工作站則定義為只讀方式。因為在每個表中只有主關(guān)鍵詞才能唯一地標(biāo)識表中的這一個記錄值 (因為根據(jù)第三范式的要求，表中其它數(shù)據(jù)字段函數(shù)都依賴于主關(guān)鍵詞 )，所以將表通過關(guān)鍵詞 連接就能夠唯一地標(biāo)識出某一事物不同屬性在不同表中的存放位置。 為了更好地組織數(shù)據(jù)和設(shè)計出實際應(yīng)用數(shù)據(jù)庫，應(yīng)該注意如下問題： 規(guī)范化地重組數(shù)據(jù)結(jié)構(gòu)：對數(shù)據(jù)進(jìn)行規(guī)范化表達(dá)，這在后面將會具體討 論。 數(shù)據(jù)庫設(shè)計的步驟是： （ 1） 數(shù)據(jù)庫結(jié)構(gòu)定義：目前的數(shù)據(jù)庫管理系統(tǒng)（ DBMS）有的是支持聯(lián)機(jī)事 務(wù)處理 CLTP（負(fù)責(zé)對事務(wù)數(shù)據(jù)進(jìn)行采集、處理、存儲）的操作型 DBMS，有的可支持?jǐn)?shù)據(jù)倉庫、有聯(lián)機(jī)分析處理 CLAP（指為支持決策的制定對數(shù)據(jù)的一種加工操作）功能的大型 DBMS，有的數(shù)據(jù)庫是關(guān)系型的、有的可支持面向?qū)ο髷?shù)據(jù)庫。 Access 2021 擁有一套功能強(qiáng)大的應(yīng)用工具，其完善程度足以滿足專業(yè)開發(fā)人員的需要。數(shù)據(jù)信息處理工作量大，容易出錯；由于數(shù)據(jù)繁多，容易丟失，且不易查找。在各行各業(yè)中離不開信息處理，這正是計算機(jī)被廣泛應(yīng)用于信息管理系統(tǒng)的環(huán)境。 由于時間和水平有限，難免有不足和錯漏，歡迎批評指正。 圖書管理系統(tǒng) 摘要 圖書管理系統(tǒng)是典型的信息管理系統(tǒng) ,其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個方面。好處是顯而易見的。 圖書管理系統(tǒng) 當(dāng)今時代是飛速發(fā)展的信息時代。根據(jù)調(diào)查得知，他們以前對信息管理的主要方式是基于文本、表格等紙介質(zhì)的手工處理，對于圖書借閱情況（如借書天數(shù)、超過限定借書時間的天數(shù)）的統(tǒng)計和核實等往往采用對借書卡的人工檢查進(jìn)行，對借閱者的借閱權(quán)限、以及借閱天數(shù)等用人工計算、手抄進(jìn)行。 開發(fā)工具及其環(huán)境 《電大圖書館管理系統(tǒng)》采用 Microsoft Office Access 2021進(jìn)行后臺數(shù)據(jù)庫管理，Visual Basic 應(yīng)用程序設(shè)計。數(shù)據(jù)庫設(shè)計時需要綜合企業(yè)各個部門的存檔數(shù)據(jù)和數(shù)據(jù)需求，分析各個數(shù)據(jù)之間的關(guān)系，按照 DBMS提供的功能和描述工具，設(shè)計出規(guī)模適當(dāng)、正確反映數(shù)據(jù)關(guān)系、數(shù)據(jù)冗余少、存取效率高、能滿足多種查詢要求的數(shù)據(jù)模型。 （ 5） 數(shù)據(jù)字典設(shè)計：用數(shù)據(jù)字典描述數(shù)據(jù)庫的設(shè)計，便于維護(hù)和修改。這種表與表之間的數(shù)據(jù)關(guān)系一般都是通過主或輔關(guān)鍵詞之間的連接來實現(xiàn)的。 定義安全保密性的方法一般有如下幾種： a．原則上所有文件都定義為 4級，個別優(yōu)先級特別高的辦公室 (終端或微機(jī)的入網(wǎng)賬號 )可定義 高于 4級的級別，反之則定義為低于 4的級別。 a. 數(shù)據(jù)組織的規(guī)范化形式 在數(shù)據(jù)的規(guī)范化表達(dá)中，一般將一組相互關(guān)聯(lián)的數(shù)據(jù)稱為一個關(guān)系 (relation)，而在這個關(guān) 系下的每個數(shù)據(jù)指標(biāo)項則被稱為數(shù)據(jù)元素 (data element)，這種關(guān)系落實到具體數(shù)據(jù)庫上就是基本表，而數(shù)據(jù)元素就是基本表中的一個字段 (field)。而且這五種范式是“ 向上兼容 ” 的，即滿足第五范式的數(shù)據(jù)結(jié)構(gòu)自動滿足一、二、三、四范式，滿足第四范式的數(shù)據(jù)結(jié)構(gòu)自動滿足第一、二、三范式， ?? ，依此類推。即表中其它數(shù)據(jù)元素都依賴于主關(guān)鍵字，或稱該數(shù)據(jù)元素唯一地被主關(guān)鍵字所標(biāo)識。 圖書館管理人員功能的信息量大， 數(shù)據(jù)安全性和保密性要求最高。然后再把概念模式轉(zhuǎn)換成邏輯模式。 （ 2）設(shè)計全局 ER模式 所有局部 ER模式都設(shè)計好了后，接下來就是把它們綜合成單一的全局概念結(jié)構(gòu)。 3)全局 ER模式的優(yōu)化 在得到全局 ER模式后，為了提高數(shù)據(jù)庫系統(tǒng)的效率，還應(yīng)進(jìn)一步依據(jù)處理需求對 ER模式進(jìn) 行優(yōu)化。數(shù)據(jù)庫中有開始 … .登錄 … .注銷 … . … .數(shù)據(jù)備份 … . … .退出 操作 … .借閱圖書 … .續(xù)借圖書 … . … .還書 編輯 … .查找圖書 … .查找讀者 … .讀者借閱查詢 添加 … .添加圖書 … .添加讀者 系統(tǒng)設(shè)置 … .基本設(shè)置 … .圖書類別設(shè)置 … . … .管理員設(shè)置 統(tǒng)計 … .管內(nèi)圖書統(tǒng)計 打印 … .讀者信息表 … .圖書信息表 幫助 … .幫助 … .軟件信息 三種不同類型的關(guān)鍵字：主關(guān)鍵字、組合關(guān)鍵字和外關(guān)鍵字。 amp。 登陸身份：圖書管理員 End If = = Else MsgBox 對不起，你輸入的用戶和密碼不正確，請 重新輸入！ , vbInformation + vbOKOnly, 警告 = = End