fqueryreader.aspx.vb

ASP.NET+sql开发的图书管理系统

Imports System.Data.SqlClient

Public Class fQueryReader
    Inherits System.Web.UI.Page

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <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 图书管理信息系统.DSPersonInfo
        Me.DABorrow = New System.Data.SqlClient.SqlDataAdapter
        Me.SqlSelectCommand2 = New System.Data.SqlClient.SqlCommand
        Me.DsBorrow = New 图书管理信息系统.DSBorrow
        Me.DAHistoryBorrow = New System.Data.SqlClient.SqlDataAdapter
        Me.SqlSelectCommand3 = New System.Data.SqlClient.SqlCommand
        Me.DsHistoryBorrow = New 图书管理信息系统.DSHistoryBorrow
        Me.DADefer = New System.Data.SqlClient.SqlDataAdapter
        Me.SqlSelectCommand4 = New System.Data.SqlClient.SqlCommand
        Me.DsDefer = New 图书管理信息系统.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=图书管理信息系统"
        '
        '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("图书编号", "图书编号"), New System.Data.Common.DataColumnMapping("书名", "书名"), New System.Data.Common.DataColumnMapping("作者", "作者"), New System.Data.Common.DataColumnMapping("出版社", "出版社"), New System.Data.Common.DataColumnMapping("单价", "单价"), New System.Data.Common.DataColumnMapping("页码", "页码"), New System.Data.Common.DataColumnMapping("出版日期", "出版日期"), New System.Data.Common.DataColumnMapping("借阅日期", "借阅日期"), New System.Data.Common.DataColumnMapping("应还日期", "应还日期")})})
        '
        'SqlSelectCommand2
        '
        Me.SqlSelectCommand2.CommandText = "SELECT BR.cBookID AS 图书编号, BT.cBookName AS 书名, BT.cAuthor AS 作者, BT.cPubs AS 出版社," & _
        " BT.mBookRate AS 单价, BT.siPages AS 页码, BT.dPublishDate AS 出版日期, BR.dBorrowDay AS" & _
        " 借阅日期, BR.dBorrowDay + RT.siBorrowDays AS 应还日期 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("图书编号", "图书编号"), New System.Data.Common.DataColumnMapping("书名", "书名"), New System.Data.Common.DataColumnMapping("作者", "作者"), New System.Data.Common.DataColumnMapping("出版社", "出版社"), New System.Data.Common.DataColumnMapping("单价", "单价"), 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 图书编号, BT.cBookName AS 书名, BT.cAuthor AS 作者, BT.cPubs AS 出版社," & _
        " BT.mBookRate AS 单价, 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("图书编号", "图书编号"), New System.Data.Common.DataColumnMapping("书名", "书名"), New System.Data.Common.DataColumnMapping("作者", "作者"), New System.Data.Common.DataColumnMapping("出版社", "出版社"), New System.Data.Common.DataColumnMapping("单价", "单价"), New System.Data.Common.DataColumnMapping("页码", "页码"), New System.Data.Common.DataColumnMapping("出版日期", "出版日期"), New System.Data.Common.DataColumnMapping("借阅日期", "借阅日期"), New System.Data.Common.DataColumnMapping("应还日期", "应还日期"), New System.Data.Common.DataColumnMapping("超过天数", "超过天数")})})
        '
        'SqlSelectCommand4
        '
        Me.SqlSelectCommand4.CommandText = "SELECT BR.cBookID AS 图书编号, BT.cBookName AS 书名, BT.cAuthor AS 作者, BT.cPubs AS 出版社," & _
        " BT.mBookRate AS 单价, BT.siPages AS 页码, BT.dPublishDate AS 出版日期, BR.dBorrowDay AS" & _
        " 借阅日期, BR.dBorrowDay + RT.siBorrowDays AS 应还日期, DATEDIFF(dd, BR.dBorrowDay + RT." & _
        "siBorrowDays, GETDATE()) AS 超过天数 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 图书管理信息系统.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 图书管理信息系统.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 图书管理信息系统.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 图书管理信息系统.DSDefer
    Protected WithEvents HyperLink1 As System.Web.UI.WebControls.HyperLink
    Protected WithEvents HyperLink2 As System.Web.UI.WebControls.HyperLink

    '注意: 以下占位符声明是 Web 窗体设计器所必需的。
    '不要删除或移动它。
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        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