normalsearch.aspx.vb

图书借阅系统！ASP.NET实现的

Public Class NormalSearch
    Inherits System.Web.UI.Page

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

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

    End Sub
    Protected WithEvents txtContent As System.Web.UI.WebControls.TextBox
    Protected WithEvents ResultGrid As System.Web.UI.WebControls.DataGrid
    Protected WithEvents AcurateChoice As System.Web.UI.WebControls.RadioButton
    Protected WithEvents AnyChoice As System.Web.UI.WebControls.RadioButton
    Protected WithEvents SearchBtn As System.Web.UI.WebControls.Button
    Protected WithEvents BookStyleList As System.Web.UI.WebControls.RadioButtonList
    Protected WithEvents SearchStyleList As System.Web.UI.WebControls.DropDownList
    Protected WithEvents ViewBtn As System.Web.UI.WebControls.Button
    Protected WithEvents BookingBtn 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
        '在此处放置初始化页的用户代码
        If Not IsPostBack Then
            Dim obj As BookController = New BookController
            BookingBtn.Visible = False
            If Not Session("UserID") Is Nothing Then
                If obj.AllowBooking(Session("UserID")) = True Then
                    BookingBtn.Visible = True
                End If
            End If
        End If
    End Sub
    'private bind
    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 sign As String = ""
        If AnyChoice.Checked = True Then
            sign = "%"
        End If
        Dim sqlstr As String = "select  * from BookInfo where 1=1 "
        If BookStyleList.SelectedValue <> "所有类别" Then
            sqlstr += " and BookStyle='" + BookStyleList.SelectedValue + "'"
        End If

        sqlstr += " and " + SearchStyleList.SelectedValue + " like '" + sign + txtContent.Text.ToString.Trim + sign + "' "
        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("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

    Private Sub BookingBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BookingBtn.Click
        Dim i As Integer
        Dim userID As String = Session("UserID")
        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
                str += " insert into BookingInfo  (UserID,BookID,BookingState) values('" + userID + "'," + ResultGrid.Items(i).Cells(6).Text + ",0)"
            End If
        Next
        Dim obj As DBController = New DBController
        obj.ExecNonSql(str)
        Response.Write("<script>javascript:alert('预约成功！！！')</script>")
    End Sub
End Class