sqlvb圖書管理系統(數據庫源代碼論文)-課程設計(存儲版)

　　

【正文】 圖書罰款管理設計 報表管理設計、測試并維護該 系統 20211225 系統 管理設計、測試并維護該 系統 （星期四） 幫助設計、測試并維護該 系統 說明：本計劃只列出大體框架設計，具體的設計由設計者自行安排，但在計劃時 間內必須完成任務。 圖書借閱信息管理 圖書 借閱信息管理主要實現圖書借閱信息 查詢 和圖書借閱、續借及還書設置的操作。為了提高圖書管理工作的效率，實現信息的規范管理、科學統計和快速 查詢 ，需要設計一個圖書管理 系統 。 數據庫需求分析 根據對我院圖書館及圖書信息進行的調查和分析 ,系統 中各種功能所需的數據項和數據結構如下： ①圖書征訂信息：征訂編號、圖書 ID、訂購者、備注等； ②出版社信息：出版社編號、出版社名稱、出版社地 址、 e_mail 等； ③圖書注銷信息：注銷編號、圖書 ID、注銷時間、操作員等； ④讀者基本信息：讀者編號、借書證號、讀者姓名、讀者性別、民族、政治面貌、出生年月、讀者類別、家庭住址、相片等； ⑤讀者類別信息：讀者類別編號、讀者類別、可借書數、可續借次數等 ⑥圖書信息：條形碼、圖書 ID、圖書名稱、狀態、作者、圖書類型、借出量、現存量、操作員、內容簡介等； ⑦圖書類型信息：類型編號、圖書類型、可借天數等； ⑧圖書借閱信息：借書編號、圖書 ID、借書證號、備注等 。 其中，“借書新增”和“續借新增”界面相同，界面設計如下： 注： “歸還新增”界面與其相似，故在此略。 1 amp。39。39。39。 1 amp。39。39。 1 amp。 1 amp。39。39。39。39。39。39。39。39。 amp。39。39。39。39。39。39。39。39。 1 amp。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。integrated security=sspi。39。39。39。 1 amp。39。39。39。 其中“新增”記錄界面相同，設計如下： 注：其中，“讀者信息新增”界面與此界面相似，故在此略。 ⑤ 系統 用戶信息的錄入、修改、刪除和 查詢 。 三、 系統 管理 本 系統 管理分為管理員和操作員，管理員主要維護本 系統 ，定時檢測 系統 。 查詢 可從圖書 ID、圖書名稱、圖書類型以及所有圖書信息。 SQL+VB圖書管理系統 (數據庫 +源代碼 +論文 )課程設計 SQL+VB圖書管理 系統 數據庫 +源代碼 +論文 本圖書管理 系統 是針對各 學校 的小型圖書館而開發的，能夠實現小型圖書館管理方面的一些簡單功能。 （二）圖書信息管理 圖書信息設置 圖書信息設置主要實現圖書信息的 一些基本功能，如圖書信息 查詢 、刪除、修改、更新等。 (五 )、報表管理 報表管理主要打印圖書和讀者的一些基本信息。 ④圖書借閱、歸還、續借、逾期罰款的錄入、修改、刪除、 查詢 和統計。 注：其中，“讀者信息修改與刪除”界面與此界面相似，故在此略。 + Trim() + 39。 ShowData strSql1, If Trim((, 0)) = 借出 Then MsgBox 此書籍庫存量為 0 不可借！ , vbOKOnly + vbInformation, 信息 Exit Sub End If = 2 = 2 strSql2 = select * from 圖書罰款 where 圖書 ID=39。 ShowData strSql3, If Trim((, 7)) = 否 Then MsgBox 此書籍丟失未賠償，請先賠償！ , vbOKOnly + vbInformation, 信息 1 Exit Sub End If = 2 = 2 strSql4 = select * from 讀者信息 where 借書證號 =39。 ShowData sql, (1).Text = 總共有 amp。 + Trim() + 39。 ShowData strSql1, If (, 0) = 借書編號 Then MsgBox 您未借閱此圖書！不能續借！ , vbOKOnly + vbInformation, 信息 = 2 = 2 (1).Text = 總共有 0 條記錄 Exit Sub End If strSql1 = select 狀態 from 圖書信息 where 圖書 ID=39。 ShowData strSql2, If Trim((, 6)) = 否 Then MsgBox 此書籍逾期欠款，請先交款！ , vbOKOnly + vbInformation, 信息 1 Exit Sub End If = 2 = 2 strSql3 = select * from 圖書丟失 where 圖書 ID=39。 ShowData strSql4, If Trim((, 7)) = 普通讀者 And = 4 Then MsgBox 該讀者借書數量已達到上限！ , vbOKOnly + vbInformation, 信息 Exit Sub ElseIf Trim((, 7)) = 高級讀者 And = 6 Then MsgBox 該讀者借書數量已達到上限！ , vbOKOnly + vbInformation, 信息 Exit Sub End If = 圖書續借新增 (3).Caption =