1、SQL Server 網(wǎng)絡(luò)數(shù)據(jù)庫課程設(shè)計說明書系 別：專 業(yè)：班 級：學 號：姓 名：時 間：目錄一、 項目說明.1二、 總體設(shè)計.1三、 數(shù)據(jù)庫設(shè)計.3四、 詳細設(shè)計與功能體現(xiàn).4五、 系統(tǒng)運行結(jié)果分析.11項目說明項目名稱：圖書管理系統(tǒng)功能：實現(xiàn)對圖信息書、讀者信息以及圖書借閱情況等內(nèi)容的管理與查詢。運行環(huán)境：圖形界面在 Visual Basic.NET 2005中運行，數(shù)據(jù)庫在 SQL server 2005中運行。開發(fā)環(huán)境：Visual Basic.NET 2005、SQL server 2005總體設(shè)計圖書管理界面包括：初始界面、登錄界面、圖書管理主界面、圖書入庫界面、圖書注銷界面、

2、圖書借閱與歸還界面、用戶注冊界面、用戶注銷界面、用戶密碼修改界面、圖書信息查詢界面、讀者信息查詢界面、借閱信息查詢界面、關(guān)于系統(tǒng)界面、關(guān)于主題界面。圖書注銷圖書入庫功能層次說明圖圖書借閱與歸還退出系統(tǒng)登錄界面主界面圖書管理用戶管理信息查詢幫助用戶注銷用戶注冊用戶密碼修改讀者信息查詢圖書信息查詢借閱信息查詢關(guān)于主題關(guān)于系統(tǒng)登錄數(shù)據(jù)庫設(shè)計數(shù)據(jù)表包括：登錄用戶信息表、圖書信息表、讀者信息表、借閱信息表登錄用戶信息表用戶名126liu用戶密碼126man圖書信息表圖書編號圖書名圖書類別作者譯者出版社出版時間價格01網(wǎng)絡(luò)數(shù)據(jù)庫必修李巖清華大學出版社29.0002VB課程設(shè)計必修劉懷亮人民大學出版社25.

3、0003JAVA開發(fā)必修王衛(wèi)生北京大學出版社29.8004數(shù)據(jù)結(jié)構(gòu)必修吳偉民清華大學出版社30.0005公共英語必修李氏分北京大學出版社26.9806毛澤東思想選修郝文麗人民大學出版社28.9608計算機基礎(chǔ)選修梁寧青年出版社21.0909管理心理學選修10信息檢索選修12股票投資必修讀者信息表讀者編號讀者姓名性別年齡系別專業(yè)電話0801時守傳男21電氣與電子工程系 計算機應用技術(shù) 0802張三男20建工系工程造價0803李四男20信息系網(wǎng)絡(luò)技術(shù)0804王五女21經(jīng)貿(mào)系國際貿(mào)易0805周六女21電氣與電子工程系電氣自動化0810李麗女20軟件學院軟件開發(fā)刁俊龍男20電氣與電子工程系計算機應用技

4、術(shù)借閱信息表圖書名網(wǎng)絡(luò)數(shù)據(jù)庫毛澤東思想股票投資公共英語借閱情況以借閱以借閱以借閱以借閱以借閱以借閱詳細設(shè)計與功能體現(xiàn)界面設(shè)計登錄界主窗體圖書添加圖書注銷圖書借閱與歸還用戶注冊用戶注銷用戶密碼修改圖書信息查詢讀者信息查詢借閱信息查詢關(guān)于系統(tǒng)關(guān)于主題系統(tǒng)運行結(jié)果分析：根據(jù)管理和查詢情況輸入要查詢的信息，根據(jù)提示完成對信息的管理和查詢等各項任務(wù)，各項功能結(jié)果例圖：圖書信息查詢核心代碼：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click D

5、im cn As New SqlConnection(My.Settings.LibrarySystem) Dim da1 As New SqlDataAdapter(select * from book where 圖書名= & TextBox1.Text.Trim & , cn) Dim da2 As New SqlDataAdapter(select * from book where 圖書編號= & TextBox1.Text.Trim & , cn) Dim tal1 As New DataTable Dim tal2 As New DataTable Dim da11 As New

