dataset2.vb

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

        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 String,  _
                    ByVal 发生地点 As String,  _
                    ByVal 发生时间 As Date,  _
                    ByVal 持续时间 As String,  _
                    ByVal 受伤人数 As Integer,  _
                    ByVal 死亡人数 As Integer,  _
                    ByVal 财产损失 As String,  _
                    ByVal 申报时间 As Date,  _
                    ByVal 申报单位 As String,  _
                    ByVal 申报单位电话 As String,  _
                    ByVal 修改时间 As Date,  _
                    ByVal 修改单位 As String,  _
                    ByVal 修改单位电话 As String,  _
                    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("死亡人数")
            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.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.Int32), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column受伤人数)
            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.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 Integer
            Get
                Try 
                    Return CType(Me(Me.table突发事件信息表.受伤人数Column),Integer)
                Catch e As InvalidCastException