dataset1.vb

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

    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class 洗理费DataTable
        Inherits DataTable
        Implements System.Collections.IEnumerable
        
        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
        
        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 String, ByVal 金额 As Decimal) 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 String) 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("金额")
        End Sub
        
        Private Sub InitClass()
            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.Constraints.Add(New UniqueConstraint("Constraint1", New DataColumn() {Me.column性别}, true))
            Me.column性别.AllowDBNull = false
            Me.column性别.Unique = true
        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
        
        Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleting(e)
            If (Not (Me.洗理费RowDeletingEvent) Is Nothing) Then
                RaiseEvent 洗理费RowDeleting(Me, New 洗理费RowChangeEvent(CType(e.Row,洗理费Row), e.Action))
            End If
        End Sub
        
        Public Sub Remove洗理费Row(ByVal row As 洗理费Row)
            Me.Rows.Remove(row)
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class 洗理费Row
        Inherits DataRow
        
        Private table洗理费 As 洗理费DataTable
        
        Friend Sub New(ByVal rb As DataRowBuilder)
            MyBase.New(rb)
            Me.table洗理费 = CType(Me.Table,洗理费DataTable)
        End Sub
        
        Public Property 性别 As String
            Get
                Return CType(Me(Me.table洗理费.性别Column),String)
            End Get
            Set
                Me(Me.table洗理费.性别Column) = value
            End Set
        End Property
        
        Public Property 金额 As Decimal
            Get
                Try 
                    Return CType(Me(Me.table洗理费.金额Column),Decimal)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            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
    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
        
        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
        
        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 Decimal) 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("工龄津贴")
        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.Decimal), 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
        End Sub
        
        Public Function New工龄表Row() As 工龄表Row
            Return CType(Me.NewRow,工龄表Ro