form8.vb

VB 人事管理系统 能够为管理人员提供充足的信息和快捷的查询手段

        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@参加工作日期", System.Data.SqlDbType.DateTime, 8, "参加工作日期"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@住址", System.Data.SqlDbType.VarChar, 50, "住址"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@电话", System.Data.SqlDbType.VarChar, 50, "电话"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@来自本单位的时间", System.Data.SqlDbType.DateTime, 8, "来自本单位的时间"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@职称名", System.Data.SqlDbType.VarChar, 50, "职称名"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@评定时间", System.Data.SqlDbType.DateTime, 8, "评定时间"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@工龄年数", System.Data.SqlDbType.Int, 4, "工龄年数"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@编号1", System.Data.SqlDbType.VarChar, 50, "编号1"))
        '
        'SqlSelectCommand1
        '
        Me.SqlSelectCommand1.CommandText = "SELECT 编号, 姓名, 性别, 出生日期, 参加工作日期, 住址, 电话, 来自本单位的时间, 职称名, 评定时间, 工龄年数, 编号1 FROM 职工表"
        Me.SqlSelectCommand1.Connection = Me.SqlConnection1
        '
        'SqlUpdateCommand1
        '
        Me.SqlUpdateCommand1.CommandText = "UPDATE 职工表 SET 编号 = @编号, 姓名 = @姓名, 性别 = @性别, 出生日期 = @出生日期, 参加工作日期 = @参加工作日期, 住址 =" & _
        " @住址, 电话 = @电话, 来自本单位的时间 = @来自本单位的时间, 职称名 = @职称名, 评定时间 = @评定时间, 工龄年数 = @工龄年数, 编号" & _
        "1 = @编号1 WHERE (编号 = @Original_编号) AND (住址 = @Original_住址 OR @Original_住址 IS NUL" & _
        "L AND 住址 IS NULL) AND (出生日期 = @Original_出生日期 OR @Original_出生日期 IS NULL AND 出生日期 " & _
        "IS NULL) AND (参加工作日期 = @Original_参加工作日期 OR @Original_参加工作日期 IS NULL AND 参加工作日期 I" & _
        "S NULL) AND (姓名 = @Original_姓名 OR @Original_姓名 IS NULL AND 姓名 IS NULL) AND (工龄年数" & _
        " = @Original_工龄年数 OR @Original_工龄年数 IS NULL AND 工龄年数 IS NULL) AND (性别 = @Origina" & _
        "l_性别 OR @Original_性别 IS NULL AND 性别 IS NULL) AND (来自本单位的时间 = @Original_来自本单位的时间 " & _
        "OR @Original_来自本单位的时间 IS NULL AND 来自本单位的时间 IS NULL) AND (电话 = @Original_电话 OR @O" & _
        "riginal_电话 IS NULL AND 电话 IS NULL) AND (编号1 = @Original_编号1 OR @Original_编号1 IS " & _
        "NULL AND 编号1 IS NULL) AND (职称名 = @Original_职称名 OR @Original_职称名 IS NULL AND 职称名 " & _
        "IS NULL) AND (评定时间 = @Original_评定时间 OR @Original_评定时间 IS NULL AND 评定时间 IS NULL);" & _
        " SELECT 编号, 姓名, 性别, 出生日期, 参加工作日期, 住址, 电话, 来自本单位的时间, 职称名, 评定时间, 工龄年数, 编号1 FROM 职工" & _
        "表 WHERE (编号 = @编号)"
        Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@编号", System.Data.SqlDbType.VarChar, 50, "编号"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@姓名", System.Data.SqlDbType.VarChar, 50, "姓名"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@性别", System.Data.SqlDbType.VarChar, 10, "性别"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@出生日期", System.Data.SqlDbType.DateTime, 8, "出生日期"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@参加工作日期", System.Data.SqlDbType.DateTime, 8, "参加工作日期"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@住址", System.Data.SqlDbType.VarChar, 50, "住址"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@电话", System.Data.SqlDbType.VarChar, 50, "电话"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@来自本单位的时间", System.Data.SqlDbType.DateTime, 8, "来自本单位的时间"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@职称名", System.Data.SqlDbType.VarChar, 50, "职称名"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@评定时间", System.Data.SqlDbType.DateTime, 8, "评定时间"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@工龄年数", System.Data.SqlDbType.Int, 4, "工龄年数"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@编号1", System.Data.SqlDbType.VarChar, 50, "编号1"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_编号", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "编号", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_住址", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "住址", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_出生日期", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "出生日期", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_参加工作日期", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "参加工作日期", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_姓名", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "姓名", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_工龄年数", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "工龄年数", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_性别", System.Data.SqlDbType.VarChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "性别", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_来自本单位的时间", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "来自本单位的时间", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_电话", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "电话", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_编号1", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "编号1", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_职称名", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "职称名", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_评定时间", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "评定时间", System.Data.DataRowVersion.Original, Nothing))
        '
        'DataSet171
        '
        Me.DataSet171.DataSetName = "DataSet17"
        Me.DataSet171.Locale = New System.Globalization.CultureInfo("zh-CN")
        '
        'Form8
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.BackColor = System.Drawing.SystemColors.ControlText
        Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
        Me.ClientSize = New System.Drawing.Size(648, 414)
        Me.Controls.Add(Me.Label13)
        Me.Controls.Add(Me.Label12)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.Button3)
        Me.Controls.Add(Me.DataGrid1)
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.TextBox12)
        Me.Name = "Form8"
        Me.Text = "Form8"
        Me.GroupBox1.ResumeLayout(False)
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DataSet171, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

    End Sub

    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Dim sqlstr As String = "Select * from 职工表"
        'Dim com As SqlClient.SqlCommand = New SqlClient.SqlCommand(sqlstr, SqlConnection1)
        'Dim flag As Boolean
        ' Dim qx As String

        'SqlConnection1.Open()
        ' Dim r As SqlClient.SqlDataReader = com.ExecuteReader

        'While r.Read
        ' If TextBox1.Text = r("编号") Then
        'flag = True
        'qx = r("allow")
        'End If
        'End While
        'SqlConnection1.Close()

        ' If Not flag Then
        ' MessageBox.Show("更新失败，该职工不存在！")
        'End If
    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

    End Sub

    Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click

    End Sub

    Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim f116 As New Form6
        f116.Show()

    End Sub

    Private Sub DataView1_ListChanged(ByVal sender As System.Object, ByVal e As System.ComponentModel.ListChangedEventArgs)

    End Sub

    Private Sub DataGrid1_Navigate(ByVal sender As System.Object, ByVal ne As System.Windows.Forms.NavigateEventArgs) Handles DataGrid1.Navigate

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
      
        SqlCommand1.Connection = SqlConnection1
        Dim updatastring As String
        Dim updatastring1 As String
        Dim updatastring2 As String
        Dim updatastring3 As String
        Dim updatastring4 As String
        Dim updatastring5 As String
        Dim updatastring6 As String
        Dim updatastring7 As String
        Dim updatastring8 As String
        Dim updatastring9 As String
    
        SqlConnection1.Open()
        updatastring = "update 职工表  set 姓名 ='" & TextBox1.Text & "' where 编号='" & TextBox12.Text & "'"
        SqlCommand1.CommandType = CommandType.Text
        SqlCommand1.CommandText = updatastring
        SqlCommand1.ExecuteNonQuery()

        updatastring1 = "update 职工表 set 性别 ='" & TextBox2.Text & "' where 编号='" & TextBox12.Text & "'"
        SqlCommand1.CommandType = CommandType.Text
        SqlCommand1.CommandText = updatastring1
        SqlCommand1.ExecuteNonQuery()

        updatastring2 = "update 职工表 set 出生日期 ='" & TextBox3.Text & "' where 编号='" & TextBox12.Text & "'"
        SqlCommand1.CommandType = CommandType.Text
        SqlCommand1.CommandText = updatastring2
        SqlCommand1.ExecuteNonQuery()

        updatastring3 = "update 职工表  set 参加工作日期 ='" & TextBox4.Text & "' where 编号='" & TextBox12.Text & "'"
        SqlCommand1.CommandType = CommandType.Text
        SqlCommand1.CommandText = updatastring3
        SqlCommand1.ExecuteNonQuery()

        updatastring4 = "update 职工表  set 住址 ='" & TextBox5.Text & "' where 编号='" & TextBox12.Text & "'"
        SqlCommand1.CommandType = CommandType.Text
        SqlCommand1.CommandText = updatastring4
        SqlCommand1.ExecuteNonQuery()

        updatastring5 = "update 职工表  set 电话='" & TextBox6.Text & "' where 编号='" & TextBox12.Text & "'"
        SqlCommand1.CommandType = CommandType.Text
        SqlCommand1.CommandText = updatastring5
        SqlCommand1.ExecuteNonQuery()

        updatastring6 = "update 职工表  set 来自本单位的时间 ='" & TextBox7.Text & "' where 编号='" & TextBox12.Text & "'"
        SqlCommand1.CommandType = CommandType.Text
        SqlCommand1.CommandText = updatastring6
        SqlCommand1.ExecuteNonQuery()

        updatastring7 = "update 职工表  set 职称名 ='" & TextBox9.Text & "' where 编号='" & TextBox12.Text & "'"
        SqlCommand1.CommandType = CommandType.Text
        SqlCommand1.CommandText = updatastring7
        SqlCommand1.ExecuteNonQuery()

        updatastring8 = "update 职工表  set 评定时间='" & TextBox8.Text & "' where 编号='" & TextBox12.Text & "'"
        SqlCommand1.CommandType = CommandType.Text
        SqlCommand1.CommandText = updatastring8
        SqlCommand1.ExecuteNonQuery()

        updatastring9 = "update 职工表  set 工龄年数 =" & TextBox10.Text & " where 编号='" & TextBox12.Text & "'"
        SqlCommand1.CommandType = CommandType.Text
        SqlCommand1.CommandText = updatastring9
        SqlCommand1.ExecuteNonQuery()


        MessageBox.Show("更新成功！")
        SqlConnection1.Close()
    End Sub

    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        DataSet171.Clear()
        SqlDataAdapter1.Fill(DataSet171, "职工表")
        DataGrid1.SetDataBinding(DataSet171, "职工表")
        Dim dv As DataView = New DataView(DataSet171.Tables("职工表"))
        DataGrid1.SetDataBinding(dv, "")
    End Sub

    Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Form8_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Label12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label12.Click

    End Sub
End Class