dataset1.vb

一个医院管理系统

                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 Integer
            Get
                Try 
                    Return CType(Me(Me.table药品资料.效期Column),Integer)
                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 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
        
        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
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class 门诊收费项目DataTable
        Inherits DataTable
        Implements System.Collections.IEnumerable
        
        Private column编号 As DataColumn
        
        Private column名称 As DataColumn
        
        Private column拼音码 As DataColumn
        
        Private column费用 As DataColumn
        
        Private column费用分类 As DataColumn
        
        Private column病种分类 As DataColumn
        
        Private column备注 As DataColumn
        
        Friend Sub New()
            MyBase.New("门诊收费项目")
            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 编号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 病种分类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 Decimal, ByVal 费用分类 As String, ByVal 病种分类 As String, ByVal 备注 As String) 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