searchcontract.aspx.vb

电子合同管理系统C#

Public Class SearchContract
    Inherits System.Web.UI.Page
    Protected WithEvents SearchDGrd As System.Web.UI.WebControls.DataGrid
    Protected WithEvents txtContractSn As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtMemberId As System.Web.UI.WebControls.TextBox
    Protected WithEvents DpListDept As System.Web.UI.WebControls.DropDownList
    Protected WithEvents txtStartDate As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtEndDate As System.Web.UI.WebControls.TextBox
    Protected WithEvents CompareValidator1 As System.Web.UI.WebControls.CompareValidator
    Protected WithEvents CompareValidator2 As System.Web.UI.WebControls.CompareValidator
    Protected WithEvents SearchBtn As System.Web.UI.WebControls.LinkButton
    Protected WithEvents txtTotalCharge As System.Web.UI.WebControls.TextBox
    Protected WithEvents DpListState As System.Web.UI.WebControls.DropDownList
    Protected WithEvents txtOppersite As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtSelfSub As System.Web.UI.WebControls.TextBox
    Protected WithEvents CompareValidator3 As System.Web.UI.WebControls.CompareValidator
    Private sqlstr As String = ""

#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
            If Session("UserInfo") Is Nothing Then
                Response.Write("<script>javascript:alert('请您登陆');</script>")
                Response.End()
            Else
                Dim obj As MemberInfo = CType(Session("UserInfo"), MemberInfo)
                'DpListDept
                If obj.Role <> 1 Then
                    DpListDept.Items.Insert(0, obj.DepartmentName)
                    DpListDept.Items(0).Value = obj.DepartmentId
                Else
                    Dim objDB As DBController = New DBController()
                    objDB.BindDrpDownList("DepartmentName", "DepartmentId", "select * from DepartmentInfo", DpListDept)
                    objDB.Close()
                    DpListDept.Items.Insert(0, "选择部门")
                    DpListDept.Items(0).Value = "-1"
                End If
            End If
        End If
    End Sub
    '=============================================================
    ' 函 数 名：BindData
    ' 功能描述：先获取查询条件，然后对DataGrid进行数据绑定。其中允许其进行排序
    ' 输入参数：无
    ' 返 回 值：无
    ' 创建日期：2004-8-12
    ' 修改日期：2004-8-12
    ' 作    者：
    ' 附加说明：查询条件中，不同角色查询的合同范围也是不一样的。
    '==============================================================
    Private Sub BindData()
        sqlstr = " where 1=1 " '
        If viewstate("sortexp") Is Nothing Then
            viewstate("sortexp") = "ContractSn"
        End If
        Dim objMemberInfo As MemberInfo = CType(Session("UserInfo"), MemberInfo)
        '普通员工只能察看自己的合同
        If objMemberInfo.Role = 3 Then
            sqlstr += " and MemberId='" & objMemberInfo.MemberId & "' "
        End If

        If (txtContractSn.Text.Trim() <> "") Then
            sqlstr = sqlstr & " and ContractSn= '" & txtContractSn.Text.Trim() & "' "
        End If

        If (txtMemberId.Text.Trim <> "") Then
            sqlstr = sqlstr & " and MemberId='" & txtMemberId.Text.Trim() + "'"
        End If
        '
        If (DpListDept.Items(DpListDept.SelectedIndex).Value <> "-1") Then
            sqlstr = sqlstr & " and DepartmentId=" & DpListDept.Items(DpListDept.SelectedIndex).Value
        End If
        '
        Try
            Dim txtSTime As DateTime
            Dim txtETime As DateTime
            If (txtStartDate.Text.Trim() <> "") Then

                txtSTime = CType(txtStartDate.Text.Trim, DateTime)
                If (txtEndDate.Text.Trim() <> "") Then

                    txtETime = CType(txtStartDate.Text.Trim, DateTime)
                    sqlstr = sqlstr & " and ( SubscribeDate >= '" & txtSTime.ToString("yyyy-MM-dd") & " 0:0:0' " & " and " & " SubscribeDate >= '" & txtETime.ToString("yyyy-MM-dd") & " 0:0:0') "
                Else
                    sqlstr = sqlstr & " and SubscribeDate >= '" & txtSTime.ToString("yyyy-MM-dd") & " 0:0:0'"
                End If
            Else
                If (txtEndDate.Text.Trim() <> "") Then
                    txtETime = CType(txtStartDate.Text.Trim, DateTime)
                    sqlstr = sqlstr & " and SubscribeDate <= '" & txtETime.ToString("yyyy-MM-dd") & " 0:0:0'"
                End If
            End If
        Catch ex As Exception

        End Try
        If DpListState.SelectedIndex <> 0 Then
            sqlstr = sqlstr & " and ContractState='" & DpListState.Items(DpListState.SelectedIndex).Text.ToString & "'"
        End If
        If txtTotalCharge.Text.ToString <> "" Then
            sqlstr = sqlstr & " and TotalCharge>" & txtTotalCharge.Text.ToString & ""
        End If

        If (txtSelfSub.Text.Trim() <> "") Then
            sqlstr = sqlstr & " and SelfSubscriber='" & txtSelfSub.Text.Trim() & "'"
        End If

        ''''''''''''''''''''''''''''''''''''''''

        If DpListState.SelectedIndex <> -1 Then
            sqlstr = sqlstr & " and ContractState='" & DpListState.Items(DpListState.SelectedIndex).Value & "'"
        End If

        If txtOppersite.Text.ToString.Trim <> "" Then
            sqlstr = sqlstr & " and OppositeSubscriber='" & txtOppersite.Text.ToString.Trim & "'"
        End If
        sqlstr = "select * from ContractInfo  " + sqlstr
        Dim obj As DBController = New DBController()
        Try
            obj.BindDBGrd(sqlstr, SearchDGrd, viewstate("sortexp"))
        Catch exp As Exception
            Response.Write(sqlstr)
            Response.End()
        Finally
            obj.Close()

        End Try

    End Sub
    Private Sub SearchBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SearchBtn.Click
        BindData()
    End Sub
    Public Function MakeUrl(ByVal ContractId As String) As String
        Return "~/Contract/EditContract.aspx?ContractId=" + ContractId
    End Function

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

    Private Sub SearchDGrd_SortCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridSortCommandEventArgs) Handles SearchDGrd.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