医药行业

开发平台：

Visual Basic

dsPort.vb：源码内容

'------------------------------------------------------------------------------
' <autogenerated>
' This code was generated by a tool.
' Runtime Version: 1.1.4322.573
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </autogenerated>
'------------------------------------------------------------------------------
Option Strict Off
Option Explicit On
Imports System
Imports System.Data
Imports System.Runtime.Serialization
Imports System.Xml
<Serializable(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Diagnostics.DebuggerStepThrough(), _
System.ComponentModel.ToolboxItem(true)> _
Public Class dsPort
Inherits DataSet
Private tablewz_cp As wz_cpDataTable
Private tablewz_ck As wz_ckDataTable
Private tablewz_kc As wz_kcDataTable
Private tablewz_kh As wz_khDataTable
Private tablewz_pd As wz_pdDataTable
Private tablewz_rk As wz_rkDataTable
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("wz_cp")) Is Nothing) Then
Me.Tables.Add(New wz_cpDataTable(ds.Tables("wz_cp")))
End If
If (Not (ds.Tables("wz_ck")) Is Nothing) Then
Me.Tables.Add(New wz_ckDataTable(ds.Tables("wz_ck")))
End If
If (Not (ds.Tables("wz_kc")) Is Nothing) Then
Me.Tables.Add(New wz_kcDataTable(ds.Tables("wz_kc")))
End If
If (Not (ds.Tables("wz_kh")) Is Nothing) Then
Me.Tables.Add(New wz_khDataTable(ds.Tables("wz_kh")))
End If
If (Not (ds.Tables("wz_pd")) Is Nothing) Then
Me.Tables.Add(New wz_pdDataTable(ds.Tables("wz_pd")))
End If
If (Not (ds.Tables("wz_rk")) Is Nothing) Then
Me.Tables.Add(New wz_rkDataTable(ds.Tables("wz_rk")))
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 wz_cp As wz_cpDataTable
Get
Return Me.tablewz_cp
End Get
End Property
<System.ComponentModel.Browsable(false), _
System.ComponentModel.DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property wz_ck As wz_ckDataTable
Get
Return Me.tablewz_ck
End Get
End Property
<System.ComponentModel.Browsable(false), _
System.ComponentModel.DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property wz_kc As wz_kcDataTable
Get
Return Me.tablewz_kc
End Get
End Property
<System.ComponentModel.Browsable(false), _
System.ComponentModel.DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property wz_kh As wz_khDataTable
Get
Return Me.tablewz_kh
End Get
End Property
<System.ComponentModel.Browsable(false), _
System.ComponentModel.DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property wz_pd As wz_pdDataTable
Get
Return Me.tablewz_pd
End Get
End Property
<System.ComponentModel.Browsable(false), _
System.ComponentModel.DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property wz_rk As wz_rkDataTable
Get
Return Me.tablewz_rk
End Get
End Property
Public Overrides Function Clone() As DataSet
Dim cln As dsPort = CType(MyBase.Clone,dsPort)
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("wz_cp")) Is Nothing) Then
Me.Tables.Add(New wz_cpDataTable(ds.Tables("wz_cp")))
End If
If (Not (ds.Tables("wz_ck")) Is Nothing) Then
Me.Tables.Add(New wz_ckDataTable(ds.Tables("wz_ck")))
End If
If (Not (ds.Tables("wz_kc")) Is Nothing) Then
Me.Tables.Add(New wz_kcDataTable(ds.Tables("wz_kc")))
End If
If (Not (ds.Tables("wz_kh")) Is Nothing) Then
Me.Tables.Add(New wz_khDataTable(ds.Tables("wz_kh")))
End If
If (Not (ds.Tables("wz_pd")) Is Nothing) Then
Me.Tables.Add(New wz_pdDataTable(ds.Tables("wz_pd")))
End If
If (Not (ds.Tables("wz_rk")) Is Nothing) Then
Me.Tables.Add(New wz_rkDataTable(ds.Tables("wz_rk")))
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.tablewz_cp = CType(Me.Tables("wz_cp"),wz_cpDataTable)
If (Not (Me.tablewz_cp) Is Nothing) Then
Me.tablewz_cp.InitVars
End If
Me.tablewz_ck = CType(Me.Tables("wz_ck"),wz_ckDataTable)
If (Not (Me.tablewz_ck) Is Nothing) Then
Me.tablewz_ck.InitVars
End If
Me.tablewz_kc = CType(Me.Tables("wz_kc"),wz_kcDataTable)
If (Not (Me.tablewz_kc) Is Nothing) Then
Me.tablewz_kc.InitVars
End If
Me.tablewz_kh = CType(Me.Tables("wz_kh"),wz_khDataTable)
If (Not (Me.tablewz_kh) Is Nothing) Then
Me.tablewz_kh.InitVars
End If
Me.tablewz_pd = CType(Me.Tables("wz_pd"),wz_pdDataTable)
If (Not (Me.tablewz_pd) Is Nothing) Then
Me.tablewz_pd.InitVars
End If
Me.tablewz_rk = CType(Me.Tables("wz_rk"),wz_rkDataTable)
If (Not (Me.tablewz_rk) Is Nothing) Then
Me.tablewz_rk.InitVars
End If
End Sub
Private Sub InitClass()
Me.DataSetName = "dsPort"
Me.Prefix = ""
Me.Namespace = "http://tempuri.org/dsPort.xsd"
Me.Locale = New System.Globalization.CultureInfo("en-US")
Me.CaseSensitive = false
Me.EnforceConstraints = true
Me.tablewz_cp = New wz_cpDataTable
Me.Tables.Add(Me.tablewz_cp)
Me.tablewz_ck = New wz_ckDataTable
Me.Tables.Add(Me.tablewz_ck)
Me.tablewz_kc = New wz_kcDataTable
Me.Tables.Add(Me.tablewz_kc)
Me.tablewz_kh = New wz_khDataTable
Me.Tables.Add(Me.tablewz_kh)
Me.tablewz_pd = New wz_pdDataTable
Me.Tables.Add(Me.tablewz_pd)
Me.tablewz_rk = New wz_rkDataTable
Me.Tables.Add(Me.tablewz_rk)
End Sub
Private Function ShouldSerializewz_cp() As Boolean
Return false
End Function
Private Function ShouldSerializewz_ck() As Boolean
Return false
End Function
Private Function ShouldSerializewz_kc() As Boolean
Return false
End Function
Private Function ShouldSerializewz_kh() As Boolean
Return false
End Function
Private Function ShouldSerializewz_pd() As Boolean
Return false
End Function
Private Function ShouldSerializewz_rk() 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 wz_cpRowChangeEventHandler(ByVal sender As Object, ByVal e As wz_cpRowChangeEvent)
Public Delegate Sub wz_ckRowChangeEventHandler(ByVal sender As Object, ByVal e As wz_ckRowChangeEvent)
Public Delegate Sub wz_kcRowChangeEventHandler(ByVal sender As Object, ByVal e As wz_kcRowChangeEvent)
Public Delegate Sub wz_khRowChangeEventHandler(ByVal sender As Object, ByVal e As wz_khRowChangeEvent)
Public Delegate Sub wz_pdRowChangeEventHandler(ByVal sender As Object, ByVal e As wz_pdRowChangeEvent)
Public Delegate Sub wz_rkRowChangeEventHandler(ByVal sender As Object, ByVal e As wz_rkRowChangeEvent)
<System.Diagnostics.DebuggerStepThrough()> _
Public Class wz_cpDataTable
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
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
Private column有效期 As DataColumn
Private column批发价 As DataColumn
Private column零售价 As DataColumn
Friend Sub New()
MyBase.New("wz_cp")
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
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
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 wz_cpRow
Get
Return CType(Me.Rows(index),wz_cpRow)
End Get
End Property
Public Event wz_cpRowChanged As wz_cpRowChangeEventHandler
Public Event wz_cpRowChanging As wz_cpRowChangeEventHandler
Public Event wz_cpRowDeleted As wz_cpRowChangeEventHandler
Public Event wz_cpRowDeleting As wz_cpRowChangeEventHandler
Public Overloads Sub Addwz_cpRow(ByVal row As wz_cpRow)
Me.Rows.Add(row)
End Sub
Public Overloads Function Addwz_cpRow( _
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 Decimal, _
ByVal 产地 As String, _
ByVal 生产厂家 As String, _
ByVal 拼音码 As String, _
ByVal 登记日期 As String, _
ByVal 有效期 As String, _
ByVal 批发价 As Decimal, _
ByVal 零售价 As Decimal) As wz_cpRow
Dim rowwz_cpRow As wz_cpRow = CType(Me.NewRow,wz_cpRow)
rowwz_cpRow.ItemArray = New Object() {药品编号, 药品名称, 药品规格, 药品类型, 单位, 单价, 售价, 数量, 金额, 扣率, 产地, 生产厂家, 拼音码, 登记日期, 有效期, 批发价, 零售价}
Me.Rows.Add(rowwz_cpRow)
Return rowwz_cpRow
End Function
Public Function FindBy药品编号(ByVal 药品编号 As String) As wz_cpRow
Return CType(Me.Rows.Find(New Object() {药品编号}),wz_cpRow)
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 wz_cpDataTable = CType(MyBase.Clone,wz_cpDataTable)
cln.InitVars
Return cln
End Function
Protected Overrides Function CreateInstance() As DataTable
Return New wz_cpDataTable
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("有效期")
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.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.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.Constraints.Add(New UniqueConstraint("dsPortKey1", New DataColumn() {Me.column药品编号}, true))
Me.column药品编号.AllowDBNull = false
Me.column药品编号.Unique = true
Me.column药品名称.AllowDBNull = false
Me.column药品规格.AllowDBNull = false
Me.column单位.AllowDBNull = false
Me.column单价.AllowDBNull = false
Me.column售价.AllowDBNull = false
Me.column扣率.AllowDBNull = false
Me.column产地.AllowDBNull = false
End Sub
Public Function Newwz_cpRow() As wz_cpRow
Return CType(Me.NewRow,wz_cpRow)
End Function
Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
Return New wz_cpRow(builder)
End Function
Protected Overrides Function GetRowType() As System.Type
Return GetType(wz_cpRow)
End Function
Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.wz_cpRowChangedEvent) Is Nothing) Then
RaiseEvent wz_cpRowChanged(Me, New wz_cpRowChangeEvent(CType(e.Row,wz_cpRow), e.Action))
End If
End Sub
Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.wz_cpRowChangingEvent) Is Nothing) Then
RaiseEvent wz_cpRowChanging(Me, New wz_cpRowChangeEvent(CType(e.Row,wz_cpRow), e.Action))
End If
End Sub
Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.wz_cpRowDeletedEvent) Is Nothing) Then
RaiseEvent wz_cpRowDeleted(Me, New wz_cpRowChangeEvent(CType(e.Row,wz_cpRow), e.Action))
End If
End Sub
Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.wz_cpRowDeletingEvent) Is Nothing) Then
RaiseEvent wz_cpRowDeleting(Me, New wz_cpRowChangeEvent(CType(e.Row,wz_cpRow), e.Action))
End If
End Sub
Public Sub Removewz_cpRow(ByVal row As wz_cpRow)
Me.Rows.Remove(row)
End Sub
End Class
<System.Diagnostics.DebuggerStepThrough()> _
Public Class wz_cpRow
Inherits DataRow
Private tablewz_cp As wz_cpDataTable
Friend Sub New(ByVal rb As DataRowBuilder)
MyBase.New(rb)
Me.tablewz_cp = CType(Me.Table,wz_cpDataTable)
End Sub
Public Property 药品编号 As String
Get
Return CType(Me(Me.tablewz_cp.药品编号Column),String)
End Get
Set
Me(Me.tablewz_cp.药品编号Column) = value
End Set
End Property
Public Property 药品名称 As String
Get
Return CType(Me(Me.tablewz_cp.药品名称Column),String)
End Get
Set
Me(Me.tablewz_cp.药品名称Column) = value
End Set
End Property
Public Property 药品规格 As String
Get
Return CType(Me(Me.tablewz_cp.药品规格Column),String)
End Get
Set
Me(Me.tablewz_cp.药品规格Column) = value
End Set
End Property
Public Property 药品类型 As String
Get
Try
Return CType(Me(Me.tablewz_cp.药品类型Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_cp.药品类型Column) = value
End Set
End Property
Public Property 单位 As String
Get
Return CType(Me(Me.tablewz_cp.单位Column),String)
End Get
Set
Me(Me.tablewz_cp.单位Column) = value
End Set
End Property
Public Property 单价 As Decimal
Get
Return CType(Me(Me.tablewz_cp.单价Column),Decimal)
End Get
Set
Me(Me.tablewz_cp.单价Column) = value
End Set
End Property
Public Property 售价 As Decimal
Get
Return CType(Me(Me.tablewz_cp.售价Column),Decimal)
End Get
Set
Me(Me.tablewz_cp.售价Column) = value
End Set
End Property
Public Property 数量 As Decimal
Get
Try
Return CType(Me(Me.tablewz_cp.数量Column),Decimal)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_cp.数量Column) = value
End Set
End Property
Public Property 金额 As Decimal
Get
Try
Return CType(Me(Me.tablewz_cp.金额Column),Decimal)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_cp.金额Column) = value
End Set
End Property
Public Property 扣率 As Decimal
Get
Return CType(Me(Me.tablewz_cp.扣率Column),Decimal)
End Get
Set
Me(Me.tablewz_cp.扣率Column) = value
End Set
End Property
Public Property 产地 As String
Get
Return CType(Me(Me.tablewz_cp.产地Column),String)
End Get
Set
Me(Me.tablewz_cp.产地Column) = value
End Set
End Property
Public Property 生产厂家 As String
Get
Try
Return CType(Me(Me.tablewz_cp.生产厂家Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_cp.生产厂家Column) = value
End Set
End Property
Public Property 拼音码 As String
Get
Try
Return CType(Me(Me.tablewz_cp.拼音码Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_cp.拼音码Column) = value
End Set
End Property
Public Property 登记日期 As String
Get
Try
Return CType(Me(Me.tablewz_cp.登记日期Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_cp.登记日期Column) = value
End Set
End Property
Public Property 有效期 As String
Get
Try
Return CType(Me(Me.tablewz_cp.有效期Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_cp.有效期Column) = value
End Set
End Property
Public Property 批发价 As Decimal
Get
Try
Return CType(Me(Me.tablewz_cp.批发价Column),Decimal)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_cp.批发价Column) = value
End Set
End Property
Public Property 零售价 As Decimal
Get
Try
Return CType(Me(Me.tablewz_cp.零售价Column),Decimal)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_cp.零售价Column) = value
End Set
End Property
Public Function Is药品类型Null() As Boolean
Return Me.IsNull(Me.tablewz_cp.药品类型Column)
End Function
Public Sub Set药品类型Null()
Me(Me.tablewz_cp.药品类型Column) = System.Convert.DBNull
End Sub
Public Function Is数量Null() As Boolean
Return Me.IsNull(Me.tablewz_cp.数量Column)
End Function
Public Sub Set数量Null()
Me(Me.tablewz_cp.数量Column) = System.Convert.DBNull
End Sub
Public Function Is金额Null() As Boolean
Return Me.IsNull(Me.tablewz_cp.金额Column)
End Function
Public Sub Set金额Null()
Me(Me.tablewz_cp.金额Column) = System.Convert.DBNull
End Sub
Public Function Is生产厂家Null() As Boolean
Return Me.IsNull(Me.tablewz_cp.生产厂家Column)
End Function
Public Sub Set生产厂家Null()
Me(Me.tablewz_cp.生产厂家Column) = System.Convert.DBNull
End Sub
Public Function Is拼音码Null() As Boolean
Return Me.IsNull(Me.tablewz_cp.拼音码Column)
End Function
Public Sub Set拼音码Null()
Me(Me.tablewz_cp.拼音码Column) = System.Convert.DBNull
End Sub
Public Function Is登记日期Null() As Boolean
Return Me.IsNull(Me.tablewz_cp.登记日期Column)
End Function
Public Sub Set登记日期Null()
Me(Me.tablewz_cp.登记日期Column) = System.Convert.DBNull
End Sub
Public Function Is有效期Null() As Boolean
Return Me.IsNull(Me.tablewz_cp.有效期Column)
End Function
Public Sub Set有效期Null()
Me(Me.tablewz_cp.有效期Column) = System.Convert.DBNull
End Sub
Public Function Is批发价Null() As Boolean
Return Me.IsNull(Me.tablewz_cp.批发价Column)
End Function
Public Sub Set批发价Null()
Me(Me.tablewz_cp.批发价Column) = System.Convert.DBNull
End Sub
Public Function Is零售价Null() As Boolean
Return Me.IsNull(Me.tablewz_cp.零售价Column)
End Function
Public Sub Set零售价Null()
Me(Me.tablewz_cp.零售价Column) = System.Convert.DBNull
End Sub
End Class
<System.Diagnostics.DebuggerStepThrough()> _
Public Class wz_cpRowChangeEvent
Inherits EventArgs
Private eventRow As wz_cpRow
Private eventAction As DataRowAction
Public Sub New(ByVal row As wz_cpRow, ByVal action As DataRowAction)
MyBase.New
Me.eventRow = row
Me.eventAction = action
End Sub
Public ReadOnly Property Row As wz_cpRow
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 wz_ckDataTable
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
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
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
Private column票号 As DataColumn
Private column结算 As DataColumn
Private column销售员 As DataColumn
Private column库存ID As DataColumn
Friend Sub New()
MyBase.New("wz_ck")
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
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
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
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 库存IDColumn As DataColumn
Get
Return Me.column库存ID
End Get
End Property
Public Default ReadOnly Property Item(ByVal index As Integer) As wz_ckRow
Get
Return CType(Me.Rows(index),wz_ckRow)
End Get
End Property
Public Event wz_ckRowChanged As wz_ckRowChangeEventHandler
Public Event wz_ckRowChanging As wz_ckRowChangeEventHandler
Public Event wz_ckRowDeleted As wz_ckRowChangeEventHandler
Public Event wz_ckRowDeleting As wz_ckRowChangeEventHandler
Public Overloads Sub Addwz_ckRow(ByVal row As wz_ckRow)
Me.Rows.Add(row)
End Sub
Public Overloads Function Addwz_ckRow( _
ByVal 日期 As String, _
ByVal 客户编号 As String, _
ByVal 客户名称 As String, _
ByVal 序号 As Integer, _
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 String, _
ByVal 批发价 As Decimal, _
ByVal 零售价 As Decimal, _
ByVal 建议价 As Decimal, _
ByVal 最低价 As Decimal, _
ByVal 货位 As String, _
ByVal 票号 As String, _
ByVal 结算 As String, _
ByVal 销售员 As String, _
ByVal 库存ID As Decimal) As wz_ckRow
Dim rowwz_ckRow As wz_ckRow = CType(Me.NewRow,wz_ckRow)
rowwz_ckRow.ItemArray = New Object() {日期, 客户编号, 客户名称, 序号, 药品编号, 药品名称, 药品规格, 单位, 数量, 单价, 金额, 毛利, 包装, 产地, 批号, 有效期, 批发价, 零售价, 建议价, 最低价, 货位, 票号, 结算, 销售员, 库存ID}
Me.Rows.Add(rowwz_ckRow)
Return rowwz_ckRow
End Function
Public Function FindBy序号药品编号票号(ByVal 序号 As Integer, ByVal 药品编号 As String, ByVal 票号 As String) As wz_ckRow
Return CType(Me.Rows.Find(New Object() {序号, 药品编号, 票号}),wz_ckRow)
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 wz_ckDataTable = CType(MyBase.Clone,wz_ckDataTable)
cln.InitVars
Return cln
End Function
Protected Overrides Function CreateInstance() As DataTable
Return New wz_ckDataTable
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("批号")
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库存ID = Me.Columns("库存ID")
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.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.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.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.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.column销售员)
Me.column库存ID = New DataColumn("库存ID", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.column库存ID)
Me.Constraints.Add(New UniqueConstraint("dsPortKey2", New DataColumn() {Me.column序号, Me.column药品编号, Me.column票号}, true))
Me.column序号.AllowDBNull = false
Me.column药品编号.AllowDBNull = false
Me.column票号.AllowDBNull = false
End Sub
Public Function Newwz_ckRow() As wz_ckRow
Return CType(Me.NewRow,wz_ckRow)
End Function
Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
Return New wz_ckRow(builder)
End Function
Protected Overrides Function GetRowType() As System.Type
Return GetType(wz_ckRow)
End Function
Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.wz_ckRowChangedEvent) Is Nothing) Then
RaiseEvent wz_ckRowChanged(Me, New wz_ckRowChangeEvent(CType(e.Row,wz_ckRow), e.Action))
End If
End Sub
Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.wz_ckRowChangingEvent) Is Nothing) Then
RaiseEvent wz_ckRowChanging(Me, New wz_ckRowChangeEvent(CType(e.Row,wz_ckRow), e.Action))
End If
End Sub
Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.wz_ckRowDeletedEvent) Is Nothing) Then
RaiseEvent wz_ckRowDeleted(Me, New wz_ckRowChangeEvent(CType(e.Row,wz_ckRow), e.Action))
End If
End Sub
Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.wz_ckRowDeletingEvent) Is Nothing) Then
RaiseEvent wz_ckRowDeleting(Me, New wz_ckRowChangeEvent(CType(e.Row,wz_ckRow), e.Action))
End If
End Sub
Public Sub Removewz_ckRow(ByVal row As wz_ckRow)
Me.Rows.Remove(row)
End Sub
End Class
<System.Diagnostics.DebuggerStepThrough()> _
Public Class wz_ckRow
Inherits DataRow
Private tablewz_ck As wz_ckDataTable
Friend Sub New(ByVal rb As DataRowBuilder)
MyBase.New(rb)
Me.tablewz_ck = CType(Me.Table,wz_ckDataTable)
End Sub
Public Property 日期 As String
Get
Try
Return CType(Me(Me.tablewz_ck.日期Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_ck.日期Column) = value
End Set
End Property
Public Property 客户编号 As String
Get
Try
Return CType(Me(Me.tablewz_ck.客户编号Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_ck.客户编号Column) = value
End Set
End Property
Public Property 客户名称 As String
Get
Try
Return CType(Me(Me.tablewz_ck.客户名称Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_ck.客户名称Column) = value
End Set
End Property
Public Property 序号 As Integer
Get
Return CType(Me(Me.tablewz_ck.序号Column),Integer)
End Get
Set
Me(Me.tablewz_ck.序号Column) = value
End Set
End Property
Public Property 药品编号 As String
Get
Return CType(Me(Me.tablewz_ck.药品编号Column),String)
End Get
Set
Me(Me.tablewz_ck.药品编号Column) = value
End Set
End Property
Public Property 药品名称 As String
Get
Try
Return CType(Me(Me.tablewz_ck.药品名称Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_ck.药品名称Column) = value
End Set
End Property
Public Property 药品规格 As String
Get
Try
Return CType(Me(Me.tablewz_ck.药品规格Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_ck.药品规格Column) = value
End Set
End Property
Public Property 单位 As String
Get
Try
Return CType(Me(Me.tablewz_ck.单位Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_ck.单位Column) = value
End Set
End Property
Public Property 数量 As Decimal
Get
Try
Return CType(Me(Me.tablewz_ck.数量Column),Decimal)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_ck.数量Column) = value
End Set
End Property
Public Property 单价 As Decimal
Get
Try
Return CType(Me(Me.tablewz_ck.单价Column),Decimal)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_ck.单价Column) = value
End Set
End Property
Public Property 金额 As Decimal
Get
Try
Return CType(Me(Me.tablewz_ck.金额Column),Decimal)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_ck.金额Column) = value
End Set
End Property
Public Property 毛利 As Decimal
Get
Try
Return CType(Me(Me.tablewz_ck.毛利Column),Decimal)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_ck.毛利Column) = value
End Set
End Property
Public Property 包装 As String
Get
Try
Return CType(Me(Me.tablewz_ck.包装Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_ck.包装Column) = value
End Set
End Property
Public Property 产地 As String
Get
Try
Return CType(Me(Me.tablewz_ck.产地Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_ck.产地Column) = value
End Set
End Property
Public Property 批号 As String
Get
Try
Return CType(Me(Me.tablewz_ck.批号Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_ck.批号Column) = value
End Set
End Property
Public Property 有效期 As String
Get
Try
Return CType(Me(Me.tablewz_ck.有效期Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_ck.有效期Column) = value
End Set
End Property
Public Property 批发价 As Decimal
Get
Try
Return CType(Me(Me.tablewz_ck.批发价Column),Decimal)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_ck.批发价Column) = value
End Set
End Property
Public Property 零售价 As Decimal
Get
Try
Return CType(Me(Me.tablewz_ck.零售价Column),Decimal)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_ck.零售价Column) = value
End Set
End Property
Public Property 建议价 As Decimal
Get
Try
Return CType(Me(Me.tablewz_ck.建议价Column),Decimal)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_ck.建议价Column) = value
End Set
End Property
Public Property 最低价 As Decimal
Get
Try
Return CType(Me(Me.tablewz_ck.最低价Column),Decimal)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_ck.最低价Column) = value
End Set
End Property
Public Property 货位 As String
Get
Try
Return CType(Me(Me.tablewz_ck.货位Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_ck.货位Column) = value
End Set
End Property
Public Property 票号 As String
Get
Return CType(Me(Me.tablewz_ck.票号Column),String)
End Get
Set
Me(Me.tablewz_ck.票号Column) = value
End Set
End Property
Public Property 结算 As String
Get
Try
Return CType(Me(Me.tablewz_ck.结算Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_ck.结算Column) = value
End Set
End Property
Public Property 销售员 As String
Get
Try
Return CType(Me(Me.tablewz_ck.销售员Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_ck.销售员Column) = value
End Set
End Property
Public Property 库存ID As Decimal
Get
Try
Return CType(Me(Me.tablewz_ck.库存IDColumn),Decimal)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_ck.库存IDColumn) = value
End Set
End Property
Public Function Is日期Null() As Boolean
Return Me.IsNull(Me.tablewz_ck.日期Column)
End Function
Public Sub Set日期Null()
Me(Me.tablewz_ck.日期Column) = System.Convert.DBNull
End Sub
Public Function Is客户编号Null() As Boolean
Return Me.IsNull(Me.tablewz_ck.客户编号Column)
End Function
Public Sub Set客户编号Null()
Me(Me.tablewz_ck.客户编号Column) = System.Convert.DBNull
End Sub
Public Function Is客户名称Null() As Boolean
Return Me.IsNull(Me.tablewz_ck.客户名称Column)
End Function
Public Sub Set客户名称Null()
Me(Me.tablewz_ck.客户名称Column) = System.Convert.DBNull
End Sub
Public Function Is药品名称Null() As Boolean
Return Me.IsNull(Me.tablewz_ck.药品名称Column)
End Function
Public Sub Set药品名称Null()
Me(Me.tablewz_ck.药品名称Column) = System.Convert.DBNull
End Sub
Public Function Is药品规格Null() As Boolean
Return Me.IsNull(Me.tablewz_ck.药品规格Column)
End Function
Public Sub Set药品规格Null()
Me(Me.tablewz_ck.药品规格Column) = System.Convert.DBNull
End Sub
Public Function Is单位Null() As Boolean
Return Me.IsNull(Me.tablewz_ck.单位Column)
End Function
Public Sub Set单位Null()
Me(Me.tablewz_ck.单位Column) = System.Convert.DBNull
End Sub
Public Function Is数量Null() As Boolean
Return Me.IsNull(Me.tablewz_ck.数量Column)
End Function
Public Sub Set数量Null()
Me(Me.tablewz_ck.数量Column) = System.Convert.DBNull
End Sub
Public Function Is单价Null() As Boolean
Return Me.IsNull(Me.tablewz_ck.单价Column)
End Function
Public Sub Set单价Null()
Me(Me.tablewz_ck.单价Column) = System.Convert.DBNull
End Sub
Public Function Is金额Null() As Boolean
Return Me.IsNull(Me.tablewz_ck.金额Column)
End Function
Public Sub Set金额Null()
Me(Me.tablewz_ck.金额Column) = System.Convert.DBNull
End Sub
Public Function Is毛利Null() As Boolean
Return Me.IsNull(Me.tablewz_ck.毛利Column)
End Function
Public Sub Set毛利Null()
Me(Me.tablewz_ck.毛利Column) = System.Convert.DBNull
End Sub
Public Function Is包装Null() As Boolean
Return Me.IsNull(Me.tablewz_ck.包装Column)
End Function
Public Sub Set包装Null()
Me(Me.tablewz_ck.包装Column) = System.Convert.DBNull
End Sub
Public Function Is产地Null() As Boolean
Return Me.IsNull(Me.tablewz_ck.产地Column)
End Function
Public Sub Set产地Null()
Me(Me.tablewz_ck.产地Column) = System.Convert.DBNull
End Sub
Public Function Is批号Null() As Boolean
Return Me.IsNull(Me.tablewz_ck.批号Column)
End Function
Public Sub Set批号Null()
Me(Me.tablewz_ck.批号Column) = System.Convert.DBNull
End Sub
Public Function Is有效期Null() As Boolean
Return Me.IsNull(Me.tablewz_ck.有效期Column)
End Function
Public Sub Set有效期Null()
Me(Me.tablewz_ck.有效期Column) = System.Convert.DBNull
End Sub
Public Function Is批发价Null() As Boolean
Return Me.IsNull(Me.tablewz_ck.批发价Column)
End Function
Public Sub Set批发价Null()
Me(Me.tablewz_ck.批发价Column) = System.Convert.DBNull
End Sub
Public Function Is零售价Null() As Boolean
Return Me.IsNull(Me.tablewz_ck.零售价Column)
End Function
Public Sub Set零售价Null()
Me(Me.tablewz_ck.零售价Column) = System.Convert.DBNull
End Sub
Public Function Is建议价Null() As Boolean
Return Me.IsNull(Me.tablewz_ck.建议价Column)
End Function
Public Sub Set建议价Null()
Me(Me.tablewz_ck.建议价Column) = System.Convert.DBNull
End Sub
Public Function Is最低价Null() As Boolean
Return Me.IsNull(Me.tablewz_ck.最低价Column)
End Function
Public Sub Set最低价Null()
Me(Me.tablewz_ck.最低价Column) = System.Convert.DBNull
End Sub
Public Function Is货位Null() As Boolean
Return Me.IsNull(Me.tablewz_ck.货位Column)
End Function
Public Sub Set货位Null()
Me(Me.tablewz_ck.货位Column) = System.Convert.DBNull
End Sub
Public Function Is结算Null() As Boolean
Return Me.IsNull(Me.tablewz_ck.结算Column)
End Function
Public Sub Set结算Null()
Me(Me.tablewz_ck.结算Column) = System.Convert.DBNull
End Sub
Public Function Is销售员Null() As Boolean
Return Me.IsNull(Me.tablewz_ck.销售员Column)
End Function
Public Sub Set销售员Null()
Me(Me.tablewz_ck.销售员Column) = System.Convert.DBNull
End Sub
Public Function Is库存IDNull() As Boolean
Return Me.IsNull(Me.tablewz_ck.库存IDColumn)
End Function
Public Sub Set库存IDNull()
Me(Me.tablewz_ck.库存IDColumn) = System.Convert.DBNull
End Sub
End Class
<System.Diagnostics.DebuggerStepThrough()> _
Public Class wz_ckRowChangeEvent
Inherits EventArgs
Private eventRow As wz_ckRow
Private eventAction As DataRowAction
Public Sub New(ByVal row As wz_ckRow, ByVal action As DataRowAction)
MyBase.New
Me.eventRow = row
Me.eventAction = action
End Sub
Public ReadOnly Property Row As wz_ckRow
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 wz_kcDataTable
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
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
Private column客户名称 As DataColumn
Private column建议价 As DataColumn
Private column最低价 As DataColumn
Private column批发价 As DataColumn
Private column零售价 As DataColumn
Private column库存ID As DataColumn
Friend Sub New()
MyBase.New("wz_kc")
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
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
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 库存IDColumn As DataColumn
Get
Return Me.column库存ID
End Get
End Property
Public Default ReadOnly Property Item(ByVal index As Integer) As wz_kcRow
Get
Return CType(Me.Rows(index),wz_kcRow)
End Get
End Property
Public Event wz_kcRowChanged As wz_kcRowChangeEventHandler
Public Event wz_kcRowChanging As wz_kcRowChangeEventHandler
Public Event wz_kcRowDeleted As wz_kcRowChangeEventHandler
Public Event wz_kcRowDeleting As wz_kcRowChangeEventHandler
Public Overloads Sub Addwz_kcRow(ByVal row As wz_kcRow)
Me.Rows.Add(row)
End Sub
Public Overloads Function Addwz_kcRow( _
ByVal 序号 As String, _
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 Integer, _
ByVal 批号 As String, _
ByVal 产地 As String, _
ByVal 货位 As String, _
ByVal 客户名称 As String, _
ByVal 建议价 As Decimal, _
ByVal 最低价 As Decimal, _
ByVal 批发价 As Decimal, _
ByVal 零售价 As Decimal) As wz_kcRow
Dim rowwz_kcRow As wz_kcRow = CType(Me.NewRow,wz_kcRow)
rowwz_kcRow.ItemArray = New Object() {序号, 有效期, 药品编号, 药品名称, 药品规格, 单位, 数量, 总数量, 进价, 金额, 包装, 批号, 产地, 货位, 客户名称, 建议价, 最低价, 批发价, 零售价, Nothing}
Me.Rows.Add(rowwz_kcRow)
Return rowwz_kcRow
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 wz_kcDataTable = CType(MyBase.Clone,wz_kcDataTable)
cln.InitVars
Return cln
End Function
Protected Overrides Function CreateInstance() As DataTable
Return New wz_kcDataTable
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("客户名称")
Me.column建议价 = Me.Columns("建议价")
Me.column最低价 = Me.Columns("最低价")
Me.column批发价 = Me.Columns("批发价")
Me.column零售价 = Me.Columns("零售价")
Me.column库存ID = Me.Columns("库存ID")
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.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.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.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库存ID = New DataColumn("库存ID", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.column库存ID)
Me.column药品编号.AllowDBNull = false
Me.column药品名称.AllowDBNull = false
Me.column单位.AllowDBNull = false
Me.column库存ID.AutoIncrement = true
Me.column库存ID.AllowDBNull = false
Me.column库存ID.ReadOnly = true
End Sub
Public Function Newwz_kcRow() As wz_kcRow
Return CType(Me.NewRow,wz_kcRow)
End Function
Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
Return New wz_kcRow(builder)
End Function
Protected Overrides Function GetRowType() As System.Type
Return GetType(wz_kcRow)
End Function
Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.wz_kcRowChangedEvent) Is Nothing) Then
RaiseEvent wz_kcRowChanged(Me, New wz_kcRowChangeEvent(CType(e.Row,wz_kcRow), e.Action))
End If
End Sub
Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.wz_kcRowChangingEvent) Is Nothing) Then
RaiseEvent wz_kcRowChanging(Me, New wz_kcRowChangeEvent(CType(e.Row,wz_kcRow), e.Action))
End If
End Sub
Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.wz_kcRowDeletedEvent) Is Nothing) Then
RaiseEvent wz_kcRowDeleted(Me, New wz_kcRowChangeEvent(CType(e.Row,wz_kcRow), e.Action))
End If
End Sub
Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.wz_kcRowDeletingEvent) Is Nothing) Then
RaiseEvent wz_kcRowDeleting(Me, New wz_kcRowChangeEvent(CType(e.Row,wz_kcRow), e.Action))
End If
End Sub
Public Sub Removewz_kcRow(ByVal row As wz_kcRow)
Me.Rows.Remove(row)
End Sub
End Class
<System.Diagnostics.DebuggerStepThrough()> _
Public Class wz_kcRow
Inherits DataRow
Private tablewz_kc As wz_kcDataTable
Friend Sub New(ByVal rb As DataRowBuilder)
MyBase.New(rb)
Me.tablewz_kc = CType(Me.Table,wz_kcDataTable)
End Sub
Public Property 序号 As String
Get
Try
Return CType(Me(Me.tablewz_kc.序号Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_kc.序号Column) = value
End Set
End Property
Public Property 有效期 As String
Get
Try
Return CType(Me(Me.tablewz_kc.有效期Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_kc.有效期Column) = value
End Set
End Property
Public Property 药品编号 As String
Get
Return CType(Me(Me.tablewz_kc.药品编号Column),String)
End Get
Set
Me(Me.tablewz_kc.药品编号Column) = value
End Set
End Property
Public Property 药品名称 As String
Get
Return CType(Me(Me.tablewz_kc.药品名称Column),String)
End Get
Set
Me(Me.tablewz_kc.药品名称Column) = value
End Set
End Property
Public Property 药品规格 As String
Get
Try
Return CType(Me(Me.tablewz_kc.药品规格Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_kc.药品规格Column) = value
End Set
End Property
Public Property 单位 As String
Get