form12.vb

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

        Me.Label4.BackColor = System.Drawing.SystemColors.ControlText
        Me.Label4.Font = New System.Drawing.Font("黑体", 15.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label4.Image = CType(resources.GetObject("Label4.Image"), System.Drawing.Image)
        Me.Label4.Location = New System.Drawing.Point(80, 120)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(90, 26)
        Me.Label4.TabIndex = 8
        Me.Label4.Text = "奖    金"
        Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'TextBox3
        '
        Me.TextBox3.AutoSize = False
        Me.TextBox3.BackColor = System.Drawing.SystemColors.ControlText
        Me.TextBox3.ForeColor = System.Drawing.SystemColors.Window
        Me.TextBox3.Location = New System.Drawing.Point(216, 176)
        Me.TextBox3.Name = "TextBox3"
        Me.TextBox3.Size = New System.Drawing.Size(104, 32)
        Me.TextBox3.TabIndex = 9
        Me.TextBox3.Text = ""
        '
        'Button3
        '
        Me.Button3.BackColor = System.Drawing.SystemColors.ControlText
        Me.Button3.Cursor = System.Windows.Forms.Cursors.Hand
        Me.Button3.Font = New System.Drawing.Font("黑体", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Button3.ForeColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(255, Byte), CType(192, Byte))
        Me.Button3.Image = CType(resources.GetObject("Button3.Image"), System.Drawing.Image)
        Me.Button3.Location = New System.Drawing.Point(432, 152)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(80, 32)
        Me.Button3.TabIndex = 10
        Me.Button3.Text = "更新"
        '
        'SqlDataAdapter1
        '
        Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
        Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
        Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
        Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "奖惩", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("编号1", "编号1"), New System.Data.Common.DataColumnMapping("金额", "金额"), New System.Data.Common.DataColumnMapping("内容", "内容")})})
        Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
        '
        'SqlDeleteCommand1
        '
        Me.SqlDeleteCommand1.CommandText = "DELETE FROM 奖惩 WHERE (编号1 = @Original_编号1) AND (内容 = @Original_内容 OR @Original_内容" & _
        " IS NULL AND 内容 IS NULL) AND (金额 = @Original_金额 OR @Original_金额 IS NULL AND 金额 I" & _
        "S NULL)"
        Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
        Me.SqlDeleteCommand1.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.SqlDeleteCommand1.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.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_金额", System.Data.SqlDbType.Money, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "金额", System.Data.DataRowVersion.Original, Nothing))
        '
        'SqlConnection1
        '
        Me.SqlConnection1.ConnectionString = "workstation id=FB60FF2059274FF;packet size=4096;integrated security=SSPI;initial " & _
        "catalog=人事管理系统;persist security info=False"
        '
        'SqlInsertCommand1
        '
        Me.SqlInsertCommand1.CommandText = "INSERT INTO 奖惩(编号1, 金额, 内容) VALUES (@编号1, @金额, @内容); SELECT 编号1, 金额, 内容 FROM 奖惩 W" & _
        "HERE (编号1 = @编号1)"
        Me.SqlInsertCommand1.Connection = Me.SqlConnection1
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@编号1", System.Data.SqlDbType.VarChar, 50, "编号1"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@金额", System.Data.SqlDbType.Money, 8, "金额"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@内容", System.Data.SqlDbType.VarChar, 50, "内容"))
        '
        'SqlSelectCommand1
        '
        Me.SqlSelectCommand1.CommandText = "SELECT 编号1, 金额, 内容 FROM 奖惩"
        Me.SqlSelectCommand1.Connection = Me.SqlConnection1
        '
        'SqlUpdateCommand1
        '
        Me.SqlUpdateCommand1.CommandText = "UPDATE 奖惩 SET 编号1 = @编号1, 金额 = @金额, 内容 = @内容 WHERE (编号1 = @Original_编号1) AND (内容 " & _
        "= @Original_内容 OR @Original_内容 IS NULL AND 内容 IS NULL) AND (金额 = @Original_金额 OR" & _
        " @Original_金额 IS NULL AND 金额 IS NULL); SELECT 编号1, 金额, 内容 FROM 奖惩 WHERE (编号1 = @" & _
        "编号1)"
        Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
        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("@金额", System.Data.SqlDbType.Money, 8, "金额"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@内容", System.Data.SqlDbType.VarChar, 50, "内容"))
        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.Money, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "金额", System.Data.DataRowVersion.Original, Nothing))
        '
        'DataSet161
        '
        Me.DataSet161.DataSetName = "DataSet16"
        Me.DataSet161.Locale = New System.Globalization.CultureInfo("zh-CN")
        '
        'Form12
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
        Me.ClientSize = New System.Drawing.Size(608, 358)
        Me.Controls.Add(Me.Button3)
        Me.Controls.Add(Me.TextBox3)
        Me.Controls.Add(Me.TextBox2)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.DataGrid1)
        Me.Cursor = System.Windows.Forms.Cursors.Hand
        Me.ForeColor = System.Drawing.SystemColors.ControlLightLight
        Me.Name = "Form12"
        Me.Text = "Form12"
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DataSet161, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        DataSet161.Clear()
        SqlDataAdapter1.Fill(DataSet161, "奖惩")
        DataGrid1.SetDataBinding(DataSet161, "奖惩")

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If (TextBox1.Text = "") Then
            MessageBox.Show("职工编号不能为空！")
        End If
        If (TextBox2.Text = "") Then
            MessageBox.Show("金额不能为空！")
        End If
        If (TextBox3.Text = "") Then
            MessageBox.Show("奖惩内容不能为空！")
        End If
        DataSet161.Clear()
        SqlDataAdapter1.Fill(DataSet161)
        Dim dr As DataRow = DataSet161.Tables("奖惩").NewRow
        dr(0) = TextBox1.Text
        dr(1) = TextBox2.Text
        dr(2) = TextBox3.Text
        SqlConnection1.Close()
        DataSet161.Tables("奖惩").Rows.Add(dr)
        SqlDataAdapter1.Update(DataSet161)
        MessageBox.Show("添加成功！")
    End Sub

    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

    End Sub

    Private Sub SqlDataAdapter1_RowUpdated(ByVal sender As System.Object, ByVal e As System.Data.SqlClient.SqlRowUpdatedEventArgs)

    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

        SqlConnection1.Open()
        updatastring = "update 奖惩 set  金额=" & TextBox2.Text & "  where 编号1='" & TextBox1.Text & "'"
        SqlCommand1.CommandType = CommandType.Text
        SqlCommand1.CommandText = updatastring
        SqlCommand1.ExecuteNonQuery()

        updatastring1 = "update 奖惩 set  内容='" & TextBox3.Text & "'  where 编号1='" & TextBox1.Text & "'"
        SqlCommand1.CommandType = CommandType.Text
        SqlCommand1.CommandText = updatastring1
        SqlCommand1.ExecuteNonQuery()
        MessageBox.Show("更新成功！")
        SqlConnection1.Close()
    End Sub
End Class