【導讀】在這樣的大背景下，現(xiàn)代圖書館的管理方式，資源建設等。實行計算機管理。合起來，在網(wǎng)頁中展示整個圖書管理系統(tǒng)的數(shù)據(jù)操作。借還情況等操作，管理員可以完成圖書和讀者的添加，刪除，刪除，修改，統(tǒng)計，用戶管理和備份與恢復。員方便而快捷的進行管理、查詢、借閱、錄入等工作。我們小組開發(fā)圖書管理信息系統(tǒng)就是采用現(xiàn)代化的信息。范管理，科學統(tǒng)計和快速查詢，讓圖書館更好的為學校，社會服務。錄密碼，對已借的書籍可以實現(xiàn)續(xù)期的操作和購買圖書操作。括后臺數(shù)據(jù)庫的建立和維護以及前端應用程序的開發(fā)兩個方面。前者要求建立起數(shù)據(jù)一致性和完整性強.數(shù)據(jù)安全性好的庫。后者則要求應用程序功能完備,易使用等特點。的系統(tǒng)化、規(guī)范化和自動化，實現(xiàn)對圖書資料的集中統(tǒng)一的管理。本系統(tǒng)主要解決的問題是利用關鍵字對數(shù)據(jù)庫進行查詢。

　　

【正文】 As New SqlConnection = server=USER20201219TL\SQLEXPRESS。database=library。integrated security=true () If = Then Dim da As String = select * from 借閱表 Dim cmd As New SqlCommand = da = () Dim ad As New SqlDataAdapter(da, ) Dim dset As New DataSet (dset, qq) = (qq) () End If 查看個人信息代碼： Dim As New SqlConnection 25 = server=USER20201219TL\SQLEXPRESS。database=library。integrated security=true () If = Then Dim da As String = select * from 讀者表 where 讀者編號 = 39。 + + 39。 Dim cmd As New SqlCommand = da = () Dim ad As New SqlDataAdapter(da, ) Dim dset As New DataSet (dset, qq) = (qq) () End If 修改個人密碼： Dim As New SqlConnection = server=USER20201219TL\SQLEXPRESS。database=library。integra 26 ted security=true () If = Then Dim da As String = exec p_xgdz 39。 + + 39。,39。 + + 39。,39。 + + 39。 Dim cmd As New SqlCommand = da = () Dim aa As String = exec p_xstjdz 39。 + + 39。 Dim ad As New SqlDataAdapter(aa, ) Dim dset As New DataSet (dset, zz) = (zz) () (修改完畢 ) End If 27 圖書借閱界面 圖書借閱界面可以查看當前讀者所借閱的圖書的信 息 圖 代碼如下： Dim As New SqlConnection = server=USER20201219TL\SQLEXPRESS。database=library。integrated security=true () If = Then Dim da As String = exec p_tjjyjl 39。 + + 39。,39。 + + 39。,39。 + + 39。,39。 + + 39。,39。 + + 39。,39。 + + 39。 Dim ad As New SqlDataAdapter(da, ) 39。數(shù)據(jù)集 28 Dim dess As New DataSet (dess, abc) = (abc) () Dim aa As String = exec p_xsjyjl 39。 + + 39。 Dim dd As New SqlDataAdapter(aa, ) Dim dset As New DataSet (dset, ss) = (ss) () End If 用戶管理分為兩個功能：創(chuàng)建用戶和刪除用戶，在創(chuàng)建用戶窗體，輸入新用戶名和密碼，選擇權限，點擊創(chuàng)建即可在后臺創(chuàng)建該用戶并將其記錄在用戶表中。在刪除用戶窗體，只要輸入要刪除的用戶名，點擊刪除即可在后臺數(shù)據(jù)庫中刪除該用戶，并在用戶表中刪除。 29 圖 代碼如下： Protected Sub Button1_Click(ByVal sender As Object, ByVal e As ) Handles Dim As New SqlConnection = server=USER20201219TL\SQLEXPRESS。database=library。integrated security=true () If = Then Dim aa As String = exec p_addgrant 39。 + + 39。,39。 + + 39。,39。 + + 39。 Dim ad As New SqlDataAdapter(aa, ) 39。數(shù)據(jù)集 Dim dset As New DataSet (dset, abc) 30 = (abc) () End If 圖 代碼如下： Dim As New SqlConnection = server=USER20201219TL\SQLEXPRESS。database=library。integrated security=true () If = Then Dim aa As String = exec p_dellogin 39。 + + 39。 Dim ad As New SqlDataAdapter(aa, ) Dim dset As New DataSet (dset, abc) = (abc) () End If 31 六． 總結 在這次數(shù)據(jù)庫實訓中，我們都學到了很多。一方面，不管是對數(shù)據(jù)庫的增刪改查統(tǒng)計，抑或存儲觸發(fā)等等過程，都一一在前臺網(wǎng)頁中展示出來，后臺數(shù)據(jù)庫的功能也完善得很好，不過，也存在不足之處比如前臺網(wǎng)頁設計得不夠完美等等；另一方面，團結精神是一個小組合作的必要條件。我們 能感受到了團結合作的力量是如此強大，也體會到分工合作的快樂。