workrepsend.aspx.vb

来自「网上办公自动化之工作汇报整个模块下载。JDFLOW版权所有」· VB 代码 · 共 116 行

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_WorkRepSend
    Inherits System.Web.UI.Page
    Dim sqldb As SqlDataBase = New SqlDataBase
    Dim users As New users
    Dim sqlstr As String
    Dim sqlstr2 As String = "select * from T_workRepReturn where WorkRepID = '"

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

    Public Sub BindDataRe()
        Dim ds2 As DataSet = sqldb.GetDs(sqlstr2)
        GridView_ReMess.DataSource = ds2
        GridView_ReMess.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_MySend, 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")
        GridView_MySend.Attributes("SortDirectin") = "DESC"
        sqlstr = "select * from T_workRep where status = 'send' and senderID = '" & Profile.user.id & "' order by SendTime DESC"
        BindData()

    End Sub

    Protected Sub GridView_MySend_Sorting(ByVal sender As Object, ByVal e As GridViewSortEventArgs)
        Dim SortDirection As String = "DESC"
        Dim SortExpression As String = e.SortExpression.ToString
        If SortDirection = GridView_MySend.Attributes("SortDirection") Then
            SortDirection = "ASC"
        Else
            SortDirection = "DESC"
        End If
        GridView_MySend.Attributes("SortDirection") = SortDirection
        sqlstr = "select * from T_workRep where status = 'send' and senderID = '" & Profile.user.id & "'"
        sqlstr = sqlstr + " " + " order by " + "  '" + SortExpression + "'  " + SortDirection
        sqldb.RunSql(sqlstr)
        BindData()
    End Sub

    Protected Sub GridView_ReMess_Sorting(ByVal sender As Object, ByVal e As GridViewSortEventArgs)
        Dim SortDirection As String = "DESC"
        Dim SortExpression As String = e.SortExpression.ToString
        If SortDirection = GridView_MySend.Attributes("SortDirection") Then
            SortDirection = "ASC"
        Else
            SortDirection = "DESC"
        End If
        GridView_MySend.Attributes("SortDirection") = SortDirection
        Dim mid As Integer = Request.Form.Get("RadioName")
        sqlstr2 = sqlstr2 & mid & "'"
        sqlstr2 = sqlstr2 + " " + " order by " + "  '" + SortExpression + "'  " + SortDirection
        BindDataRe()
    End Sub

    Protected Sub btnlink_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnlink.Click
        Dim mid As Integer = Request.Form.Get("RadioName")
        Dim dt As DataTable = sqldb.GetTable("select * from T_workRep where WorkRepID ='" & mid & "'")
        If dt.Rows.Count = 0 Then
            Label1.Text = "记录为空"
        Else
            Label1.Text = dt.Rows.Item(0).Item("Title")
        End If
        sqlstr2 = sqlstr2 & mid & "'"
        BindDataRe()
    End Sub

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

    Protected Sub GridView2_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs) Handles GridView_MySend.RowDataBound
        Dim drv As DataRowView
        If (e.Row.RowType = DataControlRowType.DataRow) Then
            Dim hl1 As Label = CType(e.Row.FindControl("label1"), Label)
            drv = CType(e.Row.DataItem, DataRowView)
            If drv.Item("receiverID") = "everyone" Then
                hl1.Text = "发送给所有人"
                Return
            End If
            If hl1.Text = "False" Then
                hl1.Text = "有人没看"
            Else
                hl1.Text = "完成"
            End If
        End If
    End Sub

End Class