invalidcontract.aspx.vb

电子合同管理系统C#

Public Class InvalidContract
    Inherits System.Web.UI.Page
    Protected WithEvents StyleList As System.Web.UI.WebControls.RadioButtonList
    Protected WithEvents DBGrdList 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
            BindData()
        End If
    End Sub
    Private Sub BindData()
        Dim obj As New DBController()
        Dim sqlstr As String
        If StyleList.SelectedIndex = 0 Then
            sqlstr = "select * from ContractInfo ,MemberInfo where ContractInfo.MemberId=MemberInfo.MemberId "
        Else
            sqlstr = "select * from ContractInfo,MemberInfo where ContractInfo.MemberId=MemberInfo.MemberId and ContractInfo.DepartmentId<>MemberInfo.DepartmentId "
        End If
        Dim objMemberInfo As MemberInfo = CType(Session("UserInfo"), MemberInfo)
        If objMemberInfo.Role <> 1 Then
            sqlstr += " and ContractInfo.DepartmentId=" + objMemberInfo.DepartmentId
        End If
        obj.BindDBGrd(sqlstr, DBGrdList)
        obj.Close()
    End Sub

    'private Sub BindDropdownlist(
    Sub Data_CancelCommand(ByVal sender As Object, ByVal e As DataGridCommandEventArgs)
        DBGrdList.EditItemIndex = -1
        BindData()
    End Sub

    Sub Data_UpdateCommand(ByVal sender As Object, ByVal e As DataGridCommandEventArgs)
        'DpDeptList
        Dim dp As DropDownList

        dp = DBGrdList.Items(e.Item.ItemIndex).FindControl("DpDeptList")
        Dim ContractId As String = DBGrdList.Items(e.Item.ItemIndex).Cells(6).Text

        Dim MemberId As String = dp.Items(dp.SelectedIndex).Value.ToString
        'dp.SelectedValue 
        Dim obj As New DBController()
        Dim sqlstr As String = " Update ContractInfo set MemberId='" + MemberId + "' where ContractId=" + ContractId
        obj.ExecNonSql(sqlstr)
        DBGrdList.EditItemIndex = -1
        BindData()
    End Sub

    Sub Data_EditCommand(ByVal sender As Object, ByVal e As DataGridCommandEventArgs)
        DBGrdList.EditItemIndex = e.Item.ItemIndex
        BindData()
        Dim dp As DropDownList
        dp = DBGrdList.Items(e.Item.ItemIndex).FindControl("DpDeptList")
        Dim DeptId As String = DBGrdList.Items(e.Item.ItemIndex).Cells(5).Text()

        Dim obj As New DBController()
        Dim sqlstr As String = "select * from MemberInfo where DepartmentId=" + DeptId
        obj.BindDrpDownList("MemberName", "MemberId", sqlstr, dp)
        obj.Close()
    End Sub

    Private Sub StyleList_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StyleList.SelectedIndexChanged
        DBGrdList.EditItemIndex = -1
        BindData()
    End Sub

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