renshiguanli.vb

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

        '
        'Button7
        '
        Me.Button7.Location = New System.Drawing.Point(272, 88)
        Me.Button7.Name = "Button7"
        Me.Button7.Size = New System.Drawing.Size(56, 32)
        Me.Button7.TabIndex = 11
        Me.Button7.Text = "查询"
        '
        'Label18
        '
        Me.Label18.AutoSize = True
        Me.Label18.Font = New System.Drawing.Font("华文彩云", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label18.ForeColor = System.Drawing.Color.Red
        Me.Label18.Location = New System.Drawing.Point(56, 24)
        Me.Label18.Name = "Label18"
        Me.Label18.Size = New System.Drawing.Size(280, 28)
        Me.Label18.TabIndex = 10
        Me.Label18.Text = "基　本　工　资　查　看"
        '
        'TextBox10
        '
        Me.TextBox10.Location = New System.Drawing.Point(104, 280)
        Me.TextBox10.Name = "TextBox10"
        Me.TextBox10.Size = New System.Drawing.Size(104, 21)
        Me.TextBox10.TabIndex = 9
        Me.TextBox10.Text = ""
        '
        'TextBox7
        '
        Me.TextBox7.Enabled = False
        Me.TextBox7.Location = New System.Drawing.Point(104, 144)
        Me.TextBox7.Name = "TextBox7"
        Me.TextBox7.Size = New System.Drawing.Size(104, 21)
        Me.TextBox7.TabIndex = 6
        Me.TextBox7.Text = ""
        '
        'Label16
        '
        Me.Label16.Location = New System.Drawing.Point(32, 280)
        Me.Label16.Name = "Label16"
        Me.Label16.Size = New System.Drawing.Size(48, 24)
        Me.Label16.TabIndex = 5
        Me.Label16.Text = "工资"
        '
        'Label15
        '
        Me.Label15.Location = New System.Drawing.Point(32, 232)
        Me.Label15.Name = "Label15"
        Me.Label15.Size = New System.Drawing.Size(48, 16)
        Me.Label15.TabIndex = 4
        Me.Label15.Text = "级别"
        '
        'Label14
        '
        Me.Label14.Location = New System.Drawing.Point(32, 192)
        Me.Label14.Name = "Label14"
        Me.Label14.Size = New System.Drawing.Size(56, 16)
        Me.Label14.TabIndex = 3
        Me.Label14.Text = "职务"
        '
        'Label13
        '
        Me.Label13.Location = New System.Drawing.Point(32, 144)
        Me.Label13.Name = "Label13"
        Me.Label13.Size = New System.Drawing.Size(56, 16)
        Me.Label13.TabIndex = 2
        Me.Label13.Text = "姓名"
        '
        'TextBox6
        '
        Me.TextBox6.Location = New System.Drawing.Point(104, 88)
        Me.TextBox6.Name = "TextBox6"
        Me.TextBox6.TabIndex = 1
        Me.TextBox6.Text = ""
        '
        'Label12
        '
        Me.Label12.Location = New System.Drawing.Point(24, 88)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(64, 23)
        Me.Label12.TabIndex = 0
        Me.Label12.Text = "员工编号"
        '
        'TabPage3
        '
        Me.TabPage3.Controls.Add(Me.Label17)
        Me.TabPage3.Controls.Add(Me.TextBox5)
        Me.TabPage3.Controls.Add(Me.TextBox4)
        Me.TabPage3.Controls.Add(Me.TextBox3)
        Me.TabPage3.Controls.Add(Me.DateTimePicker3)
        Me.TabPage3.Controls.Add(Me.DateTimePicker2)
        Me.TabPage3.Controls.Add(Me.Button6)
        Me.TabPage3.Controls.Add(Me.Button5)
        Me.TabPage3.Controls.Add(Me.Button3)
        Me.TabPage3.Controls.Add(Me.Button1)
        Me.TabPage3.Controls.Add(Me.Label11)
        Me.TabPage3.Controls.Add(Me.Label10)
        Me.TabPage3.Controls.Add(Me.Label9)
        Me.TabPage3.Controls.Add(Me.Label8)
        Me.TabPage3.Controls.Add(Me.Label5)
        Me.TabPage3.Location = New System.Drawing.Point(4, 21)
        Me.TabPage3.Name = "TabPage3"
        Me.TabPage3.Size = New System.Drawing.Size(384, 340)
        Me.TabPage3.TabIndex = 2
        Me.TabPage3.Text = "调动"
        '
        'Label17
        '
        Me.Label17.Font = New System.Drawing.Font("华文彩云", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label17.ForeColor = System.Drawing.Color.Red
        Me.Label17.Location = New System.Drawing.Point(88, 16)
        Me.Label17.Name = "Label17"
        Me.Label17.Size = New System.Drawing.Size(192, 24)
        Me.Label17.TabIndex = 14
        Me.Label17.Text = "调　动　信　息"
        '
        'TextBox5
        '
        Me.TextBox5.Location = New System.Drawing.Point(112, 272)
        Me.TextBox5.Name = "TextBox5"
        Me.TextBox5.Size = New System.Drawing.Size(112, 21)
        Me.TextBox5.TabIndex = 13
        Me.TextBox5.Text = ""
        '
        'TextBox4
        '
        Me.TextBox4.Location = New System.Drawing.Point(112, 160)
        Me.TextBox4.Name = "TextBox4"
        Me.TextBox4.Size = New System.Drawing.Size(112, 21)
        Me.TextBox4.TabIndex = 12
        Me.TextBox4.Text = ""
        '
        'TextBox3
        '
        Me.TextBox3.Location = New System.Drawing.Point(112, 64)
        Me.TextBox3.Name = "TextBox3"
        Me.TextBox3.Size = New System.Drawing.Size(112, 21)
        Me.TextBox3.TabIndex = 11
        Me.TextBox3.Text = ""
        '
        'DateTimePicker3
        '
        Me.DateTimePicker3.Location = New System.Drawing.Point(112, 208)
        Me.DateTimePicker3.Name = "DateTimePicker3"
        Me.DateTimePicker3.Size = New System.Drawing.Size(112, 21)
        Me.DateTimePicker3.TabIndex = 10
        '
        'DateTimePicker2
        '
        Me.DateTimePicker2.Location = New System.Drawing.Point(112, 112)
        Me.DateTimePicker2.Name = "DateTimePicker2"
        Me.DateTimePicker2.Size = New System.Drawing.Size(112, 21)
        Me.DateTimePicker2.TabIndex = 9
        '
        'Button6
        '
        Me.Button6.Location = New System.Drawing.Point(296, 192)
        Me.Button6.Name = "Button6"
        Me.Button6.Size = New System.Drawing.Size(56, 24)
        Me.Button6.TabIndex = 8
        Me.Button6.Text = "删除"
        '
        'Button5
        '
        Me.Button5.Location = New System.Drawing.Point(296, 256)
        Me.Button5.Name = "Button5"
        Me.Button5.Size = New System.Drawing.Size(56, 24)
        Me.Button5.TabIndex = 7
        Me.Button5.Text = "修改"
        '
        'Button3
        '
        Me.Button3.Location = New System.Drawing.Point(296, 136)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(56, 24)
        Me.Button3.TabIndex = 6
        Me.Button3.Text = "添加"
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(296, 72)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(56, 24)
        Me.Button1.TabIndex = 5
        Me.Button1.Text = "查询"
        '
        'Label11
        '
        Me.Label11.Location = New System.Drawing.Point(16, 272)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(80, 24)
        Me.Label11.TabIndex = 4
        Me.Label11.Text = "去向单位"
        '
        'Label10
        '
        Me.Label10.Location = New System.Drawing.Point(16, 160)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(80, 24)
        Me.Label10.TabIndex = 3
        Me.Label10.Text = "来自单位"
        '
        'Label9
        '
        Me.Label9.Location = New System.Drawing.Point(16, 208)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(80, 24)
        Me.Label9.TabIndex = 2
        Me.Label9.Text = "离开单位时间"
        '
        'Label8
        '
        Me.Label8.Location = New System.Drawing.Point(16, 112)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(72, 24)
        Me.Label8.TabIndex = 1
        Me.Label8.Text = "到单位时间"
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(16, 64)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(72, 24)
        Me.Label5.TabIndex = 0
        Me.Label5.Text = "员工编号"
        '
        'TextBox8
        '
        Me.TextBox8.Location = New System.Drawing.Point(104, 192)
        Me.TextBox8.Name = "TextBox8"
        Me.TextBox8.Size = New System.Drawing.Size(104, 21)
        Me.TextBox8.TabIndex = 17
        Me.TextBox8.Text = ""
        '
        'TextBox9
        '
        Me.TextBox9.Location = New System.Drawing.Point(104, 232)
        Me.TextBox9.Name = "TextBox9"
        Me.TextBox9.Size = New System.Drawing.Size(104, 21)
        Me.TextBox9.TabIndex = 18
        Me.TextBox9.Text = ""
        '
        'renshiguanli
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(392, 365)
        Me.Controls.Add(Me.TabControl1)
        Me.Name = "renshiguanli"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "人事管理"
        Me.TabControl1.ResumeLayout(False)
        Me.TabPage1.ResumeLayout(False)
        Me.TabPage2.ResumeLayout(False)
        Me.TabPage3.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If TextBox1.Text = "" Or (Me.RadioButton1.Checked = False And Me.RadioButton2.Checked = False) Or Me.RichTextBox1.Text = "" Then
            MsgBox("请信息未填全")
            Exit Sub
        End If
        Dim sql As String
        sql = "select * from useinfo where 员工编号='" & TextBox1.Text & "'"
        If execsql(sql, "useinfo") Then
            Dim i As Integer
            For i = 0 To mytable.Rows.Count - 1
                If Trim(TextBox1.Text) = Trim(mytable.Rows(i).Item(0)) Then
                    TextBox2.Text = mytable.Rows(i).Item(1)
                    Exit For
                End If
            Next
            myds.Clear()
            mycon.Close()
            Dim sqlst As String
            sqlst = "select * from jiangcheng "
            execsql(sqlst, "jiangcheng")
            Dim myrow1 As DataRow
            myrow1 = myds.Tables("jiangcheng").NewRow
            myrow1.Item(0) = Me.TextBox1.Text
            myrow1.Item(1) = TextBox2.Text
            If Me.RadioButton1.Checked = True Then
                myrow1.Item(2) = Me.RadioButton1.Text
            Else
                If Me.RadioButton2.Checked = True Then
                    myrow1.Item(2) = Me.RadioButton2.Text
                End If
            End If
            myrow1.Item(3) = Me.RichTextBox1.Text
            myrow1.Item(4) = Me.DateTimePicker1.Text
            myds.Tables("jiangcheng").Rows.Add(myrow1)
            mycmb = New SqlCommandBuilder(mydad)
            mydad.Update(myds, "jiangcheng")
            myds.Clear()
            mycon.Close()
            MsgBox("添加成功")
            Me.TextBox1.Clear()
            Me.TextBox2.Clear()
            Me.RadioButton1.Checked = False
            Me.RadioButton2.Checked = False
            Me.DateTimePicker1.Text = ""
            Me.RichTextBox1.Clear()

        Else
            MsgBox("员工编号不存在,请重新输入")
            TextBox1.Clear()
            Me.RadioButton2.Checked = False
            Me.RadioButton1.Checked = False
            Me.DateTimePicker1.Text = ""
            Me.RichTextBox1.Text = ""
        End If
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.Close()
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sql As String
        sql = "select * from useinfo where 员工编号='" & Trim(TextBox3.Text) & "'"
        If execsql(sql, "useinfo") Then
            Dim i As Integer
            For i = 0 To mytable.Rows.Count - 1
                If Trim(TextBox3.Text) = Trim(mytable.Rows(i).Item(0)) Then
                    Exit For
                End If
            Next
            myds.Clear()
            mycon.Close()
            Dim sqlst As String
            sqlst = "select * from diaodong "
            If execsql(sqlst, "diaodong") Then
                Dim i1 As Integer
                For i1 = 0 To mytable.Rows.Count - 1
                    If Trim(TextBox3.Text) = Trim(mytable.Rows(i1).Item(0)) Then
                        Me.DateTimePicker2.Text = mytable.Rows(i1).Item(1)
                        Me.TextBox4.Text = mytable.Rows(i1).Item(2)
                        Me.DateTimePicker3.Text = mytable.Rows(i1).Item(3)
                        Me.TextBox5.Text = mytable.Rows(i1).Item(4)
                        Me.TextBox3.Enabled = False
                        If MsgBox("查询成功，是否继续查询", MsgBoxStyle.OKCancel) = MsgBoxResult.OK Then
                            TextBox3.Enabled = True
                            TextBox3.Clear()
                            TextBox4.Text = ""
                            TextBox5.Text = ""
                            Me.DateTimePicker2.Text = ""
                            Me.DateTimePicker3.Text = ""
                        End If
                        Exit Sub