adddepartment.aspx.vb

电子合同管理系统C#

Public Class AddDepartment
    Inherits System.Web.UI.Page
    Protected WithEvents DeptDBGrd As System.Web.UI.WebControls.DataGrid
    Protected WithEvents txtDepartmentName As System.Web.UI.WebControls.TextBox
    Protected WithEvents AddBtn As System.Web.UI.WebControls.LinkButton

#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
    '=============================================================
    ' 函 数 名：BindData
    ' 功能描述：填充DataGrid
    ' 输入参数：无
    ' 返 回 值：无
    ' 创建日期：2004-8-12
    ' 修改日期：2004-8-12
    ' 作    者：
    ' 附加说明：
    '==============================================================
    Private Sub BindData()
        Dim obj As DBController = New DBController()
        Dim sqlstr As String = "select * from DepartmentInfo"
        obj.BindDBGrd(sqlstr, DeptDBGrd)
        obj.Close()
    End Sub

    Private Sub AddBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddBtn.Click
        If txtDepartmentName.Text.ToString.Trim = "" Then
            Return
        End If
        Dim sqlstr As String = "insert into DepartmentInfo(DepartmentName) values ('" + txtDepartmentName.Text.ToString.Trim + "')"
        Dim obj As DBController = New DBController()
        Dim UserInfo As MemberInfo = CType(Session("UserInfo"), MemberInfo)
        Dim objLog As SysLog = New SysLog()
        Try
            obj.ExecNonSql(sqlstr)
            obj.Close()
            objLog.AddLog(UserInfo, "添加部门" + txtDepartmentName.Text, Request.UserHostAddress.ToString, "成功")
            txtDepartmentName.Text = ""
        Catch
            obj.Close()
            objLog.AddLog(UserInfo, "添加部门" + txtDepartmentName.Text, Request.UserHostAddress.ToString, "失败")
        End Try
        obj.Open()
        sqlstr = "select * from DepartmentInfo"
        obj.BindDBGrd(sqlstr, DeptDBGrd)
        obj.Close()
    End Sub

    Private Sub DeptDBGrd_DeleteCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DeptDBGrd.DeleteCommand
        Dim sqlstr As String
        Dim DepartmentId As String = DeptDBGrd.Items(e.Item.ItemIndex).Cells(2).Text
        Dim DepartmentName As String = DeptDBGrd.Items(e.Item.ItemIndex).Cells(3).Text
        sqlstr = "delete from DepartmentInfo where DepartmentId=" + DepartmentId
        Dim obj As DBController = New DBController()
        Dim UserInfo As MemberInfo = CType(Session("UserInfo"), MemberInfo)
        Dim objLog As SysLog = New SysLog()
        Try
            obj.ExecNonSql(sqlstr)
            objLog.AddLog(UserInfo, "删除部门" + DepartmentName, Request.UserHostAddress.ToString, "成功")
        Catch
            Response.Write("<script language=javascript>")
            Response.Write("window.alert('删除失败，该部门有成员！');")
            Response.Write("</script>")
            objLog.AddLog(UserInfo, "删除部门" + DepartmentName, Request.UserHostAddress.ToString, "失败")
        End Try
        sqlstr = "select * from DepartmentInfo"
        obj.BindDBGrd(sqlstr, DeptDBGrd)
        obj.Close()
    End Sub

    Private Sub DeptDBGrd_CancelCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DeptDBGrd.CancelCommand
        DeptDBGrd.EditItemIndex = -1
        BindData()
    End Sub

    Private Sub DeptDBGrd_EditCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DeptDBGrd.EditCommand
        DeptDBGrd.EditItemIndex = e.Item.ItemIndex
        BindData()
    End Sub

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

    Private Sub DeptDBGrd_UpdateCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DeptDBGrd.UpdateCommand
        '获取DataGrid中被选中行的信息
        Dim DepartmentId As String = DeptDBGrd.Items(e.Item.ItemIndex).Cells(2).Text.ToString.Trim
        Dim txtBox As TextBox = CType(DeptDBGrd.Items(e.Item.ItemIndex).FindControl("txtDeptName"), TextBox)
        Dim DepartmentName As String = txtBox.Text.ToString.Trim

        Dim sqlstr As String = "update DepartmentInfo set DepartmentName='" + DepartmentName
        sqlstr += "' where DepartmentId=" + DepartmentId

        Dim obj As DBController = New DBController()
        Dim UserInfo As MemberInfo = CType(Session("UserInfo"), MemberInfo)
        Dim objLog As SysLog = New SysLog()
        Try
            obj.ExecNonSql(sqlstr)
            objLog.AddLog(UserInfo, "更改部门" + DepartmentId + " 的名称为：" + DepartmentName, Request.UserHostAddress.ToString, "成功")
        Catch
            objLog.AddLog(UserInfo, "更改部门" + DepartmentId + " 的名称为：" + DepartmentName, Request.UserHostAddress.ToString, "失败")
            Response.Write(sqlstr)
            Response.End()
        End Try
        obj.Close()
        DeptDBGrd.EditItemIndex = -1
        BindData()
    End Sub
End Class