renshiguanli.vb

人事管理系统,用VB+SQL编译的

        End If
    End Sub
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        TextBox3.Enabled = True
        Dim sqlst As String
        Dim j As Integer
        sqlst = "select * from diaodong "
        If execsql(sqlst, "diaodong") Then
            For j = 0 To myds.Tables("diaodong").Rows.Count - 1
                If Trim(TextBox3.Text) = Trim(myds.Tables("diaodong").Rows(j).Item(0)) Then
                    Exit For
                End If
            Next j
        End If
        myrow = myds.Tables("diaodong").Rows(j)
        myrow.Delete()
        If MsgBox("删除成功", MsgBoxStyle.OKOnly) = MsgBoxResult.OK Then
            TextBox3.Clear()
            TextBox4.Text = ""
            TextBox5.Text = ""
            Me.DateTimePicker2.Text = ""
            Me.DateTimePicker3.Text = ""
        End If
        mycmb = New SqlCommandBuilder(mydad)
        mydad.Update(myds, "diaodong")
        myds.Clear()
        mycon.Close()
    End Sub
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If TextBox4.Text = "" Or TextBox4.Text = "" Or Me.DateTimePicker2.Text = "" Or Me.DateTimePicker3.Text = "" Then
            MsgBox("请填写完整")
            Exit Sub
        End If
        Dim sqlstr As String
        sqlstr = "select * from diaodong where 员工编号='" & Trim(TextBox3.Text) & "'"
        execsql(sqlstr, "diaodong")
        Dim p As Integer
        For p = 0 To myds.Tables("diaodong").Rows.Count() - 1
            If Trim(TextBox3.Text) = Trim(myds.Tables("diaodong").Rows(p).Item(0)) Then
                myds.Tables("diaodong").Rows(p).Item(1) = Me.DateTimePicker2.Text
                myds.Tables("diaodong").Rows(p).Item(2) = Me.TextBox4.Text
                myds.Tables("diaodong").Rows(p).Item(3) = Me.DateTimePicker3.Text
                myds.Tables("diaodong").Rows(p).Item(4) = Me.TextBox5.Text
                mycmb = New SqlCommandBuilder(mydad)
                mydad.Update(myds, "diaodong")
                MsgBox("修改成功!")
                TextBox3.Enabled = True
                TextBox3.Clear()
                TextBox4.Text = ""
                TextBox5.Text = ""
                Me.DateTimePicker2.Text = ""
                Me.DateTimePicker3.Text = ""
                Exit For
            End If
        Next
    End Sub
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Dim sql As String
        sql = "select * from useinfo where 员工编号='" & Trim(TextBox6.Text) & "'"
        If execsql(sql, "useinfo") Then
            Dim i As Integer
            For i = 0 To mytable.Rows.Count - 1
                If Trim(TextBox6.Text) = Trim(mytable.Rows(i).Item(0)) Then
                    Exit For
                End If
            Next
            myds.Clear()
            mycon.Close()
            Dim sqlst As String
            sqlst = "select * from gongzi "
            If execsql(sqlst, "gongzi") Then
                Dim i1 As Integer
                For i1 = 0 To mytable.Rows.Count - 1
                    If Trim(TextBox6.Text) = Trim(mytable.Rows(i1).Item(0)) Then
                        TextBox7.Text = mytable.Rows(i1).Item(1)
                        ComboBox1.Text = mytable.Rows(i1).Item(2)
                        ComboBox2.Text = mytable.Rows(i1).Item(3)
                        TextBox10.Text = mytable.Rows(i1).Item(4)
                        Me.TextBox6.Enabled = False
                        If MsgBox("查询成功，是否继续查询", MsgBoxStyle.OKCancel) = MsgBoxResult.OK Then
                            TextBox6.Enabled = True
                            TextBox6.Clear()
                            TextBox7.Text = ""
                            TextBox10.Text = ""
                            Me.ComboBox1.Text = ""
                            Me.ComboBox2.Text = ""
                        End If
                        Exit Sub
                    End If
                Next
            Else
                MsgBox("无信息")
                TextBox6.Clear()
            End If
        Else
            MsgBox("员工编号不存在,请重新输入")
            TextBox6.Clear()
        End If
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        TextBox6.Enabled = True
        TextBox6.Text = ""
        TextBox7.Text = ""
        TextBox10.Text = ""
        ComboBox1.Text = ""
        ComboBox2.Text = ""
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        If TextBox6.Text = "" Or TextBox10.Text = "" Or ComboBox1.Text = "" Or ComboBox2.Text = "" Then
            MsgBox("信息未填全")
            Exit Sub
        End If
        Dim sql As String
        sql = "select * from useinfo where 员工编号='" & TextBox6.Text & "'"
        If execsql(sql, "useinfo") Then
            Dim i As Integer
            For i = 0 To mytable.Rows.Count - 1
                If Trim(TextBox6.Text) = Trim(mytable.Rows(i).Item(0)) Then
                    TextBox7.Text = mytable.Rows(i).Item(1)
                    Exit For
                End If
            Next
            myds.Clear()
            mycon.Close()
            Dim sqlst1 As String
            sqlst1 = "select * from gongzi"
            execsql(sqlst1, "gongzi")
            Dim j As Integer
            For j = 0 To myds.Tables("gongzi").Rows.Count - 1
                If Trim(TextBox6.Text) = Trim(myds.Tables("gongzi").Rows(j).Item(0)) Then
                    MsgBox("此员工工资信息已有")
                    Me.TextBox6.Clear()
                    Me.TextBox7.Clear()
                    Me.TextBox10.Text = ""
                    Me.ComboBox1.Text = ""
                    Me.ComboBox2.Text = ""
                    Exit Sub
                End If
            Next
            myds.Clear()
            mycon.Close()
            Dim sqlst2 As String
            sqlst2 = "select * from gongzi "
            Dim myrow1 As DataRow
            myrow1 = myds.Tables("gongzi").NewRow
            myrow1.Item(0) = Me.TextBox6.Text
            myrow1.Item(1) = Me.TextBox7.Text
            myrow1.Item(2) = Me.ComboBox1.Text
            myrow1.Item(3) = Me.ComboBox2.Text
            myrow1.Item(4) = Me.TextBox10.Text
            myds.Tables("gongzi").Rows.Add(myrow1)
            mycmb = New SqlCommandBuilder(mydad)
            mydad.Update(myds, "gongzi")
            myds.Clear()
            mycon.Close()
            MsgBox("添加成功")
            Me.TextBox6.Clear()
            Me.TextBox7.Clear()
            Me.TextBox10.Text = ""
            Me.ComboBox1.Text = ""
            Me.ComboBox2.Text = ""
        Else
            MsgBox("员工编号不存在,请重新输入")
            TextBox6.Clear()
            TextBox7.Text = ""
            TextBox10.Text = ""
            Me.ComboBox1.Text = ""
            Me.ComboBox2.Text = ""
        End If
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        If TextBox10.Text = "" Or ComboBox1.Text = "" Or ComboBox2.Text = "" Then
            MsgBox("请填写完整")
            Exit Sub
        End If
        Dim sqlstr As String
        sqlstr = "select * from gongzi where 员工编号='" & TextBox6.Text & "'"
        execsql(sqlstr, "gongzi")
        Dim p As Integer
        For p = 0 To myds.Tables("gongzi").Rows.Count() - 1
            If Trim(TextBox6.Text) = Trim(myds.Tables("gongzi").Rows(p).Item(0)) Then
                myds.Tables("gongzi").Rows(p).Item(1) = Me.TextBox7.Text
                myds.Tables("gongzi").Rows(p).Item(2) = Me.ComboBox1.Text
                myds.Tables("gongzi").Rows(p).Item(3) = Me.ComboBox2.Text
                myds.Tables("gongzi").Rows(p).Item(4) = Me.TextBox10.Text
                mycmb = New SqlCommandBuilder(mydad)
                mydad.Update(myds, "gongzi")
                MsgBox("修改成功!")
                TextBox6.Enabled = True
                TextBox6.Clear()
                TextBox7.Text = ""
                TextBox10.Text = ""
                Me.ComboBox1.Text = ""
                Me.ComboBox2.Text = ""
                Exit For
            End If
        Next
    End Sub
    Private Sub renshiguanli_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If myyh2 = "adm" Then
            Me.TextBox8.Visible = False
            Me.TextBox9.Visible = False
            Me.ComboBox1.Visible = True
            Me.ComboBox2.Visible = True
            Me.Button7.Visible = True
            Me.Button8.Visible = True
            Me.Button9.Visible = True
            Me.Button10.Visible = True
            Dim sqlst1 As String
            sqlst1 = "select * from zhiwu"
            execsql(sqlst1, "zhiwu")
            Dim i As Integer
            Do While i <= mytable.Rows.Count - 1
                ComboBox1.Items.Add(mytable.Rows(i).Item(0))
                i = i + 1
            Loop
            myds.Clear()
            mycon.Close()
            Dim sqlst As String
            sqlst = "select * from jibie"
            execsql(sqlst, "jibie")
            Dim j As Integer
            Do While j <= mytable.Rows.Count - 1
                ComboBox2.Items.Add(mytable.Rows(j).Item(0))
                j = j + 1
            Loop
            myds.Clear()
            mycon.Close()
        Else
            Me.TabControl1.TabPages.Remove(TabPage1)
            Me.TabControl1.TabPages.Remove(TabPage3)
            Me.ComboBox1.Visible = False
            Me.ComboBox2.Visible = False
            Me.Button7.Visible = False
            Me.Button8.Visible = False
            Me.Button9.Visible = False
            Me.Button10.Visible = False
            Me.TextBox6.Text = myyh2
            Dim sqlst As String
            sqlst = "select * from gongzi "
            If execsql(sqlst, "gongzi") Then
                Dim i1 As Integer
                For i1 = 0 To mytable.Rows.Count - 1
                    If Trim(TextBox6.Text) = Trim(mytable.Rows(i1).Item(0)) Then
                        TextBox7.Text = mytable.Rows(i1).Item(1)
                        TextBox8.Text = mytable.Rows(i1).Item(2)
                        TextBox9.Text = mytable.Rows(i1).Item(3)
                        TextBox10.Text = mytable.Rows(i1).Item(4)
                        Exit Sub
                    End If
                Next
            End If
            myds.Clear()
            mycon.Close()
        End If
        myds.Clear()
        mycon.Close()
    End Sub
    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
        Dim sql As String
        sql = "select * from jibie  where 级别='" & Trim(Me.ComboBox2.SelectedItem) & "'"
        execsql(sql, "jibie")
        Dim i As Integer
        For i = 0 To mytable.Rows.Count - 1
            If Me.ComboBox2.SelectedItem = mytable.Rows(i).Item(0) Then
                Me.TextBox10.Text = mytable.Rows(i).Item(1)
            End If
        Next
    End Sub
End Class