controllog.aspx.vb

电子合同管理系统C#

Public Class ControlLog
    Inherits System.Web.UI.Page
    Protected WithEvents SearchBtn As System.Web.UI.WebControls.LinkButton
    Protected WithEvents AllBtn As System.Web.UI.WebControls.LinkButton
    Protected WithEvents OpperBtn As System.Web.UI.WebControls.LinkButton
    Protected WithEvents ClearBtn As System.Web.UI.WebControls.LinkButton
    Protected WithEvents DeleteBtn As System.Web.UI.WebControls.LinkButton
    Protected WithEvents txtTime1 As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtTime2 As System.Web.UI.WebControls.TextBox
    Protected WithEvents MemberList As System.Web.UI.WebControls.DropDownList
    Protected WithEvents DeptList As System.Web.UI.WebControls.DropDownList
    Protected WithEvents DeleteAllBtn As System.Web.UI.WebControls.LinkButton
    Protected WithEvents CompareValidator1 As System.Web.UI.WebControls.CompareValidator
    Protected WithEvents CompareValidator2 As System.Web.UI.WebControls.CompareValidator
    Protected WithEvents LogGrd As System.Web.UI.WebControls.DataGrid

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    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 Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        If Not IsPostBack Then
            Dim sqlstr As String = "select * from MemberInfo "
            Dim obj As DBController = New DBController()
            obj.BindDrpDownList("MemberName", "MemberId", sqlstr, MemberList)
            sqlstr = "select * from DepartmentInfo"
            obj.BindDrpDownList("DepartmentName", "DepartmentId", sqlstr, DeptList)
            obj.Close()
            MemberList.Items.Insert(0, "选择成员")
            MemberList.Items(0).Value = -1

            DeptList.Items.Insert(0, "选择部门")
            DeptList.Items(0).Value = -1

            DeptList.SelectedIndex = -1
            MemberList.SelectedIndex = -1
            BindData()
        End If
    End Sub
    Private Sub BindData()
        If viewstate("sortexp") Is Nothing Then
            viewstate("sortexp") = "ContractLogId"
        End If
        Dim sqlstr As String = " where 1=1"
        Dim txtTime As DateTime
        If txtTime1.Text.ToString.Trim <> "" Then
            txtTime = CType(txtTime1.Text.Trim, DateTime)
            sqlstr += " and  LogTime >= '" & txtTime.ToString("yyyy-MM-dd") & " 0:0:0' "
        End If
        If txtTime2.Text.ToString.Trim <> "" Then
            txtTime = CType(txtTime2.Text.Trim, DateTime)
            sqlstr += " and  LogTime <= '" & txtTime.ToString("yyyy-MM-dd") & " 0:0:0' "
        End If

        If MemberList.Items(MemberList.SelectedIndex).Value <> "-1" Then
            sqlstr += " and MemberId='" + MemberList.Items(MemberList.SelectedIndex).Value + "' "
        End If

        If DeptList.Items(DeptList.SelectedIndex).Value <> "-1" Then
            sqlstr += " and ContractLog.DepartmentId=" + DeptList.Items(DeptList.SelectedIndex).Value
        End If
        sqlstr = "select MemberId,ContractLogId,MemberName,ContractLog.DepartmentId as DepartmentId,DepartmentName,LogTime,Description,IPAddress,State from ContractLog left join DepartmentInfo on DepartmentInfo.DepartmentId=ContractLog.DepartmentId  " + sqlstr
        Dim obj As DBController = New DBController()
        obj.BindDBGrd(sqlstr, LogGrd, viewstate("sortexp"))
        obj.Close()

    End Sub

    Private Sub AllBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AllBtn.Click
        Dim obj As DBController = New DBController()
        obj.CheckAllGrd("ChBox", True, LogGrd)
        obj.Close()
    End Sub

    Private Sub OpperBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpperBtn.Click
        Dim obj As DBController = New DBController()
        obj.CheckOpperGrd("ChBox", LogGrd)
        obj.Close()
    End Sub

    Private Sub ClearBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClearBtn.Click
        Dim obj As DBController = New DBController()
        obj.CheckAllGrd("ChBox", False, LogGrd)
        obj.Close()
        
    End Sub

    Private Sub DeleteBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeleteBtn.Click
        Dim myCheckBox As CheckBox
        Dim i As Integer = 0
        Dim sqlstr As String = ""
        Dim LogId As String
        Dim obj As SysLog = New SysLog()
        For i = 0 To LogGrd.Items.Count - 1
            myCheckBox = CType(LogGrd.Items(i).FindControl("ChBox"), CheckBox)
            LogId = LogGrd.Items(i).Cells(1).Text
            If myCheckBox.Checked = True Then
                obj.DelectLog(LogId)
            End If
        Next
        LogGrd.CurrentPageIndex = 0
        BindData()
    End Sub

    Private Sub SearchBtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles SearchBtn.Click
        BindData()
    End Sub

    Private Sub LogGrd_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles LogGrd.PageIndexChanged
        LogGrd.CurrentPageIndex = e.NewPageIndex
        BindData()
    End Sub

    Private Sub DeleteAllBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeleteAllBtn.Click
        LogGrd.CurrentPageIndex = 0
        Dim obj As SysLog = New SysLog()
        obj.DelectLogs()
        LogGrd.CurrentPageIndex = 0
        BindData()
    End Sub

    Private Sub LogGrd_SortCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridSortCommandEventArgs) Handles LogGrd.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
        BindData()
    End Sub
End Class