simplesearch.aspx.vb

运行环境：Win 2000 Server + SQL Server 2000 + MS vs.net Framework1. 文件说明：Library为图书管理系统项目工程文件 D

Public Class SimpleSearch
    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 MisBtn As System.Web.UI.WebControls.Button
    Protected WithEvents NameBtn As System.Web.UI.WebControls.Button
    Protected WithEvents AuthorBtn As System.Web.UI.WebControls.Button
    Protected WithEvents SubjectBtn As System.Web.UI.WebControls.Button
    Protected WithEvents ResultGrid As System.Web.UI.WebControls.DataGrid
    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 sqlstr As String = ""

    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
            sqlstr = CType(Session("sqlstr"), String)
            Dim obj As DBController = New DBController
            obj.BindDBGrd(sqlstr, ResultGrid)
            Session("sqlstr") = sqlstr
        End If
    End Sub
    Private Sub MisBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MisBtn.Click

        sqlstr = "select * from BookInfo "
        If txtContent.Text.ToString.Trim <> "" Then
            Dim str As String = txtContent.Text.ToString.Trim
            sqlstr += " where BookAuthor like '%" + str + "%' or Subject like '%" + str + "%' or BookName like '%" + str + "%'"
        End If
        Session("sqlstr") = sqlstr
        BindGrid()
    End Sub

    Private Sub NameBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NameBtn.Click
        sqlstr = "select * from BookInfo "
        If txtContent.Text.ToString.Trim <> "" Then
            sqlstr += " where  BookName like '%" + txtContent.Text.ToString.Trim + "%'"
        End If
        Session("sqlstr") = sqlstr
        BindGrid()
    End Sub

    Private Sub SubjectBtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles SubjectBtn.Click
        sqlstr = "select * from BookInfo "
        If txtContent.Text.ToString.Trim <> "" Then
            sqlstr += " where  Subject like '%" + txtContent.Text.ToString.Trim + "%'"
        End If
        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
        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 AuthorBtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles AuthorBtn.Click
        sqlstr = "select * from BookInfo "
        If txtContent.Text.ToString.Trim <> "" Then
            sqlstr += " where  BookAuthor like '%" + txtContent.Text.ToString.Trim + "%'"
        End If
        Session("sqlstr") = sqlstr
        BindGrid()
    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