Imports [Link].
SqlClient
Public Class FormCustomer
Dim connectionString As String = "Data Source=YourServerName;Initial
Catalog=YourDatabaseName;Integrated Security=True"
Dim connection As New SqlConnection(connectionString)
' Hàm mở kết nối
Private Sub OpenConnection()
If [Link] = [Link] Then
[Link]()
End If
End Sub
' Hàm đóng kết nối
Private Sub CloseConnection()
If [Link] = [Link] Then
[Link]()
End If
End Sub
' Thêm khách hàng
Private Sub AddCustomer(name As String, address As String, phone As
String)
Try
OpenConnection()
Dim query As String = "INSERT INTO Customers (Name, Address,
Phone) VALUES (@Name, @Address, @Phone)"
Dim command As New SqlCommand(query, connection)
[Link]("@Name", name)
[Link]("@Address", address)
[Link]("@Phone", phone)
[Link]()
[Link]("Thêm khách hàng thành công!")
Catch ex As Exception
[Link]("Lỗi: " & [Link])
Finally
CloseConnection()
End Try
End Sub
' Sửa thông tin khách hàng
Private Sub EditCustomer(id As Integer, name As String, address As String,
phone As String)
Try
OpenConnection()
Dim query As String = "UPDATE Customers SET Name = @Name,
Address = @Address, Phone = @Phone WHERE CustomerID = @ID"
Dim command As New SqlCommand(query, connection)
[Link]("@ID", id)
[Link]("@Name", name)
[Link]("@Address", address)
[Link]("@Phone", phone)
[Link]()
[Link]("Sửa thông tin khách hàng thành công!")
Catch ex As Exception
[Link]("Lỗi: " & [Link])
Finally
CloseConnection()
End Try
End Sub
' Xóa khách hàng
Private Sub DeleteCustomer(id As Integer)
Try
OpenConnection()
Dim query As String = "DELETE FROM Customers WHERE
CustomerID = @ID"
Dim command As New SqlCommand(query, connection)
[Link]("@ID", id)
[Link]()
[Link]("Xóa khách hàng thành công!")
Catch ex As Exception
[Link]("Lỗi: " & [Link])
Finally
CloseConnection()
End Try
End Sub
' Tìm kiếm khách hàng theo tên
Private Sub SearchCustomerByName(name As String)
Try
OpenConnection()
Dim query As String = "SELECT * FROM Customers WHERE Name
LIKE '%' + @Name + '%'"
Dim command As New SqlCommand(query, connection)
[Link]("@Name", name)
Dim reader As SqlDataReader = [Link]()
' Hiển thị kết quả tìm kiếm
If [Link] Then
While [Link]()
' Giả sử bạn có các TextBox để hiển thị thông tin khách hàng
[Link] = reader("CustomerID").ToString()
[Link] = reader("Name").ToString()
[Link] = reader("Address").ToString()
[Link] = reader("Phone").ToString()
End While
Else
[Link]("Không tìm thấy khách hàng!")
End If
[Link]()
Catch ex As Exception
[Link]("Lỗi: " & [Link])
Finally
CloseConnection()
End Try
End Sub
' Quay lại: Ví dụ quay lại trạng thái ban đầu của form
Private Sub ResetForm()
[Link]()
[Link]()
[Link]()
[Link]()
[Link]("Form đã được reset!")
End Sub
' Các sự kiện button trên form (giả sử bạn có các button tương ứng trong
form)
Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles
[Link]
AddCustomer([Link], [Link],
[Link])
End Sub
Private Sub btnEdit_Click(sender As Object, e As EventArgs) Handles
[Link]
EditCustomer(Convert.ToInt32([Link]), [Link],
[Link], [Link])
End Sub
Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles
[Link]
DeleteCustomer(Convert.ToInt32([Link]))
End Sub
Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles
[Link]
SearchCustomerByName([Link])
End Sub
Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles
[Link]
ResetForm()
End Sub
End Class