dataset7.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修改单位电话)
            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 Integer
            Get
                Return CType(Me(Me.table应急物资信息表.编号Column),Integer)
            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 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 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