workrep.aspx.vb

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

Imports Microsoft.VisualBasic
Imports System
Imports System.Data
Imports System.Configuration
Imports System.Collections
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
Imports System.Data.SqlClient
Imports System.Reflection


Partial Class GZHB_workRep
    Inherits System.Web.UI.Page
    Dim sqldb As SqlDataBase = New SqlDataBase
    Dim users As New users
    '搜索状态为发送，且receiverID为everyone或含有用户ID字段或发布者ID为登录ID的消息
    Dim unsqlstr As String
    Dim sqlstr As String
    Shared unread As Boolean = False

    Public Sub BindData()
        Dim ds As DataSet = sqldb.GetDs(sqlstr)
        GridView1.DataSource = ds
        GridView1.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(GridView1, 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")
        users.ValidateUser(Profile.user.id, "~/index.html")
        unsqlstr = "select * from V_workRepUnread where (status = 'send') AND (receiver ='" & Profile.user.id & "') AND (CheckTime IS NULL)"
        Session.Remove("FileStatus")
        Dim dt As DataTable = sqldb.GetTable(unsqlstr)
        If dt Is Nothing Then
            HyperLink1.Text = 0
        Else
            HyperLink1.Text = dt.Rows.Count
        End If
        If Request.QueryString("workRepReadStat") = "unread" Then
            unread = True
        Else
            unread = False
        End If
        '搜索状态为发送，且receiverID为everyone或含有用户ID字段或发布者ID为登录ID的消息
        '并且绑定数据
        If unread = True Then
            sqlstr = "select * from V_workRepUnread where (status = 'send') AND (receiver ='" & Profile.user.id & "') AND (CheckTime IS NULL) order by SendTime DESC"
        Else
            sqlstr = "select * from T_workRep where status = 'send' and (receiverID like '%," & Profile.user.id & ",%' or senderID = '" & Profile.user.id & "') order by SendTime DESC"
        End If
        GridView1.Attributes("SortDirectin") = "DESC"
        BindData()
    End Sub

    Protected Sub GridView1_Sorting(ByVal sender As Object, ByVal e As GridViewSortEventArgs)
        Dim SortDirection As String = "DESC"
        Dim SortExpression As String = e.SortExpression.ToString
        If SortDirection = GridView1.Attributes("SortDirection") Then
            SortDirection = "ASC"
        Else
            SortDirection = "DESC"
        End If
        '搜索状态为发送，且receiverID为everyone或含有用户ID字段或发布者ID为登录ID的消息
        '并且依据排序字段排序后绑定数据
        If unread = True Then
            sqlstr = "select * from V_workRepUnread where (status = 'send') AND (receiver ='" & Profile.user.id & "') AND (CheckTime IS NULL)"
        Else
            sqlstr = "select * from T_workRep where status = 'send' and (receiverID like '%," & Profile.user.id & ",%' or senderID = '" & Profile.user.id & "')"
        End If
        GridView1.Attributes("SortDirection") = SortDirection
        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 GridView1.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