dataset5.vb

应急系统(Emergency System, ES)主要是针对自然灾害,安全事故

            Me.Columns.Add(Me.column隶属部门)
            Me.column申报时间 = New DataColumn("申报时间", GetType(System.DateTime), 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.DateTime), 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修改单位电话)
        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 Integer
            Get
                Try 
                    Return CType(Me(Me.table应急人员信息表.编号Column),Integer)
                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 Short
            Get
                Try 
                    Return CType(Me(Me.table应急人员信息表.人数Column),Short)
                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 Date
            Get
                Try 
                    Return CType(Me(Me.table应急人员信息表.申报时间Column),Date)
                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 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 Date
            Get
                Try 
                    Return CType(Me(Me.table应急人员信息表.修改时间Column),Date)
                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 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
        
        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