📄 frmclientinfo.vb
字号:
'
Me.SqlUpdateCommand1.CommandText = "UPDATE 客户清单 SET 客户编号 = @客户编号, 拼音编码 = @拼音编码, 名称 = @名称, 联系人 = @联系人, 地址 = @地址, 邮编 = " & _
"@邮编, 区号 = @区号, 地区 = @地区, 电话 = @电话, 传真 = @传真, 电报 = @电报, 简称 = @简称, 开户行 = @开户行, 开户行" & _
"邮编 = @开户行邮编, 银行帐号 = @银行帐号, 税号 = @税号, 性质 = @性质, 业务员 = @业务员, 业务部门 = @业务部门, 授信额度 = " & _
"@授信额度 WHERE (客户编号 = @Original_客户编号) 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 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_拼音编码" & _
") AND (授信额度 = @Original_授信额度 OR @Original_授信额度 IS NULL AND 授信额度 IS NULL) AND (电报" & _
" = @Original_电报 OR @Original_电报 IS NULL AND 电报 IS NULL) AND (电话 = @Original_电话 O" & _
"R @Original_电话 IS NULL AND 电话 IS NULL) AND (税号 = @Original_税号 OR @Original_税号 IS" & _
" NULL AND 税号 IS NULL) AND (简称 = @Original_简称 OR @Original_简称 IS NULL AND 简称 IS N" & _
"ULL) 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 客户清单 W" & _
"HERE (客户编号 = @客户编号)"
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, 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, 30, "联系人"))
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, 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, 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, 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, 10, "性质"))
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.Decimal, 13, System.Data.ParameterDirection.Input, False, CType(28, Byte), CType(6, Byte), "授信额度", System.Data.DataRowVersion.Current, 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, 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, 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, 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.Decimal, 13, System.Data.ParameterDirection.Input, False, CType(28, Byte), CType(6, 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, 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, 30, 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")
'
'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(448, 28)
Me.ToolBar1.TabIndex = 10
'
'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
'
'grbClientInfo
'
Me.grbClientInfo.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.grbClientInfo.Controls.Add(Me.btnSearch)
Me.grbClientInfo.Controls.Add(Me.txbClientPY)
Me.grbClientInfo.Controls.Add(Me.lblClientPY)
Me.grbClientInfo.Location = New System.Drawing.Point(0, 32)
Me.grbClientInfo.Name = "grbClientInfo"
Me.grbClientInfo.Size = New System.Drawing.Size(448, 48)
Me.grbClientInfo.TabIndex = 11
Me.grbClientInfo.TabStop = False
'
'btnSearch
'
Me.btnSearch.Location = New System.Drawing.Point(138, 16)
Me.btnSearch.Name = "btnSearch"
Me.btnSearch.Size = New System.Drawing.Size(40, 23)
Me.btnSearch.TabIndex = 5
Me.btnSearch.Text = "查询"
'
'txbClientPY
'
Me.txbClientPY.Location = New System.Drawing.Point(62, 16)
Me.txbClientPY.Name = "txbClientPY"
Me.txbClientPY.Size = New System.Drawing.Size(64, 21)
Me.txbClientPY.TabIndex = 4
Me.txbClientPY.Text = ""
'
'lblClientPY
'
Me.lblClientPY.Location = New System.Drawing.Point(6, 21)
Me.lblClientPY.Name = "lblClientPY"
Me.lblClientPY.Size = New System.Drawing.Size(56, 16)
Me.lblClientPY.TabIndex = 3
Me.lblClientPY.Text = "客户拼音"
'
'frmClientInfo
'
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.ClientSize = New System.Drawing.Size(448, 273)
Me.Controls.Add(Me.grbClientInfo)
Me.Controls.Add(Me.dgdClientResult)
Me.Controls.Add(Me.ToolBar1)
Me.Name = "frmClientInfo"
Me.Text = "客户信息维护"
CType(Me.dgdClientResult, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).EndInit()
Me.grbClientInfo.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.txbClientPY.Text.Length <> 0 Then
'如果客户拼音不为空进行查询
'清空DataSet11客户清单表的内容
Me.DataSet11.Tables("客户清单").Clear()
'生成查询的SQL语句
strSQL += " where 拼音编码 like '" + Me.txbClientPY.Text.Trim() + "%'"
End If
Me.SqlDataAdapter1.SelectCommand.CommandText = strSQL
'重新填充DataSet11
Me.SqlDataAdapter1.Fill(DataSet11)
End Sub
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Try
If Me.DataSet11.HasChanges Then
Me.SqlDataAdapter1.Update(Me.DataSet11)
Me.DataSet11.Tables("客户清单").DefaultView.RowFilter = ""
MessageBox.Show("数据修改成功!")
Else
MessageBox.Show("无修改的数据!")
End If
Catch ex As Exception
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -