I. Chơng trình con (thủ tục và hàm)
d. Kích hoạt và thôi kích hoạt bảng chọn dọc
• Kích hoạt bảng chọn dọc dùng lệnh:
ACTIVE POPUP <Tên bảng chọn dọc> [AT <dòng,cột>][NOWAIT][BAR <Bt N>]
Trong đó:
- NOWAIT: kích hoạt bảng chọn dọc rồi tiếp tục thi hành lệnh sau lệnh ACTIVE - BAR <Bt N>: qui định mục chọn ngầm định khi kích hoạt.
Sau lệnh ACTIVE bảng chọn vẫn ở tình trạng hoạt động cho đến khi ấn ESC, phím mũi tên phải , phím mũi tên trái, kích hoạt một bảng chọn khác hoặc thi hành lệnh DEC POPUP. Khi một bảng chọn POPUP thôi kích hoạt, nó sẽ đợc xoá ra khỏi màn hình và văn bảnban đầu do bảng chọn bao phủ sẽ đợc phục chế, mọi bảng chọn con cháu của nó cũng sẽ thôi kích hoạt.
• Lệnh ẩn bảng chọn dọc:
HIDE POPUP <Danh sách POPUP> | ALL [SAVE]
Lệnh này làm bảng chọn không hiện trên màn hình để thi hành một thủ tục, chạy xong thủ tục bảng chọn lại hiện. Từ ALL : che mọi bảng chọn POPUP. Từ SAVE : ảnh của các POPUP vẫn giữ nguyên trên màn hình, sau này phải dùng lệnh CLEAR để xoá chúng.
• Lệnh hiện lại bảng chọn dọc:
SHOW POPUP <Danh sách POPUP> | ALL [SAVE]
Lệnh này có ích khi cần hiện một, nhiều hoặc tất cả các POPUP lên màn hình cho dù chúng không đợc kích hoạt. Từ SAVE : các ảnh của POPUP vẫn hiện lên màn hình, sau này phải dùng lệnh CLEAR để xoá.
• Thôi kích hoạt bảng chọn dọc:
DEACTIVATE POPUP <tên bảng chọn dọc>
Sau lệnh DEACTIVATE POPUP bảng chọn xoá khỏi màn hình, quyền điều khiển đợc trả về cho dòng lệnh ngay sau dòng lệnh ACTI POPUP. Sau lệnh DEACTIVATE POPUP bảng chọn có thể khởi động lại bằng lệnh ACTIVATE
• Gỡ bỏ các bảng chọn POPUP và các mục chọn:
CLEAR POPUP && gỡ bỏ các POPUP
RELEASE POPUP <Danh sách các POPUP> [Extended] RELEASE BAR <Bt N> OF POPUP <tên POPUP> RELEASE BARS ALL OF <tên POPUP>
CLEAR ALL
Nếu có Extended thì sẽ gỡ bỏ tất cả các bảng chọn con phụ thuộc vào bảng chọn định xoá.
Bài luyện tập:
set talk off clear
Defi popup BCD from 4,24 color schem 10
defi bar 1 of BCD prompt "----NOI DUNG CONG VIEC-- " SKIP defi bar 2 of BCD prompt " 1.\<Nhap du lieu " ;
mess "Chuong trinh nhap du lieu moi phat sinh" defi bar 3 of BCD prompt " 2.\<Sua du lieu " ;
mess "Chuong trinh sua du lieu nhap sai" defi bar 4 of BCD prompt " 3.\<Tim kiem " ;
mess "Chuong trinh tim kiem du lieu theo yeu cau" defi bar 5 of BCD prompt " 4.\<In bao cao " ;
mess "Chuong trinh in bao cao thong ke"
defi bar 6 of BCD prompt " 5.\<Ket thuc chuong trinh " ; mess "Chuong trinh nhap du lieu moi phat sinh" ON SELE bar 2 of BCD do nhapdl
ON SELE bar 3 of BCD do suadl ON SELE bar 4 of BCD do Timkiem ON SELE bar 5 of BCD do baocao
ON SELE bar 6 of BCD deac popup BCD ACTI POPUP BCD
RETURN