dataset1.vb

vfp开发的进销存管理系统,运行相应系统的Setup安装程序

            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销售价1 = New DataColumn("销售价1", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column销售价1)
            Me.column销售价2 = New DataColumn("销售价2", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column销售价2)
            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.Constraints.Add(New UniqueConstraint("Constraint1", New DataColumn() {Me.column货号}, true))
            Me.column货号.AllowDBNull = false
            Me.column货号.Unique = true
            Me.column单位.AllowDBNull = false
        End Sub
        
        Public Function New商品清单Row() As 商品清单Row
            Return CType(Me.NewRow,商品清单Row)
        End Function
        
        Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
            Return New 商品清单Row(builder)
        End Function
        
        Protected Overrides Function GetRowType() As System.Type
            Return GetType(商品清单Row)
        End Function
        
        Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanged(e)
            If (Not (Me.商品清单RowChangedEvent) Is Nothing) Then
                RaiseEvent 商品清单RowChanged(Me, New 商品清单RowChangeEvent(CType(e.Row,商品清单Row), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanging(e)
            If (Not (Me.商品清单RowChangingEvent) Is Nothing) Then
                RaiseEvent 商品清单RowChanging(Me, New 商品清单RowChangeEvent(CType(e.Row,商品清单Row), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleted(e)
            If (Not (Me.商品清单RowDeletedEvent) Is Nothing) Then
                RaiseEvent 商品清单RowDeleted(Me, New 商品清单RowChangeEvent(CType(e.Row,商品清单Row), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleting(e)
            If (Not (Me.商品清单RowDeletingEvent) Is Nothing) Then
                RaiseEvent 商品清单RowDeleting(Me, New 商品清单RowChangeEvent(CType(e.Row,商品清单Row), e.Action))
            End If
        End Sub
        
        Public Sub Remove商品清单Row(ByVal row As 商品清单Row)
            Me.Rows.Remove(row)
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class 商品清单Row
        Inherits DataRow
        
        Private table商品清单 As 商品清单DataTable
        
        Friend Sub New(ByVal rb As DataRowBuilder)
            MyBase.New(rb)
            Me.table商品清单 = CType(Me.Table,商品清单DataTable)
        End Sub
        
        Public Property 货号 As String
            Get
                Return CType(Me(Me.table商品清单.货号Column),String)
            End Get
            Set
                Me(Me.table商品清单.货号Column) = value
            End Set
        End Property
        
        Public Property 条码 As String
            Get
                Try 
                    Return CType(Me(Me.table商品清单.条码Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table商品清单.条码Column) = value
            End Set
        End Property
        
        Public Property 拼音编码 As String
            Get
                Try 
                    Return CType(Me(Me.table商品清单.拼音编码Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table商品清单.拼音编码Column) = value
            End Set
        End Property
        
        Public Property 品名 As String
            Get
                Try 
                    Return CType(Me(Me.table商品清单.品名Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table商品清单.品名Column) = value
            End Set
        End Property
        
        Public Property 单位 As String
            Get
                Return CType(Me(Me.table商品清单.单位Column),String)
            End Get
            Set
                Me(Me.table商品清单.单位Column) = value
            End Set
        End Property
        
        Public Property 进货价 As Decimal
            Get
                Try 
                    Return CType(Me(Me.table商品清单.进货价Column),Decimal)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table商品清单.进货价Column) = value
            End Set
        End Property
        
        Public Property 销售价1 As Decimal
            Get
                Try 
                    Return CType(Me(Me.table商品清单.销售价1Column),Decimal)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table商品清单.销售价1Column) = value
            End Set
        End Property
        
        Public Property 销售价2 As Decimal
            Get
                Try 
                    Return CType(Me(Me.table商品清单.销售价2Column),Decimal)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table商品清单.销售价2Column) = value
            End Set
        End Property
        
        Public Property 规格 As String
            Get
                Try 
                    Return CType(Me(Me.table商品清单.规格Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table商品清单.规格Column) = value
            End Set
        End Property
        
        Public Property 产地 As String
            Get
                Try 
                    Return CType(Me(Me.table商品清单.产地Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table商品清单.产地Column) = value
            End Set
        End Property
        
        Public Property 类别 As String
            Get
                Try 
                    Return CType(Me(Me.table商品清单.类别Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table商品清单.类别Column) = value
            End Set
        End Property
        
        Public Property 最低售价 As Decimal
            Get
                Try 
                    Return CType(Me(Me.table商品清单.最低售价Column),Decimal)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table商品清单.最低售价Column) = value
            End Set
        End Property
        
        Public Function Is条码Null() As Boolean
            Return Me.IsNull(Me.table商品清单.条码Column)
        End Function
        
        Public Sub Set条码Null()
            Me(Me.table商品清单.条码Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is拼音编码Null() As Boolean
            Return Me.IsNull(Me.table商品清单.拼音编码Column)
        End Function
        
        Public Sub Set拼音编码Null()
            Me(Me.table商品清单.拼音编码Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is品名Null() As Boolean
            Return Me.IsNull(Me.table商品清单.品名Column)
        End Function
        
        Public Sub Set品名Null()
            Me(Me.table商品清单.品名Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is进货价Null() As Boolean
            Return Me.IsNull(Me.table商品清单.进货价Column)
        End Function
        
        Public Sub Set进货价Null()
            Me(Me.table商品清单.进货价Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is销售价1Null() As Boolean
            Return Me.IsNull(Me.table商品清单.销售价1Column)
        End Function
        
        Public Sub Set销售价1Null()
            Me(Me.table商品清单.销售价1Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is销售价2Null() As Boolean
            Return Me.IsNull(Me.table商品清单.销售价2Column)
        End Function
        
        Public Sub Set销售价2Null()
            Me(Me.table商品清单.销售价2Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is规格Null() As Boolean
            Return Me.IsNull(Me.table商品清单.规格Column)
        End Function
        
        Public Sub Set规格Null()
            Me(Me.table商品清单.规格Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is产地Null() As Boolean
            Return Me.IsNull(Me.table商品清单.产地Column)
        End Function
        
        Public Sub Set产地Null()
            Me(Me.table商品清单.产地Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is类别Null() As Boolean
            Return Me.IsNull(Me.table商品清单.类别Column)
        End Function
        
        Public Sub Set类别Null()
            Me(Me.table商品清单.类别Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is最低售价Null() As Boolean
            Return Me.IsNull(Me.table商品清单.最低售价Column)
        End Function
        
        Public Sub Set最低售价Null()
            Me(Me.table商品清单.最低售价Column) = System.Convert.DBNull
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class 商品清单RowChangeEvent