xtglyrk_right_bmry.aspx.vb

vb2005电子书籍——vb.net项目开发宝典源码

                Status2.Text = ex.Message
            Finally
                myConn.Close()
            End Try
            '下面是关于删除是显示在原来页面上的经典算法
            If (myDatagrid2.CurrentPageIndex = myDatagrid2.PageCount - 1 And myDatagrid2.CurrentPageIndex > 0) Then
                myDatagrid2.CurrentPageIndex = myDatagrid2.CurrentPageIndex - 1
                MyDataBind2(DeptId)
                If (myDatagrid2.CurrentPageIndex = myDatagrid2.PageCount - 2) Then
                    myDatagrid2.CurrentPageIndex = myDatagrid2.CurrentPageIndex + 1
                    MyDataBind2(DeptId)
                End If
            Else
                MyDataBind2(DeptId)
            End If
        End If


        If objArgs.CommandSource.CommandName = "EditMember" Then
            Dim PersonId As Integer = CInt(objArgs.Item.Cells(0).Text)
            Static1Id = PersonId
            Dim DeptId As Integer = CInt(objArgs.Item.Cells(1).Text)
            Dim PersonName As String = CStr(objArgs.Item.Cells(4).Text)
            editmanname.Text = personname + "的个人信息"
            Dim myConn As New SqlConnection
                myConn.ConnectionString = SQL_CONNECTION_STRING
            Try
                myConn.Open()
                Dim myCmdStr As String
                myCmdStr = "SELECT n_yhjbxx_ent.bmhdwid,n_yhjbxx_ent.xm,n_yhjbxx_ent.dlm,n_yhjbxx_ent.fbqxbz,n_yhjbxx_ent.dqxid,n_yhjbxx_ent.xb,n_yhjbxx_ent.csny,n_yhjbxx_ent.yhsm,n_yhjbxx_ent.jybz FROM n_yhjbxx_ent WHERE n_yhjbxx_ent.id= '" + Trim(CStr(PersonId)) + "'"
                Dim myCmd1 As SqlCommand = New SqlCommand(myCmdStr, myConn)
                Dim reader As SqlDataReader = myCmd1.ExecuteReader()

                Do While reader.Read()
                    If Trim(reader.Item("xm")).Length > 0 Then
                        tbedmanxm.Text = Trim(reader.Item("xm"))
                    Else
                        tbedmanxm.Text = ""
                    End If
                    If Trim(reader.Item("dlm")).Length > 0 Then
                        tbedmandlm.Text = Trim(reader.Item("dlm"))
                    Else
                        tbedmanxm.Text = ""
                    End If


                    If reader.Item("fbqxbz") Then
                        rbedmanfb.Checked = True
                    Else
                        rbedmannotfb.Checked = True
                    End If


                    If reader.Item("xb") Then
                        rbedmanlady.Checked = True
                    Else
                        rbedmanman.Checked = True
                    End If
                    Dim Null As DBNull
                    If reader.Item("csny") Is Null Then
                        tbedmancsny.Text = ""
                    Else
                        tbedmancsny.Text = Trim(reader.Item("csny"))
                    End If

                    If reader.Item("yhsm") Is Null Then
                        tbedmanyhsm.Text = ""
                    Else
                            tbedmanyhsm.Text = Trim(reader.Item("yhsm").ToString)
                    End If
                    If reader.Item("jybz") Then
                        rbedmanjy.Checked = True
                    Else
                        rbedmannotjy.Checked = True
                    End If
                Loop
                reader.Close()
            Catch ex As SqlException
                Status2.Text = ex.Message
            Finally
                myConn.Close()
            End Try

        End If
    End Sub


        Sub NewDeptbutton_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs)
            '检查是否和已有部门名称一致，如不则插入新部门
            Dim input As String = Trim(tbNewDeptName.Text)
            Dim NotSame As Boolean = True
            Status1.Text = ""
            Status2.Text = ""
            If input.Length = 0 Then
                Status1.Text = "请先输入新增部门名称！"
                Return
            End If
            Dim myConn As New SqlConnection
            myConn.ConnectionString = SQL_CONNECTION_STRING
            Try
                myConn.Open()
                Dim myCmdStr As String = "SELECT bmhdwmc FROM n_bmdmb_ent"
                Dim myCmd As SqlCommand = New SqlCommand(myCmdStr, myConn)
                Dim reader As SqlDataReader = myCmd.ExecuteReader()
                Do While reader.Read()
                    If Trim(reader.Item("bmhdwmc")) = input Then
                        NotSame = False
                    End If
                Loop
                reader.Close()
                If NotSame Then '假如没有相同的，则插入
                    Dim myCmdStr2 As String
                    myCmdStr2 = "Insert into n_bmdmb_ent(bmhdwmc) values("
                    myCmdStr2 = myCmdStr2 + "'" + input + "')"
                    Dim myCmd2 As SqlCommand = New SqlCommand(myCmdStr2, myConn)
                    Dim n As Integer = myCmd2.ExecuteNonQuery()
                    If n = 1 Then
                        Status1.Text = "插入成功新部门" + input + "，请继续！"
                        tbNewDeptName.Text = ""
                        input = ""
                        myConn.Close()
                        MyDataBind1()
                        MyDataBind3()
                    Else
                        Status1.Text = "新增部门失败"
                    End If
                Else
                    Status1.Text = "已存在相同部门" + input + "，不能增添新部门！"
                    tbNewDeptName.Text = ""
                    input = ""
                End If
            Catch ex As SqlException
                Status1.Text = ex.Message
            Finally
                myConn.Close()
            End Try
        End Sub


        Sub bteditman_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles bteditman.Click
            Dim NotSame As Boolean = True
            Status1.Text = ""
            editmanname.Text = "修改用户个人信息:"
            If Trim(tbedmanxm.Text).Length > 0 And Trim(tbedmandlm.Text).Length > 0 Then
                '业务规定，人员中登陆名不能相同，真实姓名可以相同 
                Dim myConn As New SqlConnection
                myConn.ConnectionString = SQL_CONNECTION_STRING
                Try
                    myConn.Open()
                    Dim myCmdStr As String = "SELECT dlm FROM n_yhjbxx_ent where id != '" + CStr(Static1Id) + "'"
                    Dim myCmd As SqlCommand = New SqlCommand(myCmdStr, myConn)
                    Dim reader As SqlDataReader = myCmd.ExecuteReader()

                    Do While reader.Read()
                        If Trim(reader.Item("dlm")) = Trim(tbedmandlm.Text) Then
                            NotSame = False
                        End If
                    Loop
                    reader.Close()
                    If NotSame Then '假如没有相同的，则插入
                        Dim fbqxbz As Integer
                        If rbedmanfb.Checked Then
                            fbqxbz = 1
                        Else
                            fbqxbz = 0
                        End If
                        Dim xb As Integer
                        If rbedmanman.Checked Then
                            xb = 0
                        Else
                            xb = 1
                        End If
                        Dim jybz As Integer
                        If rbedmanjy.Checked Then
                            jybz = 1
                        Else
                            jybz = 0
                        End If
                        Dim myCmdStr2 As String
                        Dim n As Integer
                        myCmdStr2 = "UPDATE n_yhjbxx_ent SET dlm= '" + Trim(tbedmandlm.Text) + "',xm = '" + Trim(tbedmanxm.Text) + "',bmhdwid = '" + CStr(ddltedmanbmhdw.SelectedItem.Value) + "',fbqxbz = '" + CStr(fbqxbz) + "',dqxid = '" + CStr(ddltedmandqx.SelectedItem.Value) + _
                                    "',xb = '" + CStr(xb) + "',csny = '" + Trim(tbedmancsny.Text) + "',yhsm = '" + Trim(tbedmanyhsm.Text) + "',jybz = '" + CStr(jybz) + "'"
                        myCmdStr2 = myCmdStr2 + " WHERE id = '" + CStr(Static1Id) + "'"
                        Dim myCmd2 As SqlCommand = New SqlCommand(myCmdStr2, myConn)
                        n = myCmd2.ExecuteNonQuery()
                        If n = 1 Then
                            tiplabel.Text = ddltedmanbmhdw.SelectedItem.Text + "的部门管理"
                            Status2.Text = "修改用户" + Trim(tbedmanxm.Text) + "(" + Trim(tbedmandlm.Text) + ")的个人信息成功，请继续！"
                            tbedmanxm.Text = ""
                            tbedmandlm.Text = ""
                            tbedmancsny.Text = ""
                            tbedmanyhsm.Text = ""
                            StaticId = ddltedmanbmhdw.SelectedItem.Value
                            myDatagrid2.CurrentPageIndex = 0
                            MyDataBind2(StaticId)
                        Else
                            Status2.Text = "没有相同登陆名，但修改用户信息不成功！"
                        End If
                    Else
                        Status2.Text = "已存在相同登陆名" + Trim(tbedmandlm.Text) + "！不能修改用户信息！请重新输入！"
                        tbedmandlm.Text = ""
                    End If
                Catch ex As SqlException
                    Status2.Text = ex.Message
                Finally
                    myConn.Close()
                End Try
            Else
                Status2.Text = "输入不符合，可能原因： 各项不能为空 "
            End If
        End Sub

    Sub tbnewmanbutton_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles tbnewmanbutton.Click
        '几点事项：所属部门ddlt需要在以下几种情况下刷新 A刚进人页面 B删除部门 C新增部门
        '          管理员不能改变权限种类，故权限项可以从数据库中读出，也可以固定下来。
        '          各项不能为空 使用验证组件，而不用代码实现（组件不可实现，说缺少库文件支持）
        '          为防止显示过时数据，按钮后应使人员列表DataGrid为不可见。
        Dim NotSame As Boolean = True
        Status1.Text = ""
        If Trim(tbnewmanxm.Text).Length > 0 And Trim(tbnewmandlm.Text).Length > 0 And Trim(tbnewmancsmm.Text).Length > 0 And Trim(tbnewmancsmm.Text) = Trim(tbnewmanqrmm.Text) Then
            '业务规定，人员中登陆名不能相同，真实姓名可以相同 
            Dim myConn As New SqlConnection
                myConn.ConnectionString = SQL_CONNECTION_STRING
            Try
                myConn.Open()

                Dim myCmdStr As String = "SELECT dlm FROM n_yhjbxx_ent"
                Dim myCmd As SqlCommand = New SqlCommand(myCmdStr, myConn)
                Dim reader As SqlDataReader = myCmd.ExecuteReader()

                Do While reader.Read()
                    If Trim(reader.Item("dlm")) = Trim(tbnewmandlm.Text) Then
                        NotSame = False
                    End If
                Loop
                reader.Close()
                If NotSame Then '假如没有相同的，则插入
                    Dim fbqxbz As Integer
                    If rbnewmanfb.Checked Then
                        fbqxbz = 1
                    Else
                        fbqxbz = 0
                    End If
                    Dim xb As Integer
                    If rbnewmanman.Checked Then
                        xb = 0
                    ElseIf rbnewmanlady.Checked Then
                        xb = 1
                    End If
                    Dim jybz As Integer
                    If rbnewmanjy.Checked Then
                        jybz = 1
                    Else
                        jybz = 0
                    End If
                    Dim myCmdStr2 As String
                    Dim n As Integer

                    myCmdStr2 = "Insert into n_yhjbxx_ent(dlm,xm,dlmm,bmhdwid,fbqxbz,dqxid,xb,csny,yhsm,jybz) values( "
                    myCmdStr2 = myCmdStr2 + "'" + Trim(tbnewmandlm.Text) + "','" + Trim(tbnewmanxm.Text) + "','" + Trim(tbnewmancsmm.Text) + "','" + CStr(ddltnewmanbmhdw.SelectedItem.Value) + "','" + CStr(fbqxbz) + "','" + CStr(ddltnewmandqx.SelectedItem.Value) + "','" + CStr(fbqxbz) + "','" + Trim(tbnewmancsny.Text) + "','" + Trim(tbnewmanyhsm.Text) + "','" + CStr(jybz) + "')"
                    Dim myCmd2 As SqlCommand = New SqlCommand(myCmdStr2, myConn)
                    n = myCmd2.ExecuteNonQuery()
        
                    If n = 1 Then
                        tiplabel.Text = ddltnewmanbmhdw.SelectedItem.Text + "的部门管理"
                        Status2.Text = "新增人员" + Trim(tbnewmanxm.Text) + "(" + Trim(tbnewmandlm.Text) + ")成功，请继续！"
                        tbnewmanxm.Text = ""
                        tbnewmandlm.Text = ""
                        tbnewmancsmm.Text = ""
                        tbnewmanqrmm.Text = ""
                        tbnewmancsny.Text = ""
                        tbnewmanyhsm.Text = ""
                        rbnewmannotfb.Checked = False
                        rbnewmanfb.Checked = False
                        rbnewmanman.Checked = False
                        rbnewmanlady.Checked = False
                        rbnewmannotjy.Checked = False
                        rbnewmanjy.Checked = False
                        StaticId = ddltnewmanbmhdw.SelectedItem.Value
                        myDatagrid2.CurrentPageIndex = 0
                        MyDataBind2(StaticId)

                    Else
                        Status2.Text = "没有相同登陆名，但人员增加不成功！"
                    End If
                Else
                    Status2.Text = "已存在相同登陆名" + Trim(tbnewmandlm.Text) + "！不能增添新人员！请重新输入！"
                    tbnewmandlm.Text = ""
                End If
            Catch ex As SqlException
                Status2.Text = ex.Message
            Finally
                myConn.Close()
            End Try
        Else
            Status2.Text = "输入不符合，可能原因： ＃带 * 的项不能为空  ＃密码确认不一致"
        End If
    End Sub


    Sub ChangeGridPage1(ByVal objSender As Object, ByVal objArgs As DataGridPageChangedEventArgs)
        myDataGrid1.EditItemIndex = -1
        myDataGrid1.CurrentPageIndex = objArgs.NewPageIndex
        MyDataBind1()
    End Sub


    Sub ChangeGridPage2(ByVal objSender As Object, ByVal objArgs As DataGridPageChangedEventArgs)
        myDatagrid2.CurrentPageIndex = objArgs.NewPageIndex
        MyDataBind2(StaticId)
    End Sub

    End Class

End Namespace