圖書管理信息系統(aspnet+sql2000)-預覽頁

　

【正文】 間 輸入參數 Au_id */ ALTER PROCEDURE Get1AuInfo Au_id nvarchar(50), /*1*/ BorrowNo int output, BorrowNoCurrent int output, MaxBorrowDays int output, MaxBorrowBooks int output AS begin transaction SELECT BorrowNo=COUNT(*) FROM borrow WHERE (Au_id = Au_id) SELECT BorrowNoCurrent=COUNT(*) FROM borrow WHERE (Au_id = Au_id) AND (Return_date IS NULL) SELECT MaxBorrowDays= , MaxBorrowBooks= FROM ausort INNER JOIN au ON = WHERE ( = Au_id) mit transaction RETURN /* 用于獲取一位讀者所有超期的借書列表 Au_id */ /*author:翟靖軒 */ ALTER PROCEDURE Select1AuMaxDateBookList Au_id nvarchar(50) /*1*/ AS SELECT AS 圖書條碼號 , AS 圖書題名 , AS 借閱日期 , AS 應還日期 FROM book INNER JOIN borrow ON = WHERE ( = Au_id) AND ( IS NULL) AND ( GETDATE()) ORDER BY DESC RETURN /*返回超期的所有讀者 */ /*author:翟靖軒 2021510*/ ALTER PROCEDURE SelectMaxDateAuList AS SELECT AS 借書證號 , AS 讀者姓名 , AS 圖書條碼號 , AS 圖書名稱 , AS 借書日期 , AS 應歸還日期 FROM borrow INNER JOIN au ON = INNER JOIN book ON = WHERE ( IS NULL) AND (GETDATE() ) ORDER BY RETURN /*查詢一個讀者的所有借閱記錄 包括已經借過的已經歸還的書籍 作者 :翟靖軒 日期 :202152 */ ALTER PROCEDURE SelectAuAllBorrowList Au_id nvarchar(50) AS SELECT AS 條碼號 , AS 圖書題名 , AS 借閱日期 , AS 歸還日期 , AS 應歸還日期 , AS ISBN號 , AS 出版社 , AS 圖書分類 , AS 圖書作者 FROM book LEFT OUTER JOIN borrow ON = WHERE ( = Au_id) ORDER BY , DESC RETURN /* 綜合圖書查詢 */ 查詢所有在館圖書 ALTER PROCEDURE searchBookInLib Book_code nvarchar(50)=39。, Book_pub nvarchar(50)=39。, Book_pubdate smalldatetime=39。, Book_sort nvarchar(50)=39。 + Book_code + 39。 + Book_name + 39。 + Book_pub + 39。 + Book_isbn + 39。 + Book_author + 39。 + Book_sort + 39。構建一個沒有參數的 sqlmand Private Overloads Function CreateCommand(ByVal sprocName As String) As SqlCommand Dim mand As SqlCommand = New SqlCommand(sprocName, Connection) = (New SqlParameter(Return Value, _ , _ 4, _ , _ False, _ 0, _ 0, _ , _ , _ Nothing)) Return mand End Function Public ReadOnly Property DSN() As String Get Return m_DSN End Get End Property Public Overloads Function RunSP(ByVal sprocName As String) As Int32 Dim result As Int32 () Dim mand As SqlCommand = (sprocName) () result = CType((Return Value).Value, Int32) () Return result End Function Public Overloads Function RunSP(ByVal sprocName As String, ByVal parameters() As IDataParameter) As Int32 Dim result As Int32 () Dim mand As SqlCommand = (sprocName, parameters) () result = CType((Return Value).Value, Int32) () Return result End Function Public Overloads Function RunSP(ByVal sprocName As String, _ ByVal parameters() As IDataParameter, ByVal DataSet As DataSet) As Int32 Dim result As Int32 Dim sqlDA As New SqlDataAdapter () = (sprocName, parameters) (DataSet, SourceTable) result = CType((Return Value).Value, Int32) () Return result End Function Public Overloads Function RunSP(ByVal sprocName As String, _ ByRef DataSet1 As DataSet) As Int32 Dim result As Int32 Dim sqlDA As New SqlDataAdapter () = (sprocName) (DataSet1) result = CType((Return Value).Value, Int32) () Return result End Function Public Overloads Function RunSP(ByVal sprocName As String, _ ByVal parameters() As IDataParameter, ByRef DataSet As DataSet, ByVal TableName As String) As Int32 Dim result As Int32 Dim sqlDA As New SqlDataAdapter () = (sprocName, parameters) (DataSet, TableName) result = CType((Return Value).Value, Int32) () Return result End Function Public Function Construct(ByVal ConstructString As String) m_DSN = ConstructString End Function Public Function Activate() Connection = New SqlConnection(m_DSN) End Function Public Function Deactivate() Connection = Nothing End Function Public Sub New() End Sub Public Sub New(ByVal ConstrucString As String) Construct(ConstrucString) () End Sub Protected Overrides Sub Finalize() () () End Sub End Class 圖書查詢窗體的全部代碼 Imports Imports Public Class frmBookQuery Inherits Region Windows 窗體設計器生成的代碼 ?此處略去 … End Region Private Sub frmBookQuery_Load(ByVal sender As , ByVal e As ) Handles With .Anchor = CType(((( Or ) _ Or ) _ Or ), ) .BackColor = .BackgroundColor = .CaptionVisible = False .HeaderForeColor = .ReadOnly = True End With BindComboBox1() = End Sub Function search() Dim As New (str) Dim cmd As New SqlCommand Dim da As SqlDataAdapter Dim ds As New DataSet With cmd If = True Then .CommandText = searchBook Else .CommandText = searchBookInlib End If .CommandType = .Connection = End With Dim mBook_code As New SqlParameter(Book_code, , 50) 39。4 Dim mBook_pubdate As New SqlPa