Imports System.Data.SqlClient

Public Class fQueryReader
    Inherits System.Web.UI.Page

#Region " Web 窗體設(shè)計(jì)器生成的代碼 "

    '該調(diào)用是 Web 窗體設(shè)計(jì)器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.DAPersonInfo = New System.Data.SqlClient.SqlDataAdapter
        Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand
        Me.SqlConn = New System.Data.SqlClient.SqlConnection
        Me.DsPersonInfo = New 圖書管理信息系統(tǒng).DSPersonInfo
        Me.DABorrow = New System.Data.SqlClient.SqlDataAdapter
        Me.SqlSelectCommand2 = New System.Data.SqlClient.SqlCommand
        Me.DsBorrow = New 圖書管理信息系統(tǒng).DSBorrow
        Me.DAHistoryBorrow = New System.Data.SqlClient.SqlDataAdapter
        Me.SqlSelectCommand3 = New System.Data.SqlClient.SqlCommand
        Me.DsHistoryBorrow = New 圖書管理信息系統(tǒng).DSHistoryBorrow
        Me.DADefer = New System.Data.SqlClient.SqlDataAdapter
        Me.SqlSelectCommand4 = New System.Data.SqlClient.SqlCommand
        Me.DsDefer = New 圖書管理信息系統(tǒng).DSDefer
        CType(Me.DsPersonInfo, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.DsBorrow, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.DsHistoryBorrow, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.DsDefer, System.ComponentModel.ISupportInitialize).BeginInit()
        '
        'DAPersonInfo
        '
        Me.DAPersonInfo.SelectCommand = Me.SqlSelectCommand1
        Me.DAPersonInfo.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Read", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("cReadID", "cReadID"), New System.Data.Common.DataColumnMapping("cReadName", "cReadName"), New System.Data.Common.DataColumnMapping("Sex", "Sex"), New System.Data.Common.DataColumnMapping("cDepartmentName", "cDepartmentName"), New System.Data.Common.DataColumnMapping("cReadTypeName", "cReadTypeName"), New System.Data.Common.DataColumnMapping("siBorrowNumber", "siBorrowNumber"), New System.Data.Common.DataColumnMapping("siBorrowDays", "siBorrowDays")})})
        '
        'SqlSelectCommand1
        '
        Me.SqlSelectCommand1.CommandText = "SELECT R.cReadID, R.cReadName, R.Sex, D.cDepartmentName, RT.cReadName AS cReadTyp" & _
        "eName, RT.siBorrowNumber, RT.siBorrowDays FROM [Read] R INNER JOIN Department D " & _
        "ON R.DepartID = D.cDepartmentID INNER JOIN ReadType RT ON R.ReadTypeID = RT.cRea" & _
        "dTypeID WHERE (R.cReadID = @id)"
        Me.SqlSelectCommand1.Connection = Me.SqlConn
        Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@id", System.Data.SqlDbType.VarChar, 10, "cReadID"))
        '
        'SqlConn
        '
        Me.SqlConn.ConnectionString = "workstation id=DEVELOPER;packet size=4096;user id=sa;password=;data source=develo" & _
        "per;persist security info=False;initial catalog=圖書管理信息系統(tǒng)"
        '
        'DsPersonInfo
        '
        Me.DsPersonInfo.DataSetName = "DSPersonInfo"
        Me.DsPersonInfo.Locale = New System.Globalization.CultureInfo("zh-CN")
        '
        'DABorrow
        '
        Me.DABorrow.SelectCommand = Me.SqlSelectCommand2
        Me.DABorrow.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Borrow", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("圖書編號(hào)", "圖書編號(hào)"), New System.Data.Common.DataColumnMapping("書名", "書名"), New System.Data.Common.DataColumnMapping("作者", "作者"), New System.Data.Common.DataColumnMapping("出版社", "出版社"), New System.Data.Common.DataColumnMapping("單價(jià)", "單價(jià)"), New System.Data.Common.DataColumnMapping("頁碼", "頁碼"), New System.Data.Common.DataColumnMapping("出版日期", "出版日期"), New System.Data.Common.DataColumnMapping("借閱日期", "借閱日期"), New System.Data.Common.DataColumnMapping("應(yīng)還日期", "應(yīng)還日期")})})
        '
        'SqlSelectCommand2
        '
        Me.SqlSelectCommand2.CommandText = "SELECT BR.cBookID AS 圖書編號(hào), BT.cBookName AS 書名, BT.cAuthor AS 作者, BT.cPubs AS 出版社," & _
        " BT.mBookRate AS 單價(jià), BT.siPages AS 頁碼, BT.dPublishDate AS 出版日期, BR.dBorrowDay AS" & _
        " 借閱日期, BR.dBorrowDay + RT.siBorrowDays AS 應(yīng)還日期 FROM Borrow BR INNER JOIN Book B " & _
        "ON BR.cBookID = B.cBookID INNER JOIN BookType BT ON B.cBookTypeID = BT.cBookType" & _
        "ID INNER JOIN [Read] R ON BR.cReadID = R.cReadID INNER JOIN ReadType RT ON R.Rea" & _
        "dTypeID = RT.cReadTypeID WHERE (BR.dReturnDay IS NULL) AND (BR.cReadID = @id)"
        Me.SqlSelectCommand2.Connection = Me.SqlConn
        Me.SqlSelectCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@id", System.Data.SqlDbType.VarChar, 10, "cReadID"))
        '
        'DsBorrow
        '
        Me.DsBorrow.DataSetName = "DSBorrow"
        Me.DsBorrow.Locale = New System.Globalization.CultureInfo("zh-CN")
        '
        'DAHistoryBorrow
        '
        Me.DAHistoryBorrow.SelectCommand = Me.SqlSelectCommand3
        Me.DAHistoryBorrow.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Borrow", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("圖書編號(hào)", "圖書編號(hào)"), New System.Data.Common.DataColumnMapping("書名", "書名"), New System.Data.Common.DataColumnMapping("作者", "作者"), New System.Data.Common.DataColumnMapping("出版社", "出版社"), New System.Data.Common.DataColumnMapping("單價(jià)", "單價(jià)"), New System.Data.Common.DataColumnMapping("頁碼", "頁碼"), New System.Data.Common.DataColumnMapping("出版日期", "出版日期"), New System.Data.Common.DataColumnMapping("借閱日期", "借閱日期"), New System.Data.Common.DataColumnMapping("歸還日期", "歸還日期")})})
        '
        'SqlSelectCommand3
        '
        Me.SqlSelectCommand3.CommandText = "SELECT BR.cBookID AS 圖書編號(hào), BT.cBookName AS 書名, BT.cAuthor AS 作者, BT.cPubs AS 出版社," & _
        " BT.mBookRate AS 單價(jià), BT.siPages AS 頁碼, BT.dPublishDate AS 出版日期, BR.dBorrowDay AS" & _
        " 借閱日期, BR.dReturnDay AS 歸還日期 FROM Borrow BR INNER JOIN Book B ON BR.cBookID = B." & _
        "cBookID INNER JOIN BookType BT ON B.cBookTypeID = BT.cBookTypeID WHERE (BR.dRetu" & _
        "rnDay IS NOT NULL) AND (BR.cReadID = @id)"
        Me.SqlSelectCommand3.Connection = Me.SqlConn
        Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@id", System.Data.SqlDbType.VarChar, 10, "cReadID"))
        '
        'DsHistoryBorrow
        '
        Me.DsHistoryBorrow.DataSetName = "DSHistoryBorrow"
        Me.DsHistoryBorrow.Locale = New System.Globalization.CultureInfo("zh-CN")
        '
        'DADefer
        '
        Me.DADefer.SelectCommand = Me.SqlSelectCommand4
        Me.DADefer.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Borrow", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("圖書編號(hào)", "圖書編號(hào)"), New System.Data.Common.DataColumnMapping("書名", "書名"), New System.Data.Common.DataColumnMapping("作者", "作者"), New System.Data.Common.DataColumnMapping("出版社", "出版社"), New System.Data.Common.DataColumnMapping("單價(jià)", "單價(jià)"), New System.Data.Common.DataColumnMapping("頁碼", "頁碼"), New System.Data.Common.DataColumnMapping("出版日期", "出版日期"), New System.Data.Common.DataColumnMapping("借閱日期", "借閱日期"), New System.Data.Common.DataColumnMapping("應(yīng)還日期", "應(yīng)還日期"), New System.Data.Common.DataColumnMapping("超過天數(shù)", "超過天數(shù)")})})
        '
        'SqlSelectCommand4
        '
        Me.SqlSelectCommand4.CommandText = "SELECT BR.cBookID AS 圖書編號(hào), BT.cBookName AS 書名, BT.cAuthor AS 作者, BT.cPubs AS 出版社," & _
        " BT.mBookRate AS 單價(jià), BT.siPages AS 頁碼, BT.dPublishDate AS 出版日期, BR.dBorrowDay AS" & _
        " 借閱日期, BR.dBorrowDay + RT.siBorrowDays AS 應(yīng)還日期, DATEDIFF(dd, BR.dBorrowDay + RT." & _
        "siBorrowDays, GETDATE()) AS 超過天數(shù) FROM Borrow BR INNER JOIN Book B ON BR.cBookID " & _
        "= B.cBookID INNER JOIN BookType BT ON B.cBookTypeID = BT.cBookTypeID INNER JOIN " & _
        "[Read] R ON BR.cReadID = R.cReadID INNER JOIN ReadType RT ON R.ReadTypeID = RT.c" & _
        "ReadTypeID WHERE (BR.dReturnDay IS NULL) AND (BR.cReadID = @id)"
        Me.SqlSelectCommand4.Connection = Me.SqlConn
        Me.SqlSelectCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@id", System.Data.SqlDbType.VarChar, 10, "cReadID"))
        '
        'DsDefer
        '
        Me.DsDefer.DataSetName = "DSDefer"
        Me.DsDefer.Locale = New System.Globalization.CultureInfo("zh-CN")
        CType(Me.DsPersonInfo, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DsBorrow, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DsHistoryBorrow, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DsDefer, System.ComponentModel.ISupportInitialize).EndInit()

    End Sub
    Protected WithEvents Image2 As System.Web.UI.WebControls.Image
    Protected WithEvents Image1 As System.Web.UI.WebControls.Image
    Protected WithEvents Table1 As System.Web.UI.WebControls.Table
    Protected WithEvents DAPersonInfo As System.Data.SqlClient.SqlDataAdapter
    Protected WithEvents SqlConn As System.Data.SqlClient.SqlConnection
    Protected WithEvents DsPersonInfo As 圖書管理信息系統(tǒng).DSPersonInfo
    Protected WithEvents lblType As System.Web.UI.WebControls.Label
    Protected WithEvents txtReadTypeID As System.Web.UI.WebControls.TextBox
    Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
    Protected WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
    Protected WithEvents tablePersonInfo As System.Web.UI.WebControls.Table
    Protected WithEvents DABorrow As System.Data.SqlClient.SqlDataAdapter
    Protected WithEvents DsBorrow As 圖書管理信息系統(tǒng).DSBorrow
    Protected WithEvents SqlSelectCommand2 As System.Data.SqlClient.SqlCommand
    Protected WithEvents DAHistoryBorrow As System.Data.SqlClient.SqlDataAdapter
    Protected WithEvents SqlSelectCommand3 As System.Data.SqlClient.SqlCommand
    Protected WithEvents DsHistoryBorrow As 圖書管理信息系統(tǒng).DSHistoryBorrow
    Protected WithEvents DGBorrow As System.Web.UI.WebControls.DataGrid
    Protected WithEvents SqlSelectCommand4 As System.Data.SqlClient.SqlCommand
    Protected WithEvents DADefer As System.Data.SqlClient.SqlDataAdapter
    Protected WithEvents DsDefer As 圖書管理信息系統(tǒng).DSDefer
    Protected WithEvents HyperLink1 As System.Web.UI.WebControls.HyperLink
    Protected WithEvents HyperLink2 As System.Web.UI.WebControls.HyperLink

    '注意: 以下占位符聲明是 Web 窗體設(shè)計(jì)器所必需的。
    '不要?jiǎng)h除或移動(dòng)它。
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法調(diào)用是 Web 窗體設(shè)計(jì)器所必需的
        '不要使用代碼編輯器修改它。
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        tablePersonInfo.Visible = False
        DGBorrow.Visible = False
    End Sub

End Class