📄 form1.vb
字号:
Me.Button4.Name = "Button4"
Me.HelpProvider1.SetShowHelp(Me.Button4, True)
Me.Button4.Size = New System.Drawing.Size(152, 40)
Me.Button4.TabIndex = 16
Me.Button4.Text = "SAVE"
'
'Button5
'
Me.Button5.BackColor = System.Drawing.SystemColors.ControlDarkDark
Me.Button5.Font = New System.Drawing.Font("Bookman Old Style", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.HelpProvider1.SetHelpKeyword(Me.Button5, "customerhelpsystem")
Me.HelpProvider1.SetHelpNavigator(Me.Button5, System.Windows.Forms.HelpNavigator.KeywordIndex)
Me.Button5.Location = New System.Drawing.Point(8, 392)
Me.Button5.Name = "Button5"
Me.HelpProvider1.SetShowHelp(Me.Button5, True)
Me.Button5.Size = New System.Drawing.Size(152, 40)
Me.Button5.TabIndex = 17
Me.Button5.Text = "FIRST"
'
'Button6
'
Me.Button6.BackColor = System.Drawing.SystemColors.ControlDarkDark
Me.Button6.Font = New System.Drawing.Font("Bookman Old Style", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.HelpProvider1.SetHelpKeyword(Me.Button6, "customerhelpsystem")
Me.HelpProvider1.SetHelpNavigator(Me.Button6, System.Windows.Forms.HelpNavigator.KeywordIndex)
Me.Button6.Location = New System.Drawing.Point(176, 392)
Me.Button6.Name = "Button6"
Me.HelpProvider1.SetShowHelp(Me.Button6, True)
Me.Button6.Size = New System.Drawing.Size(152, 40)
Me.Button6.TabIndex = 18
Me.Button6.Text = "PREVIOUS"
'
'Button7
'
Me.Button7.BackColor = System.Drawing.SystemColors.ControlDarkDark
Me.Button7.Font = New System.Drawing.Font("Bookman Old Style", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.HelpProvider1.SetHelpKeyword(Me.Button7, "customerhelpsystem")
Me.HelpProvider1.SetHelpNavigator(Me.Button7, System.Windows.Forms.HelpNavigator.KeywordIndex)
Me.Button7.Location = New System.Drawing.Point(344, 392)
Me.Button7.Name = "Button7"
Me.HelpProvider1.SetShowHelp(Me.Button7, True)
Me.Button7.Size = New System.Drawing.Size(152, 40)
Me.Button7.TabIndex = 19
Me.Button7.Text = "NEXT"
'
'Button8
'
Me.Button8.BackColor = System.Drawing.SystemColors.ControlDarkDark
Me.Button8.Font = New System.Drawing.Font("Bookman Old Style", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.HelpProvider1.SetHelpKeyword(Me.Button8, "customerhelpsystem")
Me.HelpProvider1.SetHelpNavigator(Me.Button8, System.Windows.Forms.HelpNavigator.KeywordIndex)
Me.Button8.Location = New System.Drawing.Point(520, 392)
Me.Button8.Name = "Button8"
Me.HelpProvider1.SetShowHelp(Me.Button8, True)
Me.Button8.Size = New System.Drawing.Size(152, 40)
Me.Button8.TabIndex = 20
Me.Button8.Text = "LAST"
'
'OleDbDataAdapter1
'
Me.OleDbDataAdapter1.DeleteCommand = Me.OleDbDeleteCommand1
Me.OleDbDataAdapter1.InsertCommand = Me.OleDbInsertCommand1
Me.OleDbDataAdapter1.SelectCommand = Me.OleDbSelectCommand1
Me.OleDbDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "CustomerTracking", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("CustID", "CustID"), New System.Data.Common.DataColumnMapping("FName", "FName"), New System.Data.Common.DataColumnMapping("LName", "LName"), New System.Data.Common.DataColumnMapping("Address", "Address"), New System.Data.Common.DataColumnMapping("Phone", "Phone"), New System.Data.Common.DataColumnMapping("email", "email")})})
Me.OleDbDataAdapter1.UpdateCommand = Me.OleDbUpdateCommand1
'
'OleDbDeleteCommand1
'
Me.OleDbDeleteCommand1.CommandText = "DELETE FROM CustomerTracking WHERE (CustID = ?) AND (Address = ?) AND (FName = ?)" & _
" AND (LName = ?) AND (Phone = ?) AND (email = ?)"
Me.OleDbDeleteCommand1.Connection = Me.OleDbConnection1
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_CustID", System.Data.OleDb.OleDbType.VarChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "CustID", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Address", System.Data.OleDb.OleDbType.VarChar, 30, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Address", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_FName", System.Data.OleDb.OleDbType.VarChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "FName", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_LName", System.Data.OleDb.OleDbType.VarChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "LName", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Phone", System.Data.OleDb.OleDbType.VarChar, 15, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Phone", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_email", System.Data.OleDb.OleDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "email", System.Data.DataRowVersion.Original, Nothing))
'
'OleDbConnection1
'
Me.OleDbConnection1.ConnectionString = "User ID=sa;Data Source=l28;Tag with column collation when possible=False;Initial " & _
"Catalog=CallCenter11;Use Procedure for Prepare=1;Auto Translate=True;Persist Sec" & _
"urity Info=False;Provider=""SQLOLEDB.1"";Workstation ID=l28;Use Encryption for Dat" & _
"a=False;Packet Size=4096"
'
'OleDbInsertCommand1
'
Me.OleDbInsertCommand1.CommandText = "INSERT INTO CustomerTracking(CustID, FName, LName, Address, Phone, email) VALUES " & _
"(?, ?, ?, ?, ?, ?); SELECT CustID, FName, LName, Address, Phone, email FROM Cust" & _
"omerTracking WHERE (CustID = ?)"
Me.OleDbInsertCommand1.Connection = Me.OleDbConnection1
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("CustID", System.Data.OleDb.OleDbType.VarChar, 10, "CustID"))
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("FName", System.Data.OleDb.OleDbType.VarChar, 20, "FName"))
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("LName", System.Data.OleDb.OleDbType.VarChar, 20, "LName"))
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Address", System.Data.OleDb.OleDbType.VarChar, 30, "Address"))
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Phone", System.Data.OleDb.OleDbType.VarChar, 15, "Phone"))
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("email", System.Data.OleDb.OleDbType.VarChar, 50, "email"))
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Select_CustID", System.Data.OleDb.OleDbType.VarChar, 10, "CustID"))
'
'OleDbSelectCommand1
'
Me.OleDbSelectCommand1.CommandText = "SELECT CustID, FName, LName, Address, Phone, email FROM CustomerTracking"
Me.OleDbSelectCommand1.Connection = Me.OleDbConnection1
'
'OleDbUpdateCommand1
'
Me.OleDbUpdateCommand1.CommandText = "UPDATE CustomerTracking SET CustID = ?, FName = ?, LName = ?, Address = ?, Phone " & _
"= ?, email = ? WHERE (CustID = ?) AND (Address = ?) AND (FName = ?) AND (LName =" & _
" ?) AND (Phone = ?) AND (email = ?); SELECT CustID, FName, LName, Address, Phone" & _
", email FROM CustomerTracking WHERE (CustID = ?)"
Me.OleDbUpdateCommand1.Connection = Me.OleDbConnection1
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("CustID", System.Data.OleDb.OleDbType.VarChar, 10, "CustID"))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("FName", System.Data.OleDb.OleDbType.VarChar, 20, "FName"))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("LName", System.Data.OleDb.OleDbType.VarChar, 20, "LName"))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Address", System.Data.OleDb.OleDbType.VarChar, 30, "Address"))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Phone", System.Data.OleDb.OleDbType.VarChar, 15, "Phone"))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("email", System.Data.OleDb.OleDbType.VarChar, 50, "email"))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_CustID", System.Data.OleDb.OleDbType.VarChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "CustID", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Address", System.Data.OleDb.OleDbType.VarChar, 30, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Address", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_FName", System.Data.OleDb.OleDbType.VarChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "FName", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_LName", System.Data.OleDb.OleDbType.VarChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "LName", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Phone", System.Data.OleDb.OleDbType.VarChar, 15, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Phone", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_email", System.Data.OleDb.OleDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "email", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Select_CustID", System.Data.OleDb.OleDbType.VarChar, 10, "CustID"))
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.BackColor = System.Drawing.SystemColors.InactiveCaption
Me.ClientSize = New System.Drawing.Size(752, 510)
Me.Controls.Add(Me.Button8)
Me.Controls.Add(Me.Button7)
Me.Controls.Add(Me.Button6)
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.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.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.Label1)
Me.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "CustomerTracking.CustID"))
Me.HelpButton = True
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "Form1"
Me.Text = "Form1"
CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
OleDbDataAdapter1.Fill(DataSet11)
bm = Me.BindingContext(DataSet11, "CustomerTracking")
bm.Position = 0
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
flag = 1
Dim ctr, len As Integer
Dim custid, custidval As String
dt = DataSet11.Tables("CustomerTracking")
len = (dt.Rows.Count - 1)
dr = dt.Rows(len)
custid = dr("CustId")
custidval = Mid(custid, 2, 3)
ctr = CInt(custidval)
If ctr >= 1 And ctr < 9 Then
ctr = ctr + 1
TextBox1.Text = "C00" & ctr
ElseIf ctr >= 9 And ctr < 99 Then
ctr = ctr + 1
TextBox1.Text = "C0" & ctr
ElseIf ctr >= 99 Then
ctr = ctr + 1
TextBox1.Text = "C" & ctr
End If
TextBox1.Enabled = False
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Enabled = False
custid = TextBox1.Text
flag = 3
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
custid = TextBox1.Text
dt = DataSet11.Tables("Employees")
dr = dt.Rows.Find(custid)
flag = 2
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If flag = 1 Then
dt = DataSet11.Tables("Employees")
dr = dt.NewRow()
dr(0) = TextBox1.Text
dr(1) = TextBox2.Text
dr(2) = TextBox3.Text
dr(3) = TextBox4.Text
dr(4) = TextBox5.Text
dr(5) = TextBox6.Text
dt.Rows.Add(dr)
TextBox1.Enabled = True
ElseIf flag = 2 Then
dr.Delete()
ElseIf flag = 3 Then
dt = DataSet11.Tables("Employees")
dr = dt.Rows.Find(custid)
dr.BeginEdit()
dr(0) = custid
dr(1) = TextBox2.Text
dr(2) = TextBox3.Text
dr(3) = TextBox4.Text
dr(4) = TextBox5.Text
dr(5) = TextBox6.Text
dr.EndEdit()
TextBox1.Enabled = True
End If
flag = 0
OleDbDataAdapter1.Update(DataSet11, "Employees")
OleDbDataAdapter1.Fill(DataSet11)
bm.Position = 0
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
bm.Position = 0
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
bm.Position -= 1
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
bm.Position += 0
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
bm.Position = bm.Count - 1
End Sub
End Class
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -