【正文】 ...................................................... 26 查詢所有書籍代碼 ...................................................................................... 27 致 謝 ........................................................................................................................... 28 參考文獻 ........................................................................................................................ 29 第一章 圖書管理系統(tǒng)開發(fā)環(huán)境簡介 本圖書管理系統(tǒng)是在以 Visual Basic 為編程語言，以 SQL Server2020 作為后臺數(shù)據(jù)庫而開發(fā)的一個數(shù)據(jù)庫管理系統(tǒng)。 中文 Visual Studio 2020 簡介 Visual Studio 是一套完整的開發(fā)工具集，用于生成 Web 應用程序、 XML Web Services、桌面應用程序和移動應用程序。另外，這些語言利用了 .NET Framework 的功能，通過此框架可使用簡化 ASP Web 應用程序和 XML Web Services 開發(fā)的關鍵技術。 SQL Server 2020 數(shù)據(jù)庫引擎為關系型數(shù)據(jù)和結(jié)構化數(shù)據(jù)提供了更安全可靠的存儲功能，使您可以構建和管理用于業(yè)務的高可用和高性能的數(shù)據(jù)應用程序。 第二章 圖書 管理系統(tǒng)的系統(tǒng)需求分析 系統(tǒng)可行性分析 本次畢業(yè)設計題目：“學校圖書管理系統(tǒng)的開發(fā)”主要目的是利用數(shù)據(jù)庫軟件編制一個管理軟件，用以實現(xiàn)圖書、讀者以及日常工作等多項管理。圖書管理系統(tǒng)是一種基于集中統(tǒng)一規(guī)劃的數(shù)據(jù)庫數(shù)據(jù)管理新模式。本系統(tǒng)的建成無疑會為管理者對圖書管理系統(tǒng)提供極大的幫 助。做這些工作需對數(shù)據(jù)庫知識有足夠認識，并深入的了解Visual Basic 的使用和管理系統(tǒng)的相關知識。隨著信息量的不斷增加，作為計算機的三大主要應用（科學計算、過程控制和數(shù)據(jù)處理）之一的數(shù)據(jù)處理，已迅速上升為計算機應用的主要方面，數(shù)據(jù)庫技術則成為人們?nèi)粘Ｉ?中處理數(shù)據(jù)不可缺少的有力工具，并且現(xiàn)代的信息管理系統(tǒng)幾乎都以數(shù)據(jù)庫技術作為核心。系統(tǒng)的可行性分析有以下幾個方面： (1)技術可行性：處理速度快、準確通過權限的設置，數(shù)據(jù)的安全性好、方便查詢、借閱管理等。 (3)運行上可行性：本系統(tǒng)作為一個小型 的圖書館信息管理系統(tǒng)，所耗費的 資源非常的小。 系統(tǒng)功能需求分析 隨著互聯(lián)網(wǎng)的爆炸性發(fā)展，人們越來越習慣于利用網(wǎng)絡來實現(xiàn)所需的服務，網(wǎng)絡已深深影響到人們生活的各個方面。 該系統(tǒng)主要分為兩部分：讀者部分和管理員部分。讀者可以按照類別進行查找，逐級瀏覽、可以查看自己的信息。管理員需要給用戶分配用戶名和密碼，及設定用戶的級別，還為用戶提供圖書的排行榜讓用戶能知道那些圖書受到大家的歡迎。 (2)數(shù)據(jù)存儲安全、可靠。 (4)強大的查詢功能，保證數(shù)據(jù)查詢的靈活性。 (6)具有易維護性和易操作性。 (2)讀者管理模塊：添加刪除不同類型的讀者、添加刪除讀者的檔案。 (4)圖書借還模塊：可查詢讀者借閱和歸還圖書的信息及圖書的現(xiàn)有庫存量。 系統(tǒng)功能模塊設計流程圖 圖 21 登錄界面 圖書管理系統(tǒng) 系統(tǒng)設置 讀者管理 圖書管理 借閱管理 查詢 打印報表 幫助 第三章 數(shù)據(jù)總體結(jié)構設計 數(shù)據(jù)庫概念結(jié)構設計 概念結(jié)構是獨立于實際數(shù)據(jù)模型的信息結(jié)構，必須將其轉(zhuǎn)化為邏輯結(jié)構后才能進行數(shù)據(jù)庫應用的設計。 第一種轉(zhuǎn)化是將實體轉(zhuǎn)化為關系表。 第二 種轉(zhuǎn)化是聯(lián)系的轉(zhuǎn)化。 在上面工作的基礎上歸納出人員管理數(shù)據(jù)庫表格的組成之間的聯(lián)系等等。 所建立的數(shù)據(jù)冗余度小，獨立性強。 保密性好、可靠性好。輸入的用戶名或者密碼有誤， 則會有相應提示。 = True Else (UsernameTextBox, ) End If End Sub Private Sub UsernameTextBox_GotFocus(ByVal sender As Object, ByVal e As ) Handles (UsernameTextBox, ) = End Sub Private Sub PasswordTextBox_GotFocus(ByVal sender As Object, ByVal e As ) Handles = End Sub Private Sub PasswordTextBox_LostFocus(ByVal sender As Object, ByVal e As ) Handles = End Sub Private Sub UsernameTextBox_LostFocus(ByVal sender As Object, ByVal e As ) Handles = End Sub 設計主窗體 功能描述 此窗體名為 Main，主要包括 系統(tǒng)設置 （ 賬戶管理 、修改密碼、 書籍類型等 ）、 讀者 管理（ 讀者類別、添加讀者、讀者信息等 ）、 書籍 管理（ 書籍類別 、新書上架 、 書籍 信息 管理等 ）、 借閱 管理（ 借書、還書 ）、 查詢 （ 所有書籍、借出書籍、所有學生信 息）、 打印報表 （ 讀者信息、所有書籍信息 ）、 幫助 （ 使用說明、關于 ），狀態(tài)欄顯示班級姓名和 完成日期 。 書籍信息管理窗體代碼： Private Sub BtnLoad_Click(ByVal sender As , ByVal e As ) Handles 39。文件過濾，只能是 *.jpg = 圖片文件 (*.jpg)|*.jpg 39。將文件名稱給圖表框 = 39。保存 Private Sub bnaviSave_Click(ByVal sender As , ByVal e As ) Handles For i As Integer = 0 To 1 (i).Enabled = False Next 39。 + + 39。 + + 39。 + + 39。 + + 39。 + + 39。 + + 39。 + + 39。 + + where bookid=39。 39。try catch 異常捕獲 Try (sql) 39。保成功提示 Catch ex As Exception (, Error) End Try End Sub Private Sub frmBook_Load(ByVal sender As , ByVal e As ) Handles 39。拼 SQL Dim sql As String = select indexID,indexNumber,indexDescription from tindex 39。從數(shù)據(jù) 庫中取得數(shù)據(jù) Dim ds As DataSet = (sql) 39。顯示值 = indexDescription 39。SQL sql = select booktypeno,typename,keyword,memo from booktype 39。綁定書類型 = typename = booktypeno = 1 39。格式化日期 =(yyyy/MM/dd) sql=SELECTbookid,booktype,bookname ,bookauthor,bookpub,bookpubdate,bookisbn,bookmemo,bookpic FROM books Dim ds2 As DataSet = (sql) = (0).DefaultView 39。添加幫定對象，并與值關聯(lián) (Text, , bookid) (Text, , bookisbn) (Text, , bookname) (Text, , booktype) (Text, , bookmemo) (Text, , bookpub) (Value, , bookisbn) (Text, , bookisbn) (Text, , bookpub) Catch ex As Exception () End Try End Sub Private Sub ComboBookCode_SelectedIndexChanged(ByVal sender As , ByVal e As ) Handles = End Sub Private Sub ComboBookType_SelectedIndexChanged(ByVal sender As