📄 form1.vb
字号:
Me.Button9.Text = ">|"
'
'SqlSelectCommand1
'
Me.SqlSelectCommand1.CommandText = "SELECT 客户号, 客户名称, 联系人, 地址, 邮政编码, 电话 FROM 客户表"
Me.SqlSelectCommand1.Connection = Me.SqlConnection1
'
'SqlConnection1
'
Me.SqlConnection1.ConnectionString = "workstation id=""MONKEY-F8587DBC"";packet size=4096;integrated security=SSPI;data s" & _
"ource=""MONKEY-F8587DBC\MONKEY"";persist security info=True;initial catalog=4"
'
'SqlInsertCommand1
'
Me.SqlInsertCommand1.CommandText = "INSERT INTO 客户表(客户号, 客户名称, 联系人, 地址, 邮政编码, 电话) VALUES (@客户号, @客户名称, @联系人, @地址, @邮政" & _
"编码, @电话); SELECT 客户号, 客户名称, 联系人, 地址, 邮政编码, 电话 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, 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, 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, 10, "电话"))
'
'SqlUpdateCommand1
'
Me.SqlUpdateCommand1.CommandText = "UPDATE 客户表 SET 客户号 = @客户号, 客户名称 = @客户名称, 联系人 = @联系人, 地址 = @地址, 邮政编码 = @邮政编码, 电话 =" & _
" @电话 WHERE (客户号 = @Original_客户号) 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_邮政编码 IS NULL AND 邮政编码 IS N" & _
"ULL); 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, 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, 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, 10, "电话"))
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, 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, 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))
'
'SqlDeleteCommand1
'
Me.SqlDeleteCommand1.CommandText = "DELETE FROM 客户表 WHERE (客户号 = @Original_客户号) AND (地址 = @Original_地址 OR @Original_地" & _
"址 IS NULL AND 地址 IS NULL) AND (客户名称 = @Original_客户名称) 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)"
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, 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, 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))
'
'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("电话", "电话")})})
Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
'
'TextBox1
'
Me.TextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "客户表.客户号"))
Me.TextBox1.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.TextBox1.Location = New System.Drawing.Point(32, 120)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(88, 26)
Me.TextBox1.TabIndex = 16
Me.TextBox1.Text = ""
'
'DataSet11
'
Me.DataSet11.DataSetName = "DataSet1"
Me.DataSet11.Locale = New System.Globalization.CultureInfo("zh-CN")
'
'TextBox2
'
Me.TextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "客户表.客户名称"))
Me.TextBox2.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.TextBox2.Location = New System.Drawing.Point(152, 120)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(96, 26)
Me.TextBox2.TabIndex = 17
Me.TextBox2.Text = ""
'
'TextBox3
'
Me.TextBox3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "客户表.联系人"))
Me.TextBox3.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.TextBox3.Location = New System.Drawing.Point(272, 120)
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Size = New System.Drawing.Size(80, 26)
Me.TextBox3.TabIndex = 18
Me.TextBox3.Text = ""
'
'TextBox4
'
Me.TextBox4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "客户表.地址"))
Me.TextBox4.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.TextBox4.Location = New System.Drawing.Point(376, 120)
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Size = New System.Drawing.Size(72, 26)
Me.TextBox4.TabIndex = 19
Me.TextBox4.Text = ""
'
'TextBox5
'
Me.TextBox5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "客户表.邮政编码"))
Me.TextBox5.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.TextBox5.Location = New System.Drawing.Point(464, 120)
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Size = New System.Drawing.Size(72, 26)
Me.TextBox5.TabIndex = 20
Me.TextBox5.Text = ""
'
'TextBox6
'
Me.TextBox6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "客户表.电话"))
Me.TextBox6.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.TextBox6.Location = New System.Drawing.Point(560, 120)
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.Size = New System.Drawing.Size(72, 26)
Me.TextBox6.TabIndex = 21
Me.TextBox6.Text = ""
'
'SqlDataAdapter2
'
Me.SqlDataAdapter2.AcceptChangesDuringFill = CType(configurationAppSettings.GetValue("SqlDataAdapter2.AcceptChangesDuringFill", GetType(System.Boolean)), Boolean)
Me.SqlDataAdapter2.ContinueUpdateOnError = True
Me.SqlDataAdapter2.DeleteCommand = Me.SqlDeleteCommand2
Me.SqlDataAdapter2.InsertCommand = Me.SqlInsertCommand2
Me.SqlDataAdapter2.SelectCommand = Me.SqlSelectCommand2
Me.SqlDataAdapter2.UpdateCommand = Me.SqlUpdateCommand2
'
'MainMenu1
'
Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1})
'
'MenuItem1
'
Me.MenuItem1.Index = 0
Me.MenuItem1.Text = "exit system"
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(18, 37)
Me.ClientSize = New System.Drawing.Size(768, 311)
Me.Controls.Add(Me.TextBox6)
Me.Controls.Add(Me.TextBox5)
Me.Controls.Add(Me.TextBox4)
Me.Controls.Add(Me.TextBox3)
Me.Controls.Add(Me.TextBox2)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Button9)
Me.Controls.Add(Me.Button8)
Me.Controls.Add(Me.Button7)
Me.Controls.Add(Me.Button6)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Button5)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Label1)
Me.Font = New System.Drawing.Font("宋体", 24.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Menu = Me.MainMenu1
Me.Name = "Form1"
Me.Text = "客户管理系统"
CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
#End Region
Public mybind As BindingManagerBase
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.SqlDataAdapter1.Fill(Me.DataSet11.客户表)
mybind = Me.BindingContext(Me.DataSet11, "客户表")
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
mybind.Position = 0
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
mybind.Position = mybind.Position - 1
If mybind.Position = 0 Then
MsgBox("已到顶端")
End If
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
mybind.Position = mybind.Position + 1
If mybind.Position = mybind.Count - 1 Then
MsgBox("已到末端")
End If
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
mybind.Position = mybind.Count - 1
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
mybind.AddNew()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
mybind.RemoveAt(mybind.Position)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If TextBox1.Text = "" Then
MsgBox("客户号不能为空")
else
Me.SqlDataAdapter1.Update(Me.DataSet11.客户表)
MsgBox("已保存")
End If
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
mybind.CancelCurrentEdit()
End Sub
Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click
mybind.EndCurrentEdit()
Close()
End Sub
End Class
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -