|
1) Trong dự án DataProject
ở kỳ trước, bà con mở biểu mẫu frmDataEnv và
mở rộng kích thước của nó như sau: [Width:
9000, Height: 6000].
2) Trong cửa sổ envNwind, bụp và giữ chuột
phải trên mục Orders để kéo biểu tượng này,
thả vào bên trong biểu mẫu.
3) Khi thả chuột phải, một trình đơn lòi ra, chọn
mục Hierarchical Flex Grid để thêm ô điều
khiển này vào và gắn kết nó với lệnh Orders.
4) Điều chỉnh kích thước ô điều khiển cho phù hợp,
rồi đổi tên nó thành hfgOrders.
5) Bụp chuột phải vào hfgOrders và chọn
Properties... để mở hộp thoại Property Pages,
rồi chọn phân trang Bands.
6) Trong danh sách Band, chọn Band 0
(dành cho lệnh Orders), xóa chọn đối với các
ô duyệt của các mục tin không muốn hiển thị. Trong
ví dụ này, bà con chỉ chọn các mục OrderID,
CustomerID, và OrderDate.
7) Tương tự, chọn Band 1 (dành cho lệnh
OrderDetails), không chọn mục tin OrderID
vì trị của nó do Band 0 cung cấp.
8) Bụp nút OK để đóng hộp thoại, rồi cho chạy
thử dự án. |
1) Thêm một biểu mẫu có tên frmParentChild
vào dự án DataProject.
2) Từ cửa sổ envNwind, bấm chuột trái để kéo
lệnh Orders (cha) vào biểu mẫu để tạo các ô
nhập liệu cho các mục tin trong bảng Orders.
Bà con sẽ thấy một ô điều khiển Hierarchical Flex
Grid cũng được tự động đưa vào.
3) Bà con dịch chuyển các ô văn bản và ô điều khiển
Hierarchical Flex Grid sao cho giống trên
hình 2 là được.
4) Thêm một ô điều khiển ADODC vào cuối biểu
mẫu, đặt tên là adcOrders (vì dùng để duyệt
các mẩu tin trong bảng Orders) và thuộc tính
Caption là “Orders table”.
5) Gõ dòng lệnh sau đây vào thủ tục xử lý tình huống
Form_Load để gắn kết adcOrders với
recordset rsOrders:
Set adcOrders.Recordset = envNwind.rsOrders
6) Chọn mục DataProject Properties... trên
trình đơn Project để mở hộp thoại
DataProject – Project Properties. Chọn tên
frmParentChild từ danh sách Startup Object,
rồi bụp nút OK.
7) Cho chạy dự án, dùng thanh duyệt adcOrders
để duyệt từng mẩu tin trong bảng Orders và
đối chiếu với các dòng tương ứng hiển thị trong ô
điều khiển Hierarchical Flex Grid, bà con sẽ
thấy chẳng khác chi trong Access. |
