【正文】 畢業(yè)設(shè)計(jì)（論文） 第 23 頁(yè) 共 30 頁(yè) Else MsgBox (此時(shí)沒(méi)有超期的圖書！ ), , 系統(tǒng)提示信息 End If End Sub 圖書歸還模塊的設(shè)計(jì)與實(shí)現(xiàn) ? 添加按鈕關(guān)鍵設(shè)計(jì)代碼： If flag = 添加 Then = + 1 = 《 amp。Data Source=WORKER 歡迎界面 .Show errorhandle: If adStateOpen Then MsgBox (數(shù)據(jù)庫(kù)連接失敗 ), vbOKOnly + vbExclamation, (系統(tǒng)提示信息 ) Else End If End Sub ? 判斷權(quán)限設(shè)計(jì)代碼： ? 備份還原設(shè)計(jì)代碼： 貴州師范大學(xué)職業(yè)技術(shù)學(xué)院 畢業(yè)設(shè)計(jì)（論文） 第 15 頁(yè) 共 30 頁(yè) 用戶管理 模塊的設(shè)計(jì)與實(shí)現(xiàn) ? 保存按鈕設(shè)計(jì)代碼： 貴州師范大學(xué)職業(yè)技術(shù)學(xué)院 畢業(yè)設(shè)計(jì)（論文） 第 16 頁(yè) 共 30 頁(yè) 貴州師范大學(xué)職業(yè)技術(shù)學(xué)院 畢業(yè)設(shè)計(jì)（論文） 第 17 頁(yè) 共 30 頁(yè) ? 刪除按鈕設(shè)計(jì)代碼： 貴州師范大學(xué)職業(yè)技術(shù)學(xué)院 畢業(yè)設(shè)計(jì)（論文） 第 18 頁(yè) 共 30 頁(yè) 圖書借閱管理模塊的設(shè)計(jì)與 實(shí)現(xiàn) ? 借出按鈕關(guān)鍵設(shè)計(jì)代碼： 圖書的借出主要要考慮幾個(gè)問(wèn)題：（ 1）看這本書還有沒(méi)有庫(kù)存量，沒(méi)有的話就不能外借；（ 2）借書冊(cè)數(shù)是否大于庫(kù)存數(shù)量，大于的話就不能外借；（ 3）判斷借閱者的借書證是不是處于掛失狀態(tài)，掛失的借書證不能借書；（ 4）判斷借閱者所借的圖書數(shù)量是否大于他的最大借書數(shù)量，大于的話就不能借出；（ 5）判斷該借閱者是否有超期圖書未還，有的話就不能借書給他，而是應(yīng)該先讓他先罰款還書后才能借；（ 6）判斷該借閱者是否應(yīng)經(jīng)結(jié)借過(guò)此書，借過(guò)的話就不用再借給他了。Persist Security Info=False。 If = 0 Then MsgBox (用戶名或密碼有誤 ), vbOKOnly + vbExclamation, (系統(tǒng)提示信息 ) Exit Sub Else MsgBox (用戶類型 不符 ), vbOKOnly + vbExclamation, (系統(tǒng)提示信息 ) 貴州師范大學(xué)職業(yè)技術(shù)學(xué)院 畢業(yè)設(shè)計(jì)（論文） 第 13 頁(yè) 共 30 頁(yè) 主窗體設(shè)計(jì)與實(shí)現(xiàn) ? Toolbar1 設(shè)計(jì)代碼： Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case 1 If userpurview = 系統(tǒng)管理員 Then 用戶管理 .Show Else MsgBox (你不是系統(tǒng)管理員，沒(méi)有權(quán)限！ ), vbOKOnly + vbExclamation, (系統(tǒng)提示信息 ) End If Case 2 備份還原 .Show Case 3 讀者信息管理 .Show Case 4 圖書管理瀏覽 .Show Case 5 出版社管理 Case 6 End End Select End Sub ? 全局模塊 sub main()設(shè)計(jì)代碼： Public Sub main() On Error GoTo errorhandle If Then MsgBox 程序已運(yùn)行 , vbExclamation + vbOKOnly, 操作提示 貴州師范大學(xué)職業(yè)技術(shù)學(xué)院 畢業(yè)設(shè)計(jì)（論文） 第 14 頁(yè) 共 30 頁(yè) End End If conn = Provider=。 Trim() amp。and 密碼=39。 Trim() amp。 ? 判斷是否為空 If = Or = Then MsgBox (用戶名或密碼不能為空 ), vbOKOnly + vbExclamation, (系統(tǒng)提示信息 ) = = Exit Sub End If ? 正確性判斷 = select * from 用戶信息表 where 用戶名 =39。以 ISBN 號(hào)為出版社表的主鍵。以下是各表和視圖的是詳細(xì)設(shè)計(jì)及其關(guān)系圖。 貴州師范大學(xué)職業(yè)技術(shù)學(xué)院 畢業(yè)設(shè)計(jì)（論文） 第 7 頁(yè) 共 30 頁(yè) 歡迎界面 第三章 圖書管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 系統(tǒng)的設(shè)計(jì) 系統(tǒng)的概要設(shè)計(jì) 該系統(tǒng)考慮將整個(gè)系統(tǒng)分解成如下模塊 : 系統(tǒng)的數(shù)據(jù)設(shè)計(jì) 系統(tǒng)的數(shù)據(jù)設(shè)計(jì)包括表和表之間的設(shè)計(jì)、視圖設(shè)計(jì)、表與視圖之間的設(shè)計(jì)。 如果要分析數(shù)據(jù)或?qū)?shù)據(jù)以特定的方式打印出來(lái) ，請(qǐng)創(chuàng)建一個(gè)報(bào)表。如果要簡(jiǎn)單地直接在某個(gè)表中查看、輸入及更改數(shù)據(jù)，請(qǐng)創(chuàng)建一個(gè)窗體。如果要搜索并檢索符合指定條件的數(shù)據(jù)，包括來(lái)自多個(gè)表中的數(shù)據(jù)，就要?jiǎng)?chuàng)建查詢。如果要保存數(shù)據(jù)，請(qǐng)為每一種類 型的信息創(chuàng)建一個(gè)表。目前已成為關(guān)系數(shù)據(jù)庫(kù)的標(biāo)準(zhǔn)語(yǔ)言 Microsoft Access 介紹 : 使用 Microsoft Access，可以在單一的數(shù)據(jù)庫(kù)文件中管理所有的信息。 關(guān)系數(shù)據(jù)庫(kù)系統(tǒng)與非關(guān)系數(shù)據(jù)庫(kù)系統(tǒng)的區(qū)別是：關(guān)系系統(tǒng)只有 “ 表 “ 這一種數(shù)據(jù)結(jié)構(gòu)；而非關(guān)系數(shù)據(jù)庫(kù)系統(tǒng)還有其他數(shù)據(jù)結(jié)構(gòu)，對(duì)這些數(shù)據(jù)結(jié)構(gòu)有其他的操作。 20 世紀(jì) 70 年代以后開(kāi)發(fā)的數(shù)據(jù)庫(kù)管理系統(tǒng)產(chǎn)品幾乎都是基于關(guān)系的。如果你的機(jī)器沒(méi)安裝有 Access，可通過(guò) VB 建庫(kù)。 第二步：用 Access 建立一個(gè)名為 Pad 的數(shù)據(jù)庫(kù)，在庫(kù)中建立一個(gè)表 Myset，給表添加四個(gè)字段： backcolor（數(shù)據(jù)）， forecolor(文本）， fontname(文本）， fontsize（文本）。為 false 時(shí)處于休眠狀態(tài) . 數(shù)據(jù)庫(kù)連接方式選擇： Visual 連接數(shù)據(jù)庫(kù)的主要方式以下幾種方式：一是： 用 data 控件進(jìn)行數(shù)據(jù)庫(kù)鏈接 ，二是 利用 adodc（ ADO Data Control)進(jìn)行數(shù)據(jù)庫(kù)鏈接 。 87) Max 和 min 屬性：對(duì) value 值的最大，最小進(jìn)行限制 。 ? 框架類的控件： 82) List 屬性：列表框控件的表項(xiàng)是使用數(shù)組的方式保存，數(shù)組的每一個(gè)元素存儲(chǔ)列表控件的一個(gè)表項(xiàng) 83) Listcount 屬性 :控件列表部分項(xiàng)目的個(gè)數(shù)。 80) 作被執(zhí)行或取消。 78) DragOver 事件：在拖放操作正在進(jìn)行時(shí)發(fā)生。 ? 復(fù)選按鈕類的控件的基本事件： 76) Click 事件：鼠標(biāo)單擊控件時(shí)發(fā)生。 74) Font 屬性：設(shè)置或返回字體的屬性。 72) DragIcon 屬性：設(shè)置或返回圖標(biāo)，它將在拖放操作中作為指針顯示。 70) Datasource 屬性：設(shè)置或返回控件綁定的一個(gè)數(shù)據(jù)源。 66) Index 屬性 :該屬性值為復(fù)選框控件數(shù)組的下標(biāo) . 67) Value 屬性 :value 為 0 表空白，為 1 表勾號(hào)，為 2 表示灰色勾號(hào) . 68) 某進(jìn)程修改。 64) MouseUp 事件：在控件上釋放鼠標(biāo)時(shí)發(fā)生。 62) MouseDown 事件：當(dāng)在控件上按下鼠標(biāo)鍵時(shí)發(fā)生。 60) KeyUp 事件： 當(dāng)控件具有焦點(diǎn)時(shí)釋放一個(gè)鍵時(shí)發(fā)生。 58) LostFocus 事件：當(dāng)對(duì)象失去焦點(diǎn)時(shí)發(fā)生。 56) DragOver 事件： 在拖放操作正在進(jìn)行時(shí)發(fā)生。 54) DbClick 事件： 當(dāng)在一個(gè)對(duì)象上按下和釋放鼠標(biāo)按鈕并再次按下和釋放按鈕時(shí)，該事件發(fā)生。 52) FontBold 屬性：設(shè)置 /返回字體粗體樣式。 50) Value 屬性：反映控件狀態(tài)的屬性，返回 true 表示已選擇了該按鈕。 48) Index 屬性：屬性值表示為單選按鈕組成的控件中某個(gè)按鈕的索引值。 26) BackColor 屬性：設(shè)置返回背景色 27) BorderStyle 屬性：設(shè)置對(duì)象的邊框樣式 28) DataFormat 屬性：設(shè)定 DataFormat 對(duì)象， 用于數(shù)據(jù)綁定 29) DataSource 屬性：設(shè)定控件綁定的一個(gè)數(shù)據(jù)源 30) DragIcon 屬性：設(shè)定圖標(biāo)，它將在拖放操作中作為指針顯示 31) Enabled 屬性：設(shè)置 /返回運(yùn)行時(shí) TextBox 是否相應(yīng)用戶事件 32) Font 屬性：設(shè)置 /返回字體屬性 33) ForeColor 屬性：設(shè)置 /返回文本的前景色 34) Height 屬性：設(shè)置 /返回 TextBox 的高度 35) Index 屬性：設(shè)置 /返回唯一的標(biāo)識(shí)控件數(shù)組中該控件的編號(hào)