dataset1.vb

一个医院管理系统

            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
        
        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 Expr1Column As DataColumn
            Get
                Return Me.columnExpr1
            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 String, ByVal 药品编号 As String, ByVal 名称 As String, ByVal 药品数量 As Decimal, ByVal 备注 As String, ByVal Expr1 As String) As 药品库存Row
            Dim row药品库存Row As 药品库存Row = CType(Me.NewRow,药品库存Row)
            row药品库存Row.ItemArray = New Object() {Nothing, 库房, 药品编号, 名称, 药品数量, 备注, Expr1}
            Me.Rows.Add(row药品库存Row)
            Return row药品库存Row
        End Function
        
        Public Function FindBy编号Expr1(ByVal 编号 As Integer, ByVal Expr1 As String) As 药品库存Row
            Return CType(Me.Rows.Find(New Object() {编号, Expr1}),药品库存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.columnExpr1 = Me.Columns("Expr1")
        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.Decimal), 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.columnExpr1 = New DataColumn("Expr1", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnExpr1)
            Me.Constraints.Add(New UniqueConstraint("Constraint1", New DataColumn() {Me.column编号, Me.columnExpr1}, true))
            Me.column编号.AutoIncrement = true
            Me.column编号.AllowDBNull = false
            Me.column编号.ReadOnly = true
            Me.column药品编号.AllowDBNull = false
            Me.columnExpr1.AllowDBNull = false
        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
                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 Decimal
            Get
                Try 
                    Return CType(Me(Me.table药品库存.药品数量Column),Decimal)
                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 Expr1 As String
            Get
                Return CType(Me(Me.table药品库存.Expr1Column),String)
            End Get
            Set
                Me(Me.table药品库存.Expr1Column) = 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
    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