ds1.vb

一个工资管理系统

            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.Int16), 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.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column性别)
            Me.column基本工资 = New DataColumn("基本工资", GetType(System.Single), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column基本工资)
            Me.column加班费 = New DataColumn("加班费", GetType(System.Single), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column加班费)
            Me.column奖金 = New DataColumn("奖金", GetType(System.Single), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column奖金)
            Me.column津贴 = New DataColumn("津贴", GetType(System.Single), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column津贴)
            Me.column总额 = New DataColumn("总额", GetType(System.Single), 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
        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 Short
            Get
                Return CType(Me(Me.table工资表.工号Column),Short)
            End Get
            Set
                Me(Me.table工资表.工号Column) = value
            End Set
        End Property
        
        Public Property 姓名 As String
            Get
                Try 
                    Return CType(Me(Me.table工资表.姓名Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table工资表.姓名Column) = value
            End Set
        End Property
        
        Public Property 性别 As String
            Get
                Try 
                    Return CType(Me(Me.table工资表.性别Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table工资表.性别Column) = value
            End Set
        End Property
        
        Public Property 基本工资 As Single
            Get
                Try 
                    Return CType(Me(Me.table工资表.基本工资Column),Single)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table工资表.基本工资Column) = value
            End Set
        End Property
        
        Public Property 加班费 As Single
            Get
                Try 
                    Return CType(Me(Me.table工资表.加班费Column),Single)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table工资表.加班费Column) = value
            End Set
        End Property
        
        Public Property 奖金 As Single
            Get
                Try 
                    Return CType(Me(Me.table工资表.奖金Column),Single)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table工资表.奖金Column) = value
            End Set
        End Property
        
        Public Property 津贴 As Single
            Get
                Try 
                    Return CType(Me(Me.table工资表.津贴Column),Single)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table工资表.津贴Column) = value
            End Set
        End Property
        
        Public Property 总额 As Single
            Get
                Try 
                    Return CType(Me(Me.table工资表.总额Column),Single)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table工资表.总额Column) = value
            End Set
        End Property
        
        Public Property 备注 As String
            Get
                Try 
                    Return CType(Me(Me.table工资表.备注Column),String)
                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
        
        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
End Class