draftworkrep.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_draftWorkRep
    Inherits System.Web.UI.Page
    Dim sqldb As SqlDataBase = New SqlDataBase
    Dim workProces As WorkProces = New WorkProces
    Dim sqlstr As String
    Shared Mid As Integer

    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_Draft, 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")
        sqlstr = "select * from T_workRep where status = 'workrepdraft' and senderID = '" & Profile.user.id & "'"
        GridView_Draft.Attributes("SortDirectin") = "ASC"
        BindData()
        Dim unsqlstr As String = "select * from V_workRepUnread where (status = 'send') AND (receiver ='" & Profile.user.id & "') AND (CheckTime IS NULL)"
        Dim dt As DataTable = sqldb.GetTable(unsqlstr)
        If dt Is Nothing Then
            HyperLink1.Text = 0
        Else
            HyperLink1.Text = dt.Rows.Count
        End If
    End Sub

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

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

    Protected Sub Button_Edit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button_Edit.Click
        Dim str As String = Request.Form.Get("RadioName")
        If str = "" Then
            ClientScript.RegisterStartupScript(Me.GetType(), "NoTitle", "<script>window.alert('没有选择任何项！');</script>")
            Return
        End If
        Session.Item("FileStatus") = "workrepdraft"
        Session.Item("workRepID") = CInt(str)
        Page.Response.Redirect("newWorkRep.aspx")
    End Sub

    Protected Sub Button_Send_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button_Send.Click
        Dim str As String = Request.Form.Get("RadioName")
        If str = "" Then
            ClientScript.RegisterStartupScript(Me.GetType(), "NoTitle", "<script>window.alert('没有选择任何项！');</script>")
            Return
        End If
        sqldb.RunSql("update T_workRep set status= 'send' where workRepID='" & str & "'")
        Page.Response.Redirect("workRepRe.aspx?check=true")
    End Sub

    Protected Sub Button_Del_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button_Del.Click
        'Dim Mid As Integer
        Mid = Request.Form.Get("RadioName")
        If Mid = 0 Then
            ClientScript.RegisterStartupScript(Me.GetType(), "NoTitle", "<script>window.alert('请选择操作对象！');</script>")
            Return
        End If
        Dim DEL_Click As String = "<script>if(window.confirm('你将删除本条信息，确定？'))__doPostBack('" + LinkButton1.UniqueID + "', '');</script>"
        ClientScript.RegisterStartupScript(Me.GetType, "DEL_Click", DEL_Click)
        Return
    End Sub

    Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
        delWorkRep(Mid)
        Page.Response.Redirect("draftWorkRep.aspx")
    End Sub

    Public Function delWorkRep(ByVal WorkRepID As Integer) As Boolean
        Dim dt As DataTable = sqldb.GetTable("select * from T_workRep where WorkRepID ='" & WorkRepID & "'")
        If dt.Rows.Count > 0 Then
            If dt.Rows.Item(0).Item("mFile") = True Then
                Dim i, j As Integer
                dt = sqldb.GetTable("select * from T_workRepFile where WorkRepID ='" & WorkRepID & "'")
                i = dt.Rows.Count
                For j = 0 To i - 1
                    Kill(Server.MapPath(dt.Rows.Item(0).Item("FilePath").ToString))
                Next
                sqldb.RunSql("delete from T_workRepFile where WorkRepID ='" & WorkRepID & "'")
            End If
        End If
        sqldb.RunSql("delete from T_workRepReturn where WorkRepID = '" & WorkRepID & "'")
        sqldb.RunSql("delete from T_workRep where WorkRepID = '" & WorkRepID & "'")
    End Function
End Class