Đang chuẩn bị liên kết để tải về tài liệu:
THIẾT KẾ BIỂU MẪU DÙNG CÁC ĐIỀU KHIỂN - CHỈ ĐỊNH VỊ TRÍ CƠ SỞ DỮ LIỆU - 4

TT. Visual Basic End Enum Bước 9: Chương trình này thể hiện trên một form duy nhất và sử dụng mảng các điều khiển để tạo các bước để người dùng nhập thông tin vào. Do đó ta sử dụng tập tin tài nguyên để hiển thị các tên của điều khiển nhằm hiển thị cho chính xác. Vì thế ta cần có một hàm (thủ tục) để cập nhật thông tin nhập vào dựa vào các bước của người dung khi nhập thông tin vào. Vào Tools\Add Procedure để thêm thủ tục sau: Public Sub Hienthi() Dim i As. | TT. Visual Basic End Enum Bước 9 Chương trình này thể hiện trên một form duy nhất và sử dụng mảng các điều khiển để tạo các bước để người dùng nhập thông tin vào. Do đó ta sử dụng tập tin tài nguyên để hiển thị các tên của điều khiển nhằm hiển thị cho chính xác. Vì thế ta cần có một hàm thủ tục để cập nhật thông tin nhập vào dựa vào các bước của người dung khi nhập thông tin vào. Vào Tools Add Procedure để thêm thủ tục sau Public Sub Hienthi Dim i As Integer Kiem tra cac buoc Debug.Assert chisobuoc 1 Or chisobuoc 2 For i 0 To 2 Nhan lblHelp i .Caption LoadResString chisobuoc - 1 6 i 1 Nut cmdHelp i .Caption LoadResString chisobuoc - 1 6 i 4 If UCase cmdHelp i .Caption VO HIEU HOA Then cmdHelp i .Visible False Else cmdHelp i .Visible True End If txtHelp i .Text Next End Sub Bước 10 Khi chương trình thực hiện ta phải ở bước thứ nhất của quá trình nhập liệu Thêm đoạn mã sau trong thủ tục xử lý sự kiện Form_Load chisobuoc 1 Hienthi Bước 11 Mỗi khi có một nút nhấn được nhấp quá trình nhập liệu chuyển sang bước kế tiếp người sử dụng có thể đi đến bước kế tiếp hay trở về bước trước đó trong quá trình này. Vì các nút nhấn button là một mảng điều khiển control array nên chúng có cùng một sự kiện Click tác động vào gọi là cmdHelp_Click. Hàm xử lý này có tham số là một chỉ số kiểu Integer để nhận biết nút nhấn nào được nhấp. Ở đây ta thêm đoạn mã sau trong hàm xử lý sự kiện này. Private Sub cmdHelp_Click Index As Integer Select Case chisobuoc Case buoc1 cacyeucau.ten txtHelp 0 .Text cacyeucau.ho txtHelp 1 .Text cacyeucau.manv txtHelp 2 .Text Case buoc2 cacyeucau.sodt txtHelp 0 .Text cacyeucau.socmnd txtHelp 1 .Text cacyeucau.tinhtranghn txtHelp 2 .Text End Select Trang 46 TT. Visual Basic Cac nut nhan Select Case Index Case nuttrai Huy bo End Case nutgiua ve truoc chisobuoc buoc1 Hienthi Case nutphai di toi chisobuoc chisobuoc 1 If chisobuoc buoc2 Then Hienthi Else Guiyeucau End If End Select End Sub Bước 12 Khi quá trình nhập thông tin kết thúc thông tin này được lưu vào .