ds11.vb

高校科研管理系统

            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.Boolean), 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.Boolean), 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.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
                Return CType(Me(Me.table项目表.项目编号Column),String)
            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 Boolean
            Get
                Try 
                    Return CType(Me(Me.table项目表.是否审批Column),Boolean)
                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 Boolean
            Get
                Try 
                    Return CType(Me(Me.table项目表.是否到款Column),Boolean)
                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 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