Trên màn hình đơn, chúng ta thường cĩ các xử lý sự kiện sau:
Form_Load: Khởi tạo bảng dữ liệu và thực hiện xuất danh sách chọn (nếu cĩ), xuất lưới, xuất hồ sơ
Private Sub MH_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load <bang_du_lieu> = New <XL_TEN_BANG>
Danh_sach = Me.BindingContext(<bang_du_lieu>) Xuat_luoi_<ten_bang>()
Xuat_ho_so_<ten_bang>() End Sub
Sự kiện nhấn của các nút lệnh di chuyển: thay đổi dịng hiện hành nếu hợp lệ Private Sub Dau_Click(ByVal sender As Object, ByVal e As _
System.EventArgs) Handles Dau.Click
If Danh_sach.Position > 0 Then Danh_sach.Position = 0 End If
End Sub
Private Sub Truoc_Click(ByVal sender As Object, ByVal e As _
System.EventArgs) Handles Truoc.Click
If Danh_sach.Position > 0 Then Danh_sach.Position -= 1 End If
End Sub
Private Sub Sau_Click(ByVal sender As Object, ByVal e As _
System.EventArgs) Handles Sau.Click
If Danh_sach.Position < Danh_sach.Count - 1 Then Danh_sach.Position += 1
End If End Sub
Private Sub Cuoi_Click(ByVal sender As Object, ByVal e As _
System.EventArgs) Handles Cuoi.Click
If Danh_sach.Position < Danh_sach.Count - 1 Then Danh_sach.Position = Danh_sach.Count - 1 End If
End Sub
Sự kiện nhấn của nút thêm: Thực hiện xuất hồ sơ mới và đưa con trỏ nhập liệu về điều khiển bắt đầu
Private Sub Them_Click(ByVal sender As Object, ByVal e As _
System.EventArgs) Handles Them.Click
Xuat_ho_so_<ten bang>_moi() <Điều khiển bắt đầu>.Focus End Sub
Sự kiện nhấn của nút ghi: Thực hiện kiểm tra ghi. Nếu hợp lệ, thực hiện các bước: + Nếu Them_moi là True (đang thêm), thêm dịng mới trên Danh_sach
+ Nhập hồ sơ
+ Xuất hồ sơ
Private Sub Ghi_Click(ByVal sender As Object, ByVal e As _
System.EventArgs) Handles Ghi.Click
If Kiem_tra_ghi_<ten bang>() Then If Them_moi Then Danh_sach.AddNew() Nhap_ho_so_<ten bang>() Danh_sach.EndCurrentEdit() <bang_du_lieu>.Ghi() Xuat_ho_so_<ten bang>() End If End Sub
Sự kiện nhấn của nút khơng: Thực hiện xuất lại thơng tin trước đĩ.
Private Sub Khong_Click(ByVal sender As Object, ByVal e As _
System.EventArgs) Handles Khong.Click
Xuat_ho_so_<ten bang>() End Sub
Sự kiện nhấn của nút hủy: Nếu Them_moi là True, thực hiện xuất hồ sơ; ngược lại nếu kiểm tra hủy hợp lệ và đồng ý xĩa thực hiện:
+ Đánh dấu hủy dịng hiện hành trên Danh_sach
+ Thực hiện ghi dữ liệu của lớp xử lý + Xuất hồ sơ
Private Sub Huy_Click(ByVal sender As Object, ByVal e As _
System.EventArgs) Handles Huy.Click
If Them_moi Then
Xuat_ho_so_<ten bang>() Exit Sub
Else If Kiem_tra_huy_<ten bang>() Then
If MsgBox("Đồng ý hủy ?", MsgBoxStyle.Question + _
MsgBoxStyle.YesNo,"Xin cho biết") = MsgBoxResult.Yes Then Danh_sach.Current.Delete()
<bang_du_lieu>.Ghi()
End If Else
' Thơng báo lỗi End If
End Sub
Sự kiện CurrentChanged của Danh_sach: Thực hiện xuất hồ sơ, nếu khơng phải đang thêm mới Private Sub Danh_sach_CurrentChanged(ByVal sender As Object, ByVal e As _ System.EventArgs) Handles Danh_sach.CurrentChanged
If Not Them_moi Then
Xuat_ho_so_<ten_bang>() End If
End Sub