【正文】 = m (ds4, 查詢) = (查詢) () End Sub Private Sub Button4_Click(ByVal sender As , ByVal e As ) Handles Dim str As String str = update 圖書借閱信息表 set Return_Date=Return_Date+20 where Book_id=39。 amp。 amp。 39。 and Roll_No=39。 amp。 amp。 39。 If = Then () End If () = conn = = str = m (ds1, 圖書借閱信息表) () () () str = select as 圖書編號(hào), as 讀者編號(hào),Book_name as 圖書名稱,Roll_Name as 讀者姓名,Borrow_Date as 借書日期,Return_Date as 還書日期 from 圖書信息表,讀者信息表,圖書借閱信息表 where = and = = conn = = str = m (ds4, 查詢) = (查詢) () End Sub Private Sub Button5_Click(ByVal sender As , ByVal e As ) Handles () End Sub Private Sub Button7_Click(ByVal sender As , ByVal e As ) Handles Dim str As String str = update 圖書借閱信息表 set ReturnOrNot=39。已還39。 where Book_id=39。 amp。 amp。 39。 and Roll_No=39。 amp。 amp。 39。 If = Then () End If () = conn = = str = m (ds1, 圖書借閱信息表) (歸還圖書成功, 提示信息) () End Sub Private Sub Button8_Click(ByVal sender As , ByVal e As ) Handles () = = = = = = = = End Sub Private Sub Button6_Click(ByVal sender As , ByVal e As ) Handles () End SubEnd Class4. 注銷模塊代碼：Imports Public Class frmRegistration Inherits Dim conn As New SqlConnection(Server=.。Database=Library Management System。Integrated Security=SSPI) Dim m As New SqlCommand Dim ds As New DataSet Dim ds1 As New DataSetDim da As New SqlDataAdapterPrivate Sub Button3_Click(ByVal sender As , ByVal e As ) Handles () End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles = = End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles Dim num As String Dim str As String num = str = delete from 圖書信息表 where Book_id=39。 amp。 num amp。 39。 If = Then () End If () = conn = = str = m (ds, 圖書信息表) () (該圖書已注銷, 提示信息) End Sub Private Sub Button4_Click(ByVal sender As , ByVal e As ) Handles If = Then (請(qǐng)輸入圖書編號(hào), 提示信息) Else Dim num As String Dim str As String num = str = select * from 圖書信息表 where Book_id=39。 amp。 num amp。 39。 If = Then () End If () = conn = = str = m (ds, 圖書信息表) If (0). 0 Then = (圖書信息表) = (圖書信息表).Rows().Item(2) Else (未找到該圖書, 提示信息) End If End If End Sub Private Sub Button5_Click(ByVal sender As , ByVal e As ) Handles If = Then (請(qǐng)輸入讀者編號(hào), 提示信息) Else Dim num As String Dim str As String num = str = select * from 讀者信息表 where Roll_No=39。 amp。 num amp。 39。 If = Then () End If () = conn = = str = m (ds1, 讀者信息表) If (0). 0 Then = (讀者信息表) = (讀者信息表).Rows().Item(2) Else (未找到該讀者, 提示信息) End If End If End Sub Private Sub Button6_Click(ByVal sender As , ByVal e As ) Handles () End Sub Private Sub Button8_Click(ByVal sender As , ByVal e As ) Handles Dim num As String Dim str As String num = str = delete from 讀者信息表 where Roll_No=39。 amp。 num amp。 39。 If = Then () End If () = conn = = str = m (ds, 讀者信息表) () (該讀者已注銷, 提示信息) End Sub Private Sub Button7_Click(ByVal sender As , ByVal e As ) Handles = = End SubEnd Class5. 查詢模塊代碼：Imports Public Class frmBookDemandInherits Dim conn As New SqlConnection(Server=.。Database=Library Management System。Integrated Security=SSPI) Dim m As New SqlCommand Dim ds1 As New DataSet Dim ds5 As New DataSet Dim da As New SqlDataAdapter Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles If = Then (請(qǐng)輸入圖書編號(hào), 提示信息) Else Dim num As String Dim str As String num = str = select as 圖書編號(hào),ISBN as ISBN號(hào),Book_name as 圖書名稱, amp。 _ Author as 作者,PublishingHouse_name as 出版社,Publish_time as 出版時(shí)間, amp。 _ Category as 圖書類別, as 索書號(hào),Money as 單價(jià), amp。 _ Total_num as 館藏?cái)?shù)量,Send_num as 借出數(shù),Send_count as 借出次數(shù) from 圖書信息表, amp。 _ 圖書流通統(tǒng)計(jì)表,圖書類別關(guān)系表,圖書類別表,圖書出版社關(guān)系表,出版社信息表 amp。 _ where =39。 amp。 num amp。 39。and amp。 _ = and = amp。 _ and = amp。 _ and = amp。 _ and = If = Then () End If () = conn = = str = m (ds1, 圖書信息表) If (0). = 0 Then (沒有該圖書, 提示信息) () Else = (圖書信息表) = (圖書信息表).Rows().Item(1) = (圖書信息表).Rows().Item(2) = (圖書信息表).Rows().Item(3) = (圖書信息表).Rows().Item(4) = (圖書信息表).Rows().Item(5)