newbook.aspx.vb

图书借阅系统：建立一个图书管理系统

Public Class NewBook
    Inherits System.Web.UI.Page

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

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents SearchBtn As System.Web.UI.WebControls.Button
    Protected WithEvents ResultGrid As System.Web.UI.WebControls.DataGrid
    Protected WithEvents DayList As System.Web.UI.WebControls.DropDownList
    Protected WithEvents ViewBtn As System.Web.UI.WebControls.Button

    '注意: 以下占位符声明是 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
        '在此处放置初始化页的用户代码
    End Sub
    Private Sub BindGrid()
        If Not Session("sqlstr") Is Nothing Then
            Dim sqlstr As String = CType(Session("sqlstr"), String)
            Dim obj As DBController = New DBController
            obj.BindDBGrd(sqlstr, ResultGrid)
            Session("sqlstr") = sqlstr
        End If
    End Sub

    Private Sub SearchBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SearchBtn.Click
        Dim nowdate As Date = Date.Now
        Dim i As Integer = CType(DayList.SelectedValue, Integer)
        Dim sqlstr As String = "select * from BookInfo where UpLoadDate>='" + nowdate.AddDays(-i) + "'"
        Session("sqlstr") = sqlstr
        BindGrid()
    End Sub
    Private Sub ResultGrid_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles ResultGrid.PageIndexChanged
        ResultGrid.CurrentPageIndex = e.NewPageIndex
        BindGrid()
    End Sub

    Private Sub ResultGrid_SortCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridSortCommandEventArgs) Handles ResultGrid.SortCommand
        Dim sqlstr As String
        If viewstate("sortexp") Is Nothing Then
            viewstate("sortexp") = e.SortExpression.ToString
        ElseIf viewstate("sortexp") = e.SortExpression.ToString Then
            viewstate("sortexp") += " desc"
        Else
            viewstate("sortexp") = e.SortExpression.ToString
        End If
        If Not Session("sqlstr") Is Nothing Then
            sqlstr = CType(Session("sqlstr"), String)
            Dim obj As DBController = New DBController
            obj.BindDBGrd(sqlstr, ResultGrid, Viewstate("sortexp"))
        End If
    End Sub

    Private Sub ViewBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ViewBtn.Click
        Dim i As Integer
        Dim str As String = ""
        Dim myCheckBox As CheckBox
        For i = 0 To ResultGrid.Items.Count - 1
            myCheckBox = CType(ResultGrid.Items(i).FindControl("ChckBox"), CheckBox)
            If myCheckBox.Checked = True Then
                If str <> "" Then
                    str += "_" + ResultGrid.Items(i).Cells(6).Text
                Else
                    str += ResultGrid.Items(i).Cells(6).Text
                End If
            End If
        Next
        If str <> "" Then
            Response.Redirect("..\BookSearch\ViewList.aspx?IDList=" + str)
        End If
    End Sub
    Public Function EditState(ByVal state As Integer) As String
        Select Case state
            Case 1 : Return "流通"
            Case 2 : Return "收藏"
            Case 3 : Return "丢失"
        End Select
    End Function
End Class