frmclientinfo.vb

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

Public Class frmClientInfo
    Inherits System.Windows.Forms.Form
    Public MyCombo As New ComboBox
    Public bClose = False
    Private gridMouseDownTime As DateTime
#Region " Windows 窗体设计器生成的代码 "

    Public Sub New()
        MyBase.New()

        '该调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 调用之后添加任何初始化

    End Sub

    '窗体重写 dispose 以清理组件列表。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Windows 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer

    '注意: 以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents dgdClientResult As System.Windows.Forms.DataGrid
    Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
    Friend WithEvents DataSet11 As 进销存管理.DataSet1
    Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
    Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
    Friend WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand
    Friend WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand
    Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
    Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
    Friend WithEvents tbbSave As System.Windows.Forms.ToolBarButton
    Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
    Friend WithEvents tbbDel As System.Windows.Forms.ToolBarButton
    Friend WithEvents grbClientInfo As System.Windows.Forms.GroupBox
    Friend WithEvents btnSearch As System.Windows.Forms.Button
    Friend WithEvents txbClientPY As System.Windows.Forms.TextBox
    Friend WithEvents lblClientPY As System.Windows.Forms.Label
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmClientInfo))
        Me.dgdClientResult = New System.Windows.Forms.DataGrid
        Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter
        Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand
        Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection
        Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand
        Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand
        Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand
        Me.DataSet11 = New 进销存管理.DataSet1
        Me.ToolBar1 = New System.Windows.Forms.ToolBar
        Me.tbbSave = New System.Windows.Forms.ToolBarButton
        Me.tbbDel = New System.Windows.Forms.ToolBarButton
        Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
        Me.grbClientInfo = New System.Windows.Forms.GroupBox
        Me.btnSearch = New System.Windows.Forms.Button
        Me.txbClientPY = New System.Windows.Forms.TextBox
        Me.lblClientPY = New System.Windows.Forms.Label
        CType(Me.dgdClientResult, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.grbClientInfo.SuspendLayout()
        Me.SuspendLayout()
        '
        'dgdClientResult
        '
        Me.dgdClientResult.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.dgdClientResult.CaptionVisible = False
        Me.dgdClientResult.DataMember = ""
        Me.dgdClientResult.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.dgdClientResult.Location = New System.Drawing.Point(0, 81)
        Me.dgdClientResult.Name = "dgdClientResult"
        Me.dgdClientResult.Size = New System.Drawing.Size(448, 192)
        Me.dgdClientResult.TabIndex = 3
        '
        'SqlDataAdapter1
        '
        Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
        Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
        Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
        Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "客户清单", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("客户编号", "客户编号"), New System.Data.Common.DataColumnMapping("拼音编码", "拼音编码"), New System.Data.Common.DataColumnMapping("名称", "名称"), New System.Data.Common.DataColumnMapping("联系人", "联系人"), New System.Data.Common.DataColumnMapping("地址", "地址"), New System.Data.Common.DataColumnMapping("邮编", "邮编"), New System.Data.Common.DataColumnMapping("区号", "区号"), New System.Data.Common.DataColumnMapping("地区", "地区"), New System.Data.Common.DataColumnMapping("电话", "电话"), New System.Data.Common.DataColumnMapping("传真", "传真"), New System.Data.Common.DataColumnMapping("电报", "电报"), New System.Data.Common.DataColumnMapping("简称", "简称"), New System.Data.Common.DataColumnMapping("开户行", "开户行"), New System.Data.Common.DataColumnMapping("开户行邮编", "开户行邮编"), New System.Data.Common.DataColumnMapping("银行帐号", "银行帐号"), New System.Data.Common.DataColumnMapping("税号", "税号"), New System.Data.Common.DataColumnMapping("性质", "性质"), New System.Data.Common.DataColumnMapping("业务员", "业务员"), New System.Data.Common.DataColumnMapping("业务部门", "业务部门"), New System.Data.Common.DataColumnMapping("授信额度", "授信额度")})})
        Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
        '
        'SqlDeleteCommand1
        '
        Me.SqlDeleteCommand1.CommandText = "DELETE FROM 客户清单 WHERE (客户编号 = @Original_客户编号) AND (业务员 = @Original_业务员 OR @Origi" & _
        "nal_业务员 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 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 (拼音编码 = @Ori" & _
        "ginal_拼音编码) AND (授信额度 = @Original_授信额度 OR @Original_授信额度 IS NULL AND 授信额度 IS NUL" & _
        "L) AND (电报 = @Original_电报 OR @Original_电报 IS NULL AND 电报 IS NULL) AND (电话 = @Ori" & _
        "ginal_电话 OR @Original_电话 IS NULL AND 电话 IS NULL) AND (税号 = @Original_税号 OR @Orig" & _
        "inal_税号 IS NULL AND 税号 IS NULL) AND (简称 = @Original_简称 OR @Original_简称 IS NULL A" & _
        "ND 简称 IS NULL) AND (联系人 = @Original_联系人 OR @Original_联系人 IS NULL AND 联系人 IS NULL" & _
        ") AND (邮编 = @Original_邮编 OR @Original_邮编 IS NULL AND 邮编 IS NULL) AND (银行帐号 = @Or" & _
        "iginal_银行帐号 OR @Original_银行帐号 IS NULL AND 银行帐号 IS NULL)"
        Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
        Me.SqlDeleteCommand1.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.SqlDeleteCommand1.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.SqlDeleteCommand1.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.SqlDeleteCommand1.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.SqlDeleteCommand1.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.SqlDeleteCommand1.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.SqlDeleteCommand1.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.SqlDeleteCommand1.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.SqlDeleteCommand1.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.SqlDeleteCommand1.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.SqlDeleteCommand1.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.SqlDeleteCommand1.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.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_授信额度", System.Data.SqlDbType.Decimal, 13, System.Data.ParameterDirection.Input, False, CType(28, Byte), CType(6, Byte), "授信额度", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.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.SqlDeleteCommand1.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.SqlDeleteCommand1.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.SqlDeleteCommand1.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.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_联系人", System.Data.SqlDbType.VarChar, 30, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "联系人", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.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.SqlDeleteCommand1.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))
        '
        'SqlConnection1
        '
        Me.SqlConnection1.ConnectionString = "workstation id=CS;packet size=4096;integrated security=SSPI;data source=CS;persis" & _
        "t security info=False;initial catalog=jxcbook"
        '
        'SqlInsertCommand1
        '
        Me.SqlInsertCommand1.CommandText = "INSERT INTO 客户清单(客户编号, 拼音编码, 名称, 联系人, 地址, 邮编, 区号, 地区, 电话, 传真, 电报, 简称, 开户行, 开户行邮编," & _
        " 银行帐号, 税号, 性质, 业务员, 业务部门, 授信额度) VALUES (@客户编号, @拼音编码, @名称, @联系人, @地址, @邮编, @区号, " & _
        "@地区, @电话, @传真, @电报, @简称, @开户行, @开户行邮编, @银行帐号, @税号, @性质, @业务员, @业务部门, @授信额度); SEL" & _
        "ECT 客户编号, 拼音编码, 名称, 联系人, 地址, 邮编, 区号, 地区, 电话, 传真, 电报, 简称, 开户行, 开户行邮编, 银行帐号, 税号, 性" & _
        "质, 业务员, 业务部门, 授信额度 FROM 客户清单 WHERE (客户编号 = @客户编号)"
        Me.SqlInsertCommand1.Connection = Me.SqlConnection1
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@客户编号", System.Data.SqlDbType.VarChar, 10, "客户编号"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@拼音编码", System.Data.SqlDbType.VarChar, 20, "拼音编码"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@名称", System.Data.SqlDbType.VarChar, 80, "名称"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@联系人", System.Data.SqlDbType.VarChar, 30, "联系人"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@地址", System.Data.SqlDbType.VarChar, 80, "地址"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@邮编", System.Data.SqlDbType.VarChar, 6, "邮编"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@区号", System.Data.SqlDbType.VarChar, 6, "区号"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@地区", System.Data.SqlDbType.VarChar, 12, "地区"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@电话", System.Data.SqlDbType.VarChar, 20, "电话"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@传真", System.Data.SqlDbType.VarChar, 20, "传真"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@电报", System.Data.SqlDbType.VarChar, 20, "电报"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@简称", System.Data.SqlDbType.VarChar, 80, "简称"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@开户行", System.Data.SqlDbType.VarChar, 40, "开户行"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@开户行邮编", System.Data.SqlDbType.VarChar, 6, "开户行邮编"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@银行帐号", System.Data.SqlDbType.VarChar, 20, "银行帐号"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@税号", System.Data.SqlDbType.VarChar, 20, "税号"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@性质", System.Data.SqlDbType.VarChar, 10, "性质"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@业务员", System.Data.SqlDbType.VarChar, 10, "业务员"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@业务部门", System.Data.SqlDbType.VarChar, 20, "业务部门"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@授信额度", System.Data.SqlDbType.Decimal, 13, System.Data.ParameterDirection.Input, False, CType(28, Byte), CType(6, Byte), "授信额度", System.Data.DataRowVersion.Current, Nothing))
        '
        'SqlSelectCommand1
        '
        Me.SqlSelectCommand1.CommandText = "SELECT 客户编号, 拼音编码, 名称, 联系人, 地址, 邮编, 区号, 地区, 电话, 传真, 电报, 简称, 开户行, 开户行邮编, 银行帐号, 税号," & _
        " 性质, 业务员, 业务部门, 授信额度 FROM 客户清单"
        Me.SqlSelectCommand1.Connection = Me.SqlConnection1
        '
        'SqlUpdateCommand1