reference.vb

一个管理系统

                Return Me.IsNull(Me.tableProjectHistory.ModifiedByColumn)
            End Function
            
            Public Sub SetModifiedByNull()
                Me(Me.tableProjectHistory.ModifiedByColumn) = System.Convert.DBNull
            End Sub
            
            Public Function IsAssignedToNull() As Boolean
                Return Me.IsNull(Me.tableProjectHistory.AssignedToColumn)
            End Function
            
            Public Sub SetAssignedToNull()
                Me(Me.tableProjectHistory.AssignedToColumn) = System.Convert.DBNull
            End Sub
            
            Public Function IsTaskSummaryNull() As Boolean
                Return Me.IsNull(Me.tableProjectHistory.TaskSummaryColumn)
            End Function
            
            Public Sub SetTaskSummaryNull()
                Me(Me.tableProjectHistory.TaskSummaryColumn) = System.Convert.DBNull
            End Sub
            
            Public Function IsTaskDescriptionNull() As Boolean
                Return Me.IsNull(Me.tableProjectHistory.TaskDescriptionColumn)
            End Function
            
            Public Sub SetTaskDescriptionNull()
                Me(Me.tableProjectHistory.TaskDescriptionColumn) = System.Convert.DBNull
            End Sub
            
            Public Function IsPriorityIDNull() As Boolean
                Return Me.IsNull(Me.tableProjectHistory.PriorityIDColumn)
            End Function
            
            Public Sub SetPriorityIDNull()
                Me(Me.tableProjectHistory.PriorityIDColumn) = System.Convert.DBNull
            End Sub
            
            Public Function IsStatusIDNull() As Boolean
                Return Me.IsNull(Me.tableProjectHistory.StatusIDColumn)
            End Function
            
            Public Sub SetStatusIDNull()
                Me(Me.tableProjectHistory.StatusIDColumn) = System.Convert.DBNull
            End Sub
            
            Public Function IsProgressNull() As Boolean
                Return Me.IsNull(Me.tableProjectHistory.ProgressColumn)
            End Function
            
            Public Sub SetProgressNull()
                Me(Me.tableProjectHistory.ProgressColumn) = System.Convert.DBNull
            End Sub
            
            Public Function IsIsDeletedNull() As Boolean
                Return Me.IsNull(Me.tableProjectHistory.IsDeletedColumn)
            End Function
            
            Public Sub SetIsDeletedNull()
                Me(Me.tableProjectHistory.IsDeletedColumn) = System.Convert.DBNull
            End Sub
            
            Public Function IsDateDueNull() As Boolean
                Return Me.IsNull(Me.tableProjectHistory.DateDueColumn)
            End Function
            
            Public Sub SetDateDueNull()
                Me(Me.tableProjectHistory.DateDueColumn) = System.Convert.DBNull
            End Sub
            
            Public Function IsDateModifiedNull() As Boolean
                Return Me.IsNull(Me.tableProjectHistory.DateModifiedColumn)
            End Function
            
            Public Sub SetDateModifiedNull()
                Me(Me.tableProjectHistory.DateModifiedColumn) = System.Convert.DBNull
            End Sub
            
            Public Function IsDateCreatedNull() As Boolean
                Return Me.IsNull(Me.tableProjectHistory.DateCreatedColumn)
            End Function
            
            Public Sub SetDateCreatedNull()
                Me(Me.tableProjectHistory.DateCreatedColumn) = System.Convert.DBNull
            End Sub
        End Class
        
        <System.Diagnostics.DebuggerStepThrough()>  _
        Public Class ProjectHistoryRowChangeEvent
            Inherits EventArgs
            
            Private eventRow As ProjectHistoryRow
            
            Private eventAction As DataRowAction
            
            Public Sub New(ByVal row As ProjectHistoryRow, ByVal action As DataRowAction)
                MyBase.New
                Me.eventRow = row
                Me.eventAction = action
            End Sub
            
            Public ReadOnly Property Row As ProjectHistoryRow
                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
    
    <Serializable(),  _
     System.ComponentModel.DesignerCategoryAttribute("code"),  _
     System.Diagnostics.DebuggerStepThrough(),  _
     System.ComponentModel.ToolboxItem(true)>  _
    Public Class DataSetLookupTables
        Inherits DataSet
        
        Private tableStatuses As StatusesDataTable
        
        Private tableUsers As UsersDataTable
        
        Private tablePriorities As PrioritiesDataTable
        
        Public Sub New()
            MyBase.New
            Me.InitClass
            Dim schemaChangedHandler As System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
            AddHandler Me.Tables.CollectionChanged, schemaChangedHandler
            AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
        End Sub
        
        Protected Sub New(ByVal info As SerializationInfo, ByVal context As StreamingContext)
            MyBase.New
            Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(System.String)),String)
            If (Not (strSchema) Is Nothing) Then
                Dim ds As DataSet = New DataSet
                ds.ReadXmlSchema(New XmlTextReader(New System.IO.StringReader(strSchema)))
                If (Not (ds.Tables("Statuses")) Is Nothing) Then
                    Me.Tables.Add(New StatusesDataTable(ds.Tables("Statuses")))
                End If
                If (Not (ds.Tables("Users")) Is Nothing) Then
                    Me.Tables.Add(New UsersDataTable(ds.Tables("Users")))
                End If
                If (Not (ds.Tables("Priorities")) Is Nothing) Then
                    Me.Tables.Add(New PrioritiesDataTable(ds.Tables("Priorities")))
                End If
                Me.DataSetName = ds.DataSetName
                Me.Prefix = ds.Prefix
                Me.Namespace = ds.Namespace
                Me.Locale = ds.Locale
                Me.CaseSensitive = ds.CaseSensitive
                Me.EnforceConstraints = ds.EnforceConstraints
                Me.Merge(ds, false, System.Data.MissingSchemaAction.Add)
                Me.InitVars
            Else
                Me.InitClass
            End If
            Me.GetSerializationData(info, context)
            Dim schemaChangedHandler As System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
            AddHandler Me.Tables.CollectionChanged, schemaChangedHandler
            AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
        End Sub
        
        <System.ComponentModel.Browsable(false),  _
         System.ComponentModel.DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Content)>  _
        Public ReadOnly Property Statuses As StatusesDataTable
            Get
                Return Me.tableStatuses
            End Get
        End Property
        
        <System.ComponentModel.Browsable(false),  _
         System.ComponentModel.DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Content)>  _
        Public ReadOnly Property Users As UsersDataTable
            Get
                Return Me.tableUsers
            End Get
        End Property
        
        <System.ComponentModel.Browsable(false),  _
         System.ComponentModel.DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Content)>  _
        Public ReadOnly Property Priorities As PrioritiesDataTable
            Get
                Return Me.tablePriorities
            End Get
        End Property
        
        Public Overrides Function Clone() As DataSet
            Dim cln As DataSetLookupTables = CType(MyBase.Clone,DataSetLookupTables)
            cln.InitVars
            Return cln
        End Function
        
        Protected Overrides Function ShouldSerializeTables() As Boolean
            Return false
        End Function
        
        Protected Overrides Function ShouldSerializeRelations() As Boolean
            Return false
        End Function
        
        Protected Overrides Sub ReadXmlSerializable(ByVal reader As XmlReader)
            Me.Reset
            Dim ds As DataSet = New DataSet
            ds.ReadXml(reader)
            If (Not (ds.Tables("Statuses")) Is Nothing) Then
                Me.Tables.Add(New StatusesDataTable(ds.Tables("Statuses")))
            End If
            If (Not (ds.Tables("Users")) Is Nothing) Then
                Me.Tables.Add(New UsersDataTable(ds.Tables("Users")))
            End If
            If (Not (ds.Tables("Priorities")) Is Nothing) Then
                Me.Tables.Add(New PrioritiesDataTable(ds.Tables("Priorities")))
            End If
            Me.DataSetName = ds.DataSetName
            Me.Prefix = ds.Prefix
            Me.Namespace = ds.Namespace
            Me.Locale = ds.Locale
            Me.CaseSensitive = ds.CaseSensitive
            Me.EnforceConstraints = ds.EnforceConstraints
            Me.Merge(ds, false, System.Data.MissingSchemaAction.Add)
            Me.InitVars
        End Sub
        
        Protected Overrides Function GetSchemaSerializable() As System.Xml.Schema.XmlSchema
            Dim stream As System.IO.MemoryStream = New System.IO.MemoryStream
            Me.WriteXmlSchema(New XmlTextWriter(stream, Nothing))
            stream.Position = 0
            Return System.Xml.Schema.XmlSchema.Read(New XmlTextReader(stream), Nothing)
        End Function
        
        Friend Sub InitVars()
            Me.tableStatuses = CType(Me.Tables("Statuses"),StatusesDataTable)
            If (Not (Me.tableStatuses) Is Nothing) Then
                Me.tableStatuses.InitVars
            End If
            Me.tableUsers = CType(Me.Tables("Users"),UsersDataTable)
            If (Not (Me.tableUsers) Is Nothing) Then
                Me.tableUsers.InitVars
            End If
            Me.tablePriorities = CType(Me.Tables("Priorities"),PrioritiesDataTable)
            If (Not (Me.tablePriorities) Is Nothing) Then
                Me.tablePriorities.InitVars
            End If
        End Sub
        
        Private Sub InitClass()
            Me.DataSetName = "DataSetLookupTables"
            Me.Prefix = ""
            Me.Namespace = "http://tempuri.org/DataSetLookupTables.xsd"
            Me.Locale = New System.Globalization.CultureInfo("en-US")
            Me.CaseSensitive = false
            Me.EnforceConstraints = true
            Me.tableStatuses = New StatusesDataTable
            Me.Tables.Add(Me.tableStatuses)
            Me.tableUsers = New UsersDataTable
            Me.Tables.Add(Me.tableUsers)
            Me.tablePriorities = New PrioritiesDataTable
            Me.Tables.Add(Me.tablePriorities)
        End Sub
        
        Private Function ShouldSerializeStatuses() As Boolean
            Return false
        End Function
        
        Private Function ShouldSerializeUsers() As Boolean
            Return false
        End Function
        
        Private Function ShouldSerializePriorities() As Boolean
            Return false
        End Function
        
        Private Sub SchemaChanged(ByVal sender As Object, ByVal e As System.ComponentModel.CollectionChangeEventArgs)
            If (e.Action = System.ComponentModel.CollectionChangeAction.Remove) Then
                Me.InitVars
            End If
        End Sub
        
        Public Delegate Sub StatusesRowChangeEventHandler(ByVal sender As Object, ByVal e As StatusesRowChangeEvent)