dataset1.vb

vb.net+SQL开发工具 是一个很好的管理系统的源码

            Set
                Me(Me.table组织机构编码表.单位编号Column) = value
            End Set
        End Property
        
        Public Function Is类别Null() As Boolean
            Return Me.IsNull(Me.table组织机构编码表.类别Column)
        End Function
        
        Public Sub Set类别Null()
            Me(Me.table组织机构编码表.类别Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is拼音编码Null() As Boolean
            Return Me.IsNull(Me.table组织机构编码表.拼音编码Column)
        End Function
        
        Public Sub Set拼音编码Null()
            Me(Me.table组织机构编码表.拼音编码Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is单位地址Null() As Boolean
            Return Me.IsNull(Me.table组织机构编码表.单位地址Column)
        End Function
        
        Public Sub Set单位地址Null()
            Me(Me.table组织机构编码表.单位地址Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is单位电话号码Null() As Boolean
            Return Me.IsNull(Me.table组织机构编码表.单位电话号码Column)
        End Function
        
        Public Sub Set单位电话号码Null()
            Me(Me.table组织机构编码表.单位电话号码Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is开户银行Null() As Boolean
            Return Me.IsNull(Me.table组织机构编码表.开户银行Column)
        End Function
        
        Public Sub Set开户银行Null()
            Me(Me.table组织机构编码表.开户银行Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is帐号Null() As Boolean
            Return Me.IsNull(Me.table组织机构编码表.帐号Column)
        End Function
        
        Public Sub Set帐号Null()
            Me(Me.table组织机构编码表.帐号Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is开户全称Null() As Boolean
            Return Me.IsNull(Me.table组织机构编码表.开户全称Column)
        End Function
        
        Public Sub Set开户全称Null()
            Me(Me.table组织机构编码表.开户全称Column) = System.Convert.DBNull
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class 组织机构编码表RowChangeEvent
        Inherits EventArgs
        
        Private eventRow As 组织机构编码表Row
        
        Private eventAction As DataRowAction
        
        Public Sub New(ByVal row As 组织机构编码表Row, ByVal action As DataRowAction)
            MyBase.New
            Me.eventRow = row
            Me.eventAction = action
        End Sub
        
        Public ReadOnly Property Row As 组织机构编码表Row
            Get
                Return Me.eventRow
            End Get
        End Property
        
        Public ReadOnly Property Action As DataRowAction
            Get
                Return Me.eventAction
            End Get
        End Property
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class 个人所得税表DataTable
        Inherits DataTable
        Implements System.Collections.IEnumerable
        
        Private column编号 As DataColumn
        
        Private column级数 As DataColumn
        
        Private column不计税工资 As DataColumn
        
        Private column工资下限 As DataColumn
        
        Private column工资上限 As DataColumn
        
        Private column个人所得税率 As DataColumn
        
        Private column速算扣除数 As DataColumn
        
        Private column备注 As DataColumn
        
        Friend Sub New()
            MyBase.New("个人所得税表")
            Me.InitClass
        End Sub
        
        Friend Sub New(ByVal table As DataTable)
            MyBase.New(table.TableName)
            If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
                Me.CaseSensitive = table.CaseSensitive
            End If
            If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
                Me.Locale = table.Locale
            End If
            If (table.Namespace <> table.DataSet.Namespace) Then
                Me.Namespace = table.Namespace
            End If
            Me.Prefix = table.Prefix
            Me.MinimumCapacity = table.MinimumCapacity
            Me.DisplayExpression = table.DisplayExpression
        End Sub
        
        <System.ComponentModel.Browsable(false)>  _
        Public ReadOnly Property Count As Integer
            Get
                Return Me.Rows.Count
            End Get
        End Property
        
        Friend ReadOnly Property 编号Column As DataColumn
            Get
                Return Me.column编号
            End Get
        End Property
        
        Friend ReadOnly Property 级数Column As DataColumn
            Get
                Return Me.column级数
            End Get
        End Property
        
        Friend ReadOnly Property 不计税工资Column As DataColumn
            Get
                Return Me.column不计税工资
            End Get
        End Property
        
        Friend ReadOnly Property 工资下限Column As DataColumn
            Get
                Return Me.column工资下限
            End Get
        End Property
        
        Friend ReadOnly Property 工资上限Column As DataColumn
            Get
                Return Me.column工资上限
            End Get
        End Property
        
        Friend ReadOnly Property 个人所得税率Column As DataColumn
            Get
                Return Me.column个人所得税率
            End Get
        End Property
        
        Friend ReadOnly Property 速算扣除数Column As DataColumn
            Get
                Return Me.column速算扣除数
            End Get
        End Property
        
        Friend ReadOnly Property 备注Column As DataColumn
            Get
                Return Me.column备注
            End Get
        End Property
        
        Public Default ReadOnly Property Item(ByVal index As Integer) As 个人所得税表Row
            Get
                Return CType(Me.Rows(index),个人所得税表Row)
            End Get
        End Property
        
        Public Event 个人所得税表RowChanged As 个人所得税表RowChangeEventHandler
        
        Public Event 个人所得税表RowChanging As 个人所得税表RowChangeEventHandler
        
        Public Event 个人所得税表RowDeleted As 个人所得税表RowChangeEventHandler
        
        Public Event 个人所得税表RowDeleting As 个人所得税表RowChangeEventHandler
        
        Public Overloads Sub Add个人所得税表Row(ByVal row As 个人所得税表Row)
            Me.Rows.Add(row)
        End Sub
        
        Public Overloads Function Add个人所得税表Row(ByVal 编号 As Integer, ByVal 级数 As String, ByVal 不计税工资 As Decimal, ByVal 工资下限 As Decimal, ByVal 工资上限 As Decimal, ByVal 个人所得税率 As Decimal, ByVal 速算扣除数 As Decimal, ByVal 备注 As String) As 个人所得税表Row
            Dim row个人所得税表Row As 个人所得税表Row = CType(Me.NewRow,个人所得税表Row)
            row个人所得税表Row.ItemArray = New Object() {编号, 级数, 不计税工资, 工资下限, 工资上限, 个人所得税率, 速算扣除数, 备注}
            Me.Rows.Add(row个人所得税表Row)
            Return row个人所得税表Row
        End Function
        
        Public Function FindBy编号(ByVal 编号 As Integer) As 个人所得税表Row
            Return CType(Me.Rows.Find(New Object() {编号}),个人所得税表Row)
        End Function
        
        Public Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
            Return Me.Rows.GetEnumerator
        End Function
        
        Public Overrides Function Clone() As DataTable
            Dim cln As 个人所得税表DataTable = CType(MyBase.Clone,个人所得税表DataTable)
            cln.InitVars
            Return cln
        End Function
        
        Protected Overrides Function CreateInstance() As DataTable
            Return New 个人所得税表DataTable
        End Function
        
        Friend Sub InitVars()
            Me.column编号 = Me.Columns("编号")
            Me.column级数 = Me.Columns("级数")
            Me.column不计税工资 = Me.Columns("不计税工资")
            Me.column工资下限 = Me.Columns("工资下限")
            Me.column工资上限 = Me.Columns("工资上限")
            Me.column个人所得税率 = Me.Columns("个人所得税率")
            Me.column速算扣除数 = Me.Columns("速算扣除数")
            Me.column备注 = Me.Columns("备注")
        End Sub
        
        Private Sub InitClass()
            Me.column编号 = New DataColumn("编号", GetType(System.Int32), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column编号)
            Me.column级数 = New DataColumn("级数", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column级数)
            Me.column不计税工资 = New DataColumn("不计税工资", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column不计税工资)
            Me.column工资下限 = New DataColumn("工资下限", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column工资下限)
            Me.column工资上限 = New DataColumn("工资上限", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column工资上限)
            Me.column个人所得税率 = New DataColumn("个人所得税率", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column个人所得税率)
            Me.column速算扣除数 = New DataColumn("速算扣除数", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column速算扣除数)
            Me.column备注 = New DataColumn("备注", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column备注)
            Me.Constraints.Add(New UniqueConstraint("Constraint1", New DataColumn() {Me.column编号}, true))
            Me.column编号.AllowDBNull = false
            Me.column编号.Unique = true
            Me.column级数.AllowDBNull = false
            Me.column不计税工资.AllowDBNull = false
            Me.column工资下限.AllowDBNull = false
            Me.column工资上限.AllowDBNull = false
            Me.column个人所得税率.AllowDBNull = false
            Me.column速算扣除数.AllowDBNull = false
        End Sub
        
        Public Function New个人所得税表Row() As 个人所得税表Row
            Return CType(Me.NewRow,个人所得税表Row)
        End Function
        
        Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
            Return New 个人所得税表Row(builder)
        End Function
        
        Protected Overrides Function GetRowType() As System.Type
            Return GetType(个人所得税表Row)
        End Function
        
        Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanged(e)
            If (Not (Me.个人所得税表RowChangedEvent) Is Nothing) Then
                RaiseEvent 个人所得税表RowChanged(Me, New 个人所得税表RowChangeEvent(CType(e.Row,个人所得税表Row), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanging(e)
            If (Not (Me.个人所得税表RowChangingEvent) Is Nothing) Then
                RaiseEvent 个人所得税表RowChanging(Me, New 个人所得税表RowChangeEvent(CType(e.Row,个人所得税表Row), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleted(e)
            If (Not (Me.个人所得税表RowDeletedEvent) Is Nothing) Then
                RaiseEvent 个人所得税表RowDeleted(Me, New 个人所得税表RowChangeEvent(CType(e.Row,个人所得税表Row), e.Action))
            End If
        End Sub