dataset1.vb

用VB.net做的关于医院收费管理系统的东西

        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
        
        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 String, ByVal 散量单位 As String, ByVal 入库单价 As Decimal, ByVal 出库单价 As Decimal, ByVal 批发价 As Decimal, ByVal 整散比 As Decimal, ByVal 分类 As String, ByVal 费用归类 As String, ByVal 拼音码 As String, ByVal 效期 As Integer, ByVal 上限 As Decimal, ByVal 下限 As Decimal) As 药品资料Row
            Dim row药品资料Row As 药品资料Row = CType(Me.NewRow,药品资料Row)
            row药品资料Row.ItemArray = New Object() {编号, 名称, 规格, 整量单位, 散量单位, 入库单价, 出库单价, 批发价, 整散比, 分类, 费用归类, 拼音码, 效期, 上限, 下限}
            Me.Rows.Add(row药品资料Row)
            Return row药品资料Row
        End Function
        
        Public Function FindBy编号(ByVal 编号 As String) As 药品资料Row
            Return CType(Me.Rows.Find(New Object() {编号}),药品资料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.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("上限")
            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.Decimal), 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.Decimal), 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.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.Int32), 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.Decimal), 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 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 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 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 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 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 费用归类 As String
            Get
                Try 
                    Return CType(Me(Me.table药品资料.费用归类Column),String)