Bài 7. Xử lý trên form Nhập liệu và form Tìm kiếm

Trong bài thực hành này, bạn sẽ làm quen với control Microsoft Hierachical FlexGridđể hiển thị kết quả tra cứu trên form Tìm kiếm.
Nội dung trích xuất từ tài liệu:
Bài 7. Xử lý trên form Nhập liệu và form Tìm kiếm Bài 7. BÀI GIẢNG THỰC HÀNH MÔN NHẬP MÔN CÔNG NGHỆ PHẦN MỀM Xử lý trên form Nhập liệu và form Tìm kiếmBài 7.Mục đích Trong bài thực hành này, bạn sẽ làm quen với control Microsoft Hierachical FlexGridđể hiển thị kết quả tra cứu trên form Tìm kiếm. Sau đó, bạn sẽ làm quen với việc xử lý nhập dữ liệu mới vào CSDL đ ối v ới các formNhập liệuYêu cầu Đã nắm được các khái niệm cơ bản về xây dựng ứng dụng bằng VB Sử dụng được hệ quản trị CSDL AccessVấn đề liên quan Làm việc với control Microsoft Hierachical FlexGrid Xử lý câu lệnh SQL InsertThời gian để hoàn tất bài thực hành: 90 phút 1 Bài 7. BÀI GIẢNG THỰC HÀNH MÔN NHẬP MÔN CÔNG NGHỆ PHẦN MỀMBài tập 7.1. Đọc- hiểu thiết kếMục đích: Tìm hiểu thiết kế và mã nguồn của 1 ứng dụng đã xây dựngsẵn 1. Mở Microsoft Access 2. Mở CSDL HOCSINH.MDB, tìm hiểu cấu trúc và relationship giữa các bảng của CSDL này 3. Mở Microsoft Visual Basic 4. Mở lại ứng dụng đã xây dựng ở bài tập trước, tìm hiểu và nhớ lại những bước đã làm, kèm theo lí do tại sao làm như vậy. 2 Bài 7. BÀI GIẢNG THỰC HÀNH MÔN NHẬP MÔN CÔNG NGHỆ PHẦN MỀMBài tập 7.2. Thiết kế giao diệnMục đích: Thiết kế form với control nâng cao 1. Thêm 1 form vào project và đặt tên là frmTimkiem với giao diện như sau: txHoTen cmdBaocao cmdTiepnhan cmdTimkiemTrovegridKetqua(chọn Project->Components->Microsoft HierachicalFlexGrid Control 6.0(OLEDB) để thêmcontrol này vàoToolBox, rồi kéo thảcontrol này từ ToolBoxvào form 3 Bài 7. BÀI GIẢNG THỰC HÀNH MÔN NHẬP MÔN CÔNG NGHỆ PHẦN MỀMBài tập 7.3. Thực thi câu lệnh để hiển thị form Tìm kiếmMục đích: Nhắc lại các lệnh gọi hiển thị form trong ứng dụng 1. Viết hàm sau đây với mục đích hiển thị form Tìm kiếm mới tạo ra thêm Private Sub HienthiTimkiem() Dim dlgTimkiem As New frmTimkiem dlgTimkiem.Show End Sub 2. Viết hàm xử lý sự kiện Click cho nút Tìm kiếm Hien thi Dialog Tim kiem khi nguoi dung click vao button Tim kiem Private Sub cmdTimkiem_Click() HienthiTimkiem End Sub 3. Chạy thử chương trình xem form Tìm kiếm đã được hiển thị khi người dùng click vào button Tìm kiếm hay chưa 4 Bài 7. BÀI GIẢNG THỰC HÀNH MÔN NHẬP MÔN CÔNG NGHỆ PHẦN MỀMBài tập 7.4. Xử lý form TìmkiếmMục đích: Làm quen với Microsoft Hierachical FlexGrid ControlTa sẽ cho phép người dùng nhập vào thông tin, và sau đó tìm kíếm học sinh thỏa yêu cầu bằng cácbước sauGhi chú: Tất cả các thao tác sau được làm tại frmTimkiem! 1. Kết nối CSDL a. Chọn công nghệ kết nối sử dụng là ADO (bước cơ bản thứ 1 trong kết nối CSDL) b. Khai báo biến connection là biến toàn cục Dim Cn As ADODB.Connection c. Mở kết nối tới CSDL trong hàm Form_Load (bước cơ bản thứ 2 trong kết nối CSDL) Private Sub Form_Load() ‘Khoi tao moi mot doi tuong Connection Set Cn = new ADODB.Connection Cn.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source = Hocsinh.mdb” Cn.Open End Sub 2. Tìm kiếm học sinh thỏa yêu cầu a. Sử dụng lại hàm đã được viết sẵn HienthiKQLenGrid Ham nay dung de hien thi du lieu tra ra tu 1 cau lenh Select len FlexGrid Tham so: strSQL: cau truy van SQL Cn: connection ket noi toi CSDL (da duoc mo san) Private Sub HienthiKQLenGrid(ByVal strSQL As String, ByVal Cn As ADODB.Connection) Dim Rs As New ADODB.Recordset Rs.Open strSQL, Cn, adOpenStatic, adLockOptimistic If (Not Rs.BOF) Then Di chuyen con tro ve dau RecordSet Rs.MoveFirst So dong va so cot cua grid gridKetqua.Rows = Rs.RecordCount + 1 gridKetqua.Cols = Rs.Fields.Count + 1 Hai bien tam Dim iMaxRow As Integer, iMaxCol As Integer iMaxRow = Rs.RecordCount 5 Bài 7. BÀI GIẢNG THỰC HÀNH MÔN NHẬP MÔN CÔNG NGHỆ PHẦN MỀM iMaxCol = Rs.Fields.Count - 1 Khai bao 2 bien dem luu giu gia tri dong va cot hien thoi Dim iCurRow As Integer, iCurCol As Integer Add thanh tieu de For iCurCol = 1 To iMaxCol gridKetqua.TextMatrix(0, iCurCol) = Rs(iCurCol - 1).Name Next Add du lieu tu RecordSet vao Grid For iCurRow = 1 To iMaxRow For iCurCol = 1 To iMaxCol gridKetqua.TextMatrix(iCurRow, iCurCol) = Rs(iCurCol - 1) Next Rs.MoveNext Next Else MsgBox Khong tim thay du lieu nao thoa dieu kien gridKetqua.Clear End If Rs.CloseEnd Sub b. Viết hàm xử lý sự kiện Click cho nút Tìm kiếmPrivate Sub cmdTimkiem_Click() Dim strSQL As String Thuc thi cau lenh SQL de lay tat ca CAC HOC SINH THOA DK strSQL = Select * from HOCSINH where HOTEN LIKE % & txtHotenTimkiem.Text &% Hien thi ket qua HienthiKQLenGrid strSQL, cnEnd Sub 3. Chạy thử chương trình ...