6、 SqlCommand(select * from book where 圖書名= & TextBox1.Text.Trim & , cn) Dim da21 As New SqlCommand(select * from book where 圖書編號= & TextBox1.Text.Trim & , cn) cn.Open() Dim rs As SqlDataReader If ComboBox1.Text = 書名 Then rs = da11.ExecuteReader If Not rs.Read Then MsgBox(此書不存在，請重新輸入, MsgBoxStyle.OkOn

7、ly, 系統(tǒng)提示) TextBox1.Text = Else rs.Close() da1.Fill(tal1) cn.Close() DataGridView1.DataSource = tal1 TextBox1.Text = End If Else rs = da21.ExecuteReader If Not rs.Read Then MsgBox(此編號不存在，請重新輸入, MsgBoxStyle.OkOnly, 系統(tǒng)提示) TextBox1.Text = Else rs.Close() da2.Fill(tal2) cn.Close() DataGridView1.DataSourc

8、e = tal2 TextBox1.Text = End If End If End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim cn As New SqlConnection(My.Settings.LibrarySystem) Dim tb2 As New DataTable Dim da As New SqlDataAdapter(select * from book , cn) da.Fill(tb2

9、) DataGridView1.DataSource = tb2 cn.Close() End Sub讀者信息查詢核心代碼：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If ComboBox1.Text = 編號 Then Dim cn As New SqlConnection(My.Settings.LibrarySystem) Dim da1 As New SqlCommand(select * from reader

10、where 讀者編號= & TextBox1.Text.Trim & , cn) Dim da11 As New SqlDataAdapter(select * from reader where 讀者編號= & TextBox1.Text.Trim & , cn) Dim tal As New DataTable cn.Open() Dim rs As SqlDataReader = da1.ExecuteReader If Not rs.Read Then MsgBox(此編號不存在，請重新輸入！, MsgBoxStyle.OkOnly, 系統(tǒng)提示) TextBox1.Text = Els

11、e rs.Close() da11.Fill(tal) cn.Close() DataGridView1.DataSource = tal TextBox1.Text = End If Else Dim cn As New SqlConnection(My.Settings.LibrarySystem) Dim da21 As New SqlDataAdapter(select * from reader where 讀者姓名= & TextBox1.Text.Trim & , cn) Dim da2 As New SqlCommand(select * from reader where 讀

12、者姓名= & TextBox1.Text.Trim & , cn) Dim tal1 As New DataTable cn.Open() Dim rs1 As SqlDataReader = da2.ExecuteReader If Not rs1.Read Then MsgBox(此讀者不存在，請重新輸入, MsgBoxStyle.OkOnly, 系統(tǒng)提示) TextBox1.Text = Else rs1.Close() da21.Fill(tal1) cn.Close() DataGridView1.DataSource = tal1 TextBox1.Text = End If En

13、d If End Sub Private Sub ReaderCheck_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim cn As New SqlConnection(My.Settings.LibrarySystem) Dim t

14、b2 As New DataTable Dim da As New SqlDataAdapter(select * from reader , cn) da.Fill(tb2) DataGridView1.DataSource = tb2 cn.Close() End Sub用戶注冊核心代碼：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim cn As New SqlConnection(My.Settings.Libra

15、rySystem) Dim cmd As New SqlCommand(insert into user1 values( & TextBox1.Text.Trim & , & TextBox2.Text.Trim & ), cn) Dim da1 As New SqlDataAdapter(select * from user1 where name= & TextBox1.Text.Trim & , cn) Dim dr1 As New SqlCommand(select * from user1 where name= & TextBox1.Text.Trim & , cn) Dim r

16、s As SqlDataReader cn.Open() rs = dr1.ExecuteReader If TextBox1.Text = Or TextBox2.Text = Or TextBox3.Text = Then MsgBox(登錄名或密碼不能為空！, MsgBoxStyle.OkOnly, 系統(tǒng)提示) TextBox1.Text = TextBox2.Text = TextBox3.Text = ElseIf rs.Read Then MsgBox(此用戶名已存在，請重新輸入！, MsgBoxStyle.OkOnly, 系統(tǒng)提示) TextBox1.Text = TextBox

17、2.Text = TextBox3.Text = Else If TextBox2.Text TextBox3.Text Then MsgBox(兩次輸入的密碼不相同，請重新輸入！, MsgBoxStyle.OkOnly, 系統(tǒng)提示) TextBox1.Text = TextBox2.Text = TextBox3.Text = Else rs.Close() cmd.ExecuteNonQuery() cn.Close() MsgBox(恭喜您，添加成功！, MsgBoxStyle.OkOnly, 系統(tǒng)提示) Me.Close() End If End If End Sub用戶密碼修改失敗用

