⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 mysaledataset1.designer.vb

📁 一个商品销售管理系统
💻 VB
📖 第 1 页 / 共 5 页
字号:
        Inherits System.ComponentModel.Component
        
        Private WithEvents _adapter As System.Data.SqlClient.SqlDataAdapter
        
        Private _connection As System.Data.SqlClient.SqlConnection
        
        Private _commandCollection() As System.Data.SqlClient.SqlCommand
        
        Private _clearBeforeFill As Boolean
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Sub New()
            MyBase.New
            Me.ClearBeforeFill = true
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Private ReadOnly Property Adapter() As System.Data.SqlClient.SqlDataAdapter
            Get
                If (Me._adapter Is Nothing) Then
                    Me.InitAdapter
                End If
                Return Me._adapter
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Friend Property Connection() As System.Data.SqlClient.SqlConnection
            Get
                If (Me._connection Is Nothing) Then
                    Me.InitConnection
                End If
                Return Me._connection
            End Get
            Set
                Me._connection = value
                If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
                    Me.Adapter.InsertCommand.Connection = value
                End If
                If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
                    Me.Adapter.DeleteCommand.Connection = value
                End If
                If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
                    Me.Adapter.UpdateCommand.Connection = value
                End If
                Dim i As Integer = 0
                Do While (i < Me.CommandCollection.Length)
                    If (Not (Me.CommandCollection(i)) Is Nothing) Then
                        CType(Me.CommandCollection(i),System.Data.SqlClient.SqlCommand).Connection = value
                    End If
                    i = (i + 1)
                Loop
            End Set
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected ReadOnly Property CommandCollection() As System.Data.SqlClient.SqlCommand()
            Get
                If (Me._commandCollection Is Nothing) Then
                    Me.InitCommandCollection
                End If
                Return Me._commandCollection
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property ClearBeforeFill() As Boolean
            Get
                Return Me._clearBeforeFill
            End Get
            Set
                Me._clearBeforeFill = value
            End Set
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Private Sub InitAdapter()
            Me._adapter = New System.Data.SqlClient.SqlDataAdapter
            Dim tableMapping As System.Data.Common.DataTableMapping = New System.Data.Common.DataTableMapping
            tableMapping.SourceTable = "Table"
            tableMapping.DataSetTable = "公司信息"
            tableMapping.ColumnMappings.Add("公司名称", "公司名称")
            tableMapping.ColumnMappings.Add("法人代表", "法人代表")
            tableMapping.ColumnMappings.Add("公司地址", "公司地址")
            tableMapping.ColumnMappings.Add("服务电话", "服务电话")
            tableMapping.ColumnMappings.Add("邮政编码", "邮政编码")
            tableMapping.ColumnMappings.Add("电子邮件", "电子邮件")
            tableMapping.ColumnMappings.Add("公司网站", "公司网站")
            tableMapping.ColumnMappings.Add("管理系统背景照片", "管理系统背景照片")
            tableMapping.ColumnMappings.Add("管理系统显示名称", "管理系统显示名称")
            tableMapping.ColumnMappings.Add("显示优先级", "显示优先级")
            Me._adapter.TableMappings.Add(tableMapping)
            Me._adapter.DeleteCommand = New System.Data.SqlClient.SqlCommand
            Me._adapter.DeleteCommand.Connection = Me.Connection
            Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[公司信息] WHERE (([公司名称] = @Original_公司名称) AND ((@IsNull_法人代表 = 1 "& _ 
                "AND [法人代表] IS NULL) OR ([法人代表] = @Original_法人代表)) AND ((@IsNull_公司地址 = 1 AND [公司"& _ 
                "地址] IS NULL) OR ([公司地址] = @Original_公司地址)) AND ((@IsNull_服务电话 = 1 AND [服务电话] IS "& _ 
                "NULL) OR ([服务电话] = @Original_服务电话)) AND ((@IsNull_邮政编码 = 1 AND [邮政编码] IS NULL) O"& _ 
                "R ([邮政编码] = @Original_邮政编码)) AND ((@IsNull_电子邮件 = 1 AND [电子邮件] IS NULL) OR ([电子邮"& _ 
                "件] = @Original_电子邮件)) AND ((@IsNull_公司网站 = 1 AND [公司网站] IS NULL) OR ([公司网站] = @O"& _ 
                "riginal_公司网站)) AND ((@IsNull_管理系统背景照片 = 1 AND [管理系统背景照片] IS NULL) OR ([管理系统背景照片]"& _ 
                " = @Original_管理系统背景照片)) AND ((@IsNull_管理系统显示名称 = 1 AND [管理系统显示名称] IS NULL) OR (["& _ 
                "管理系统显示名称] = @Original_管理系统显示名称)) AND ((@IsNull_显示优先级 = 1 AND [显示优先级] IS NULL) OR"& _ 
                " ([显示优先级] = @Original_显示优先级)))"
            Me._adapter.DeleteCommand.CommandType = System.Data.CommandType.Text
            Me._adapter.DeleteCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_公司名称", System.Data.SqlDbType.NVarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "公司名称", System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
            Me._adapter.DeleteCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@IsNull_法人代表", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, 0, 0, "法人代表", System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
            Me._adapter.DeleteCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_法人代表", System.Data.SqlDbType.NVarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "法人代表", System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
            Me._adapter.DeleteCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@IsNull_公司地址", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, 0, 0, "公司地址", System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
            Me._adapter.DeleteCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_公司地址", System.Data.SqlDbType.NVarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "公司地址", System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
            Me._adapter.DeleteCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@IsNull_服务电话", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, 0, 0, "服务电话", System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
            Me._adapter.DeleteCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_服务电话", System.Data.SqlDbType.NVarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "服务电话", System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
            Me._adapter.DeleteCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@IsNull_邮政编码", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, 0, 0, "邮政编码", System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
            Me._adapter.DeleteCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_邮政编码", System.Data.SqlDbType.NVarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "邮政编码", System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
            Me._adapter.DeleteCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@IsNull_电子邮件", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, 0, 0, "电子邮件", System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
            Me._adapter.DeleteCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_电子邮件", System.Data.SqlDbType.NVarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "电子邮件", System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
            Me._adapter.DeleteCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@IsNull_公司网站", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, 0, 0, "公司网站", System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
            Me._adapter.DeleteCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_公司网站", System.Data.SqlDbType.NVarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "公司网站", System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
            Me._adapter.DeleteCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@IsNull_管理系统背景照片", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, 0, 0, "管理系统背景照片", System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
            Me._adapter.DeleteCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_管理系统背景照片", System.Data.SqlDbType.NVarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "管理系统背景照片", System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
            Me._adapter.DeleteCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@IsNull_管理系统显示名称", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, 0, 0, "管理系统显示名称", System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
            Me._adapter.DeleteCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_管理系统显示名称", System.Data.SqlDbType.NVarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "管理系统显示名称", System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
            Me._adapter.DeleteCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@IsNull_显示优先级", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, 0, 0, "显示优先级", System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
            Me._adapter.DeleteCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_显示优先级", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, 0, 0, "显示优先级", System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
            Me._adapter.InsertCommand = New System.Data.SqlClient.SqlCommand
            Me._adapter.InsertCommand.Connection = Me.Connection
            Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[公司信息] ([公司名称], [法人代表], [公司地址], [服务电话], [邮政编码], [电子邮件], [公司网站],"& _ 
                " [管理系统背景照片], [管理系统显示名称], [显示优先级]) VALUES (@公司名称, @法人代表, @公司地址, @服务电话, @邮政编码, @电子"& _ 
                "邮件, @公司网站, @管理系统背景照片, @管理系统显示名称, @显示优先级);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT 公司名称, 法人代表, 公司地址, 服务电话, 邮政编码, "& _ 
                "电子邮件, 公司网站, 管理系统背景照片, 管理系统显示名称, 显示优先级 FROM 公司信息 WHERE (公司名称 = @公司名称)"
            Me._adapter.InsertCommand.CommandType = System.Data.CommandType.Text
            Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@公司名称", System.Data.SqlDbType.NVarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "公司名称", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@法人代表", System.Data.SqlDbType.NVarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "法人代表", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@公司地址", System.Data.SqlDbType.NVarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "公司地址", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@服务电话", System.Data.SqlDbType.NVarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "服务电话", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@邮政编码", System.Data.SqlDbType.NVarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "邮政编码", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@电子邮件", System.Data.SqlDbType.NVarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "电子邮件", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@公司网站", System.Data.SqlDbType.NVarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "公司网站", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@管理系统背景照片", System.Data.SqlDbType.NVarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "管理系统背景照片", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@管理系统显示名称", System.Data.SqlDbType.NVarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "管理系统显示名称", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@显示优先级", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, 0, 0, "显示优先级", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.UpdateCommand = New System.Data.SqlClient.SqlCommand
            Me._adapter.UpdateCommand.Connection = Me.Connection
            Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[公司信息] SET [公司名称] = @公司名称, [法人代表] = @法人代表, [公司地址] = @公司地址, [服务电话] = "& _ 
                "@服务电话, [邮政编码] = @邮政编码, [电子邮件] = @电子邮件, [公司网站] = @公司网站, [管理系统背景照片] = @管理系统背景照片, ["& _ 
                "管理系统显示名称] = @管理系统显示名称, [显示优先级] = @显示优先级 WHERE (([公司名称] = @Original_公司名称) AND ((@"& _ 
                "IsNull_法人代表 = 1 AND [法人代表] IS NULL) OR ([法人代表] = @Original_法人代表)) AND ((@IsNull_"& _ 
                "公司地址 = 1 AND [公司地址] IS NULL) OR ([公司地址] = @Original_公司地址)) AND ((@IsNull_服务电话 = "& _ 
                "1 AND [服务电话] IS NULL) OR ([服务电话] = @Original_服务电话)) AND ((@IsNull_邮政编码 = 1 AND ["& _ 
                "邮政编码] IS NULL) OR ([邮政编码] = @Original_邮政编码)) AND ((@IsNull_电子邮件 = 1 AND [电子邮件] I"& _ 
                "S NULL) OR ([电子邮件] = @Original_电子邮件)) AND ((@IsNull_公司网站 = 1 AND [公司网站] IS NULL)"& _ 
                " OR ([公司网站] = @Original_公司网站)) AND ((@IsNull_管理系统背景照片 = 1 AND [管理系统背景照片] IS NULL"& _ 
                ") OR ([管理系统背景照片] = @Original_管理系统背景照片)) AND ((@IsNull_管理系统显示名称 = 1 AND [管理系统显示名称"& _ 
                "] IS NULL) OR ([管理系统显示名称] = @Original_管理系统显示名称)) AND ((@IsNull_显示优先级 = 1 AND [显示"& _ 
                "优先级] IS NULL) OR ([显示优先级] = @Original_显示优先级)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT 公司名称, 法人代表, 公司地址, 服务电话, "& _ 
                "邮政编码, 电子邮件, 公司网站, 管理系统背景照片, 管理系统显示名称, 显示优先级 FROM 公司信息 WHERE (公司名称 = @公司名称)"
            Me._adapter.UpdateCommand.CommandType = System.Data.CommandType.Text
            Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@公司名称", System.Data.SqlDbType.NVarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "公司名称", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@法人代表", System.Data.SqlDbType.NVarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "法人代表", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@公司地址", System.Data.SqlDbType.NVarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "公司地址", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@服务电话", System.Data.SqlDbType.NVarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "服务电话", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@邮政编码", System.Data.SqlDbType.NVarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "邮政编码", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@电子邮件", System.Data.SqlDbType.NVarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "电子邮件", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@公司网站", System.Data.SqlDbType.NVarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "公司网站", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@管理系统背景照片", System.Data.SqlDbType.NVarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "管理系统背景照片", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@管理系统显示名称", System.Data.SqlDbType.NVarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "管理系统显示名称", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@显示优先级", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, 0, 0, "显示优先级", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_公司名称", System.Data.SqlDbType.NVarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "公司名称", System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
            Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@IsNull_法人代表", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, 0, 0, "法人代表", System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
            Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_法人代表", System.Data.SqlDbType.NVarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "法人代表", System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
            Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@IsNull_公司地址", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, 0, 0, "公司地址", System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
            Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_公司地址", System.Data.SqlDbType.NVarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "公司地址", System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
            Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@IsNull_服务电话", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, 0, 0, "服务电话", System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
            Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_服务电话", System.Data.SqlDbType.NVarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "服务电话", System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
            Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@IsNull_邮政编码", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, 0, 0, "邮政编码", System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
            Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_邮政编码", System.Data.SqlDbType.NVarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "邮政编码", System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
            Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@IsNull_电子邮件", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, 0, 0, "电子邮件", System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
            Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_电子邮件", System.Data.SqlDbType.NVarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "电子邮件", System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
            Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@IsNull_公司网站", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, 0, 0, "公司网站", System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
            Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_公司网站", System.Data.SqlDbType.NVarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "公司网站", System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
            Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@IsNull_管理系统背景照片", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, 0, 0, "管理系统背景照片", System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
            Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_管理系统背景照片", System.Data.SqlDbType.NVarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "管理系统背景照片", System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
            Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@IsNull_管理系统显示名称", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, 0, 0, "管理系统显示名称", System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
            Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_管理系统显示名称", System.Data.SqlDbType.NVarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "管理系统显示名称", System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
            Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@IsNull_显示优先级", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, 0, 0, "显示优先级", System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
            Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_显示优先级", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, 0, 0, "显示优先级", System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Private Sub InitConnection()
            Me._connection = New System.Data.SqlClient.SqlConnection
            Me._connection.ConnectionString = Global.商品销售管理系统.My.MySettings.Default.MySaleConnectionString
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Private Sub InitCommandCollection()
            Me._commandCollection = New System.Data.SqlClient.SqlCommand(0) {}
            Me._commandCollection(0) = New System.Data.SqlClient.SqlCommand
            Me._commandCollection(0).Connection = Me.Connection
            Me._commandCollection(0).CommandText = "SELECT 公司名称, 法人代表, 公司地址, 服务电话, 邮政编码, 电子邮件, 公司网站, 管理系统背景照片, 管理系统显示名称, 显示优先级 FROM d"& _ 
                "bo.公司信息"
            Me._commandCollection(0).CommandType = System.Data.CommandType.Text
        End Sub

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -