reference.vb

一个管理系统

        Public Delegate Sub UsersRowChangeEventHandler(ByVal sender As Object, ByVal e As UsersRowChangeEvent)
        
        Public Delegate Sub PrioritiesRowChangeEventHandler(ByVal sender As Object, ByVal e As PrioritiesRowChangeEvent)
        
        <System.Diagnostics.DebuggerStepThrough()>  _
        Public Class StatusesDataTable
            Inherits DataTable
            Implements System.Collections.IEnumerable
            
            Private columnStatusID As DataColumn
            
            Private columnStatusText As DataColumn
            
            Friend Sub New()
                MyBase.New("Statuses")
                Me.InitClass
            End Sub
            
            Friend Sub New(ByVal table As DataTable)
                MyBase.New(table.TableName)
                If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
                    Me.CaseSensitive = table.CaseSensitive
                End If
                If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
                    Me.Locale = table.Locale
                End If
                If (table.Namespace <> table.DataSet.Namespace) Then
                    Me.Namespace = table.Namespace
                End If
                Me.Prefix = table.Prefix
                Me.MinimumCapacity = table.MinimumCapacity
                Me.DisplayExpression = table.DisplayExpression
            End Sub
            
            <System.ComponentModel.Browsable(false)>  _
            Public ReadOnly Property Count As Integer
                Get
                    Return Me.Rows.Count
                End Get
            End Property
            
            Friend ReadOnly Property StatusIDColumn As DataColumn
                Get
                    Return Me.columnStatusID
                End Get
            End Property
            
            Friend ReadOnly Property StatusTextColumn As DataColumn
                Get
                    Return Me.columnStatusText
                End Get
            End Property
            
            Public Default ReadOnly Property Item(ByVal index As Integer) As StatusesRow
                Get
                    Return CType(Me.Rows(index),StatusesRow)
                End Get
            End Property
            
            Public Event StatusesRowChanged As StatusesRowChangeEventHandler
            
            Public Event StatusesRowChanging As StatusesRowChangeEventHandler
            
            Public Event StatusesRowDeleted As StatusesRowChangeEventHandler
            
            Public Event StatusesRowDeleting As StatusesRowChangeEventHandler
            
            Public Overloads Sub AddStatusesRow(ByVal row As StatusesRow)
                Me.Rows.Add(row)
            End Sub
            
            Public Overloads Function AddStatusesRow(ByVal StatusText As String) As StatusesRow
                Dim rowStatusesRow As StatusesRow = CType(Me.NewRow,StatusesRow)
                rowStatusesRow.ItemArray = New Object() {Nothing, StatusText}
                Me.Rows.Add(rowStatusesRow)
                Return rowStatusesRow
            End Function
            
            Public Function FindByStatusID(ByVal StatusID As Integer) As StatusesRow
                Return CType(Me.Rows.Find(New Object() {StatusID}),StatusesRow)
            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 StatusesDataTable = CType(MyBase.Clone,StatusesDataTable)
                cln.InitVars
                Return cln
            End Function
            
            Protected Overrides Function CreateInstance() As DataTable
                Return New StatusesDataTable
            End Function
            
            Friend Sub InitVars()
                Me.columnStatusID = Me.Columns("StatusID")
                Me.columnStatusText = Me.Columns("StatusText")
            End Sub
            
            Private Sub InitClass()
                Me.columnStatusID = New DataColumn("StatusID", GetType(System.Int32), Nothing, System.Data.MappingType.Element)
                Me.Columns.Add(Me.columnStatusID)
                Me.columnStatusText = New DataColumn("StatusText", GetType(System.String), Nothing, System.Data.MappingType.Element)
                Me.Columns.Add(Me.columnStatusText)
                Me.Constraints.Add(New UniqueConstraint("DataSetLookupTablesKey1", New DataColumn() {Me.columnStatusID}, true))
                Me.columnStatusID.AutoIncrement = true
                Me.columnStatusID.AllowDBNull = false
                Me.columnStatusID.ReadOnly = true
                Me.columnStatusID.Unique = true
                Me.columnStatusText.AllowDBNull = false
            End Sub
            
            Public Function NewStatusesRow() As StatusesRow
                Return CType(Me.NewRow,StatusesRow)
            End Function
            
            Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
                Return New StatusesRow(builder)
            End Function
            
            Protected Overrides Function GetRowType() As System.Type
                Return GetType(StatusesRow)
            End Function
            
            Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
                MyBase.OnRowChanged(e)
                If (Not (Me.StatusesRowChangedEvent) Is Nothing) Then
                    RaiseEvent StatusesRowChanged(Me, New StatusesRowChangeEvent(CType(e.Row,StatusesRow), e.Action))
                End If
            End Sub
            
            Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
                MyBase.OnRowChanging(e)
                If (Not (Me.StatusesRowChangingEvent) Is Nothing) Then
                    RaiseEvent StatusesRowChanging(Me, New StatusesRowChangeEvent(CType(e.Row,StatusesRow), e.Action))
                End If
            End Sub
            
            Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
                MyBase.OnRowDeleted(e)
                If (Not (Me.StatusesRowDeletedEvent) Is Nothing) Then
                    RaiseEvent StatusesRowDeleted(Me, New StatusesRowChangeEvent(CType(e.Row,StatusesRow), e.Action))
                End If
            End Sub
            
            Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
                MyBase.OnRowDeleting(e)
                If (Not (Me.StatusesRowDeletingEvent) Is Nothing) Then
                    RaiseEvent StatusesRowDeleting(Me, New StatusesRowChangeEvent(CType(e.Row,StatusesRow), e.Action))
                End If
            End Sub
            
            Public Sub RemoveStatusesRow(ByVal row As StatusesRow)
                Me.Rows.Remove(row)
            End Sub
        End Class
        
        <System.Diagnostics.DebuggerStepThrough()>  _
        Public Class StatusesRow
            Inherits DataRow
            
            Private tableStatuses As StatusesDataTable
            
            Friend Sub New(ByVal rb As DataRowBuilder)
                MyBase.New(rb)
                Me.tableStatuses = CType(Me.Table,StatusesDataTable)
            End Sub
            
            Public Property StatusID As Integer
                Get
                    Return CType(Me(Me.tableStatuses.StatusIDColumn),Integer)
                End Get
                Set
                    Me(Me.tableStatuses.StatusIDColumn) = value
                End Set
            End Property
            
            Public Property StatusText As String
                Get
                    Return CType(Me(Me.tableStatuses.StatusTextColumn),String)
                End Get
                Set
                    Me(Me.tableStatuses.StatusTextColumn) = value
                End Set
            End Property
        End Class
        
        <System.Diagnostics.DebuggerStepThrough()>  _
        Public Class StatusesRowChangeEvent
            Inherits EventArgs
            
            Private eventRow As StatusesRow
            
            Private eventAction As DataRowAction
            
            Public Sub New(ByVal row As StatusesRow, ByVal action As DataRowAction)
                MyBase.New
                Me.eventRow = row
                Me.eventAction = action
            End Sub
            
            Public ReadOnly Property Row As StatusesRow
                Get
                    Return Me.eventRow
                End Get
            End Property
            
            Public ReadOnly Property Action As DataRowAction
                Get
                    Return Me.eventAction
                End Get
            End Property
        End Class
        
        <System.Diagnostics.DebuggerStepThrough()>  _
        Public Class UsersDataTable
            Inherits DataTable
            Implements System.Collections.IEnumerable
            
            Private columnUserID As DataColumn
            
            Private columnUserName As DataColumn
            
            Private columnUserFullName As DataColumn
            
            Private columnUserEmail As DataColumn
            
            Private columnIsAdministrator As DataColumn
            
            Private columnIsAccountLocked As DataColumn
            
            Friend Sub New()
                MyBase.New("Users")
                Me.InitClass
            End Sub
            
            Friend Sub New(ByVal table As DataTable)
                MyBase.New(table.TableName)
                If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
                    Me.CaseSensitive = table.CaseSensitive
                End If
                If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
                    Me.Locale = table.Locale
                End If
                If (table.Namespace <> table.DataSet.Namespace) Then
                    Me.Namespace = table.Namespace
                End If
                Me.Prefix = table.Prefix
                Me.MinimumCapacity = table.MinimumCapacity
                Me.DisplayExpression = table.DisplayExpression
            End Sub
            
            <System.ComponentModel.Browsable(false)>  _
            Public ReadOnly Property Count As Integer
                Get
                    Return Me.Rows.Count
                End Get
            End Property
            
            Friend ReadOnly Property UserIDColumn As DataColumn
                Get
                    Return Me.columnUserID
                End Get
            End Property
            
            Friend ReadOnly Property UserNameColumn As DataColumn
                Get
                    Return Me.columnUserName
                End Get
            End Property
            
            Friend ReadOnly Property UserFullNameColumn As DataColumn
                Get
                    Return Me.columnUserFullName
                End Get
            End Property
            
            Friend ReadOnly Property UserEmailColumn As DataColumn
                Get
                    Return Me.columnUserEmail
                End Get
            End Property
            
            Friend ReadOnly Property IsAdministratorColumn As DataColumn