dataset1.vb

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

            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.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
                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
                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
                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
                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
                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
                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 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 F