Công cụ hợp lệ hoá liệu Visual Basic Công cụ hợp lệ hoá liệu Visual Basic Bởi: Khoa CNTT ĐHSP KT Hưng Yên Hợp lệ hoá liệu làm cho liệu nhập vào đảm bảo tính hợp lệ Hợp lệ hoá sử dụng kiện LostFocus phương thức SetFocus Sự kiện LostFocus xảy điều kiểm tiêu điểm Ta viết mã lệnh kiện để kiểm soát xem liệu dời khỏi điều kiểm hợp lệ chưa Nếu liệu chưa hợp lệ ta yêu cấu người nhập liệu phải nhập lại Như ta phải dời tiêu điểm điều kiểm Khi ta sử dụng phương thức SetFocus để đặt lại tiêu điểm cho điều kiểm Khung thủ tục LostFocus sau: Private Sub ControlName_ LostFocus() ‘ Mã Code End Sub Ví dụ: Private Sub TxtTen_ LostFocus() If len(TxtTen.Text)=0 then Msgbox “Tên không rỗng !” TxtTen.SetFocus End If End Sub 1/7 Công cụ hợp lệ hoá liệu Visual Basic Hợp lệ hoá sử dụng kiện Validate Sự kiện Validate xảy trước người dùng dịch chuyển tiêu điểm xa điều kiểm Do ta đặt mã lệnh để kiểm soát tính hợp lệ liệu kiện Validate nhằm ngăn cản người dùng dịch chuyển tiêu điểm tiêu chuẩn hình dạng liệu thoả mãn Khung thủ tục Validate sau: Private Sub ControlName_ Validate(Cancel As Boolean) ‘ Mã Code End Sub Nếu bạn xác lập Cancel True người dùng khả dời khỏi điều kiểm người nhận đữ liệu VD: Private Sub TxtTen_ Validate(Cancel As Boolean) If len(TxtTen.Text)=0 then Msgbox “Tên không rỗng !” Cancel=True End If End Sub Trên thực tế VB cung cấp cho bạn dòng lệnh để bảo vệ VB tạo biến cố Validate cho điều khiển liệu ghi hành thay đổi Ví dụ phương pháp Move First trứơc xử lý phương pháp Update, Delete Close Cú pháp cho thủ tục biến cố sau: Sub DataControlName_ Validate([Index As Integer,] Action As Integer, Save_ As Integer) End Sub ≅ Chú y: Bạn không nên đặt phương pháp biến cố Validate làm thay đổi ghi hành Kết chuyển đổi biến cố vô tận Các phương pháp truy 2/7 Công cụ hợp lệ hoá liệu Visual Basic cập liệu bạn đặt vào biến cố gồm UpdateRecord, UpdateControls, chúng không sinh biến cố Validate Điều cung cấp cho bạn phương pháp cập nhật cở liệu điều khiển gắn kết thủ tục biến cố Trong tham số tuỳ chon Index dùng điều khiển liệu phần mảng điều khiển mảng điều khiển Tham số Action gởi VB cho thủ tục biến cố báo nguyên nhân thực để biến cố Validate tạo Dưới danh sách kí hiệu xây dựng VB cho kiện Validate Constant Value Description vbDataActionCancel Cancel the operation when the Sub exits vbDataActionMoveFirst MoveFirst method vbDataActionMovePrevious MovePrevious method vbDataActionMoveNext MoveNext method vbDataActionMoveLast MoveLast method vbDataActionAddNew AddNew method vbDataActionUpdate Update operation (not UpdateRecord) vbDataActionDelete Delete method vbDataActionFind Find method vbDataActionBookmark The Bookmark property has been set vbDataActionClose 10 The Close method vbDataActionUnload 11 The form is being unloaded Nếu bạn thay đổi tham số Action thành vbDataActionCancel VB xoá thao tác trước rời khỏi thủ tục Sub Ngoài bạn thay đổi tham số Action sang giá trị khác, VB thực thi thao tác thay thao tác ban đầu thủ tục trải qua Ví dụ, thủ tục biến cố Validate xảy phương pháp MoveFirst tiến trình thủ tục bạn có dòng Action=vbDataActionMoveLast Thì VB dịch chuyển ghi hành đến cuối bảng Bạn chỉo dùng khả hành động tương thích VD: bạn thay đổi tham số hành động MoveFirst sang tham số vbDataActionUnload mà lỗi 3/7 Công cụ hợp lệ hoá liệu Visual Basic Tham số Save nhận hai giá trị True, False Nếu thông tin điều khiển gắn kết data-aware thay đổi, tham số True Điều cho bạn phương pháp phân tích thông tin có điêug khiển gắn kết trước cập nhật sở liệu Để xác định điều khiển data-aware thay đổi, bạn dùng tính chất DataChanged điều khiển Tính chất True nội dung điều khiển thay đổi False không thay đổi Hợp lệ hoá sử dụng kiện KeyPress, KeyUp, KeyDown - Các kiện xảy điều kiểm theo bảng sau: Sự kiện Xảy KeyPress Người sử dụng nhấn thả phím bàn phím đối tượng tầm ngắm KeyDown Người sử dụng nhấn phím bàn phím đối tượng tầm ngắm KeyUp Người sử dụng thả phím bàn phím đối tượng tầm ngắm Cú pháp biến cố sau: Private Sub ControlName_ KeyPress(KeyAscii As Integer) End Sub Private Sub ControlName_ KeyDown(KeyCode As Integer, Shift As Integer) End Sub Private Sub ControlName_ KeyUp(KeyCode As Integer, Shift As Integer) End Sub Trong tham số KeýyAscii KeyCode mã ASCII kýy tự vừa nhấn Tham số Shift nhận giá trị sau Constant Value Description vbShiftMask SHIFT key bit mask VbCtrlMask CTRL key bit mask 4/7 Công cụ hợp lệ hoá liệu Visual Basic VbAltMask ALT key bit mask Như ta đặt mã lệnh kiện để kiểm soát xem phím nhấn xem có hợp lệ hay không huỷ bỏ ky tự nhận cách gán KeyCode=0 Ví dụ: Private Sub TxtSo_KeyPress(KeyAscii As Integer) Static dautru As Boolean Static daucham As Boolean Select Case KeyAscii Case vbKeyBack, vbKeyLeft, vbKeyRight, Asc("0") To Asc("9") Case Asc("-") If (txtso.SelStart 0) Or dautru = True Then KeyAscii = Else dautru = True End If Case Asc(".") If daucham = True Then KeyAscii = Else daucham = True End If Case Else 5/7 Công cụ hợp lệ hoá liệu Visual Basic KeyAscii = End Select End Sub Hợp lệ hoá sử dụng kiện MouseDown, MoseUp - Các kiện xảy điều kiểm theo bảng sau: Sự kiện Xảy MouseDown Người sử dụng nhấn nút chuột trỏ chuột nằm đối tượng MouseUp Người sử dụng thả nút chuột trỏ chuột nằm đối tượng Cú pháp biến cố sau: Private Sub ControlName_ MouseUp(Button As Integer, Shift As Integer, X As_ Single, Y As Single) End Sub Private Sub ControlName_ MouseDown(Button As Integer, Shift As Integer, X As_ Single, Y As Single) End Sub Constant (Button) Value Description vbLeftButton Left button is pressed vbRightButton Right button is pressed vbMiddleButton Middle button is pressed Constant (Shift) Value Description vbShiftMask SHIFT key is pressed vbCtrlMask CTRL key is pressed vbAltMask ALT key is pressed 6/7 Công cụ hợp lệ hoá liệu Visual Basic Ta đặt mã lệnh để kiểm soát tính hợp lệ liệu hai kiện nhằm ngăn cản chấp nhận liệu tiêu chuẩn hình dạng liệu thoả mãn Ví dụ: Private Sub Cmdnhap_MouseDown(Button As Integer, Shift As Integer, X As Single,_ Y As Single) If Len(txtten) = Then MsgBox "Nhap ho ten!" txtten.SetFocus End If End Sub 7/7 .. .Công cụ hợp lệ hoá liệu Visual Basic Hợp lệ hoá sử dụng kiện Validate Sự kiện Validate xảy trước người dùng dịch chuyển tiêu điểm xa điều kiểm Do ta đặt mã lệnh để kiểm soát tính hợp lệ liệu. .. vbAltMask ALT key is pressed 6/7 Công cụ hợp lệ hoá liệu Visual Basic Ta đặt mã lệnh để kiểm soát tính hợp lệ liệu hai kiện nhằm ngăn cản chấp nhận liệu tiêu chuẩn hình dạng liệu thoả mãn Ví dụ: Private... True Then KeyAscii = Else daucham = True End If Case Else 5/7 Công cụ hợp lệ hoá liệu Visual Basic KeyAscii = End Select End Sub Hợp lệ hoá sử dụng kiện MouseDown, MoseUp - Các kiện xảy điều kiểm