workrepsearch.aspx.vb

网上办公自动化之工作汇报整个模块下载。JDFLOW版权所有

Imports Microsoft.VisualBasic
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls

Partial Class GZHB_WorkRepSearch
    Inherits System.Web.UI.Page
    Dim ctrl As Controls = New Controls()
    Dim sqldb As SqlDataBase = New SqlDataBase
    Dim sqlstr As String
    Dim users As New users

    Protected Sub Button_Search_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button_Search.Click
        sqlstr = "select * from T_workRep where status = 'send' and (receiverID like '%," & _
        Profile.user.id & ",%' or senderID = '" & Profile.user.id & "')"
        If TextBox_Sender.Text <> "" Then
            sqlstr = sqlstr & " and (Title like '%" & ctrl.GetText(TextBox_Title).ToString & _
            "%' and senderID like '%" & ctrl.GetText(TextBox_Sender).ToString & "%')"
        Else
            sqlstr = sqlstr & " and Title like '%" & ctrl.GetText(TextBox_Title).ToString & "%'"
        End If
        GridView_Result.Attributes("SortDirectin") = "DESC"
        BindData()
        GridView_Result.Visible = True
    End Sub

    Public Sub BindData()
        Dim ds As DataSet = sqldb.GetDs(sqlstr)
        GridView_Result.DataSource = ds
        GridView_Result.DataBind()
    End Sub

    Protected Sub Page_Init(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Init
        Dim pageText() As String = {"首页", "上页", "下页", "末页", "每页,条,/共,条", "第,页,/共,页"}
        Dim hide() As Integer = {1}
        jdflow.Web.Extension.GridView.RegisterEvents(GridView_Result, New jdflow.Web.Extension.GridViewDataBind(AddressOf BindData), True, False, pageText, hide)
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Session.Remove("FileStatus")
    End Sub

    Protected Sub GridView_Result_Sorting(ByVal sender As Object, ByVal e As GridViewSortEventArgs)
        Dim SortDirection As String = "DESC"
        Dim SortExpression As String = e.SortExpression.ToString
        If SortDirection = GridView_Result.Attributes("SortDirection") Then
            SortDirection = "ASC"
        Else
            SortDirection = "DESC"
        End If
        GridView_Result.Attributes("SortDirection") = SortDirection
        sqlstr = "select * from T_workRep where status = 'send' and (receiverID like '%," & _
        Profile.user.id & ",%' or senderID = '" & Profile.user.id & "') order by SendTime DESC "
        If TextBox_Sender.Text <> "" Then
            sqlstr = sqlstr & " and (Title like '%" & ctrl.GetText(TextBox_Title).ToString & "%' and senderID like '%" & ctrl.GetText(TextBox_Sender).ToString & "%')"
        Else
            sqlstr = sqlstr & " and Title like '%" & ctrl.GetText(TextBox_Title).ToString & "%' order by SendTime DESC"
        End If
        sqlstr = sqlstr + " " + " order by " + "  '" + SortExpression + "'  " + SortDirection
        sqldb.RunSql(sqlstr)
        BindData()
    End Sub

    Protected Sub GridView1_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs) Handles GridView_Result.RowDataBound
        If (e.Row.RowType = DataControlRowType.DataRow) Then
            Dim hl1 As Label = CType(e.Row.FindControl("Label1"), Label)
            hl1.Text = users.GetUserName(hl1.Text)
        End If
    End Sub

End Class