infoupdate.vb

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

            Me.ComboBox1.Items.Add("女")
            Me.TextBox1.Enabled = False
            Me.TextBox3.Enabled = False
            myds.Clear()
            sqlstr = "select * from useinfo where 员工编号 ='" & t & "'"
            execsql(sqlstr, "useinfo")
            Me.TextBox1.Text = Trim(myds.Tables("useinfo").Rows(0).Item("员工编号"))
            Me.TextBox3.Text = Trim(myds.Tables("useinfo").Rows(0).Item("员工编号"))
            Me.TextBox2.Text = Trim(mytable.Rows(0).Item(1))
            Me.ComboBox1.Text = Trim(mytable.Rows(0).Item(2))
            Me.TextBox4.Text = Trim(mytable.Rows(0).Item(3))
            Me.TextBox5.Text = Trim(mytable.Rows(0).Item(4))
            Me.DateTimePicker1.Text = Trim(mytable.Rows(0).Item(5))
            Try
                Me.TextBox7.Text = Trim(mytable.Rows(0).Item(6))
            Catch ex As Exception
                Me.TextBox7.Clear()
            End Try
            Try
                Me.RichTextBox1.Text = Trim(mytable.Rows(0).Item(7))
            Catch ex As Exception
                Me.RichTextBox1.Clear()
            End Try
            myds.Clear()
            mycon.Close()
            Dim sqlstr1 As String
            sqlstr1 = "select * from guanxi where 员工编号 ='" & t & "'"
            execsql(sqlstr1, "guanxi")
            Dim i As Integer
            For i = 0 To mytable.Rows.Count - 1
                Me.ComboBox3.Items.Add(mytable.Rows(i).Item(1))
            Next
            myds.Clear()
            mycon.Close()
            Dim strsql As String
            strsql = "select * from useinfo"
            If Not execsql(strsql, "useinfo") Then
                Exit Sub
            Else
                Dim a As New info
                a.DataGrid1.DataSource = myds.Tables("useinfo")
            End If
        Else
            TextBox1.Text = myyh2
            Me.ComboBox1.Items.Add("男")
            Me.ComboBox1.Items.Add("女")
            Me.TextBox1.Enabled = False
            Me.TextBox3.Enabled = False
            myds.Clear()
            Dim sqlstr As String
            sqlstr = "select * from useinfo where 员工编号 ='" & TextBox1.Text & "'"
            If execsql(sqlstr, "useinfo") Then
                Dim j As Integer
                For j = 0 To mytable.Rows.Count - 1
                    If Trim(TextBox1.Text) = Trim(mytable.Rows(j).Item(0)) Then
                        Exit For
                    End If
                Next
                Me.TextBox1.Text = Trim(myds.Tables("useinfo").Rows(0).Item("员工编号"))
                Me.TextBox3.Text = Trim(myds.Tables("useinfo").Rows(0).Item("员工编号"))
                Me.TextBox2.Text = Trim(mytable.Rows(0).Item(1))
                Me.ComboBox1.Text = Trim(mytable.Rows(0).Item(2))
                Me.TextBox4.Text = Trim(mytable.Rows(0).Item(3))
                Me.TextBox5.Text = Trim(mytable.Rows(0).Item(4))
                Me.DateTimePicker1.Text = Trim(mytable.Rows(0).Item(5))
                Try
                    Me.TextBox7.Text = Trim(mytable.Rows(0).Item(6))
                Catch ex As Exception
                    Me.TextBox7.Clear()
                End Try
                Try
                    Me.RichTextBox1.Text = Trim(mytable.Rows(0).Item(7))
                Catch ex As Exception
                    Me.RichTextBox1.Clear()
                End Try
            End If

            myds.Clear()
            mycon.Close()
            Dim sqlstr2 As String
            sqlstr2 = "select * from guanxi where 员工编号 ='" & TextBox1.Text & "'"
            execsql(sqlstr2, "guanxi")
            Dim m As Integer
            For m = 0 To mytable.Rows.Count - 1
                Me.ComboBox3.Items.Add(mytable.Rows(m).Item(1))
            Next
        End If


        'End If

        k = 1
        'k = 2
    End Sub
    Dim k As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i, j As Integer
        myds.Clear()
        mycon.Close()
        sqlstr = "select * from useinfo"
        Try
            execsql(sqlstr, "useinfo")
            For j = 0 To myds.Tables("useinfo").Rows.Count - 1
                If Trim(Me.TextBox1.Text) = Trim(myds.Tables("useinfo").Rows(j).Item(0)) Then
                    myrow = myds.Tables("useinfo").Rows(j)
                    myrow.Item(1) = Me.TextBox2.Text
                    myrow.Item(2) = Me.ComboBox1.Text
                    myrow.Item(3) = Me.TextBox4.Text
                    myrow.Item(4) = Me.TextBox5.Text
                    myrow.Item(5) = Me.DateTimePicker1.Text
                    myrow.Item(6) = Me.TextBox7.Text
                    myrow.Item(7) = Me.RichTextBox1.Text
                    mycmb = New SqlCommandBuilder(mydad)
                    mydad.Update(myds, "useinfo")
                    'MsgBox("修改成功")
                    Exit For
                End If

            Next
        Catch ex As Exception
            MsgBox("修改不成功")
            Exit Sub
        End Try

        myds.Clear()
        mycon.Close()
        Try
            Dim sql As String
            sql = "select * from guanxi"
            execsql(sql, "guanxi")
            If k = 2 Then
                If Me.ComboBox3.Text = "" Then
                    MsgBox("请选择关系人或此员工没有主要社会关系人")
                    myds.Clear()
                    mycon.Close()
                    Dim strsql1 As String
                    strsql1 = "select * from useinfo"
                    If Not execsql(strsql1, "useinfo") Then
                        Exit Sub
                    Else
                        Dim a As New info
                        a.DataGrid1.DataSource = myds.Tables("useinfo")
                    End If
                    Exit Sub
                End If
            End If
            For i = 0 To myds.Tables("guanxi").Rows.Count - 1
                If Trim(Me.ComboBox3.Text) = Trim(myds.Tables("guanxi").Rows(i).Item(1)) Then
                    myrow = myds.Tables("guanxi").Rows(i)
                    myrow.Item(0) = Me.TextBox3.Text
                    myrow.Item(1) = Me.ComboBox3.Text
                    myrow.Item(2) = Me.TextBox9.Text
                    myrow.Item(3) = Me.TextBox8.Text
                    myrow.Item(4) = Me.TextBox10.Text
                    myrow.Item(5) = Me.TextBox11.Text
                    myrow.Item(6) = Me.RichTextBox2.Text
                    mycmb = New SqlCommandBuilder(mydad)
                    mydad.Update(myds, "guanxi")
                    Exit For
                End If
            Next

        Catch ex As Exception
            MsgBox("修改不成功")
            Exit Sub
        End Try
        MsgBox("修改成功")


        myds.Clear()
        mycon.Close()
        Dim strsql As String
        strsql = "select * from useinfo"
        If Not execsql(strsql, "useinfo") Then
            Exit Sub
        Else
            Dim a As New info
            a.DataGrid1.DataSource = myds.Tables("useinfo")
        End If


    End Sub

    Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox3.SelectedIndexChanged
        If Trim(myyh2) = "adm" Then
            Dim i As Integer
            i = Me.ComboBox3.SelectedIndex
            Dim sqlstr1 As String
            sqlstr1 = "select * from guanxi where 员工编号 ='" & t & "'"
            execsql(sqlstr1, "guanxi")
            Try
                Me.TextBox9.Text = Trim(mytable.Rows(i).Item(2))
            Catch ex As Exception
                Me.TextBox9.Clear()
            End Try
            Try
                Me.TextBox8.Text = Trim(mytable.Rows(i).Item(2))
            Catch ex As Exception
                Me.TextBox8.Clear()
            End Try
            Try
                Me.TextBox10.Text = Trim(mytable.Rows(i).Item(4))
            Catch ex As Exception
                Me.TextBox10.Clear()
            End Try
            Try
                Me.TextBox11.Text = Trim(mytable.Rows(i).Item(5))
            Catch ex As Exception
                Me.TextBox11.Clear()
            End Try
            Try
                Me.RichTextBox2.Text = Trim(mytable.Rows(i).Item(6))
            Catch ex As Exception
                Me.RichTextBox2.Clear()
            End Try
        Else
            TextBox1.Text = myyh2
            Dim i As Integer
            i = Me.ComboBox3.SelectedIndex
            Dim sqlstr1 As String
            sqlstr1 = "select * from guanxi where 员工编号 ='" & Me.TextBox1.Text & "'"
            execsql(sqlstr1, "guanxi")
            Try
                Me.TextBox9.Text = Trim(mytable.Rows(i).Item(2))
            Catch ex As Exception
                Me.TextBox9.Clear()
            End Try
            Try
                Me.TextBox8.Text = Trim(mytable.Rows(i).Item(2))
            Catch ex As Exception
                Me.TextBox8.Clear()
            End Try
            Try
                Me.TextBox10.Text = Trim(mytable.Rows(i).Item(4))
            Catch ex As Exception
                Me.TextBox10.Clear()
            End Try
            Try
                Me.TextBox11.Text = Trim(mytable.Rows(i).Item(5))
            Catch ex As Exception
                Me.TextBox11.Clear()
            End Try
            Try
                Me.RichTextBox2.Text = Trim(mytable.Rows(i).Item(6))
            Catch ex As Exception
                Me.RichTextBox2.Clear()
            End Try
        End If
    End Sub

    Private Sub TabPage1_Layout(ByVal sender As Object, ByVal e As System.Windows.Forms.LayoutEventArgs) Handles TabPage1.Layout
        k = 1
    End Sub

    Private Sub TabPage2_Layout(ByVal sender As Object, ByVal e As System.Windows.Forms.LayoutEventArgs) Handles TabPage2.Layout
        k = 2
    End Sub
End Class