18、戶密碼修改成功核心代碼：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim cn As New SqlConnection(My.Settings.LibrarySystem) Dim cmd As New SqlCommand(select pwd from user1 where name= & TextBox1.Text.Trim & , cn) Dim name1 As New SqlCommand(select *

19、 from user1 where name= & TextBox1.Text.Trim & , cn) Dim pwd1 As String cn.Open() Dim rs As SqlDataReader = name1.ExecuteReader If Not rs.Read Then MsgBox(用戶名錯誤，請重新輸入！, MsgBoxStyle.OkOnly, 系統(tǒng)提示) TextBox1.Text = TextBox2.Text = TextBox3.Text = TextBox4.Text = Else rs.Close() pwd1 = cmd.ExecuteScalar

20、If pwd1 TextBox2.Text Then MsgBox(原密碼錯誤，請重新輸入！, MsgBoxStyle.OkOnly, 系統(tǒng)提示) TextBox1.Text = TextBox2.Text = TextBox3.Text = TextBox4.Text = Else If TextBox3.Text = Then MsgBox(密碼不能為空，請重新輸入, MsgBoxStyle.OkOnly, 系統(tǒng)提示) TextBox1.Text = TextBox2.Text = TextBox3.Text = TextBox4.Text = ElseIf TextBox3.Text T

21、extBox4.Text Then MsgBox(兩次輸入的密碼不能為空，請重新輸入！, MsgBoxStyle.OkOnly, 系統(tǒng)提示) TextBox1.Text = TextBox2.Text = TextBox3.Text = TextBox4.Text = Else If TextBox3.Text = TextBox4.Text Then cmd.CommandText = update user1 set pwd = & TextBox3.Text & where name= & TextBox1.Text & cmd.ExecuteNonQuery() MsgBox(恭喜您，

22、密碼修改成功！, MsgBoxStyle.OkOnly, 系統(tǒng)提示) TextBox1.Text = TextBox2.Text = TextBox3.Text = TextBox4.Text = Me.Close() cn.Close() End If End If End If End If End Sub圖書借閱與歸還功能核心代碼：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim cn As New SqlConne

23、ction(My.Settings.LibrarySystem) Dim da1 As New SqlDataAdapter(select * from book where 圖書名= & TextBox1.Text.Trim & , cn) Dim tal1 As New DataTable Dim da11 As New SqlCommand(select * from book where 圖書名= & TextBox1.Text.Trim & , cn) cn.Open() Dim rs As SqlDataReader rs = da11.ExecuteReader If Not r

24、s.Read Then MsgBox(對不起，此書不存在，請重新輸入, MsgBoxStyle.OkOnly, 系統(tǒng)提示) TextBox1.Text = Else rs.Close() da1.Fill(tal1) cn.Close() DataGridView1.DataSource = tal1 End If End Sub圖書借閱信息查詢核心代碼：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim cn As New

25、 SqlConnection(My.Settings.LibrarySystem) Dim da2 As New SqlDataAdapter(select * from borrow where 圖書名= & TextBox1.Text.Trim & , cn) Dim dr2 As New SqlCommand(select * from borrow where 圖書名= & TextBox1.Text.Trim & , cn) Dim tbl1, tbl2, tbl3, tbl4 As New DataTable Dim rs As SqlDataReader If TextBox1.

26、Text = Then MsgBox(請輸入要查新的內(nèi)容, MsgBoxStyle.OkOnly, 系統(tǒng)提示) Else cn.Open() rs = dr2.ExecuteReader If Not rs.Read Then MsgBox(您好，此書未被借出，您可以借閱此書, MsgBoxStyle.OkOnly, 系統(tǒng)提示) TextBox1.Text = Else rs.Close() da2.Fill(tbl2) DataGridView1.DataSource = tbl2 TextBox1.Text = End If End If End Sub 點擊進入該子模塊，界面為： 當“圖書編號” 、“讀者編號”為空時，點擊“查詢”按鈕，則彈出如下窗口： 提示：圖書編號 、讀者編號不能為空。要求重新輸入讀者編號、讀者編號。當輸入正確的信息后，點擊“查詢”按鈕后 ，則彈出如下窗口：查出該讀者借閱的該本書，然后點擊“還書”按鈕后。則彈出如下窗口：提示：還書成功，此時，借閱表中的該條記錄被刪除：源代碼為：Imports System.DataPublic Class returnbook Private Sub Button1_Click(ByVal sender As System.Objec