?? 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 + -