dataset1.vb

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

        Inherits EventArgs
        
        Private eventRow As 商品清单Row
        
        Private eventAction As DataRowAction
        
        Public Sub New(ByVal row As 商品清单Row, ByVal action As DataRowAction)
            MyBase.New
            Me.eventRow = row
            Me.eventAction = action
        End Sub
        
        Public ReadOnly Property Row As 商品清单Row
            Get
                Return Me.eventRow
            End Get
        End Property
        
        Public ReadOnly Property Action As DataRowAction
            Get
                Return Me.eventAction
            End Get
        End Property
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class 供货商清单DataTable
        Inherits DataTable
        Implements System.Collections.IEnumerable
        
        Private column供货商号 As DataColumn
        
        Private column拼音编码 As DataColumn
        
        Private column名称 As DataColumn
        
        Private column业务员 As DataColumn
        
        Private column电话 As DataColumn
        
        Private column地址 As DataColumn
        
        Private column邮编 As DataColumn
        
        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("供货商清单")
            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
        
        Public Default ReadOnly Property Item(ByVal index As Integer) As 供货商清单Row
            Get
                Return CType(Me.Rows(index),供货商清单Row)
            End Get
        End Property
        
        Public Event 供货商清单RowChanged As 供货商清单RowChangeEventHandler
        
        Public Event 供货商清单RowChanging As 供货商清单RowChangeEventHandler
        
        Public Event 供货商清单RowDeleted As 供货商清单RowChangeEventHandler
        
        Public Event 供货商清单RowDeleting As 供货商清单RowChangeEventHandler
        
        Public Overloads Sub Add供货商清单Row(ByVal row As 供货商清单Row)
            Me.Rows.Add(row)
        End Sub
        
        Public Overloads Function Add供货商清单Row( _
                    ByVal 供货商号 As String,  _
                    ByVal 拼音编码 As String,  _
                    ByVal 名称 As String,  _
                    ByVal 业务员 As String,  _
                    ByVal 电话 As String,  _
                    ByVal 地址 As String,  _
                    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 String,  _
                    ByVal 税号 As String,  _
                    ByVal 库房地址 As String,  _
                    ByVal 库房电话 As String,  _
                    ByVal 业务部门 As String) As 供货商清单Row
            Dim row供货商清单Row As 供货商清单Row = CType(Me.NewRow,供货商清单Row)
            row供货商清单Row.ItemArray = New Object() {供货商号, 拼音编码, 名称, 业务员, 电话, 地址, 邮编, 区号, 地区, 类型, 传真, 电报, 开户行, 开户行邮编, 银行帐号, 税号, 库房地址, 库房电话, 业务部门}
            Me.Rows.Add(row供货商清单Row)
            Return row供货商清单Row
        End Function
        
        Public Function FindBy供货商号(ByVal 供货商号 As String) As 供货商清单Row
            Return CType(Me.Rows.Find(New Object() {供货商号}),供货商清单Row)
        End Function
        
        Public Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
            Return Me.Rows.GetEnumerator
        End Function
        
        Public Overrides Function Clone() As DataTable
            Dim cln As 供货商清单DataTable = CType(MyBase.Clone,供货商清单DataTable)
            cln.InitVars
            Return cln
        End Function
        
        Protected Overrides Function CreateInstance() As DataTable
            Return New 供货商清单DataTable
        End Function
        
        Friend Sub InitVars()
            Me.column供货商号 = Me.Columns("供货商号")
            Me.column拼音编码 = Me.Columns("拼音编码")
            Me.column名称 = Me.Columns("名称")
            Me.column业务员 = Me.Columns("业务员")
            Me.column电话 = Me.Columns("电话")
            Me.column地址 = Me.Columns("地址")
            Me.column邮编 = Me.Columns("邮编")
            Me.column区号 = Me.Columns("区号")
            Me.column地区 = Me.Columns("地区")
            Me.column类型 = Me.Columns("类型")
            Me.column传真 = Me.Columns("传真")
            Me.column电报 = Me.Columns("电报")
            Me.column开户行 = Me.Columns("开户行")
            Me.column开户行邮编 = Me.Columns("开户行邮编")
            Me.column银行帐号 = Me.Columns("银行帐号")
            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.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开户行邮编)