医药行业

开发平台：

Visual Basic

dsPort.vb：源码内容

Return CType(Me(Me.tablewz_kc.单位Column),String)
End Get
Set
Me(Me.tablewz_kc.单位Column) = value
End Set
End Property
Public Property 数量 As Decimal
Get
Try
Return CType(Me(Me.tablewz_kc.数量Column),Decimal)
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 Decimal
Get
Try
Return CType(Me(Me.tablewz_kc.总数量Column),Decimal)
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 Decimal
Get
Try
Return CType(Me(Me.tablewz_kc.进价Column),Decimal)
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 Decimal
Get
Try
Return CType(Me(Me.tablewz_kc.金额Column),Decimal)
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 Integer
Get
Try
Return CType(Me(Me.tablewz_kc.包装Column),Integer)
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
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
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 Decimal
Get
Try
Return CType(Me(Me.tablewz_kc.建议价Column),Decimal)
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 Decimal
Get
Try
Return CType(Me(Me.tablewz_kc.最低价Column),Decimal)
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 Decimal
Get
Try
Return CType(Me(Me.tablewz_kc.批发价Column),Decimal)
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 Decimal
Get
Try
Return CType(Me(Me.tablewz_kc.零售价Column),Decimal)
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 库存ID As Decimal
Get
Return CType(Me(Me.tablewz_kc.库存IDColumn),Decimal)
End Get
Set
Me(Me.tablewz_kc.库存IDColumn) = value
End Set
End Property
Public Function Is序号Null() As Boolean
Return Me.IsNull(Me.tablewz_kc.序号Column)
End Function
Public Sub Set序号Null()
Me(Me.tablewz_kc.序号Column) = System.Convert.DBNull
End Sub
Public Function Is有效期Null() As Boolean
Return Me.IsNull(Me.tablewz_kc.有效期Column)
End Function
Public Sub Set有效期Null()
Me(Me.tablewz_kc.有效期Column) = System.Convert.DBNull
End Sub
Public Function Is药品规格Null() As Boolean
Return Me.IsNull(Me.tablewz_kc.药品规格Column)
End Function
Public Sub Set药品规格Null()
Me(Me.tablewz_kc.药品规格Column) = System.Convert.DBNull
End Sub
Public Function Is数量Null() As Boolean
Return Me.IsNull(Me.tablewz_kc.数量Column)
End Function
Public Sub Set数量Null()
Me(Me.tablewz_kc.数量Column) = System.Convert.DBNull
End Sub
Public Function Is总数量Null() As Boolean
Return Me.IsNull(Me.tablewz_kc.总数量Column)
End Function
Public Sub Set总数量Null()
Me(Me.tablewz_kc.总数量Column) = System.Convert.DBNull
End Sub
Public Function Is进价Null() As Boolean
Return Me.IsNull(Me.tablewz_kc.进价Column)
End Function
Public Sub Set进价Null()
Me(Me.tablewz_kc.进价Column) = System.Convert.DBNull
End Sub
Public Function Is金额Null() As Boolean
Return Me.IsNull(Me.tablewz_kc.金额Column)
End Function
Public Sub Set金额Null()
Me(Me.tablewz_kc.金额Column) = System.Convert.DBNull
End Sub
Public Function Is包装Null() As Boolean
Return Me.IsNull(Me.tablewz_kc.包装Column)
End Function
Public Sub Set包装Null()
Me(Me.tablewz_kc.包装Column) = System.Convert.DBNull
End Sub
Public Function Is批号Null() As Boolean
Return Me.IsNull(Me.tablewz_kc.批号Column)
End Function
Public Sub Set批号Null()
Me(Me.tablewz_kc.批号Column) = System.Convert.DBNull
End Sub
Public Function Is产地Null() As Boolean
Return Me.IsNull(Me.tablewz_kc.产地Column)
End Function
Public Sub Set产地Null()
Me(Me.tablewz_kc.产地Column) = System.Convert.DBNull
End Sub
Public Function Is货位Null() As Boolean
Return Me.IsNull(Me.tablewz_kc.货位Column)
End Function
Public Sub Set货位Null()
Me(Me.tablewz_kc.货位Column) = System.Convert.DBNull
End Sub
Public Function Is客户名称Null() As Boolean
Return Me.IsNull(Me.tablewz_kc.客户名称Column)
End Function
Public Sub Set客户名称Null()
Me(Me.tablewz_kc.客户名称Column) = System.Convert.DBNull
End Sub
Public Function Is建议价Null() As Boolean
Return Me.IsNull(Me.tablewz_kc.建议价Column)
End Function
Public Sub Set建议价Null()
Me(Me.tablewz_kc.建议价Column) = System.Convert.DBNull
End Sub
Public Function Is最低价Null() As Boolean
Return Me.IsNull(Me.tablewz_kc.最低价Column)
End Function
Public Sub Set最低价Null()
Me(Me.tablewz_kc.最低价Column) = System.Convert.DBNull
End Sub
Public Function Is批发价Null() As Boolean
Return Me.IsNull(Me.tablewz_kc.批发价Column)
End Function
Public Sub Set批发价Null()
Me(Me.tablewz_kc.批发价Column) = System.Convert.DBNull
End Sub
Public Function Is零售价Null() As Boolean
Return Me.IsNull(Me.tablewz_kc.零售价Column)
End Function
Public Sub Set零售价Null()
Me(Me.tablewz_kc.零售价Column) = System.Convert.DBNull
End Sub
End Class
<System.Diagnostics.DebuggerStepThrough()> _
Public Class wz_kcRowChangeEvent
Inherits EventArgs
Private eventRow As wz_kcRow
Private eventAction As DataRowAction
Public Sub New(ByVal row As wz_kcRow, ByVal action As DataRowAction)
MyBase.New
Me.eventRow = row
Me.eventAction = action
End Sub
Public ReadOnly Property Row As wz_kcRow
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_khDataTable
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
Friend Sub New()
MyBase.New("wz_kh")
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
Public Default ReadOnly Property Item(ByVal index As Integer) As wz_khRow
Get
Return CType(Me.Rows(index),wz_khRow)
End Get
End Property
Public Event wz_khRowChanged As wz_khRowChangeEventHandler
Public Event wz_khRowChanging As wz_khRowChangeEventHandler
Public Event wz_khRowDeleted As wz_khRowChangeEventHandler
Public Event wz_khRowDeleting As wz_khRowChangeEventHandler
Public Overloads Sub Addwz_khRow(ByVal row As wz_khRow)
Me.Rows.Add(row)
End Sub
Public Overloads Function Addwz_khRow(ByVal 客户编号 As String, ByVal 客户名称 As String, 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 String) As wz_khRow
Dim rowwz_khRow As wz_khRow = CType(Me.NewRow,wz_khRow)
rowwz_khRow.ItemArray = New Object() {客户编号, 客户名称, 性质, 拼音码, 地址, 电话, 手机, 联系人, 应收帐款, 应付帐款, 余额, 建户日期}
Me.Rows.Add(rowwz_khRow)
Return rowwz_khRow
End Function
Public Function FindBy客户编号(ByVal 客户编号 As String) As wz_khRow
Return CType(Me.Rows.Find(New Object() {客户编号}),wz_khRow)
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_khDataTable = CType(MyBase.Clone,wz_khDataTable)
cln.InitVars
Return cln
End Function
Protected Overrides Function CreateInstance() As DataTable
Return New wz_khDataTable
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("建户日期")
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.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.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.column建户日期)
Me.Constraints.Add(New UniqueConstraint("dsPortKey3", New DataColumn() {Me.column客户编号}, true))
Me.column客户编号.AllowDBNull = false
Me.column客户编号.Unique = true
Me.column客户名称.AllowDBNull = false
Me.column性质.AllowDBNull = false
End Sub
Public Function Newwz_khRow() As wz_khRow
Return CType(Me.NewRow,wz_khRow)
End Function
Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
Return New wz_khRow(builder)
End Function
Protected Overrides Function GetRowType() As System.Type
Return GetType(wz_khRow)
End Function
Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.wz_khRowChangedEvent) Is Nothing) Then
RaiseEvent wz_khRowChanged(Me, New wz_khRowChangeEvent(CType(e.Row,wz_khRow), e.Action))
End If
End Sub
Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.wz_khRowChangingEvent) Is Nothing) Then
RaiseEvent wz_khRowChanging(Me, New wz_khRowChangeEvent(CType(e.Row,wz_khRow), e.Action))
End If
End Sub
Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.wz_khRowDeletedEvent) Is Nothing) Then
RaiseEvent wz_khRowDeleted(Me, New wz_khRowChangeEvent(CType(e.Row,wz_khRow), e.Action))
End If
End Sub
Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.wz_khRowDeletingEvent) Is Nothing) Then
RaiseEvent wz_khRowDeleting(Me, New wz_khRowChangeEvent(CType(e.Row,wz_khRow), e.Action))
End If
End Sub
Public Sub Removewz_khRow(ByVal row As wz_khRow)
Me.Rows.Remove(row)
End Sub
End Class
<System.Diagnostics.DebuggerStepThrough()> _
Public Class wz_khRow
Inherits DataRow
Private tablewz_kh As wz_khDataTable
Friend Sub New(ByVal rb As DataRowBuilder)
MyBase.New(rb)
Me.tablewz_kh = CType(Me.Table,wz_khDataTable)
End Sub
Public Property 客户编号 As String
Get
Return CType(Me(Me.tablewz_kh.客户编号Column),String)
End Get
Set
Me(Me.tablewz_kh.客户编号Column) = value
End Set
End Property
Public Property 客户名称 As String
Get
Return CType(Me(Me.tablewz_kh.客户名称Column),String)
End Get
Set
Me(Me.tablewz_kh.客户名称Column) = value
End Set
End Property
Public Property 性质 As String
Get
Return CType(Me(Me.tablewz_kh.性质Column),String)
End Get
Set
Me(Me.tablewz_kh.性质Column) = value
End Set
End Property
Public Property 拼音码 As String
Get
Try
Return CType(Me(Me.tablewz_kh.拼音码Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_kh.拼音码Column) = value
End Set
End Property
Public Property 地址 As String
Get
Try
Return CType(Me(Me.tablewz_kh.地址Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_kh.地址Column) = value
End Set
End Property
Public Property 电话 As String
Get
Try
Return CType(Me(Me.tablewz_kh.电话Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_kh.电话Column) = value
End Set
End Property
Public Property 手机 As String
Get
Try
Return CType(Me(Me.tablewz_kh.手机Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_kh.手机Column) = value
End Set
End Property
Public Property 联系人 As String
Get
Try
Return CType(Me(Me.tablewz_kh.联系人Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_kh.联系人Column) = value
End Set
End Property
Public Property 应收帐款 As Decimal
Get
Try
Return CType(Me(Me.tablewz_kh.应收帐款Column),Decimal)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_kh.应收帐款Column) = value
End Set
End Property
Public Property 应付帐款 As Decimal
Get
Try
Return CType(Me(Me.tablewz_kh.应付帐款Column),Decimal)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_kh.应付帐款Column) = value
End Set
End Property
Public Property 余额 As Decimal
Get
Try
Return CType(Me(Me.tablewz_kh.余额Column),Decimal)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_kh.余额Column) = value
End Set
End Property
Public Property 建户日期 As String
Get
Try
Return CType(Me(Me.tablewz_kh.建户日期Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_kh.建户日期Column) = value
End Set
End Property
Public Function Is拼音码Null() As Boolean
Return Me.IsNull(Me.tablewz_kh.拼音码Column)
End Function
Public Sub Set拼音码Null()
Me(Me.tablewz_kh.拼音码Column) = System.Convert.DBNull
End Sub
Public Function Is地址Null() As Boolean
Return Me.IsNull(Me.tablewz_kh.地址Column)
End Function
Public Sub Set地址Null()
Me(Me.tablewz_kh.地址Column) = System.Convert.DBNull
End Sub
Public Function Is电话Null() As Boolean
Return Me.IsNull(Me.tablewz_kh.电话Column)
End Function
Public Sub Set电话Null()
Me(Me.tablewz_kh.电话Column) = System.Convert.DBNull
End Sub
Public Function Is手机Null() As Boolean
Return Me.IsNull(Me.tablewz_kh.手机Column)
End Function
Public Sub Set手机Null()
Me(Me.tablewz_kh.手机Column) = System.Convert.DBNull
End Sub
Public Function Is联系人Null() As Boolean
Return Me.IsNull(Me.tablewz_kh.联系人Column)
End Function
Public Sub Set联系人Null()
Me(Me.tablewz_kh.联系人Column) = System.Convert.DBNull
End Sub
Public Function Is应收帐款Null() As Boolean
Return Me.IsNull(Me.tablewz_kh.应收帐款Column)
End Function
Public Sub Set应收帐款Null()
Me(Me.tablewz_kh.应收帐款Column) = System.Convert.DBNull
End Sub
Public Function Is应付帐款Null() As Boolean
Return Me.IsNull(Me.tablewz_kh.应付帐款Column)
End Function
Public Sub Set应付帐款Null()
Me(Me.tablewz_kh.应付帐款Column) = System.Convert.DBNull
End Sub
Public Function Is余额Null() As Boolean
Return Me.IsNull(Me.tablewz_kh.余额Column)
End Function
Public Sub Set余额Null()
Me(Me.tablewz_kh.余额Column) = System.Convert.DBNull
End Sub
Public Function Is建户日期Null() As Boolean
Return Me.IsNull(Me.tablewz_kh.建户日期Column)
End Function
Public Sub Set建户日期Null()
Me(Me.tablewz_kh.建户日期Column) = System.Convert.DBNull
End Sub
End Class
<System.Diagnostics.DebuggerStepThrough()> _
Public Class wz_khRowChangeEvent
Inherits EventArgs
Private eventRow As wz_khRow
Private eventAction As DataRowAction
Public Sub New(ByVal row As wz_khRow, ByVal action As DataRowAction)
MyBase.New
Me.eventRow = row
Me.eventAction = action
End Sub
Public ReadOnly Property Row As wz_khRow
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_pdDataTable
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
Friend Sub New()
MyBase.New("wz_pd")
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
Public Default ReadOnly Property Item(ByVal index As Integer) As wz_pdRow
Get
Return CType(Me.Rows(index),wz_pdRow)
End Get
End Property
Public Event wz_pdRowChanged As wz_pdRowChangeEventHandler
Public Event wz_pdRowChanging As wz_pdRowChangeEventHandler
Public Event wz_pdRowDeleted As wz_pdRowChangeEventHandler
Public Event wz_pdRowDeleting As wz_pdRowChangeEventHandler
Public Overloads Sub Addwz_pdRow(ByVal row As wz_pdRow)
Me.Rows.Add(row)
End Sub
Public Overloads Function Addwz_pdRow(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 String, ByVal 摘要 As String, ByVal 操作员 As String) As wz_pdRow
Dim rowwz_pdRow As wz_pdRow = CType(Me.NewRow,wz_pdRow)
rowwz_pdRow.ItemArray = New Object() {日期, 序号, 票号, 药品编号, 药品名称, 单位, 进价, 数量, 金额, 批号, 摘要, 操作员}
Me.Rows.Add(rowwz_pdRow)
Return rowwz_pdRow
End Function
Public Function FindBy序号票号(ByVal 序号 As Integer, ByVal 票号 As String) As wz_pdRow
Return CType(Me.Rows.Find(New Object() {序号, 票号}),wz_pdRow)
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_pdDataTable = CType(MyBase.Clone,wz_pdDataTable)
cln.InitVars
Return cln
End Function
Protected Overrides Function CreateInstance() As DataTable
Return New wz_pdDataTable
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("操作员")
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.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.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.Constraints.Add(New UniqueConstraint("dsPortKey4", New DataColumn() {Me.column序号, Me.column票号}, true))
Me.column序号.AllowDBNull = false
Me.column票号.AllowDBNull = false
End Sub
Public Function Newwz_pdRow() As wz_pdRow
Return CType(Me.NewRow,wz_pdRow)
End Function
Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
Return New wz_pdRow(builder)
End Function
Protected Overrides Function GetRowType() As System.Type
Return GetType(wz_pdRow)
End Function
Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.wz_pdRowChangedEvent) Is Nothing) Then
RaiseEvent wz_pdRowChanged(Me, New wz_pdRowChangeEvent(CType(e.Row,wz_pdRow), e.Action))
End If
End Sub
Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.wz_pdRowChangingEvent) Is Nothing) Then
RaiseEvent wz_pdRowChanging(Me, New wz_pdRowChangeEvent(CType(e.Row,wz_pdRow), e.Action))
End If
End Sub
Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.wz_pdRowDeletedEvent) Is Nothing) Then
RaiseEvent wz_pdRowDeleted(Me, New wz_pdRowChangeEvent(CType(e.Row,wz_pdRow), e.Action))
End If
End Sub
Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.wz_pdRowDeletingEvent) Is Nothing) Then
RaiseEvent wz_pdRowDeleting(Me, New wz_pdRowChangeEvent(CType(e.Row,wz_pdRow), e.Action))
End If
End Sub
Public Sub Removewz_pdRow(ByVal row As wz_pdRow)
Me.Rows.Remove(row)
End Sub
End Class
<System.Diagnostics.DebuggerStepThrough()> _
Public Class wz_pdRow
Inherits DataRow
Private tablewz_pd As wz_pdDataTable
Friend Sub New(ByVal rb As DataRowBuilder)
MyBase.New(rb)
Me.tablewz_pd = CType(Me.Table,wz_pdDataTable)
End Sub
Public Property 日期 As String
Get
Try
Return CType(Me(Me.tablewz_pd.日期Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_pd.日期Column) = value
End Set
End Property
Public Property 序号 As Integer
Get
Return CType(Me(Me.tablewz_pd.序号Column),Integer)
End Get
Set
Me(Me.tablewz_pd.序号Column) = value
End Set
End Property
Public Property 票号 As String
Get
Return CType(Me(Me.tablewz_pd.票号Column),String)
End Get
Set
Me(Me.tablewz_pd.票号Column) = value
End Set
End Property
Public Property 药品编号 As String
Get
Try
Return CType(Me(Me.tablewz_pd.药品编号Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_pd.药品编号Column) = value
End Set
End Property
Public Property 药品名称 As String
Get
Try
Return CType(Me(Me.tablewz_pd.药品名称Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_pd.药品名称Column) = value
End Set
End Property
Public Property 单位 As String
Get
Try
Return CType(Me(Me.tablewz_pd.单位Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_pd.单位Column) = value
End Set
End Property
Public Property 进价 As Decimal
Get
Try
Return CType(Me(Me.tablewz_pd.进价Column),Decimal)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_pd.进价Column) = value
End Set
End Property
Public Property 数量 As Decimal
Get
Try
Return CType(Me(Me.tablewz_pd.数量Column),Decimal)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_pd.数量Column) = value
End Set
End Property
Public Property 金额 As Decimal
Get
Try
Return CType(Me(Me.tablewz_pd.金额Column),Decimal)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_pd.金额Column) = value
End Set
End Property
Public Property 批号 As String
Get
Try
Return CType(Me(Me.tablewz_pd.批号Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_pd.批号Column) = value
End Set
End Property
Public Property 摘要 As String
Get
Try
Return CType(Me(Me.tablewz_pd.摘要Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_pd.摘要Column) = value
End Set
End Property
Public Property 操作员 As String
Get
Try
Return CType(Me(Me.tablewz_pd.操作员Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_pd.操作员Column) = value
End Set
End Property
Public Function Is日期Null() As Boolean
Return Me.IsNull(Me.tablewz_pd.日期Column)
End Function
Public Sub Set日期Null()
Me(Me.tablewz_pd.日期Column) = System.Convert.DBNull
End Sub
Public Function Is药品编号Null() As Boolean
Return Me.IsNull(Me.tablewz_pd.药品编号Column)
End Function
Public Sub Set药品编号Null()
Me(Me.tablewz_pd.药品编号Column) = System.Convert.DBNull
End Sub
Public Function Is药品名称Null() As Boolean
Return Me.IsNull(Me.tablewz_pd.药品名称Column)
End Function
Public Sub Set药品名称Null()
Me(Me.tablewz_pd.药品名称Column) = System.Convert.DBNull
End Sub
Public Function Is单位Null() As Boolean
Return Me.IsNull(Me.tablewz_pd.单位Column)
End Function
Public Sub Set单位Null()
Me(Me.tablewz_pd.单位Column) = System.Convert.DBNull
End Sub
Public Function Is进价Null() As Boolean
Return Me.IsNull(Me.tablewz_pd.进价Column)
End Function
Public Sub Set进价Null()
Me(Me.tablewz_pd.进价Column) = System.Convert.DBNull
End Sub
Public Function Is数量Null() As Boolean
Return Me.IsNull(Me.tablewz_pd.数量Column)
End Function
Public Sub Set数量Null()
Me(Me.tablewz_pd.数量Column) = System.Convert.DBNull
End Sub
Public Function Is金额Null() As Boolean
Return Me.IsNull(Me.tablewz_pd.金额Column)
End Function
Public Sub Set金额Null()
Me(Me.tablewz_pd.金额Column) = System.Convert.DBNull
End Sub
Public Function Is批号Null() As Boolean
Return Me.IsNull(Me.tablewz_pd.批号Column)
End Function
Public Sub Set批号Null()
Me(Me.tablewz_pd.批号Column) = System.Convert.DBNull
End Sub
Public Function Is摘要Null() As Boolean
Return Me.IsNull(Me.tablewz_pd.摘要Column)
End Function
Public Sub Set摘要Null()
Me(Me.tablewz_pd.摘要Column) = System.Convert.DBNull
End Sub
Public Function Is操作员Null() As Boolean
Return Me.IsNull(Me.tablewz_pd.操作员Column)
End Function
Public Sub Set操作员Null()
Me(Me.tablewz_pd.操作员Column) = System.Convert.DBNull
End Sub
End Class
<System.Diagnostics.DebuggerStepThrough()> _
Public Class wz_pdRowChangeEvent
Inherits EventArgs
Private eventRow As wz_pdRow
Private eventAction As DataRowAction
Public Sub New(ByVal row As wz_pdRow, ByVal action As DataRowAction)
MyBase.New
Me.eventRow = row
Me.eventAction = action
End Sub
Public ReadOnly Property Row As wz_pdRow
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_rkDataTable
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库存ID As DataColumn
Friend Sub New()
MyBase.New("wz_rk")
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 库存IDColumn As DataColumn
Get
Return Me.column库存ID
End Get
End Property
Public Default ReadOnly Property Item(ByVal index As Integer) As wz_rkRow
Get
Return CType(Me.Rows(index),wz_rkRow)
End Get
End Property
Public Event wz_rkRowChanged As wz_rkRowChangeEventHandler
Public Event wz_rkRowChanging As wz_rkRowChangeEventHandler
Public Event wz_rkRowDeleted As wz_rkRowChangeEventHandler
Public Event wz_rkRowDeleting As wz_rkRowChangeEventHandler
Public Overloads Sub Addwz_rkRow(ByVal row As wz_rkRow)
Me.Rows.Add(row)
End Sub
Public Overloads Function Addwz_rkRow( _
ByVal 日期 As String, _
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 Decimal, _
ByVal 建议价 As Decimal, _
ByVal 最低价 As Decimal, _
ByVal 包装 As String, _
ByVal 产地 As String, _
ByVal 批号 As String, _
ByVal 有效期 As String, _
ByVal 货位 As String, _
ByVal 结算 As String, _
ByVal 操作员 As String, _
ByVal 库存ID As Decimal) As wz_rkRow
Dim rowwz_rkRow As wz_rkRow = CType(Me.NewRow,wz_rkRow)
rowwz_rkRow.ItemArray = New Object() {日期, 票号, 客户编号, 客户名称, 序号, 药品编号, 药品名称, 药品规格, 单位, 进价, 数量, 金额, 批发价, 零售价, 建议价, 最低价, 包装, 产地, 批号, 有效期, 货位, 结算, 操作员, 库存ID}
Me.Rows.Add(rowwz_rkRow)
Return rowwz_rkRow
End Function
Public Function FindBy票号序号药品编号(ByVal 票号 As String, ByVal 序号 As Integer, ByVal 药品编号 As String) As wz_rkRow
Return CType(Me.Rows.Find(New Object() {票号, 序号, 药品编号}),wz_rkRow)
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_rkDataTable = CType(MyBase.Clone,wz_rkDataTable)
cln.InitVars
Return cln
End Function
Protected Overrides Function CreateInstance() As DataTable
Return New wz_rkDataTable
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库存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.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.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.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("dsPortKey5", 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_rkRow() As wz_rkRow
Return CType(Me.NewRow,wz_rkRow)
End Function
Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
Return New wz_rkRow(builder)
End Function
Protected Overrides Function GetRowType() As System.Type
Return GetType(wz_rkRow)
End Function
Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.wz_rkRowChangedEvent) Is Nothing) Then
RaiseEvent wz_rkRowChanged(Me, New wz_rkRowChangeEvent(CType(e.Row,wz_rkRow), e.Action))
End If
End Sub
Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.wz_rkRowChangingEvent) Is Nothing) Then
RaiseEvent wz_rkRowChanging(Me, New wz_rkRowChangeEvent(CType(e.Row,wz_rkRow), e.Action))
End If
End Sub
Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.wz_rkRowDeletedEvent) Is Nothing) Then
RaiseEvent wz_rkRowDeleted(Me, New wz_rkRowChangeEvent(CType(e.Row,wz_rkRow), e.Action))
End If
End Sub
Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.wz_rkRowDeletingEvent) Is Nothing) Then
RaiseEvent wz_rkRowDeleting(Me, New wz_rkRowChangeEvent(CType(e.Row,wz_rkRow), e.Action))
End If
End Sub
Public Sub Removewz_rkRow(ByVal row As wz_rkRow)
Me.Rows.Remove(row)
End Sub
End Class
<System.Diagnostics.DebuggerStepThrough()> _
Public Class wz_rkRow
Inherits DataRow
Private tablewz_rk As wz_rkDataTable
Friend Sub New(ByVal rb As DataRowBuilder)
MyBase.New(rb)
Me.tablewz_rk = CType(Me.Table,wz_rkDataTable)
End Sub
Public Property 日期 As String
Get
Try
Return CType(Me(Me.tablewz_rk.日期Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_rk.日期Column) = value
End Set
End Property
Public Property 票号 As String
Get
Return CType(Me(Me.tablewz_rk.票号Column),String)
End Get
Set
Me(Me.tablewz_rk.票号Column) = value
End Set
End Property
Public Property 客户编号 As String
Get
Try
Return CType(Me(Me.tablewz_rk.客户编号Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_rk.客户编号Column) = value
End Set
End Property
Public Property 客户名称 As String
Get
Try
Return CType(Me(Me.tablewz_rk.客户名称Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_rk.客户名称Column) = value
End Set
End Property
Public Property 序号 As Integer
Get
Return CType(Me(Me.tablewz_rk.序号Column),Integer)
End Get
Set
Me(Me.tablewz_rk.序号Column) = value
End Set
End Property
Public Property 药品编号 As String
Get
Return CType(Me(Me.tablewz_rk.药品编号Column),String)
End Get
Set
Me(Me.tablewz_rk.药品编号Column) = value
End Set
End Property
Public Property 药品名称 As String
Get
Try
Return CType(Me(Me.tablewz_rk.药品名称Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_rk.药品名称Column) = value
End Set
End Property
Public Property 药品规格 As String
Get
Try
Return CType(Me(Me.tablewz_rk.药品规格Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_rk.药品规格Column) = value
End Set
End Property
Public Property 单位 As String
Get
Try
Return CType(Me(Me.tablewz_rk.单位Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_rk.单位Column) = value
End Set
End Property
Public Property 进价 As Decimal
Get
Try
Return CType(Me(Me.tablewz_rk.进价Column),Decimal)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_rk.进价Column) = value
End Set
End Property
Public Property 数量 As Decimal
Get
Try
Return CType(Me(Me.tablewz_rk.数量Column),Decimal)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_rk.数量Column) = value
End Set
End Property
Public Property 金额 As Decimal
Get
Try
Return CType(Me(Me.tablewz_rk.金额Column),Decimal)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_rk.金额Column) = value
End Set
End Property
Public Property 批发价 As Decimal
Get
Try
Return CType(Me(Me.tablewz_rk.批发价Column),Decimal)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_rk.批发价Column) = value
End Set
End Property
Public Property 零售价 As Decimal
Get
Try
Return CType(Me(Me.tablewz_rk.零售价Column),Decimal)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_rk.零售价Column) = value
End Set
End Property
Public Property 建议价 As Decimal
Get
Try
Return CType(Me(Me.tablewz_rk.建议价Column),Decimal)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_rk.建议价Column) = value
End Set
End Property
Public Property 最低价 As Decimal
Get
Try
Return CType(Me(Me.tablewz_rk.最低价Column),Decimal)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_rk.最低价Column) = value
End Set
End Property
Public Property 包装 As String
Get
Try
Return CType(Me(Me.tablewz_rk.包装Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_rk.包装Column) = value
End Set
End Property
Public Property 产地 As String
Get
Try
Return CType(Me(Me.tablewz_rk.产地Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_rk.产地Column) = value
End Set
End Property
Public Property 批号 As String
Get
Try
Return CType(Me(Me.tablewz_rk.批号Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_rk.批号Column) = value
End Set
End Property
Public Property 有效期 As String
Get
Try
Return CType(Me(Me.tablewz_rk.有效期Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_rk.有效期Column) = value
End Set
End Property
Public Property 货位 As String
Get
Try
Return CType(Me(Me.tablewz_rk.货位Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_rk.货位Column) = value
End Set
End Property
Public Property 结算 As String
Get
Try
Return CType(Me(Me.tablewz_rk.结算Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_rk.结算Column) = value
End Set
End Property
Public Property 操作员 As String
Get
Try
Return CType(Me(Me.tablewz_rk.操作员Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_rk.操作员Column) = value
End Set
End Property
Public Property 库存ID As Decimal
Get
Try
Return CType(Me(Me.tablewz_rk.库存IDColumn),Decimal)
Catch e As InvalidCastException
Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
End Try
End Get
Set
Me(Me.tablewz_rk.库存IDColumn) = value
End Set
End Property
Public Function Is日期Null() As Boolean
Return Me.IsNull(Me.tablewz_rk.日期Column)
End Function
Public Sub Set日期Null()
Me(Me.tablewz_rk.日期Column) = System.Convert.DBNull
End Sub
Public Function Is客户编号Null() As Boolean
Return Me.IsNull(Me.tablewz_rk.客户编号Column)
End Function
Public Sub Set客户编号Null()
Me(Me.tablewz_rk.客户编号Column) = System.Convert.DBNull
End Sub
Public Function Is客户名称Null() As Boolean
Return Me.IsNull(Me.tablewz_rk.客户名称Column)
End Function
Public Sub Set客户名称Null()
Me(Me.tablewz_rk.客户名称Column) = System.Convert.DBNull
End Sub
Public Function Is药品名称Null() As Boolean
Return Me.IsNull(Me.tablewz_rk.药品名称Column)
End Function
Public Sub Set药品名称Null()
Me(Me.tablewz_rk.药品名称Column) = System.Convert.DBNull
End Sub
Public Function Is药品规格Null() As Boolean
Return Me.IsNull(Me.tablewz_rk.药品规格Column)
End Function
Public Sub Set药品规格Null()
Me(Me.tablewz_rk.药品规格Column) = System.Convert.DBNull
End Sub
Public Function Is单位Null() As Boolean
Return Me.IsNull(Me.tablewz_rk.单位Column)
End Function
Public Sub Set单位Null()
Me(Me.tablewz_rk.单位Column) = System.Convert.DBNull
End Sub
Public Function Is进价Null() As Boolean
Return Me.IsNull(Me.tablewz_rk.进价Column)
End Function
Public Sub Set进价Null()
Me(Me.tablewz_rk.进价Column) = System.Convert.DBNull
End Sub
Public Function Is数量Null() As Boolean
Return Me.IsNull(Me.tablewz_rk.数量Column)
End Function
Public Sub Set数量Null()
Me(Me.tablewz_rk.数量Column) = System.Convert.DBNull
End Sub
Public Function Is金额Null() As Boolean
Return Me.IsNull(Me.tablewz_rk.金额Column)
End Function
Public Sub Set金额Null()
Me(Me.tablewz_rk.金额Column) = System.Convert.DBNull
End Sub
Public Function Is批发价Null() As Boolean
Return Me.IsNull(Me.tablewz_rk.批发价Column)
End Function
Public Sub Set批发价Null()
Me(Me.tablewz_rk.批发价Column) = System.Convert.DBNull
End Sub
Public Function Is零售价Null() As Boolean
Return Me.IsNull(Me.tablewz_rk.零售价Column)
End Function
Public Sub Set零售价Null()
Me(Me.tablewz_rk.零售价Column) = System.Convert.DBNull
End Sub
Public Function Is建议价Null() As Boolean
Return Me.IsNull(Me.tablewz_rk.建议价Column)
End Function
Public Sub Set建议价Null()
Me(Me.tablewz_rk.建议价Column) = System.Convert.DBNull
End Sub
Public Function Is最低价Null() As Boolean
Return Me.IsNull(Me.tablewz_rk.最低价Column)
End Function
Public Sub Set最低价Null()
Me(Me.tablewz_rk.最低价Column) = System.Convert.DBNull
End Sub
Public Function Is包装Null() As Boolean
Return Me.IsNull(Me.tablewz_rk.包装Column)
End Function
Public Sub Set包装Null()
Me(Me.tablewz_rk.包装Column) = System.Convert.DBNull
End Sub
Public Function Is产地Null() As Boolean
Return Me.IsNull(Me.tablewz_rk.产地Column)
End Function
Public Sub Set产地Null()
Me(Me.tablewz_rk.产地Column) = System.Convert.DBNull
End Sub
Public Function Is批号Null() As Boolean
Return Me.IsNull(Me.tablewz_rk.批号Column)
End Function
Public Sub Set批号Null()
Me(Me.tablewz_rk.批号Column) = System.Convert.DBNull
End Sub
Public Function Is有效期Null() As Boolean
Return Me.IsNull(Me.tablewz_rk.有效期Column)
End Function
Public Sub Set有效期Null()
Me(Me.tablewz_rk.有效期Column) = System.Convert.DBNull
End Sub
Public Function Is货位Null() As Boolean
Return Me.IsNull(Me.tablewz_rk.货位Column)
End Function
Public Sub Set货位Null()
Me(Me.tablewz_rk.货位Column) = System.Convert.DBNull
End Sub
Public Function Is结算Null() As Boolean
Return Me.IsNull(Me.tablewz_rk.结算Column)
End Function
Public Sub Set结算Null()
Me(Me.tablewz_rk.结算Column) = System.Convert.DBNull
End Sub
Public Function Is操作员Null() As Boolean
Return Me.IsNull(Me.tablewz_rk.操作员Column)
End Function
Public Sub Set操作员Null()
Me(Me.tablewz_rk.操作员Column) = System.Convert.DBNull
End Sub
Public Function Is库存IDNull() As Boolean
Return Me.IsNull(Me.tablewz_rk.库存IDColumn)
End Function
Public Sub Set库存IDNull()
Me(Me.tablewz_rk.库存IDColumn) = System.Convert.DBNull
End Sub
End Class
<System.Diagnostics.DebuggerStepThrough()> _
Public Class wz_rkRowChangeEvent
Inherits EventArgs
Private eventRow As wz_rkRow
Private eventAction As DataRowAction
Public Sub New(ByVal row As wz_rkRow, ByVal action As DataRowAction)
MyBase.New
Me.eventRow = row
Me.eventAction = action
End Sub
Public ReadOnly Property Row As wz_rkRow
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