frmtaxinfo.vb

使用的人力资源管理系统

        '
        'SqlSelectCommand1
        '
        Me.SqlSelectCommand1.CommandText = "SELECT 编号, 级数, 不计税工资, 工资下限, 工资上限, 个人所得税率, 速算扣除数, 备注 FROM 个人所得税表"
        Me.SqlSelectCommand1.Connection = Me.SqlConnection1
        '
        'SqlUpdateCommand1
        '
        Me.SqlUpdateCommand1.CommandText = "UPDATE 个人所得税表 SET 编号 = @编号, 级数 = @级数, 不计税工资 = @不计税工资, 工资下限 = @工资下限, 工资上限 = @工资上限," & _
        " 个人所得税率 = @个人所得税率, 速算扣除数 = @速算扣除数, 备注 = @备注 WHERE (编号 = @Original_编号) AND (不计税工资" & _
        " = @Original_不计税工资) AND (个人所得税率 = @Original_个人所得税率) AND (备注 = @Original_备注 OR @O" & _
        "riginal_备注 IS NULL AND 备注 IS NULL) AND (工资上限 = @Original_工资上限) AND (工资下限 = @Orig" & _
        "inal_工资下限) AND (级数 = @Original_级数) AND (速算扣除数 = @Original_速算扣除数); SELECT 编号, 级数," & _
        " 不计税工资, 工资下限, 工资上限, 个人所得税率, 速算扣除数, 备注 FROM 个人所得税表 WHERE (编号 = @编号)"
        Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@编号", System.Data.SqlDbType.Int, 4, "编号"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@级数", System.Data.SqlDbType.VarChar, 2, "级数"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@不计税工资", System.Data.SqlDbType.Decimal, 13, System.Data.ParameterDirection.Input, False, CType(26, Byte), CType(2, Byte), "不计税工资", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@工资下限", System.Data.SqlDbType.Decimal, 13, System.Data.ParameterDirection.Input, False, CType(26, Byte), CType(2, Byte), "工资下限", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@工资上限", System.Data.SqlDbType.Decimal, 13, System.Data.ParameterDirection.Input, False, CType(26, Byte), CType(2, Byte), "工资上限", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@个人所得税率", System.Data.SqlDbType.Decimal, 13, System.Data.ParameterDirection.Input, False, CType(26, Byte), CType(2, Byte), "个人所得税率", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@速算扣除数", System.Data.SqlDbType.Decimal, 13, System.Data.ParameterDirection.Input, False, CType(26, Byte), CType(2, Byte), "速算扣除数", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@备注", System.Data.SqlDbType.VarChar, 50, "备注"))
        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.Decimal, 13, System.Data.ParameterDirection.Input, False, CType(26, Byte), CType(2, Byte), "不计税工资", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_个人所得税率", System.Data.SqlDbType.Decimal, 13, System.Data.ParameterDirection.Input, False, CType(26, Byte), CType(2, 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.Decimal, 13, System.Data.ParameterDirection.Input, False, CType(26, Byte), CType(2, Byte), "工资上限", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_工资下限", System.Data.SqlDbType.Decimal, 13, System.Data.ParameterDirection.Input, False, CType(26, Byte), CType(2, Byte), "工资下限", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_级数", System.Data.SqlDbType.VarChar, 2, 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.Decimal, 13, System.Data.ParameterDirection.Input, False, CType(26, Byte), CType(2, Byte), "速算扣除数", System.Data.DataRowVersion.Original, Nothing))
        '
        'DataSet11
        '
        Me.DataSet11.DataSetName = "DataSet1"
        Me.DataSet11.Locale = New System.Globalization.CultureInfo("zh-CN")
        '
        'frmTaxInfo
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(456, 273)
        Me.Controls.Add(Me.dgdTaxInfo)
        Me.Controls.Add(Me.ToolBar1)
        Me.Name = "frmTaxInfo"
        Me.Text = "个人所得税率"
        CType(Me.dgdTaxInfo, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub frmTaxInfo_Load(ByVal sender As Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load
        '定义一个DataGrid表样式
        Try
            Dim ts As New DataGridTableStyle
            Dim aColumnTextColumn As DataGridTextBoxColumn
            Dim numCols As Integer = _
            DataSet11.Tables("个人所得税表").Columns.Count()
            Dim i As Integer
            For i = 0 To numCols - 1
                aColumnTextColumn = New DataGridTextBoxColumn
                aColumnTextColumn.MappingName = _
                DataSet11.Tables("个人所得税表").Columns(i).ColumnName
                aColumnTextColumn.HeaderText = _
                DataSet11.Tables("个人所得税表").Columns(i).ColumnName
                aColumnTextColumn.NullText = ""
                If i = 0 Or i = 1 Then
                    aColumnTextColumn.Width = 40
                End If
                ts.GridColumnStyles.Add(aColumnTextColumn)
            Next
            ts.AlternatingBackColor = Color.LightGray
            ts.AllowSorting = False
            dgdTaxInfo.TableStyles.Add(ts)
            SqlConnection1.ConnectionString = DataBase.sConn
            SqlDataAdapter1.Fill(DataSet11, "个人所得税表")
            '设置dgdTaxInfo的数据源
            ts.MappingName = DataSet11.Tables("个人所得税表").TableName
            dgdTaxInfo.DataSource = _
            DataSet11.Tables("个人所得税表").DefaultView()
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
    End Sub

    Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, _
        ByVal e As ToolBarButtonClickEventArgs) _
        Handles ToolBar1.ButtonClick
        If e.Button Is tbbSave Then
            Dim row As Integer
            row = dgdTaxInfo.CurrentCell.RowNumber
            dgdTaxInfo.CurrentCell = New DataGridCell(row + 1, 0)
            Try
                '判断DataSet11的数据是否有变化
                '即DataGrid控件上是否有数据更改或新增数据
                If DataSet11.HasChanges Then
                    '通过SqlDataAdapter1更新数据库数据
                    SqlDataAdapter1.Update(DataSet11)
                    DataSet11.Tables("个人所得税表"). _
                    DefaultView.RowFilter = ""
                    MessageBox.Show("数据修改成功!")
                Else
                    MessageBox.Show("无修改的数据!")
                End If
            Catch ex As Exception
                MessageBox.Show("修改的数据出错")
            End Try
        ElseIf e.Button Is tbbDel Then
            Try
                '获得DataGrid当前被选中的行号
                Dim iRow = dgdTaxInfo.CurrentRowIndex
                '弹出对话框让用户确认要删除记录
                '如果用户确认要删除记录
                If MessageBox.Show("你确认要删除此条记录吗？", "Confirm", _
                   MessageBoxButtons.YesNo) = DialogResult.Yes Then
                    '从个人所得税表表删除当前被选中记录()
                    DataSet11.Tables("个人所得税表").Rows(iRow).Delete()
                Else
                    Exit Sub
                End If
                Try
                    If DataSet11.HasChanges Then
                        '用SqlDataAdapter1更新数据库
                        SqlDataAdapter1.Update(DataSet11)
                        DataSet11.Tables("个人所得税表"). _
                        DefaultView.RowFilter = ""
                        MessageBox.Show("数据删除成功!")
                    Else
                        MessageBox.Show("无修改的数据!")
                    End If
                Catch ex As Exception
                    MessageBox.Show("删除数据出错")
                End Try
            Catch ex As Exception
                MessageBox.Show("删除数据出错")
            End Try
        End If
    End Sub
End Class