frmsupplyinfo.vb

VB.NET开发的进销存系统,数据库SQLSERVER

        "ND 业务员 IS NULL) AND (业务部门 = @Original_业务部门 OR @Original_业务部门 IS NULL AND 业务部门 IS" & _
        " NULL) AND (传真 = @Original_传真 OR @Original_传真 IS NULL AND 传真 IS NULL) AND (区号 = " & _
        "@Original_区号 OR @Original_区号 IS NULL AND 区号 IS NULL) AND (名称 = @Original_名称 OR @" & _
        "Original_名称 IS NULL AND 名称 IS NULL) AND (地区 = @Original_地区 OR @Original_地区 IS NU" & _
        "LL AND 地区 IS NULL) AND (地址 = @Original_地址 OR @Original_地址 IS NULL AND 地址 IS NULL" & _
        ") AND (库房地址 = @Original_库房地址 OR @Original_库房地址 IS NULL AND 库房地址 IS NULL) AND (库房" & _
        "电话 = @Original_库房电话 OR @Original_库房电话 IS NULL AND 库房电话 IS NULL) AND (开户行 = @Orig" & _
        "inal_开户行 OR @Original_开户行 IS NULL AND 开户行 IS NULL) AND (开户行邮编 = @Original_开户行邮编 " & _
        "OR @Original_开户行邮编 IS NULL AND 开户行邮编 IS NULL) AND (拼音编码 = @Original_拼音编码) AND (电" & _
        "报 = @Original_电报 OR @Original_电报 IS NULL AND 电报 IS NULL) AND (电话 = @Original_电话 " & _
        "OR @Original_电话 IS NULL AND 电话 IS NULL) AND (税号 = @Original_税号 OR @Original_税号 I" & _
        "S NULL AND 税号 IS NULL) AND (类型 = @Original_类型 OR @Original_类型 IS NULL AND 类型 IS " & _
        "NULL) AND (邮编 = @Original_邮编 OR @Original_邮编 IS NULL AND 邮编 IS NULL) AND (银行帐号 =" & _
        " @Original_银行帐号 OR @Original_银行帐号 IS NULL AND 银行帐号 IS NULL); SELECT 供货商号, 拼音编码, " & _
        "名称, 业务员, 电话, 地址, 邮编, 区号, 地区, 类型, 传真, 电报, 开户行, 开户行邮编, 银行帐号, 税号, 库房地址, 库房电话, 业务部门 " & _
        "FROM 供货商清单 WHERE (供货商号 = @供货商号)"
        Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@供货商号", System.Data.SqlDbType.VarChar, 10, "供货商号"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@拼音编码", System.Data.SqlDbType.VarChar, 40, "拼音编码"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@名称", System.Data.SqlDbType.VarChar, 80, "名称"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@业务员", System.Data.SqlDbType.VarChar, 10, "业务员"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@电话", System.Data.SqlDbType.VarChar, 20, "电话"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@地址", System.Data.SqlDbType.VarChar, 80, "地址"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@邮编", System.Data.SqlDbType.VarChar, 6, "邮编"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@区号", System.Data.SqlDbType.VarChar, 6, "区号"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@地区", System.Data.SqlDbType.VarChar, 12, "地区"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@类型", System.Data.SqlDbType.VarChar, 10, "类型"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@传真", System.Data.SqlDbType.VarChar, 20, "传真"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@电报", System.Data.SqlDbType.VarChar, 20, "电报"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@开户行", System.Data.SqlDbType.VarChar, 40, "开户行"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@开户行邮编", System.Data.SqlDbType.VarChar, 6, "开户行邮编"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@银行帐号", System.Data.SqlDbType.VarChar, 20, "银行帐号"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@税号", System.Data.SqlDbType.VarChar, 20, "税号"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@库房地址", System.Data.SqlDbType.VarChar, 40, "库房地址"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@库房电话", System.Data.SqlDbType.VarChar, 20, "库房电话"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@业务部门", System.Data.SqlDbType.VarChar, 20, "业务部门"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_供货商号", System.Data.SqlDbType.VarChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "供货商号", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_业务员", System.Data.SqlDbType.VarChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "业务员", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_业务部门", System.Data.SqlDbType.VarChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "业务部门", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_传真", System.Data.SqlDbType.VarChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "传真", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_区号", System.Data.SqlDbType.VarChar, 6, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "区号", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_名称", System.Data.SqlDbType.VarChar, 80, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "名称", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_地区", System.Data.SqlDbType.VarChar, 12, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "地区", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_地址", System.Data.SqlDbType.VarChar, 80, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "地址", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_库房地址", System.Data.SqlDbType.VarChar, 40, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "库房地址", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_库房电话", System.Data.SqlDbType.VarChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "库房电话", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_开户行", System.Data.SqlDbType.VarChar, 40, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "开户行", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_开户行邮编", System.Data.SqlDbType.VarChar, 6, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "开户行邮编", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_拼音编码", System.Data.SqlDbType.VarChar, 40, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "拼音编码", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_电报", System.Data.SqlDbType.VarChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "电报", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_电话", System.Data.SqlDbType.VarChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "电话", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_税号", System.Data.SqlDbType.VarChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "税号", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_类型", System.Data.SqlDbType.VarChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "类型", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_邮编", System.Data.SqlDbType.VarChar, 6, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "邮编", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_银行帐号", System.Data.SqlDbType.VarChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "银行帐号", System.Data.DataRowVersion.Original, Nothing))
        '
        'DataSet11
        '
        Me.DataSet11.DataSetName = "DataSet1"
        Me.DataSet11.Locale = New System.Globalization.CultureInfo("zh-CN")
        '
        'dgdSupplyInfo
        '
        Me.dgdSupplyInfo.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.dgdSupplyInfo.CaptionVisible = False
        Me.dgdSupplyInfo.DataMember = ""
        Me.dgdSupplyInfo.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.dgdSupplyInfo.Location = New System.Drawing.Point(0, 85)
        Me.dgdSupplyInfo.Name = "dgdSupplyInfo"
        Me.dgdSupplyInfo.Size = New System.Drawing.Size(536, 192)
        Me.dgdSupplyInfo.TabIndex = 12
        '
        'ToolBar1
        '
        Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.tbbSave, Me.tbbDel})
        Me.ToolBar1.DropDownArrows = True
        Me.ToolBar1.ImageList = Me.ImageList1
        Me.ToolBar1.Location = New System.Drawing.Point(0, 0)
        Me.ToolBar1.Name = "ToolBar1"
        Me.ToolBar1.ShowToolTips = True
        Me.ToolBar1.Size = New System.Drawing.Size(536, 28)
        Me.ToolBar1.TabIndex = 14
        '
        'tbbSave
        '
        Me.tbbSave.ImageIndex = 0
        Me.tbbSave.ToolTipText = "保存修改记录或新增记录"
        '
        'tbbDel
        '
        Me.tbbDel.ImageIndex = 1
        Me.tbbDel.ToolTipText = "删除记录"
        '
        'ImageList1
        '
        Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
        '
        'grbSupplyInfo
        '
        Me.grbSupplyInfo.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.grbSupplyInfo.Controls.Add(Me.btnSearch)
        Me.grbSupplyInfo.Controls.Add(Me.txbSupplyPY)
        Me.grbSupplyInfo.Controls.Add(Me.lblSupplyPY)
        Me.grbSupplyInfo.Location = New System.Drawing.Point(0, 32)
        Me.grbSupplyInfo.Name = "grbSupplyInfo"
        Me.grbSupplyInfo.Size = New System.Drawing.Size(536, 48)
        Me.grbSupplyInfo.TabIndex = 15
        Me.grbSupplyInfo.TabStop = False
        '
        'btnSearch
        '
        Me.btnSearch.Location = New System.Drawing.Point(147, 16)
        Me.btnSearch.Name = "btnSearch"
        Me.btnSearch.Size = New System.Drawing.Size(40, 23)
        Me.btnSearch.TabIndex = 13
        Me.btnSearch.Text = "查询"
        '
        'txbSupplyPY
        '
        Me.txbSupplyPY.Location = New System.Drawing.Point(67, 17)
        Me.txbSupplyPY.Name = "txbSupplyPY"
        Me.txbSupplyPY.Size = New System.Drawing.Size(72, 21)
        Me.txbSupplyPY.TabIndex = 12
        Me.txbSupplyPY.Text = ""
        '
        'lblSupplyPY
        '
        Me.lblSupplyPY.Location = New System.Drawing.Point(3, 22)
        Me.lblSupplyPY.Name = "lblSupplyPY"
        Me.lblSupplyPY.Size = New System.Drawing.Size(72, 16)
        Me.lblSupplyPY.TabIndex = 11
        Me.lblSupplyPY.Text = "供货商拼音"
        '
        'frmSupplyInfo
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(536, 277)
        Me.Controls.Add(Me.grbSupplyInfo)
        Me.Controls.Add(Me.dgdSupplyInfo)
        Me.Controls.Add(Me.ToolBar1)
        Me.Name = "frmSupplyInfo"
        Me.Text = "供货商资料维护"
        CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.dgdSupplyInfo, System.ComponentModel.ISupportInitialize).EndInit()
        Me.grbSupplyInfo.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
        Dim strSQL As String = "SELECT 供货商号, 拼音编码, 简称, 名称, 地址, 邮编, 区号, 地区, 类型, 电话, 传真, 电报, 开户行, 开户行邮编, 银行帐号, 税号, 库房地址, 库房电话, 业务员, 业务部门 FROM 供货商清单"
        If Me.txbSupplyPY.Text.Length <> 0 Then
            '如果供货商拼音不为空进行查询
            '清空DataSet11供货商清单表的内容
            Me.DataSet11.Tables("供货商清单").Clear()
            '生成查询的SQL语句
            strSQL += " where 拼音编码 like '" + Me.txbSupplyPY.Text.Trim() + "%'"