⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 form10.vb

📁 VB 人事管理系统 能够为管理人员提供充足的信息和快捷的查询手段
💻 VB
📖 第 1 页 / 共 3 页
字号:
🔍
123 
        '
        Me.SqlInsertCommand1.CommandText = "INSERT INTO 职称表(职称名, 工资级别, 基本工资, 职务补助, 房补) VALUES (@职称名, @工资级别, @基本工资, @职务补助, @房补" & _
        "); SELECT 职称名, 工资级别, 基本工资, 职务补助, 房补 FROM 职称表 WHERE (职称名 = @职称名)"
        Me.SqlInsertCommand1.Connection = Me.SqlConnection1
        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.Money, 8, "基本工资"))
        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.Money, 8, "房补"))
        '
        'SqlSelectCommand1
        '
        Me.SqlSelectCommand1.CommandText = "SELECT 职称名, 工资级别, 基本工资, 职务补助, 房补 FROM 职称表"
        Me.SqlSelectCommand1.Connection = Me.SqlConnection1
        '
        'SqlUpdateCommand1
        '
        Me.SqlUpdateCommand1.CommandText = "UPDATE 职称表 SET 职称名 = @职称名, 工资级别 = @工资级别, 基本工资 = @基本工资, 职务补助 = @职务补助, 房补 = @房补 WHE" & _
        "RE (职称名 = @Original_职称名) AND (基本工资 = @Original_基本工资 OR @Original_基本工资 IS NULL AN" & _
        "D 基本工资 IS NULL) AND (工资级别 = @Original_工资级别 OR @Original_工资级别 IS NULL AND 工资级别 IS" & _
        " NULL) AND (房补 = @Original_房补 OR @Original_房补 IS NULL AND 房补 IS NULL) AND (职务补助 " & _
        "= @Original_职务补助 OR @Original_职务补助 IS NULL AND 职务补助 IS NULL); SELECT 职称名, 工资级别, " & _
        "基本工资, 职务补助, 房补 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.Money, 8, "基本工资"))
        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.Money, 8, "房补"))
        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))
        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))
        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))
        '
        'DataSet151
        '
        Me.DataSet151.DataSetName = "DataSet15"
        Me.DataSet151.Locale = New System.Globalization.CultureInfo("zh-CN")
        '
        'SqlDataAdapter2
        '
        Me.SqlDataAdapter2.DeleteCommand = Me.SqlDeleteCommand2
        Me.SqlDataAdapter2.InsertCommand = Me.SqlInsertCommand2
        Me.SqlDataAdapter2.SelectCommand = Me.SqlSelectCommand2
        Me.SqlDataAdapter2.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "洗理费", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("性别", "性别"), New System.Data.Common.DataColumnMapping("金额", "金额")})})
        Me.SqlDataAdapter2.UpdateCommand = Me.SqlUpdateCommand2
        '
        'SqlDeleteCommand2
        '
        Me.SqlDeleteCommand2.CommandText = "DELETE FROM 洗理费 WHERE (性别 = @Original_性别) AND (金额 = @Original_金额 OR @Original_金额 " & _
        "IS NULL AND 金额 IS NULL)"
        Me.SqlDeleteCommand2.Connection = Me.SqlConnection1
        Me.SqlDeleteCommand2.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.SqlDeleteCommand2.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))
        '
        'SqlInsertCommand2
        '
        Me.SqlInsertCommand2.CommandText = "INSERT INTO 洗理费(性别, 金额) VALUES (@性别, @金额); SELECT 性别, 金额 FROM 洗理费 WHERE (性别 = @性别" & _
        ")"
        Me.SqlInsertCommand2.Connection = Me.SqlConnection1
        Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@性别", System.Data.SqlDbType.VarChar, 10, "性别"))
        Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@金额", System.Data.SqlDbType.Money, 8, "金额"))
        '
        'SqlSelectCommand2
        '
        Me.SqlSelectCommand2.CommandText = "SELECT 性别, 金额 FROM 洗理费"
        Me.SqlSelectCommand2.Connection = Me.SqlConnection1
        '
        'SqlUpdateCommand2
        '
        Me.SqlUpdateCommand2.CommandText = "UPDATE 洗理费 SET 性别 = @性别, 金额 = @金额 WHERE (性别 = @Original_性别) AND (金额 = @Original_金" & _
        "额 OR @Original_金额 IS NULL AND 金额 IS NULL); SELECT 性别, 金额 FROM 洗理费 WHERE (性别 = @性" & _
        "别)"
        Me.SqlUpdateCommand2.Connection = Me.SqlConnection1
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@性别", System.Data.SqlDbType.VarChar, 10, "性别"))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@金额", System.Data.SqlDbType.Money, 8, "金额"))
        Me.SqlUpdateCommand2.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.SqlUpdateCommand2.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))
        '
        'DataSet11
        '
        Me.DataSet11.DataSetName = "DataSet1"
        Me.DataSet11.Locale = New System.Globalization.CultureInfo("zh-CN")
        '
        'SqlDataAdapter3
        '
        Me.SqlDataAdapter3.DeleteCommand = Me.SqlDeleteCommand3
        Me.SqlDataAdapter3.InsertCommand = Me.SqlInsertCommand3
        Me.SqlDataAdapter3.SelectCommand = Me.SqlSelectCommand3
        Me.SqlDataAdapter3.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "工龄表", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("工龄年数", "工龄年数"), New System.Data.Common.DataColumnMapping("工龄津贴", "工龄津贴")})})
        Me.SqlDataAdapter3.UpdateCommand = Me.SqlUpdateCommand3
        '
        'SqlDeleteCommand3
        '
        Me.SqlDeleteCommand3.CommandText = "DELETE FROM 工龄表 WHERE (工龄年数 = @Original_工龄年数) AND (工龄津贴 = @Original_工龄津贴 OR @Orig" & _
        "inal_工龄津贴 IS NULL AND 工龄津贴 IS NULL)"
        Me.SqlDeleteCommand3.Connection = Me.SqlConnection1
        Me.SqlDeleteCommand3.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.SqlDeleteCommand3.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))
        '
        'SqlInsertCommand3
        '
        Me.SqlInsertCommand3.CommandText = "INSERT INTO 工龄表(工龄年数, 工龄津贴) VALUES (@工龄年数, @工龄津贴); SELECT 工龄年数, 工龄津贴 FROM 工龄表 WHE" & _
        "RE (工龄年数 = @工龄年数)"
        Me.SqlInsertCommand3.Connection = Me.SqlConnection1
        Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@工龄年数", System.Data.SqlDbType.Int, 4, "工龄年数"))
        Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@工龄津贴", System.Data.SqlDbType.Money, 8, "工龄津贴"))
        '
        'SqlSelectCommand3
        '
        Me.SqlSelectCommand3.CommandText = "SELECT 工龄年数, 工龄津贴 FROM 工龄表"
        Me.SqlSelectCommand3.Connection = Me.SqlConnection1
        '
        'SqlUpdateCommand3
        '
        Me.SqlUpdateCommand3.CommandText = "UPDATE 工龄表 SET 工龄年数 = @工龄年数, 工龄津贴 = @工龄津贴 WHERE (工龄年数 = @Original_工龄年数) AND (工龄津贴" & _
        " = @Original_工龄津贴 OR @Original_工龄津贴 IS NULL AND 工龄津贴 IS NULL); SELECT 工龄年数, 工龄津贴" & _
        " FROM 工龄表 WHERE (工龄年数 = @工龄年数)"
        Me.SqlUpdateCommand3.Connection = Me.SqlConnection1
        Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@工龄年数", System.Data.SqlDbType.Int, 4, "工龄年数"))
        Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@工龄津贴", System.Data.SqlDbType.Money, 8, "工龄津贴"))
        Me.SqlUpdateCommand3.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.SqlUpdateCommand3.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))
        '
        'Form10
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
        Me.ClientSize = New System.Drawing.Size(592, 454)
        Me.Controls.Add(Me.TabControl1)
        Me.Name = "Form10"
        Me.Text = "Form10"
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.TabControl1.ResumeLayout(False)
        Me.TabPage1.ResumeLayout(False)
        Me.TabPage2.ResumeLayout(False)
        CType(Me.DataGrid2, System.ComponentModel.ISupportInitialize).EndInit()
        Me.TabPage3.ResumeLayout(False)
        CType(Me.DataGrid3, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DataSet151, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DataSet11, 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 Label1_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 f6 As New Form6
        f6.Show()
    End Sub

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

    End Sub

    Private Sub TabControl1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged

    End Sub

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

        SqlCommand1.Connection = SqlConnection1
        Dim updatastring As String
        Dim updatastring1 As String
        Dim updatastring2 As String
        Dim updatastring3 As String


        SqlConnection1.Open()
        updatastring = "update 职称表  set 工资级别 ='" & TextBox3.Text & "' where 职称名='" & TextBox1.Text & "'"
        SqlCommand1.CommandType = CommandType.Text
        SqlCommand1.CommandText = updatastring
        SqlCommand1.ExecuteNonQuery()

        updatastring1 = "update 职称表 set 基本工资 =" & TextBox4.Text & "  where 职称名='" & TextBox1.Text & "'"
        SqlCommand1.CommandType = CommandType.Text
        SqlCommand1.CommandText = updatastring1
        SqlCommand1.ExecuteNonQuery()

        updatastring2 = "update 职称表  set 职务补助 =" & TextBox5.Text & " where 职称名='" & TextBox1.Text & "'"
        SqlCommand1.CommandType = CommandType.Text
        SqlCommand1.CommandText = updatastring2
        SqlCommand1.ExecuteNonQuery()

        updatastring3 = "update 职称表  set 房补 =" & TextBox6.Text & " where 职称名='" & TextBox1.Text & "'"
        SqlCommand1.CommandType = CommandType.Text
        SqlCommand1.CommandText = updatastring3
        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
        DataSet151.Clear()
        SqlDataAdapter1.Fill(DataSet151, "职称表")
        DataGrid1.SetDataBinding(DataSet151, "职称表")
        Dim dv As DataView = New DataView(DataSet151.Tables("职称表"))
        DataGrid1.SetDataBinding(dv, "")
    End Sub

    Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        DataSet11.Clear()
        SqlDataAdapter2.Fill(DataSet11, "洗理费")
        DataGrid2.SetDataBinding(DataSet11, "洗理费")
        Dim dv As DataView = New DataView(DataSet11.Tables("洗理费"))
        DataGrid2.SetDataBinding(dv, "")
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        SqlCommand2.Connection = SqlConnection1
        Dim updatastring4 As String
        SqlConnection1.Open()
        updatastring4 = "update 洗理费  set  金额=" & TextBox8.Text & " where 性别='" & TextBox7.Text & "'"
        SqlCommand2.CommandType = CommandType.Text
        SqlCommand2.CommandText = updatastring4
        SqlCommand2.ExecuteNonQuery()
        MessageBox.Show("更新成功！")
        SqlConnection1.Close()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        DataSet11.Clear()
        SqlDataAdapter3.Fill(DataSet11, "工龄表")
        DataGrid3.SetDataBinding(DataSet11, "工龄表")
        Dim dv As DataView = New DataView(DataSet11.Tables("工龄表"))
        DataGrid3.SetDataBinding(dv, "")
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        SqlCommand3.Connection = SqlConnection1

        Dim updatastring6 As String
    
        SqlConnection1.Open()
    

        updatastring6 = "update 工龄表  set 工龄津贴 =" & TextBox11.Text & "  where 工龄年数='" & TextBox9.Text & "'"
        SqlCommand3.CommandType = CommandType.Text
        SqlCommand3.CommandText = updatastring6
        SqlCommand3.ExecuteNonQuery()

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

    Private Sub TabPage2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage2.Click

    End Sub
End Class
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -