infoupdate.vb

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

        '
        Me.Label9.AutoSize = True
        Me.Label9.Location = New System.Drawing.Point(224, 16)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(42, 17)
        Me.Label9.TabIndex = 15
        Me.Label9.Text = "关系人"
        '
        'Label11
        '
        Me.Label11.AutoSize = True
        Me.Label11.Location = New System.Drawing.Point(16, 56)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(66, 17)
        Me.Label11.TabIndex = 14
        Me.Label11.Text = "与本人关系"
        '
        'Label12
        '
        Me.Label12.AutoSize = True
        Me.Label12.Location = New System.Drawing.Point(216, 56)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(54, 17)
        Me.Label12.TabIndex = 15
        Me.Label12.Text = "政治面貌"
        '
        'TextBox8
        '
        Me.TextBox8.Location = New System.Drawing.Point(280, 56)
        Me.TextBox8.Name = "TextBox8"
        Me.TextBox8.Size = New System.Drawing.Size(88, 21)
        Me.TextBox8.TabIndex = 17
        Me.TextBox8.Text = ""
        '
        'TextBox9
        '
        Me.TextBox9.Location = New System.Drawing.Point(88, 56)
        Me.TextBox9.Name = "TextBox9"
        Me.TextBox9.Size = New System.Drawing.Size(88, 21)
        Me.TextBox9.TabIndex = 16
        Me.TextBox9.Text = ""
        '
        'Label13
        '
        Me.Label13.AutoSize = True
        Me.Label13.Location = New System.Drawing.Point(24, 128)
        Me.Label13.Name = "Label13"
        Me.Label13.Size = New System.Drawing.Size(29, 17)
        Me.Label13.TabIndex = 14
        Me.Label13.Text = "单位"
        '
        'TextBox10
        '
        Me.TextBox10.Location = New System.Drawing.Point(88, 128)
        Me.TextBox10.Name = "TextBox10"
        Me.TextBox10.Size = New System.Drawing.Size(288, 21)
        Me.TextBox10.TabIndex = 16
        Me.TextBox10.Text = ""
        '
        'Label14
        '
        Me.Label14.AutoSize = True
        Me.Label14.Location = New System.Drawing.Point(24, 88)
        Me.Label14.Name = "Label14"
        Me.Label14.Size = New System.Drawing.Size(29, 17)
        Me.Label14.TabIndex = 14
        Me.Label14.Text = "电话"
        '
        'TextBox11
        '
        Me.TextBox11.Location = New System.Drawing.Point(88, 88)
        Me.TextBox11.Name = "TextBox11"
        Me.TextBox11.Size = New System.Drawing.Size(144, 21)
        Me.TextBox11.TabIndex = 16
        Me.TextBox11.Text = ""
        '
        'Button1
        '
        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button1.Location = New System.Drawing.Point(408, 144)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(64, 32)
        Me.Button1.TabIndex = 2
        Me.Button1.Text = "确定"
        '
        'Button3
        '
        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button3.Location = New System.Drawing.Point(408, 264)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(64, 32)
        Me.Button3.TabIndex = 2
        Me.Button3.Text = "取消"
        '
        'DateTimePicker1
        '
        Me.DateTimePicker1.Location = New System.Drawing.Point(256, 96)
        Me.DateTimePicker1.Name = "DateTimePicker1"
        Me.DateTimePicker1.Size = New System.Drawing.Size(104, 21)
        Me.DateTimePicker1.TabIndex = 18
        '
        'infoupdate
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(480, 373)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.TabControl1)
        Me.Controls.Add(Me.Button3)
        Me.Name = "infoupdate"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "信息修改"
        Me.TabControl1.ResumeLayout(False)
        Me.TabPage1.ResumeLayout(False)
        Me.TabPage2.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region
    Dim sqlstr As String
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub

    Private Sub infoupdate_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Trim(myyh2) = "adm" Then
            Me.ComboBox1.Items.Add("男")
            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 = myyh1
            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
        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
    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