advsearch.aspx.vb

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

Public Class AdvSearch
    Inherits System.Web.UI.Page

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

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

    End Sub
    Protected WithEvents ResultGrid As System.Web.UI.WebControls.DataGrid
    Protected WithEvents txtBookName As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtPubName As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtISBN As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtSeries As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtSearchNO As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtSubject As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtPubDate As System.Web.UI.WebControls.TextBox
    Protected WithEvents LanguageList As System.Web.UI.WebControls.DropDownList
    Protected WithEvents StyleList As System.Web.UI.WebControls.DropDownList
    Protected WithEvents SearchBtn As System.Web.UI.WebControls.Button
    Protected WithEvents ResetBtn As System.Web.UI.WebControls.Button
    Protected WithEvents txtBookAuthor As System.Web.UI.WebControls.TextBox
    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 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 sqlstr As String = "select * from BookInfo where 1=1 "
        If txtBookName.Text.ToString.Trim <> "" Then
            sqlstr += " and BookName like '%" + txtBookName.Text.ToString.Trim + "%' "
        End If
        If txtPubName.Text.ToString.Trim <> "" Then
            sqlstr += " and PubName like '%" + txtPubName.Text.ToString.Trim + "%' "
        End If
        If txtBookAuthor.Text.ToString.Trim <> "" Then
            sqlstr += " and BookAuthor like '%" + txtBookAuthor.Text.ToString.Trim + "%' "
        End If
        If txtISBN.Text.ToString.Trim <> "" Then
            sqlstr += " and ISBN like '%" + txtISBN.Text.ToString.Trim + "%' "
        End If
        If txtSeries.Text.ToString.Trim <> "" Then
            sqlstr += " and Series like '%" + txtSeries.Text.ToString.Trim + "%' "
        End If
        If txtSearchNO.Text.ToString.Trim <> "" Then
            sqlstr += " and SearchNO like '%" + txtSearchNO.Text.ToString.Trim + "%' "
        End If
        If txtSubject.Text.ToString.Trim <> "" Then
            sqlstr += " and Subject like '%" + txtSubject.Text.ToString.Trim + "%' "
        End If
        If txtPubDate.Text.ToString.Trim <> "" Then
            sqlstr += " and PubDate >='" + txtPubDate.Text.ToString.Trim + "' "
        End If
        If LanguageList.SelectedValue <> "所有语种" Then
            sqlstr += " and Language = '" + LanguageList.SelectedValue + "' "
        End If
        If StyleList.SelectedValue <> "所有类型" Then
            sqlstr += " and BookStyle = '" + StyleList.SelectedValue + "' "
        End If

        Session("sqlstr") = sqlstr
        BindGrid()
    End Sub

    Private Sub ResetBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ResetBtn.Click
        txtBookName.Text = ""
        txtPubName.Text = ""
        txtBookAuthor.Text = ""
        txtISBN.Text = ""
        txtSeries.Text = ""
        txtSearchNO.Text = ""
        txtSubject.Text = ""
        txtPubDate.Text = ""
        LanguageList.SelectedIndex = 0
        StyleList.SelectedIndex = 0
    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