I. BÀI TẬP HƯỚNG DẪN
Chương 7 MÔI TRƯỜNG DỮ LIỆU
XÂY DỰNG GIAO DIỆN CHƯƠNG TRÌNH
Bước 19: Thêm vào một điều khiển vào dự án bằng cách chọn Project\Components trên menu; tìm đến mục Microsoft Hierachial Flexgrid Control 6.0 (OLEDB). Đánh dấu tùy chọn này và nhấp OK.
Bước 20: Mở Form1, tạo giao diện cho chương trình như dạng sau (hình bên dưới): Item 1: Label
Name: lblCompany Caption: Company Name Item 2: TextBox Name: txtCompany Text: micro Item 3: CommandButton Name: cmdGO Caption: GO Default: TRUE Item 4: Hierarchial FlexGrid Name: grdTitles AllowUserResizing: 1-flexResizeColumns DataSource: DataEnvironment1 DataMember: Publishers FixedCols: 0 Hình VII.2: Giao diện ứng dụng Trang 98
Bước 21: Nhấp chuột vào phải vào Hierarachical FlexGrid trên Form1, hộp thoại thuộc tính của Hierarachical được mở ra. Chọn mục BANDS trong hộp thoại này. Chọn Band0 (Publishers) sau đó không đánh dấu vào trường PubID (với tên là Expr1)
để nó không hiển thị khi thực hiện câu SQL. Cũng vậy, không đánh dấu vào trường PubID của Band1 (hình dưới):
Hình VII.3: Chọn trường hiển thị trên lưới
Bước 22: Đổi tên của các cột trong Band1 từ Expr2, Expr3 thành Title và Author bằng cách: Nhấp chuột 2 lần vào mục cần đổi tên trong Column Caption, nhập tên mới vào; sau đó chọn OK.
Bước 23: Mục đích của chương trình này là: Khi chương trình thực thi, trong TextBox có một từ là micro, từđược đề nghị tìm kiếm. Khi nhấp chuột vào nút nhấn; đoạn văn bản trong TextBox được dùng để thực thi câu SQL Publishers; câu SQL này sẽ truy tìm tất cả các công ty mà tên của chúng chứa chuỗi được nhập vào trong TextBox; kết quả trả vềđược hiển thị trên lưới. Do đó, ta sẽ xử lý sự kiện cmdGO_Click bằng đoạn mã sau:
MousePointer = vbHourglass With DataEnvironment1 .rsPublishers.Close
.Publishers "%" & txtCompany.Text & "%" End With
' Thiet lap tren luoi
Set grdTitles.DataSource = DataEnvironment1 grdTitles.CollapseAll
MousePointer = vbDefault
Bước 24: Lưu dự án và chạy chương trình. Sử dụng micro để tìm kiếm (ta có thể thử
với từ khác như: hill hay mill)