dataset1.vb

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

        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("用户名")
        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.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.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column所属单位)
            Me.column用户等级 = New DataColumn("用户等级", GetType(System.Byte), 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 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 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 Byte
            Get
                Try 
                    Return CType(Me(Me.table用户信息表.用户等级Column),Byte)
                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
                Return CType(Me(Me.table用户信息表.用户名Column),String)
            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
    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