Giáo trình Visual FoxPro 6.0

n1 OF AnSang ACTIVATE POPUP C1M1 ON PAD Mon2 OF AnSang ACTIVATE POPUP C2M2 DEFINE POPUP C1M1 MARGIN MESSAGE 'Các lo ại bánh khác nhau' DEFINE BAR 1 OF C1M1 PROMPT 'B ánh nhân hoa qủa' DEFINE BAR 2 OF C1M1 PROMPT 'Bánh nhân th ịt ' ON BAR 1 OF C1M1 ACTIVATE POPUP C1M1B1 ON BAR 2 OF C1M1 ACTIVATE POPUP C1M1B2 DEFINE POPUP C1M1B1 MARGIN MESSAGE 'Các Lo ại nhân hoa qủa' DEFINE BAR 1 OF C1M1B1 PROMPT 'Bánh nhân cam ' DEFINE BAR 2 OF C1M1B1 PROMPT 'Bánh nhân táo ' DEFINE BAR 3 OF C1M1B1 PROMPT 'Bánh nhân lê ' DEFINE BAR 4 OF C1M1B1 PROMPT 'Bánh nhân chu ối' DEFINE POPUP C1M1B2 MARGIN MESSAGE 'Các lo ại nhân thịt' DEFINE BAR 1 OF C1M1B2 PROMPT 'Bánh nhân th ịt lợn' DEFINE BAR 2 OF C1M1B2 PROMPT 'Bánh nhân th ịt bò ' DEFINE BAR 3 OF C1M1B2 PROMPT 'Bánh nhân th ịt gà ' ON BAR 3 OF C1M1B2 ACTIVATE POPUP C1M1B2C1 DEFINE POPUP C1M1B2C1 MARGIN DEFINE BAR 1 OF C1M1B2C1 PROMPT 'Bánh nhân th ịt gà công nghiệp' DEFINE BAR 2 OF C1M1B2C1 PROMPT 'Bánh nhân th ịt gà ta ' DEFINE POPUP C2M2 MARGIN MESSAGE 'Các lo ại nước uống' DEFINE BAR 1 OF C2M2 PROMPT 'Cà phê ' DEFINE BAR 2 OF C2M2 PROMPT 'Nư ớc chanh' ON BAR 1 OF C2M2 ACTIVATE POPUP C2M2B1 DEFINE POPUP C2M2B1 MARGIN MESSAGE 'Các Loại cà phê' TRUNG TÂM ĐÀO TẠO TRỰC TUYẾN - ĐẠI HỌC KINH DOANH & CÔNG NGHỆ H À NỘI ELEC Trang 106 DEFINE BAR 1 OF C2M2B1 PROMPT 'Cà phê đen' DEFINE BAR 2 OF C2M2B1 PROMPT 'Ca phê nâu' ON BAR 2 OF C2M2B1 ACTIVATE POPUP C2M2B2C2 DEFINE POPUP C2M2B2C2 MARGIN MESSAGE 'Các lo ại cà phê nâu' DEFINE BAR 1 OF C2M2B2C2 PROMPT 'Cà phê nâu có đường ' DEFINE BAR 2 OF C2M2B2C2 PROMPT 'Cà phê nâu không đư ờng' ON SELECTION POPUP ALL DO Chon ACTIVATE MENU AnSang PROCEDURE Chon ACTIVATE WINDOW Win1 CLEAR ?Popup(), Prompt() WAIT 'Ấn phím' RETURN Bài tập: 1. Phần 7.4.1 (Di chuyển cửa sổ) 2. Phần 7.4.2 (Mở File bằng MENU POPUP) 3. Phần 7.4.3 (Mở nội dung Field băng MENU POPUP) 4. Phân 7.4.4 (Di chuyển MENU POPUP) 5. Phần 7.4.5 (Di chuyển Window) 6. Phần 7.4.6 (Menu Hệ thống) 7. Phần 7.4.7 (Lưu và phục hồi cửa sổ) 8. Phần 7.4.8 (Lưu và phục hồi nội dung màn hình) 9. Phần 7.4.9 (Menu dẫn xuất) TRUNG TÂM ĐÀO TẠO TRỰC TUYẾN - ĐẠI HỌC KINH DOANH & CÔNG NGHỆ H À NỘI ELEC Trang 107 Chương 8. Tạo các bẫy trong chương trình 8.1 Lệnh ON ERROR Khi gặp một lỗi bất kỳ ta muốn chương trình sẽ thực hiện một chương trình con nào đó hoặc thông báo dạng lỗi xuất hiện. Nhờ quá tr ình đó mà ta có thể vượt qua lỗi đó để làm một việc khác hoặc sửa lỗi đó. Lệnh ON ERRORS có dạng sau: ON ERROR [] Khi gặp lỗi chương trình sẽ thông báo lỗi bằng các hàm sau:  Hàm ERROR ()thông báo mã lỗi  Hàm MESSAGE() thông báo lỗi  Hàm MESSAGE (1) hiển thị lệnh sai  Hàm LINENO() thông báo số thứ tự dòng bị lỗi Lệnh ON ERROR thông có tham số cho phép huỷ bỏ bẫy lỗi. Ví dụ: set talk off clear ON ERROR DO ThongBao WITH MESS(1), ERROR(), MESS(), LINENO() ?sin(9 USU Nhansu Brws ON ERROR PROCEDURE ThongBao PARAMETER a, b, c,d ? 'Sai lệnh nào? : ' +a ? 'Mã của lỗi : ' + STR(b) ? 'Sai gì? : ' + c ?' Dòng nào sai :'+Str(c) ?'----------------------------------------------- ' RETURN 8.2 Lệnh ON KEY Lệnh có dạng như sauL: ON KEY [] Khi ấn một phím bất kỳ th ì lệnh được kích hoạt và thực hiện . Chương trình sau ta tạo một vòng lặp, khi chương trình đang chạy nếu ấn một phím bất kỳ thi lệnh ON KEY được kích hoạt và chương trình con có tên TamDung được thực hiện: SET TALK OFF USE khoia TRUNG TÂM ĐÀO TẠO TRỰC TUYẾN - ĐẠI HỌC KINH DOANH & CÔNG NGHỆ H À NỘI ELEC Trang 108 CLEAR ON KEY DO TamDung FOR i=1 to 10000 ?i,sin(i),cos(i) Next PROCEDURE TamDung h= INKEY() ?'Bạn đã gõ phím:',H WAIT RETURN 8.3 Lệnh ON KEY = Lệnh có dạng: ON KEY [=] Trong đó là mã phím hoặc tổ hợp phím. Bảng mã phím như sau: Mã phím Tên phím khi gõ 272-281 Alt+Q đến Alt +P 286-294 Alt+A đến Alt +L 300- 306 Alt+Z đến Alt +M 315-324 F1 đến F10 327 HOME 328 Up arrow (  ) 329 PgUp 331 Left arrow (  ) 333 Right arrow ( ) 335 End 336 Down arrow (  ) 337 PgDn 338 Ins 339 Ins 340-349 Shift+F1 đến Shift +F10 350 - 359 Ctrl+F1 đến Ctrl +F10 360 - 369 Alt+F1 đến Alt +F10 370 Ctrl+Print+Scrn 371 Ctrl+left arrow 372 Ctrl+right arrow 373 Ctrl+End 374 Ctrl+PgDn 375 Ctrl+Home 376 - 387 Alt+1 đến Alt +0,Alt+-,Alt+= 388 Ctrl+PgUp TRUNG TÂM ĐÀO TẠO TRỰC TUYẾN - ĐẠI HỌC KINH DOANH & CÔNG NGHỆ H À NỘI ELEC Trang 109 Ví dụ 1: CLEAR ON KEY = 315 DO TroGiup WITH VARREAD() SET TALK OFF USE khoia SCATTER TO temp DEFINE WINDOW VAO FROM 6,10 TO 20,70 PANEL ACTIVATE WINDOW VAO DO WHILE NOT EOF() @ 1,3 SAY 'Ho va dem: ' GET hodem @ 3,3 SAY 'Ten : ' GET ten @ 5,3 SAY 'Diem toan: ' GET toan @ 7,3 SAY 'Diem ly : ' GET ly @ 9,3 SAY 'Diem hoa : ' GET hoa @ 11,8 SAY 'An ESC de thoat hoac an F1 de tro giup' READ SKIP ENDDO DEACTIVATE WINDOW VAO RELEASE WINDOW VAO PROCEDURE TroGiup PARAMETERS TenTruong CLEAR DEFINE WINDOW HelpMe FROM 1,0 TO 5,79 ACTIVATE WINDOW HelpMe @ 0,20 SAY 'Đây là tên trường có tên: ' + TenTruong+ ' bạn chỉ vào DL hoặc chấp nhận' WAIT RELEASE WINDOW HelpMe RETURN 8.4 Lệnh ON KEY LABEL Lệnh có dạng sau: ON KEY [LABEL ] [] Sau đây là các nhãn phím: Tên nhãn Cách viết Shift+F11, Shift+F12 Shift+F11 ... Alt+F1 đến Alt +F12 Alt+F1, Alt+F2 ... TRUNG TÂM ĐÀO TẠO TRỰC TUYẾN - ĐẠI HỌC KINH DOANH & CÔNG NGHỆ H À NỘI ELEC Trang 110 Alt+0 đến Alt -9 Alt+0, Alt+1 ... Alt+A đến Alt +Z Alt+A, Alt+B ... Alt+PgUp Alt+PGUP Alt+PgDn Alt+PGDN Ctrl+left arrow Ctrl+LEFTARROW Ctrl+right arrow Ctrl+RIGHTARROW Ctrl+Home Ctrl+HOME Ctrl+End Ctrl+END Ctrl+PgUp Ctrl+PGUP Ctrl+PgDn Ctrl+PGDN Ctrl+A đến Ctrl +Z Ctrl+A, Ctrl+B ... Right Mouse RIGHTMOUSE Left Mouse LEFTMOUSE Mouse MOUSE Escape ESC 8.5 Lệnh ON ESCAPE Lệnh có dạng sau: ON ESCAPE Khi ấn phím ESC thì được thi hành Ví dụ chương trình: SET TALK OFF CLEAR ON KEY LABEL RIGHTARROW? 'Đây là phím d ịch phải (Right Arrow) ' ON KEY LABEL LEFTARROW? 'Đây là phím d ịch trái (Left Arrow)' ON KEY LABEL UPARROW? 'Đây là phím lên d òng (Up Arrow)' ON KEY LABEL DNARROW? 'Đây là phím xuống một dòng (Down Arrow)' SET ESCAPE ON Thoat=.T. ON ESCAPE Thoat=.F. @ 2,0 SAY 'Ấn các phím , ,  và  để xem lệnh ON KEY LABEL, ấn ESC để thoát' DEFINE WINDOW Input FROM 10,20 TO 14,60 DOUBLE ACTIVATE WINDOW Input DO WHILE Thoat ENDDO DEACTIVATE WINDOW Input ON KEY 8.6 Lệnh ON READERROR Lệnh có dạng: TRUNG TÂM ĐÀO TẠO TRỰC TUYẾN - ĐẠI HỌC KINH DOANH & CÔNG NGHỆ H À NỘI ELEC Trang 111 ON READERROR [] Khi nhập dữ liệu nếu gặp lỗi th ì thực hiện Ví dụ chương trình: CLOSE DATABASES SET STATUS OFF SET TALK OFF USE KhoiA ON READERROR DO LoiNhap @ 10,13 SAY 'Vào họ và đệm : ' GET HODEM @ 12,13 SAY 'Vào Tên : ' GET Ten @ 14,13 SAY 'Vào số báo danh : ' @ 14,30 GET SBDC Valid Val(right(sbdc,4))<=3000 READ PROCEDURE LoiNhap ?'Không có số báo danh '+sbdc WAIT 'ấn phím để tiếp tục' Clear RETURN TRUNG TÂM ĐÀO TẠO TRỰC TUYẾN - ĐẠI HỌC KINH DOANH & CÔNG NGHỆ H À NỘI ELEC Trang 112 Chương 9: Mảng và chuyển giao dữ liệu giữa các môi trường 9.1 Mảng Mảng được định nghĩa như sau: DIMENSION ( [, ]) a. Mảng một chiều Giả sử ta khai báo mảng A có 10 thành phần: DIMENSION A(10) Thứ tự truy cập mảng như sau: A(1), A(2), A(3), A(4),...,A(10) b. Mảng hai chiều DIMENSION B(2,4) Thứ tự truy cập mảng như sau: B(1,1), B(1,2), B(1,3), B(1,4) B(2,1), B(2,2), B(2,3), B(2,4) Ta có thể khai báo ngắn gọnT: DIMENSION A(10),B(2,4) Để gán giá trị ban đầu cho mảng ta dùng lệnh gán: A=0 hay STORE 0 TO A B='Tin học' hay STORE 'Tin học' TO B Điều đó có nghĩa là các thành phần của mảng A: A(1),...,A(10) đều bằng 0 v à các thành phần của mảng B: B(1,1),B(1,2) v.v..đều có cùng giá trị 'Tin học' Giả sử ta có mảng: DIMENSION M(2) STORE 'A' TO M(1) STORE 'B' TO M(2) DISPLAY MEMORY LIKE M Sau đó hiện lên: M Pub A ( 1) C "A" ( 2) C "B" Còn nếu: DIMENSION M(4) STORE 'A' TO M(1) STORE 'B' TO M(2) DISPLAY MEMORY LIKE M Sau đó hiện lên: M Pub A ( 1) C "A" ( 2) C "B" ( 3) L .F. TRUNG TÂM ĐÀO TẠO TRỰC TUYẾN - ĐẠI HỌC KINH DOANH & CÔNG NGHỆ H À NỘI ELEC Trang 113 ( 4) L .F. Hãy quan sát các ví dụ sau: DIMENSION M(4) STORE 'E' TO M(1) STORE 'F' TO M(2) STORE 'G' TO M(3) STORE 'H' TO M(4) DISPLAY MEMORY LIKE M M Pub A ( 1) C "E" ( 2) C "F" ( 3) C "G" ( 4) C "H" Còn nếu: DIMENSION M(2,3) DISPLAY MEMORY LIKE M M Pub A ( 1, 1) C "E" ( 1, 2) C "F" ( 1, 3) C "G" ( 2, 1) C "H" ( 2, 2) L .F. ( 2, 3) L .F. Như vậy khi mảng 2 chiều chuyển sang một chiều, th ì nội dung của mảng hai chiều được sao chép từ mảng một chiều theo trật tự trên. Ví dụ: DIMENSION ViDu(2,3) STORE 'Tạm biệt' TO ViDu(1,2) STORE 'Hello' TO ViDu(2,2) STORE 99 TO ViDu(6) STORE .T. TO ViDu(1) DISPLAY MEMORY LIKE ViDu Sau khi chạy sẽ có kết quả: VIDU Priv A ( 1, 1) L .T. ( 1, 2) C "Tạm biệt" ( 1, 3) L .F. ( 2, 1) L .F. ( 2, 2) C "Hello" TRUNG TÂM ĐÀO TẠO TRỰC TUYẾN - ĐẠI HỌC KINH DOANH & CÔNG NGHỆ H À NỘI ELEC Trang 114 ( 2, 3) N 99 ( 99.00000000) 9.2 Copy mảng Để copy nội dung của mảng a (nguồn) sang mảng b (đích) ta d ùng: =COPY (A,B) Ví dụ: set talk off clear dime a(4),b(4), c(5) a(1)=2 a(2)=5 a(3)=99 a(4)=1234 =ACOPY(a, b) ?B(1) ?B(2) ?B(3) ?B(4) =ACOPY(b,c) ?c(1) ?c(2) ?c(3) ?c(4) ?C(5) 9.3 Một số thuật toán về mảng a. Tìm max của mảng Giả sử ta tìm phần tử lớn nhất của mảng 20 thành phần. Ta lập trình như sau: Set talk off Clear Dimension A(20) A=0 For i=1 to 20 Input 'Vào phần tử A ( '+Str(i,2)+' )=' To A(i) Next Max=a(1) For i=2 to 20 If max<=a(i) max=a(i) next ?'Phần tử lớn nhất là:',max TRUNG TÂM ĐÀO TẠO TRỰC TUYẾN - ĐẠI HỌC KINH DOANH & CÔNG NGHỆ H À NỘI ELEC Trang 115 b. Tìm min của mảng Giả sử ta tìm phần tử nhỏ nhất của mảng 20 thành phần. Ta lập trình như sau: Set talk off Clear Dimension A(20) A=0 For i=1 to 20 Input 'Vào phần tử A ( '+Str(i,2)+' )=' To A(i) Next Min=a(1) For i=2 to 20 If min>=a(i) min=a(i) next ?'Phần tử nhỏ nhất là:',max c. Xếp mảng Giả sử ta xếp giảm dần các phần tử của mảng 20 th ành phần, ta lập trình như sau: Set talk off Clear Dimension A(20) A=0 For i=1 to 20 Input 'Vào phần tử A ( '+Str(i,2)+' )=' To A(i) Next for i=1 to 20 for j=i+1 to 19 if a(i)>a(j) tg=a(i) a(i)=a(j) a(j)=tg Endif 9.4 Chuyển bản ghi ra mảng hoặc biến nhớ Để dễ trình bày ta nên dựa vào một tệp CSDL, giả sử ta có tệp CSDL có t ên KHOIA.DBF như sau: STT SBDC HODEM TEN NGAYSINH KV DT TOAN LY HOA TONG TIEUSU 1 99A0001 Nguyễn Thị Hà 171279 1 01 6.5 5.0 5.5 17.0 2 99A0002 Trịnh Vĩnh Anh 280278 2 02 5.0 3.5 4.0 12.5 3 99A0003 Đỗ Văn Hùng 280679 3 03 7.0 5.5 6.0 18.5 4 99A0004 Trần Thanh Hải 011080 1 01 8.5 7.0 7.5 23.0 TRUNG TÂM ĐÀO TẠO TRỰC TUYẾN - ĐẠI HỌC KINH DOANH & CÔNG NGHỆ H À NỘI ELEC Trang 116 5 99A0005 Phan Trọng Thanh 241280 1 5A 9.0 7.5 8.0 24.5 6 99A0006 Đàm Hữu Thắng 190581 1 5B 3.0 1.5 2.0 6.5 7 99A0007 Lê Thanh Hồng 171177 2 09 4.5 3.0 3.5 11.0 8 99A0008 Nguyễn Phi Chung 020979 2 08 5.5 4.0 4.5 14.0 9 99A0009 Trần Tuấn Bảo 090280 2 07 6.5 5.0 5.5 17.0 10 99A0010 Nguyễn Đình Thu 151179 2 06 7.0 5.5 6.0 18.5 11 99A0011 Nguyễn Văn Hoàng 100177 2 09 8.5 7.0 7.5 23.0 12 99A0012 Đinh Việt Hữu 020180 2 09 9.0 7.5 8.0 24.5 13 99A0013 Đỗ Nguyễn Chu 071180 2 04 10.0 8.5 9.0 27.5 14 99A0014 Lý Xuân Thanh 200880 2 04 2.5 1.0 1.5 5.0 15 99A0015 Phạm Quốc Bình 140975 2 02 4.5 3.0 3.5 11.0 16 99A0016 Đoàn Mạnh Khanh 030280 3 10 5.0 3.5 4.0 12.5 17 99A0017 Nguyễn Văn Khoa 031278 3 11 6.0 4.5 5.0 15.5 18 99A0018 Tạ Hồng An 081180 2 09 8.0 6.5 7.0 21 .5 19 99A0019 Đỗ Trọng Ân 201180 2 07 7.0 5.5 6.0 18.5 20 99A0020 Đỗ Đình Khải 190479 2 08 5.0 3.5 4.0 12.5 Trong đó các tên Trường như sauT: STT : Số thứ tự HODEM : Họ đệm NGAYSINH : Ngày sinh KV : Khu vực DT : Đối tượng TOAN : Điểm toán LY : Điểm lý HOA : Điểm hoá TONG : Tổng điểm TIEUSU : Tiểu sử Lệnh có dạng như sau: SCATTER [FIELDS | FIELDS LIKE | FIELDS EXCEPT ] TO | TO BLANK | MEMVAR Copy dữ liệu từ bản ghi hiện thời sang mảng hoặc sang các biến nhớ. SCATTER tự động tạo ra các biến nhớ hoặc mảng nếu chúng ch ưa tồn tại.  FIELDS Chỉ một số trường trong danh sách trường mới được Copy  FIELDS LIKE | FIELDS EXCEPT Chúng ta có thể copy các trường vào biến nhớ hoặc mảng bằng dùng từ khoá LIKE hoặc EXCEPT TRUNG TÂM ĐÀO TẠO TRỰC TUYẾN - ĐẠI HỌC KINH DOANH & CÔNG NGHỆ H À NỘI ELEC Trang 117 SCATTER FIELDS LIKE A*,P* TO myarray SCATTER FIELDS LIKE A*,P* EXCEPT PARTNO* TO myarray  TO Nội dung các trường được đưa vào mảng  TO BLANK Một mảng được tạo với các phần tử trống.  MEMVAR Chuyển nội dung bản ghi ra các biến nhớ (các biến n hớ mang tên trườngc) và viết như sau: m.SBDC, m.HODEM v.v.. Ví dụ1: set talk off clear use khoia copy to khoia1 use khoia1 Dimension A(10) do while not eof() scatter to a ?a(1),a(2),a(3),a(4),a(5),a(6),a(7),a(8),a(9),a(10) Skip Enddo Giả sử không khai báo mảng thì máy sẽ tự động tạo ra mảng để lưu bản ghi đó set talk off clear use khoia copy to khoia1 use khoia1 do while not eof() scatter to a ?a(1),a(2),a(3),a(4),a(5),a(6),a(7),a(8),a(9),a(10) Skip Enddo Ví dụ 2: chuyển nội dung bản ghi ra biến nhớ SET TALK OFF USE Khoia COPY TO Khoia1 USE Khoia1 SCATTER MEMVAR MEMO && cất dữ liệu cũ DEFINE WINDOW Win1 FROM 5,10 to 20,70 PANEL TRUNG TÂM ĐÀO TẠO TRỰC TUYẾN - ĐẠI HỌC KINH DOANH & CÔNG NGHỆ H À NỘI ELEC Trang 118 ACTIVATE WINDOW Win1 @ 1,3 SAY 'Số báo danh: ' GET m.sbdc @ 3,3 SAY 'Họ đệm : ' GET m.hodem @ 5,3 SAY 'Tên : ' GET m.ten @ 7,3 SAY 'Ngày sinh : ' GET m.Ngaysinh @ 7,18 SAY 'Khu vực : ' GET m.KV @ 9,13 SAY 'Tiểu sử : ' @ 9,23 EDIT m.Tieusu SIZE 3,26 @ 13,13 SAY 'ấn Escape để thay đổi' READ ? m.sbd, m.hodem, m.ten, m.ngaysinh, m.kv IF LASTKEY() != 27 GATHER MEMVAR WAIT WINDOW 'Cất sự thay đổi' NOWAIT ELSE WAIT WINDOW 'Không cất sự thay đổi' NOWAIT ENDIF DEACTIVATE WINDOW Win1 BROWSE USE 9.5 Chuyển dữ liệu từ mảng vào bản ghi GATHER FROM | MEMVAR [FIELDS | FIELDS LIKE | FIELDS EXCEPT ]  Lệnh GATHER để lưu dữ liệu từ mảng hoặc từ biến nhớ v ào bản ghi hiện thời.  FROM  Copy từ mảng   MEMVAR copy vào bản ghi từ biến nhớ  FIELDS Chỉ những trường liệt kê trong mới nhận dữ liệu vào FIELDS LIKE | FIELDS EXCEPT Ví dụ: GATHER FROM myarray FIELDS LIKE A*,P* GATHER FROM myarray FIELDS LIKE A*,P* EXCEPT PARTNO* TRUNG TÂM ĐÀO TẠO TRỰC TUYẾN - ĐẠI HỌC KINH DOANH & CÔNG NGHỆ H À NỘI ELEC Trang 119 Ví dụ: SET TALK OFF USE Khoia COPY TO Khoia1 USE Khoia1 SCATTER MEMVAR MEMO && save old values DEFINE WINDOW Win1 FROM 5,10 to 20,70 PANEL ACTIVATE WINDOW Wind1 @ 1,3 SAY 'Số báo danh: ' GET m.sbdc @ 3,3 SAY 'Họ đệm : ' GET m.hodem @ 5,3 SAY 'Tên : ' GET m.ten @ 7,3 SAY 'Ngày sinh : ' GET m.Ngaysinh @ 7,18 SAY 'Khu vực : ' GET m.KV @ 9,13 SAY 'Tiểu sử:' @ 9,23 EDIT m.Tieusu SIZE 3,26 @ 13,13 SAY 'ấn Escape để thay đổi' READ IF LASTKEY() != 27 GATHER MEMVAR WAIT WINDOW 'Cất sự thay đổi' NOWAIT ELSE WAIT WINDOW 'Không cất sự thay đổi' NOWAIT ENDIF DEACTIVATE WINDOW Wind1 BROWSE USE TRUNG TÂM ĐÀO TẠO TRỰC TUYẾN - ĐẠI HỌC KINH DOANH & CÔNG NGHỆ H À NỘI ELEC Trang 120 Chương 10: Một số lệnh hiệu chỉnh dữ liệu 10.1 Các tuỳ chọn cao cấp của lệnh BROWSE Lệnh BROWSE có dạng sau: BROWSE [FIELDS ] [FONT [, ]] [STYLE ] [FOR ] [FREEZE ] [KEY [, ]] [LEDIT] [REDIT] [LOCK ] [LPARTITION] [NOAPPEND] [NOCLEAR] [NODELETE] [NOEDIT | NOMODIFY] [NOLGRID] [NORGRID] [NOLINK] [NORMAL] [NOWAIT] [PARTITION ] [PREFERENCE ] [SAVE] [TIMEOUT ] [TITLE ] [VALID [ERROR ]] [WHEN ] [WIDTH ] [[WINDOW ] [IN [WINDOW] | IN SCREEN]] [COLOR SCHEME | COLOR ] BROWSE là một trong những lệnh mạnh của FoxPro. Sử dụng BROWSE để mở cửa sổ Browse và hiển thị các bản ghi của tệp cơ sở dữ liệu. Nếu như bạn cảm thấy cú pháp quá phức tạp th ì nhiều khi chỉ cần gõ BROWSE là có thể hiệu chỉnh được các bản ghi. Nhưng muốn tận dụng được sức mạnh của nó bạn TRUNG TÂM ĐÀO TẠO TRỰC TUYẾN - ĐẠI HỌC KINH DOANH & CÔNG NGHỆ H À NỘI ELEC Trang 121 nên tuỳ từng tình huống cụ thể mà sử dụng các mệnh đề và từ khoá của lệnh. Sau đây là mô tả các mệnh đề và từ khoá của nó. 1. [FIELDS ] Mệnh đề [FIELDS ] định ngh ĩa các trường cần hiển thị, ví dụ: USE KHOIA BROWSE FIELD Hodem,ten,sbdc · · Nếu muốn một trường nào đó không được phép sửa ta thêm: R vào sau trường đó Ví dụ: USE KHOIA BROWSE FIELD Hodem,ten,sbdc :R Như vậy trường SBDC chỉ đọc mà không được phép sửa · · Có thể xác định độ rộng của trường đó như sau: USE KHOIA BROWSE FIELD Hodem,ten,sbdc :R :8 Ở trên trường SBDC chỉ đọc (:R) và có độ rộng 8 kí tự (:8) · · Giả sử ta khống chế trường SBDSO (Số báo danh số) chỉ đ ược sửa từ số báo danh 1 đến số báo danh 12, ta viết như sau: USE KHOIA BROWSE FIELD Hodem,ten,sbdso :V=(sbdso<13) :F · · Khi dùng tuỳ chọn: V và : F ở trên, nếu muốn có một thông báo lỗi ta viết như sau: USE KHOIA BROWSE FIELD Hodem, ten, sbdso :V=(sbdso<13) :F:E='Không đư ợc phép' · · Nếu muốn chỉ định một khoảng giá trị để hiệu chỉnh, giả sử chỉ đ ược sửa SBDSO (số được gõ vào thay cho số cũ) từ 12, 20 ta viết như sau: USE KHOIA BROWSE FIELD Hodem, ten, sbdso :B=12,20 · · Muốn hiển thị môt tên trường mới thay cho tên trường đã có ta gõ như sau: USE KHOIA BROWSE FIELD Hodem, ten, sbdso :H='So Bao Danh' · · Chỉ được sửa những bản ghi có SBDSO <12 ta g õ như sau: USE KHOIA BROWSE FIELD Hodem, ten, sbdso :W=SBDSO<12 2. [FONT [, ]] Khi chạy trong môi trường Windows thì là tên phông chữ (VnTime, VnTimeH v.v..) còn là cỡ phông, nếu không có tham số này, FoxPro sẽ dùng cỡ phông 10. Ví dụ: TRUNG TÂM ĐÀO TẠO TRỰC TUYẾN - ĐẠI HỌC KINH DOANH & CÔNG NGHỆ H À NỘI ELEC Trang 122 USE KHOIA BROWSE FIELD Hodem, ten, sbdso Font '.VnTime', 14 3. [STYLE ] Biểu thức ký tự xác định kiểu của phông (B= Béo, I=nghiêng v.v..) USE KHOIA BROWSE FIELD Hodem, ten, sbdso Font '.VnTime', 14 Style 'B' 4. [FOR ] Điều kiện để hiển thị các bản ghi, ví dụ: USE KHOIA BROWSE FIELD Hodem, ten, TongDiem For TongDiem >=16 5. [FREEZE ] Chỉ cho phép hiệu chỉnh trường C , ví dụ: USE KHOIA BROWSE FIELD Hodem, ten, TongDiem FREEZE TongDiem 6. [KEY [, ]] Mệnh đề KEY được dùng để giới hạn phạm vi các bản ghi đ ược hiển thị, ví dụ: USE Khoia INDEX ON SBDSO TO SBDINDEX BROWSE KEY 1,40 Nghĩa là chỉ hiện các bản ghi có số báo danh từ 1 đến 40 USE Khoia INDEX ON Ten TO TenIndex BROWSE KEY 'A', 'N' Hiển thị những bản ghi có tên với chữ cái đầu từ A đến N USE Khoia INDEX ON Ten TO TenIndex BROWSE KEY 'A'' Hiển thị những bản ghi có tên với chữ cái đầu từ A 7. [LEDIT] [REDIT] [LEDIT] cho phép hiển thị dữ liệu dạng BROWSE [REDIT] cho phép chuyển sang hiển thị dạng lệnh EDIT hoặc CHANGE 8. [LOCK ] Cho phép cố định trường bên trái trong khi vẫn di chuyển trỏ sang phải. phải nhỏ hơn số lượng các trường hiện ra màn hình. USE KHOIA BROWSE FIELD Hodem, ten, TongDiem LOCK 2 9. [LPARTITION] Đưa trỏ sang vùng bên trái, ví dụ: USE KHOIA BROWSE PARTITION 40 LPARTITION TRUNG TÂM ĐÀO TẠO TRỰC TUYẾN - ĐẠI HỌC KINH DOANH & CÔNG NGHỆ H À NỘI ELEC Trang 123 Mệnh đề PARTITION 40 chia cửa sổ th ành hai phần, đường phân cách đứng nằm ở cột 40, bình thường trỏ nằm ở bên phải nhưng nếu có mệnh đề LPARTITION thì trỏ sẽ được đặt ở phần trái. 10. [NOAPPEND] Từ khoá NOAPPEND sẽ không cho phép ghép các bản ghi v ào sau tệp, ví dụ: USE KHOIA BROWSE FIELD Hodem, ten, TongDiem NOAPPEND 11. [NOCLEAR] Từ khoá NOCLEAR báo cho lệnh BROWSE để lại tr ên màn hình một ảnh của cửa sổ BROWSE sau khi thoát, ví dụ: USE KHOIA BROWSE FIELD Hodem, ten, TongDiem NOCLEAR 12. [NODELETE] Không cho xoá các bản ghi, ví dụ: USE KHOIA BROWSE FIELD Hodem, ten, TongDiem NODELETE 13. [NOEDIT | NOMODIFY] Loại bỏ việc hiệu chỉnh dữ liệu. USE KHOIA BROWSE FIELD Hodem, ten, TongDiem NOEDIT Hoặc: USE KHOIA BROWSE FIELD Hodem, ten, TongDiem NOMODIFY 14. [NOLGRID] [NORGRID] Không hiển thị đường kẻ dọc phân cách các trường của phân vùng bên trái hoặc bên phải, ví dụ: USE KHOIA BROWSE PARTITION 40 NOLGRID 15. NOLINK Từ khoá NOLINK báo cho lệnh BROWSE không nối kết các phân v ùng, nghĩa là khi ta di chuyển trỏ đến các bản ghi khác nhau ở phân v ùng này thì các bản ghi ở phân vùng kia vẫn nằm yên, ví dụ: USE KHOIA BROWSE PARTITION 40 NOLINK 16. [NORMAL] Nếu chỉ định từ khoá NORMAL th ì cửa sổ BROWSE vẫn xuất hiện ở màn hình mặc dù có thể đang có một cửa sổ hoạt động, ví dụ: DEFINE WINDOW W1 FROM 1,2 TO 12,40 PANEL ACTIVATE WINDOW W1 USE KHOIA BROWSE TRUNG TÂM ĐÀO TẠO TRỰC TUYẾN - ĐẠI HỌC KINH DOANH & CÔNG NGHỆ H À NỘI ELEC Trang 124 Dữ liệu sẽ xuất hiện trong cửa sổ W1 v à cửa sổ BROWSE sẽ kết thừa các tính chất như màu, ZOOM, SIZE v.v.. của cửa sổ W1, con nếu: DEFINE WINDOW W1 FROM 1,2 TO 12,40 PANEL ACTIVATE WINDOW W1 USE KHOIA BROWSE NORMAL Thì dữ liệu sẽ xuất hiện ở màn hình (không phải trong W1) và nó kế thừa màu, ZOOM, SIZE v.v..của chính cửa sổ BROWSE. 17. [NOWAIT] Nếu có từ khoá NOWAIT, lệnh BROWSE sẽ hiển thị dữ liệu v à sau đó làm tiếp các lệnh trong chương trình mà không phải gõ CTRL +W hoặc CTRL +END, ví dụ: Set talk off Clear DEFINE WINDOW w1 FROM 1,2 TO 12,40 PANEL ACTIVATE WINDOW w1 USE KHOIA BROWSE WAIT 'ấn phím để tiếp tục' BROWSE NOWAIT &&sẽ hiển thị dữ liệu nhưng không dừng DEFINE WINDOW w2 FROM 14,20 TO 20,70 PANEL ACTIVATE WINDOW w2 FOR i=1 TO 1000 ?i,sin(i) NEXT CLEAR ALL 18. [PARTITION ] Tách cửa sổ BROWSE thành hai phân vùng, có đường ngăn cách tại cột . USE KHOIA BROWSE PARTITION 40 19. [PREFERENCE ] Từ khoá PREFERENCE báo cho lệnh BROWSE l ưu cất các thuộc tính và tuỳ chọn của cửa sổ BROWSE và tệp tin tài nguyên có tên , để sau đó dùng lại, ví dụ: USE KHOIA BROWSE FIELD HODEM,TEN, SBDC COLOR SCHEME 3 PREFERENCE File1 **** Thoát bằng CTRL +W******** **** Phục chế lại nguyên dạng ********* BROWSE PREFERENCE File1 20. [SAVE] TRUNG TÂM ĐÀO TẠO TRỰC TUYẾN - ĐẠI HỌC KINH DOANH & CÔNG NGHỆ H À NỘI ELEC Trang 125 Để lại trên màn hình cửa sổ BROWSE và các trường trước khi thoát, ví dụ: USE KHOIA BROWSE FIELD HODEM,TEN, SBDC SAVE 21. [TIMEOUT ] Từ khoá TIMEOUT báo cho lệnh BROWSE chờ T giây, ví dụ: USE KHOIA BROWSE FIELD HODEM,TEN, SBDC TIMEOUT 5 Chú ý: Chỉ dùng TIMEOUT trong chương tr ình. 22. [TITLE ] Đặt tiêu đề cho cửa sổ BROWSE, ví dụ: USE KHOIA BROWSE FIELD HODEM,TEN TITLE ' Thi khoi A' 23.[VALID [:F] [ERROR ]] Chỉ sửa dữ liệu khi thoả mãn , ví dụ: USE KHOIA BROWSE VALID KV0 ERROR 'Không đư ợc phép' Nghĩa là khi sửa trường KV (Khu vực), ta chỉ có thể g õ vào các số 1,2, 3 mà thôi, còn nếu gõ vào khác các số đó thì có thông báo lỗi . 24. [WHEN ] Chỉ hiệu chỉnh khi thoả mãn điều kiện USE KHOIA BROWSE WHEN KV0 25. [WIDTH ] Đặt độ rộng cho các trường, nếu độ rộng thực của trường lớn hơn thì nội dung trường sẽ được cuốn theo chiều ngang. USE KHOIA BROWSE WIDTH 10 26. [[WINDOW ] Cửa sổ BROWSE sẽ được hiện trong cửa sổ được định nghĩa trước đó.C DEFINE WINDOW W1 FROM 1,1 TO 20,40 PANEL USE KHOIA BROWSE WINDOW W1 27. [IN [WINDOW] | IN SCREEN]] Hiện ở một cửa sổ bên trong một cửa sổ khác, ví dụ: USE KHOIA DEFINE WINDOW WTo FROM 1,1 TO 20,40 PANEL DEFINE WINDOW WNho FROM 4,4 TO 15,30 PANEL ACTIVATE WINDOW Wto BROWSE WINDOW WNho In Wto 28. [COLOR SCHEME | COLOR ] Chỉ định lược đồ màu hoặc danh sách các thuộc tính màu. Thông thường COLOR SCHEME 10 là màu ngầm định.C TRUNG TÂM ĐÀO TẠO TRỰC TUYẾN - ĐẠI HỌC KINH DOANH & CÔNG NGHỆ H À NỘI ELEC Trang 126 USE KHOIA BROWSE COLOR SCHEME 5 Hoặc: USE KHOIA BROWSE COLOR 4 10.2 Các tuỳ chọn cao cấp của Lệnh CHANGE v à EDIT CHANGE [FIELDS ] [] [FOR ] [WHILE ] [FONT [, ]] [STYLE ] [FREEZE ] [KEY [, ]] [LEDIT] [REDIT] [LPARTITION] [NOAPPEND] [NOCLEAR] [NODELETE] [NOEDIT | NOMODIFY] [NOLINK] [NORMAL] [NOWAIT] [PARTITION ] [PREFERENCE ] [SAVE] [TIMEOUT ] [TITLE ] [VALID [:F] [ERROR ]] [WHEN ] [WIDTH ] [[WINDOW ] [IN [WINDOW] | IN SCREEN]] [COLOR SCHEME | COLOR ] Nếu không cung cấp [scope] th ì ALL được thiết lập, mỗi mệnh đề và từ khoá khác như lệnh BROWSE. Lệnh EDIT hoàn toàn như lệnh CHANGE. 10.3 Các tuỳ chọn cao cấp của lệnh @...SAY...GET Lệnh có dạng tổng quát như sau: TRUNG TÂM ĐÀO TẠO TRỰC TUYẾN - ĐẠI HỌC KINH DOANH & CÔNG NGHỆ H À NỘI ELEC Trang 127 @ SAY [FUNCTION ] [PICTURE ] [SIZE , ] [FONT [, <expN3]] [STYLE ] [COLOR SCHEME | COLOR ] GET | [FUNCTION ] [PICTURE ] [FONT [, ]] [STYLE ] [ENABLE | DISABLE] [MESSAGE ] [[OPEN] WINDOW ] [RANGE [] [, ]] [SIZE , ] [VALID | [ERROR ]] [WHEN ] [COLOR SCHEME | COLOR ] READ 1. Dòng (row) và cột (column) nơi bắt đầu hiển thị dữ liệu, nếu dùng SET DEVICE TO PRINTER để đưa kết xuất ra máy in th ì hàng có thể nằm trong phạm vi từ 0 ddến 32.768 và cột từ 0 đến 255. 2. là biểu thức bất kỳ, ví dụ: @10,12 SAY 'Chào bạn' @11,12 SAY 12*23 Phần chung cho cả SAY và GET 3. [FUNCTION ] Tạo khuôn dạng cho dữ liệu, biểu thức nhận các ký tự sau: a. Ký tự! Chuyển mọi ký tự viết thường thành viết hoa: @2,10 SAY 'Chào bạn ' FUNCTION '!' Khi hiển thị chữ 'Chào bạn' sẽ biến thành 'chào bạn'. b. Ký tự ^ Hiện thị các số theo dạng động: @12,10 SAY 1232*7654 FUNCTION '^' Sẽ hiển thị ở dòng 12 cột 10 số: .94279E+7 c. Ký tự $ TRUNG TÂM ĐÀO TẠO TRỰC TUYẾN - ĐẠI HỌC KINH DOANH & CÔNG NGHỆ H À NỘI ELEC Trang 128 Hiện thị dữ liệu theo dạng thức tiền tệ: @12,10 SAY 12*54 FUNCTION '$' Sẽ hiển thị kết quả: $648 d. Ký tự ( Bao các con số âm bằng các dấu ngoặc đơn: @12,10 SAY -112*54 FUNCTION '(' Sẽ hiển thịS: ( 6048) e. Ký tự A hoặc a Chỉ cho phép nhập các ký tự thuộc bảng chữ cái: Clear Ten=Space(7) @12,10 SAY 'Vào tên của ban? ' GET Ten FUNCTION 'A' READ ? Ten f. Ký tự B hoặc b Gióng thẳng hàng lề trái của trường, ví dụ USE KHOIA @12,10 SAY 'Vào họ đệm ? ' GET Hodem FUNCTION 'B' @13,10 SAY 'Vào tên ? ' GET Ten FUNCTION 'B' @14,10 SAY 'Vào điểm toán?' GET Toan FUNCTION 'B' READ g. Ký tự C Hiển thị ký tự CR sau một số dương: @14,10 SAY 1235 FUNCTION 'C' Kết quả: 1235 CR h. Ký tự D Hiển thị giá trị Date: @14,10 SAY 12345 FUNCTION 'D' Kết quả sẽ là:1/23/45 i. Ký tự E Hiển thị và nhập ngày tháng theo kiểu châu âu (ngày/Tháng /Năm): Clear A={} @14,10 SAY 'Vào dữ liệu dạng Date?' GET a FUNCTION 'E' ?a j. Ký tự I Canh văn bản nằm giữa: USE KHOIA @12,10 SAY 'Vào họ đệm ? ' GET Hodem FUNCTION 'I' @13,10 SAY 'Vào tên ? ' GET Ten FUNCTION 'I' @14,10 SAY 'Vào điểm toán?' GET Toan FUNCTION 'I' READ TRUNG TÂM ĐÀO TẠO TRỰC TUYẾN - ĐẠI HỌC KINH DOANH & CÔNG NGHỆ H À NỘI ELEC Trang 129 k. Ký tự J Dóng thẳng hàng bên phải: USE KHOIA @12,10 SAY 'Vào họ đệm ? ' GET Hodem FUNCTION 'J' @13,10 SAY 'Vào tên ? ' GET Ten FUNCTION 'J' @14,10 SAY 'Vào điểm toán?' GET Toan FUNCTION 'J' READ l. Ký tự K Nguyên cả trường được chọn (bôi đen) USE KHOIA @12,10 SAY 'Vào họ đệm ? ' GET Hodem FUNCTION 'K' @13,10 SAY 'Vào tên ? ' GET Ten FUNCTION 'K' @14,10 SAY 'Vào điểm toán?' GET Toan FUNCTION 'K' READ Nên dùng K khi ta định gõ lại toàn bộ nội dung của trường đó m. Ký tự L Hiển thị các chữ số 0 ở đầu thay vì dấu cách: A=123 @14,10 SAY 'Vào a =' GET a FUNCTION 'L' READ n. Ký tự M Lựa một giá trị trong USE KHOIA @12,10 SAY 'Vào khu vực? ' GET kv FUNCTION 'M 1,2,3' @13,10 SAY 'Vào ưu tiên?' GET ut FUNCTION 'M 1,2,3,4,5, 6,7,8,9,10,11' READ o. Ký tự S Cuốn duyệt theo chiều ngang trong khi sửa biến sau GET kiểu ký tự: p. Ký tự T Cắt bỏ dấu cách trước vào sau ra khỏi trường ký tự 2. [PICTURE ] a. Ký tự! Chuyển mọi ký tự viết thường thành viết hoa: @2,10 SAY 'chào bạn?' PICTURE '!!!!!!!!' Khi hiển thị chữ 'chào bạn' sẽ biến thành 'chào bạn'. Chú ý: Số ký tự! bằng số ký tự của dữ liệu b. Ký tự # Chỉ cho phép nhập các ký số, dấu cách v à dấu +,- USE KHOIA @10,12 SAY 'Vao khu vực?' GET kv PICTURE '#' READ c. Ký tự $ TRUNG TÂM ĐÀO TẠO TRỰC TUYẾN - ĐẠI HỌC KINH DOANH & CÔNG NGHỆ H À NỘI ELEC Trang 130 Hiển thị giá trị tiền tệH: @10,20 Say 12345 PICTURE '$$$$$$' d. Ký tự, Dấu phẩy ngăn cách ba chữ số để dễ đọc: @10,20 Say 1234567.87 PICTURE '99,999,999.99' Kết quả:1,234,567.89 e. Ký tự 9 Với dữ liệu character chỉ cho phép nhập ký số, với dữ liệu kiểu Numeric, chỉ cho phép nhập các ký số và dấu -,+ A=0 @10,20 Say 'Vào a =' GET a PICTURE '99999' READ f. Ký tự A Chỉ cho phép nhập các ký tự chữ cái: Ten=Space(7) @10,20 Say 'Vào tên của bạn?' GET ten PICTURE 'AAAAAAA' READ g. Ký tự L Chỉ cho phép nhập dữ liệu kiểu Logic (T/F/Y/N) a=.T. @10,20 Say 'Vào giá trị a?' GET a PICTURE 'L' READ h. Ký tự N Chỉ cho phép nhập các chữ cái và ký số: a=Space(7) @10,20 Say 'Vào giá trị a?' GET a PICTURE 'NNNNNNN' READ i. Ký tự X Cho phép nhập bất kỳ ký tự nào. j. Ký tự Y Chỉ cho phép nhập Y,y,N,n 3. [SIZE , ] Cho phép dữ liệu hiện trên dòng và cột. @1,2 SAY 'Tin học Quản lý' SIZE 4,4 Sẽ hiện thị: Tin Học Quan Ly 4. [FONT [, <expN3]] Như trong lệnh BROWSE 5. [STYLE ] TRUNG TÂM ĐÀO TẠO TRỰC TUYẾN - ĐẠI HỌC KINH DOANH & CÔNG NGHỆ H À NỘI ELEC Trang 131 Như trong lệnh BROWSE 6. [COLOR SCHEME | COLOR ] Như trong lệnh BROWSE 7. | Biến sau GET có thể là biến bộ nhớ hoặc biến trường 8. [ENABLE | DISABLE] Cho phép hoặc không cho phép truy cập đến biến GET. a=Space(7) @10,20 Say 'Vào giá trị a?' GET a Disable READ Sau đó muốn truy cập biến a: a=Space(7) @10,20 Say 'Vào giá trị a?' GET a Enable READ 9. [MESSAGE ] Định nghĩa một thông báo khi GET đang đ ược hiểu chỉnh a='Hoàng Văn Tài' @10,20 Say 'Vào giá trị a?' GET a MESSAGE 'Chỉ sửa tên' READ 10. [[OPEN] WINDOW ] Chỉ định tên cửa sổ nơi sẽ hiệu chỉnh trường MEMO Ví dụ: Clear DEFINE WINDOW Wind1 FROM 1,1 TO 20,20 DEFINE WINDOW Wind2 FROM 12,30 TO 20,70 USE nhansu @1,1 Get Tieusu1 OPEN WINDOW Wind1 @2,1 Get Tieusu2 OPEN WINDOW Wind2 Giả sử: Tieusu1 và Tieusu2 là hai trường MEMO 11. [RANGE [] [, ]] Khoảng hợp lệ của dữ liệu nhập tuoi=0 @10,20 Say 'Vào tuổi của bạn?' GET tuoi RANGE 13,35 READ 12. [VALID | [ERROR ]] Như trong lệnh BROWSE 13. [SIZE , ] Vùng hiệu chỉnh được xác định bằng dòng và cột: Kieu=Space(50) @10,20 Say 'Vào một câu kiều?' GET Kieu SIZE 4,15 READ 14. [WHEN ] TRUNG TÂM ĐÀO TẠO TRỰC TUYẾN - ĐẠI HỌC KINH DOANH & CÔNG NGHỆ H À NỘI ELEC Trang 132 Như trong lệnh BROWSE 15. [COLOR SCHEME | COLOR ] Như trong lệnh BROWSE Bài tập: 1. 1. Thử lại các tuỳ chọn của lệnh BROWSE tr ên máy 2. 2. Thử lại các tuỳ chọn của lệnh CHANGE v à EDIT trên máy 3. 3. Thử lại các tuỳ chọn của lệnh @...SAY...GET tr ên máy 4. Bạn thử thiết kế một chương trình có sử dụng các tuỳ chọn đó TRUNG TÂM ĐÀO TẠO TRỰC TUYẾN - ĐẠI HỌC KINH DOANH & CÔNG NGHỆ H À NỘI ELEC Trang 133 Chương 11: Chương tr ình con 11.1 Đặt vấn đề Khi lập trình để giải quyết một vấn đề, ta th ường chia vấn đề đó thành những phần nhỏ tương đối độc lập, mỗi phần nhỏ đó th ường được mô tả bằng một chương trình con dạng PROCEDURE hay FUNCTION. Với cách n ày chúng ta rút ngắn được chương trình do không phải viết lặp nhiều đoạn lệnh, ngo ài ra nếu gặp lỗi trong một thủ tục nào đó ta dễ dàng sửa lỗi trong thủ tục đó mà thôi. Khi thực hiện các PROCEDURE ta dùng lệnh: DO [WITH ] còn khi thực hiện các FUNCTION ta viết tên hàm và các tham biến của hàm ví dụ: Tong(x,y), ta sẽ mô tả chi tiết ở các phần sau. 11.2 Thủ tục (PROCEDURE) Thủ tục có dạng: PROCEDURE PARAMETER [,]...] RETURN Sau đây là ý nghĩa của các thành phần trong cấu trúc trên:  PROCEDURE Đây là dòng đầu của thủ tục, tên thủ tục theo nguyên tắc đặt tên biến (ở phần 1).  PARAMETER [,]...] Dùng để khai báo các tham số hình thức, để khi gọi sẽ truyền cho nó các tham số cụ thể, các tham số cụ thể này theo thứ tự của tham số hình thức.  Phần này chứa các lệnh của thủ tục  RETURN Là lệnh báo kết thúc thủ tục Ví dụ 1: Vào hai số tính tổng của nó Clear Set talk off Set deci to 4 Store 0 To s, a, b && Khai báo 3 số Do Vao With a, b &&Chạy chương trình Vao và truyền cho nó hai tham biến a,b Do Tong With s, a, b &&Chạy chương trình Tong và truyền cho nó ba tham biến s,a,b ?'Tổng s =',s && In kết quả ở chương trình chính *** Thủ tục vào hai số ******* TRUNG TÂM ĐÀO TẠO TRỰC TUYẾN - ĐẠI HỌC KINH DOANH & CÔNG NGHỆ H À NỘI ELEC Trang 134 Procedure Vao Parameter x,y Input 'Vào x =' To x Input 'Vào y =' To y Return *** Thủ tục tính tổng hai số ******* Procedure Tong Parameter Tong,x,y Tong=x+y Return Ví dụ 2: SET CENTURY ON a={} Do longdate With a,{11/29/99} ?a PROCEDURE longdate PARAMETER c,mdate c=CDOW(mdate) + ', ' + MDY(mdate) RETURN Sau khi chạy chương trình sẽ cho kết quả: Monday, November 29, 1999 Chương trình trên cũng còn có thể viết như sau: SET CENTURY ON ?longdate ({11/29/99}) PROCEDURE longdate PARAMETER mdate RETURN CDOW(mdate) + ', ' + MDY(mdate) Ta không dùng DO mà dùng như FUNCTION. Ví dụ 3: Truyền mảng vào thủ tục Clear Set talk off Dimension a(10) Store 0 to a Do Vao With a For i=1 to 10 ?a(i) Next TRUNG TÂM ĐÀO TẠO TRỰC TUYẾN - ĐẠI HỌC KINH DOANH & CÔNG NGHỆ H À NỘI ELEC Trang 135 ** Thủ tục vào mảng **** Proc Vao Para c For i=1 to 10 Input 'vao c('+str(i,1)+')=' to c(i) Next Return Ví dụ 4: Giả sử ta có tệp CSDL có t ên KHOIA như sau: STT SBDC HODEM TEN NGAYSINH KV DT TOAN LY HOA TONG 1 99A0001 Nguyễn Thị Hà 171279 1 01 6.5 5.0 5.5 17.0 2 99A0002 Trịnh Vĩnh Anh 280278 2 02 5.0 3.5 4.0 12.5 3 99A0003 Đỗ Văn Hùng 280679 3 03 7.0 5.5 6.0 18.5 4 99A0004 Trần Thanh Hải 011080 1 01 8.5 7.0 7.5 23.0 5 99A0005 Phan Trọng Thanh 241280 1 5A 9.0 7.5 8.0 24.5 6 99A0006 Đàm Hữu Thắng 190581 1 5B 3.0 1.5 2.0 6.5 7 99A0007 Lê Thanh Hồng 171177 2 09 4.5 3.0 3.5 11.0 8 99A0008 Nguyễn Phi Chung 020979 2 08 5.5 4.0 4.5 14.0 9 99A0009 Trần Tuấn Bảo 090280 2 07 6.5 5.0 5.5 17.0 10 99A0010 Nguyễn Đình Thu 151179 2 06 7.0 5.5 6.0 18.5 11 99A0011 Nguyễn Văn Hoàng 100177 2 09 8.5 7.0 7.5 23.0 12 99A0012 Đinh Việt Hữu 020180 2 09 9.0 7.5 8.0 24.5 13 99A0013 Đỗ Nguyễn Chu 071180 2 04 10.0 8.5 9.0 27.5 14 99A0014 Lý Xuân Thanh 200880 2 04 2.5 1.0 1.5 5.0 Lập một thủ tục tính tổng trung b ình của cột tổng, sau đó chương trình chính truyền tham biến thực vào để nhận: Set Talk off Clear Store 0 To Tb Do TrungBinh With Tb ?'Điểm trung bình chung là:',Tb PROCEDURE TBINH PARAMETER DTB USE KhoiA AVERAGE Tong To DTB RETURN 11.3 Hàm (FUNCTION) Hàm có cấu trúc như sau: FUNCTION PARAMETER [,]...] RETURN TRUNG TÂM ĐÀO TẠO TRỰC TUYẾN - ĐẠI HỌC KINH DOANH & CÔNG NGHỆ H À NỘI ELEC Trang 136 Sau đây là ý nghĩa của các thành phần trong cấu trúc trên:  FUNCTION Đây là dòng đầu của thủ tục, tên thủ tục theo nguyên tắc đặt tên biến (ở phần 1).  PARAMETER [,]...] Dùng để khai báo các tham số h ình thức, để khi gọi sẽ truyền cho nó các tham số cụ thể, các tham số cụ thể này theo thứ tự của tham số hình thức.  Phần này chứa các lệnh của hàm  RETURN Là lệnh báo kết thúc hàm và gán giá trị của biểu thức cho tên hàm. Ví dụ 1. Giả sử ta có tệp A99.DBF là tệp chứa các thông tin về tuyển sinh khối A như sau: STT SBDC HODEM TEN NGAYSINH KV DOITUONG TOAN LY HOA TONG TC 1 99A0001 Nguyễn Thị Hà 171279 1 01 6.5 5.0 5.5 17.0 2 99A0002 Trịnh Vĩnh Anh 280278 2 02 5.0 3.5 4.0 12.5 3 99A0003 Đỗ Văn Hùng 280679 3 03 7.0 5.5 6.0 18.5 4 99A0004 Trần Thanh Hải 011080 1 01 8.5 7.0 7.5 23.0 5 99A0005 Phan Trọng Thanh 241280 1 5A 9.0 7.5 8.0 24.5 6 99A0006 Đàm Hữu Thắng 190581 1 5B 3.0 1.5 2.0 6.5 7 99A0007 Lê Thanh Hồng 171177 2 09 4.5 3.0 3.5 11.0 8 99A0008 Nguyễn Phi Chung 020979 2 08 5.5 4.0 4.5 14.0 9 99A0009 Trần Tuấn Bảo 090280 2 07 6.5 5.0 5.5 17.0 10 99A0010 Nguyễn Đình Thu 151179 2 06 7.0 5.5 6.0 18.5 11 99A0011 Nguyễn Văn Hoàng 100177 2 09 8.5 7.0 7.5 23.0 12 99A0012 Đinh Việt Hữu 020180 2 09 9.0 7.5 8.0 24.5 13 99A0013 Đỗ Nguyễn Chu 071180 2 04 10.0 8.5 9.0 27.5 14 99A0014 Lý Xuân Thanh 200880 2 04 2.5 1.0 1.5 5.0 ....... Tuỳ theo Đối tượng mà điểm được tăng như sau: Tăng 3.5 điểm nếu Đối tượng là '01','02','03','04','5A','5B' và khu vực 3 Tăng 2.5 điểm nếu Đối tượng là '06','07','08' và khu vực 3 Không tăng nếu Đối tượng là '10','11' và khu vực 3 Tăng 4.5 điểm nếu Đối tượng là '01','02','03','04','5A','5B' và khu vực 2 Tăng 3.5 điểm nếu Đối tượng là '06','07','08 và khu vực 2 Tăng 1 điểm nếu Đối tượng là '10','11' và khu vực 2 Tăng 5.5 điểm nếu Đối tượng là '01','02','03','04','5A','5B' và khu vực 1 Tăng 4.5 điểm nếu Đối tượng là '06','07','08' và khu vực 1 Tăng 4 điểm nếu Đối tượng là '10','11' và khu vực 1 TRUNG TÂM ĐÀO TẠO TRỰC TUYẾN - ĐẠI HỌC KINH DOANH & CÔNG NGHỆ H À NỘI ELEC Trang 137 Tăng 2 điểm nếu đối tượng là '09' Ta lập trình dùng hàm INLIST như sau: set talk off use a99 REPL all TC with tonghs+ 3.5 for ut1(DoiTuong) and khuvuc='3' REPL all TC with tonghs+ 2.5 for ut2(DoiTuong) and khuvuc='3' REPL all TC with tonghs for ut3(DoiTuong) and khuvuc ='3' REPL all TC with tonghs+ 4.5 for ut1(DoiTuong) and khuvuc='2' REPL all TC with tonghs+ 3.5 for ut2(DoiTuong) and khuvuc='2' REPL all TC with tonghs+ 1 for ut3(DoiTuong) and khuvuc='2' REPL all TC with tonghs+ 5.5 for ut1(DoiTuong) and khuvuc='1' REPL all TC with tonghs+ 4.5 for ut2(DoiTuong) and khuvuc='1' REPL all TC with tonghs+ 4 for ut3(DoiTuong) and khuvuc='1' REPL all TC with tonghs+ 2 for DoiTuong='09' and khuvuc='2' ************ chuong trinh con *********** Function ut1 Parameter DoiTuong Ut1=Inlist(DoiTuong,'01','02','03','04','5A','5B') Return Ut1 Function ut2 Parameter DoiTuong Ut2=Inlist(Doituong,'06','07','08') Return Ut2 Function ut3 Parameter DoiTuong Ut3=!Inlist(Doituong,'01','02','03','04','5A','5B','06','07','08','09') Return Ut3 11.4 Biến toàn cục (Global) và biến cục bộ (Private) a. Biến toàn cục Trong một chương trình khi chúng ta khởi tạo giá trị cho các biến nhớ v à mảng, thì giá trị các biến đó sẽ tồn tại trong bộ nhớ cho đến khi ch ương trình kết thúc và chương trình chạy sau không thể sử dụng được các biến nhớ đó. Nhưng có nhiều khi ta muốn chương trình chạy sau sử dụng được các biến đó thì làm thế nào? Để làm được điều này ta phải khai báo các biến đó là toàn cục bằng lệnh sau: TRUNG TÂM ĐÀO TẠO TRỰC TUYẾN - ĐẠI HỌC KINH DOANH & CÔNG NGHỆ H À NỘI ELEC Trang 138 PUBLIC Ví dụ: PUBLIC a,b,c Như vậy a,b, c là biến toàn cục. Để khai báo mảng toàn cục ta dùng lệnh: PUBLIC [ARRAY] Ví dụ: PUBLIC ARRAY A(4), B(4), C(4,5) ho ặc PUBLIC A(4), B(4) ,C(4,5) Chú ýC:  Các biến toàn cục được khởi tạo bởi PUBLIC có giá trị ba n đầu là .F.  Lệnh PUBLIC phải thực hiện trước, trước khi gán giá trị cho các biến.  Các biến tạo ra trong cửa sổ lệnh là toàn cục b. Biến cục bộ Khi thực hiện một chương trình, nếu trong một chương trình con ta muốn dùng tên biến trùng với biến toàn cục, nhưng không muốn làm thay đổi biến toàn cục thì nên khai báo biến đó là biến cục bộ theo lệnh sau: PRIVATE Ví dụ: PRIVATE a, b, c Thì biến a, b, c là biến cục bộ, nghĩa là nó chỉ có ý nghĩa trong chương trình con đó mà thôi. Sau đây là ví dụ về chương trình. Set talk off Clear PUBLIC a, b a=1 b=2 Do InAn ?a, b Procedure InAn Private a a=150 b=100 ?' a b ' ?a, b Return Kết quả sau khi chạy chương trình là: a b 150 150 100 (giá trị trong chương trình con InAn) 1 1 100 (a là cục bộ, nên ra khỏi chương trình con a vẫn bằng 1) Lệnh PRIVATE còn có dạng khác: TRUNG TÂM ĐÀO TẠO TRỰC TUYẾN - ĐẠI HỌC KINH DOANH & CÔNG NGHỆ H À NỘI ELEC Trang 139 PRIVATE ALL [LIKE | EXCEPT ] Ví dụ 1: Cục bộ cho tất cả các biến. PRIVATE ALL Ví dụ 2: Cục bộ với những biến có chữ đầu là B.C PRIVATE ALL LIKE b* Ví dụ 3: Cục bộ với tất cả các biếnC, trừ biến có chữ đầu l à a PRIVATE ALL LIKE EXCEPT A* Ví dụ 4: Cục bộ với tất cả các biếnC, trừ biến có chữ đầu l à a và chữ thứ 3 là c. PRIVATE ALL LIKE EXCEPT a?c* Ví dụ 5: Cục bộ với tất cả các biến có 3 ký tự, trừ biến có chữ đầu l à A và chữ thứ 3 là d PRIVATE ALL LIKE EXCEPT a?d Chú ý: Biến khai báo ở chương trình chính là toàn cục, ví dụ trên có thể viết như sau: Set talk off Clear a=1 b=2 Do InAn ?a, b Procedure InAn Private a a=150 b=100 ?' a b ' ?a, b Return c. Hiển thị biến nhớ Để hiển thị nội dung biến nhớ (tên biến, toàn cuc hay cục bộ, kiểu và độ lớn) hãy dùng lệnh sau: DISPLAY MEMORY [LIKE ] [TO PRINTER | TO FILE ] d. Giải phóng các biến nhớ Để giải phóng các biến nhớ khỏi bộ nhớ h ãy thực hiện lệnh sau: RELEASE Ví dụ a=1 b='Tin hoc' TRUNG TÂM ĐÀO TẠO TRỰC TUYẾN - ĐẠI HỌC KINH DOANH & CÔNG NGHỆ H À NỘI ELEC Trang 140 c=.T. Release b,c Display memo Khi chạy chương trình chỉ có biến a được hiển thị. Lệnh giải phóng biến nhớ còn có cách viết khác: RELEASE ALL [ LIKE | EXCEPT ] Ví dụ: D1=12 D2=11 C=4 RELEASE ALL Like D* Hoặc có thể viết: D1=12 D2=11 C=4 RELEASE ALL EXCEPT C* Chú ý: Chỉ có lệnh RELEASE mới xoá đ ược biến toàn cục. Ví dụ: PUBLIC a1, a2,a3, b Store 10 to a1, a2, a3 Store 2 To b Release all like a* Display Memory Sau khi chạy chương trình ta thấy biến a1,a2, a3 không bị xo á TRUNG TÂM ĐÀO TẠO TRỰC TUYẾN - ĐẠI HỌC KINH DOANH & CÔNG NGHỆ H À NỘI ELEC Trang 141 Chương 12. Lệnh ghép ngang (JOIN) và lệnh cập nhật (UPDATE) 12.1 Lệnh Join Tạo một tệp CSDL mới từ tệp CSDL hiện h ành và một tệp CSDL thứ hai mở trong vùng làm việc khác. Mỗi bản ghi của tệp CSDL mới đ ược tạo bởi các trường trong hai bản ghi tương ứng. Sau đây là cú pháp lệnh: JOIN WITH | WITH TO FOR [FIELDS | FIELDS LIKE | FIELDS EXCEPT ] Các mệnh đề trên có ý nghĩa như sau:  | Xác định vùng làm việc của tệp CSDL thứ hai. Vùng làm việc có thể được xác định qua biểu thức số hoặc qua biểu thức ký tự .  TO là tên của tệp CSDL mới được tạo thành từ lệnh trên.  FOR Khi thực hiện lệnh JOIN mỗi bản ghi trong tệp CSDL hiện h ành sẽ được kết hợp lần lượt với từng bản ghi trong tệp CSDL thứ hai, nh ưng chỉ những bản ghi thoả mãn điều kiện .  [FIELDS | FIELDS LIKE | F IELDS EXCEPT ] Chỉ những trường trong hoặc trong LIKE hoặc không phải trong EXCEPT mới được kết nối, ví dụ: FIELDS LIKE A*,P* FIELDS LIKE A*,P* EXCEPT PARTNO* Ví dụ ta có hai tệp CSDL. Tệp thứ nhất có t ên HOSO.DBF với nội dung sau: Record# HOTEN NGAYSINH SBDC KHUVUC DOITUONG 1 Hoàng Thanh Hà 191180 99A311 3 11 2 Hoàng Trung Thành 231181 99A669 1 08 3 Nguyễn Anh Tuấn 250880 99A784 2 10 4 Vương Văn Hiệp 250778 99A971 2 09 5 Hoàng Văn Mạnh 300680 99A483 2 09 6 Hoàng Thọ Diện 281177 99A116 2 09 7 Vũ Thị Na 100479 99A492 1 08 8 Hoàng Văn Tường 260179 99A806 2 09 9 Nguyễn Văn Thuyết 210680 99A627 2 11 10 Bùi Thế Thuật 180281 99A633 2 10 11 Nguyễn Văn Đại 020879 99A171 2 09 12 Lê Thanh Nam 170880 99A504 2 09 13 Nguyễn Xuân Đô 041080 99A953 1 08 TRUNG TÂM ĐÀO TẠO TRỰC TUYẾN - ĐẠI HỌC KINH DOANH & CÔNG NGHỆ H À NỘI ELEC Trang 142 14 Đỗ Trí Duy 100481 99A123 2 09 15 Đinh Quang Hải 280479 99A328 2 10 16 Dương Thị Lan 230481 99A411 3 10 17 Nguyễn Quang Phú 240480 99A565 3 10 18 Hà Tất Thắng 151181 99A689 2 10 19 Bùi Duy Thức 100981 99A700 3 10 20 Lâm Hồng Hiệp 080180 99A223 3 11 Tệp thứ hai có tên DIEMTHI.DBF có nội dung như sau: Record# SBDC TOAN10 LY10 HOA10 TONGDIEM30 1 99A311 5.5 4.5 6.8 16.8 2 99A669 6.5 4.3 6.4 17.2 3 99A784 7.5 5.9 7.5 20.9 4 99A971 6.5 6.0 7.0 19.5 5 99A483 5.6 7.4 4.6 17.6 6 99A116 4.8 6.2 5.0 16.0 7 99A492 5.8 6.6 5.1 17.5 8 99A806 6.8 6.9 3.7 17.4 9 99A627 6.9 6.1 4.9 17.9 10 99A633 6.9 5.4 5.6 17.9 11 99A171 7.0 5.7 6.6 19.3 12 99A504 7.0 5.4 6.8 19.2 13 99A953 3.0 4.2 5.7 12.9 14 99A123 4.1 4.4 5.3 13.8 15 99A328 4.1 8.7 5.4 18.2 16 99A411 4.1 7.6 4.3 16.0 17 99A565 4.1 6.8 7.3 18.2 18 99A689 5.1 6.2 8.6 19.9 19 99A700 5.1 6.6 3.1 14.8 20 99A223 6.3 6.1 8.8 21.2 Ví dụ 1: Set talk off Select 1 Use HoSo Select 2 Use DiemThi Join With HoSo To TepMoi For sbdc=HoSo.Sbdc Use TepMoi Browse Khi chương trình chạy ta được TepMoi như sau: TRUNG TÂM ĐÀO TẠO TRỰC TUYẾN - ĐẠI HỌC KINH DOANH & CÔNG NGHỆ H À NỘI ELEC Trang 143 Record# SBDC TOAN10 LY10 HOA10 TONGDIEM30 HOTEN NGAYSINH KHUVUC DOITU ONG 1 99A311 5.5 4.5 6.8 16.8 Hoàng Thanh Hà 191180 3 11 2 99A669 6.5 4.3 6.4 17.2 Hoàng Trung Thành 231181 1 08 3 99A784 7.5 5.9 7.5 20.9 Nguyễn Anh Tuấn 250880 2 10 4 99A971 6.5 6.0 7.0 19.5 Vương Văn Hiệp 250778 2 09 5 99A483 5.6 7.4 4.6 17.6 Hoàng Văn M ạnh 300680 2 09 6 99A116 4.8 6.2 5.0 16.0 Hoàng Th ọ Diện 281177 2 09 7 99A492 5.8 6.6 5.1 17.5 Vũ Thị Na 100479 1 08 8 99A806 6.8 6.9 3.7 17.4 Hoàng Văn Tư ờng 260179 2 09 9 99A627 6.9 6.1 4.9 17.9 Nguyễn Văn Thuyết 210680 2 11 10 99A633 6.9 5.4 5.6 17.9 Bùi Thế Thuật 180281 2 10 11 99A171 7.0 5.7 6.6 19.3 Nguyễn Văn Đại 020879 2 09 12 99A504 7.0 5.4 6.8 19.2 Lê Thanh Nam 170880 2 09 13 99A953 3.0 4.2 5.7 12.9 Nguyễn Xuân Đô 041080 1 08 14 99A123 4.1 4.4 5.3 13.8 Đỗ Trí Duy 100481 2 09 15 99A328 4.1 8.7 5.4 18.2 Đinh Quang H ải 280479 2 10 16 99A411 4.1 7.6 4.3 16.0 Dương Th ị Lan 230481 3 10 17 99A565 4.1 6.8 7.3 18.2 Nguyễn Quang Phú 240480 3 10 18 99A689 5.1 6.2 8.6 19.9 Hà Tất Thắng 151181 2 10 19 99A700 5.1 6.6 3.1 14.8 Bùi Duy Th ức 100981 3 10 20 99A223 6.3 6.1 8.8 21.2 Lâm Hồng Hiệp 080180 3 11 Ví dụ 2: Set talk off Select 1 Use HoSo Select 2 Use DiemThi Join With HoSo To TepMoi For sbdc=HoSo.Sbdc Fields Hoso.Hoten, SBDC, TongDiem30 Use TepMoi Browse Khi chương trình chạy ta được TepMoi như sau: Record# HOTEN SBDC TONGDIEM30 1 Hoàng Thanh Hà 99A311 16.8 2 Hoàng Trung Thành 99A669 17.2 3 Nguyễn Anh Tuấn 99A784 20.9 4 Vương Văn Hiệp 99A971 19.5 5 Hoàng Văn Mạnh 99A483 17.6 6 Hoàng Thọ Diện 99A116 16.0 7 Vũ Thị Na 99A492 17.5 8 Hoàng Văn Tường 99A806 17.4 TRUNG TÂM ĐÀO TẠO TRỰC TUYẾN - ĐẠI HỌC KINH DOANH & CÔNG NGHỆ H À NỘI ELEC Trang 144 9 Nguyễn Văn Thuyết 99A627 17.9 10 Bùi Thế Thuật 99A633 17.9 11 Nguyễn Văn Đại 99A171 19.3 12 Lê Thanh Nam 99A504 19.2 13 Nguyễn Xuân Đô 99A953 12.9 14 Đỗ Trí Duy 99A123 13.8 15 Đinh Quang Hải 99A328 18.2 16 Dương Thị Lan 99A411 16.0 17 Nguyễn Quang Phú 99A565 18.2 18 Hà Tất Thắng 99A689 19.9 19 Bùi Duy Thức 99A700 14.8 20 Lâm Hồng Hiệp 99A223 21.2 12.2 Lệnh UPDATE Lệnh này dùng để cập nhật dữ liệu vào tệp CSDL hiện hành từ một tệp CSDL thứ hai đang mở trong một vùng làm việc khác. Cú pháp lệnh như sau: UPDATE ON FROM | REPLACE WITH [, WITH ...] [RANDOM] Các mệnh đề trên có ý nghĩa như sau:  ON Field là trường khoá, tệp CSDL hiện thời phải đ ược sắp xếp theo lệnh SORT hoặc lệnh INDEX trên trường này theo thứ thự tăng dần.  FROM | Xác định vùng làm việc của tệp CSDL thứ hai, nơi để lấy dữ liệu chuyển cho tệp hiện thời. Vùng làm việc có thể được xác định qua biểu thức số hoặc qua biểu thức ký tự .  REPLACE WITH [, WITH ...] Trường trong tệp CSDL hiện thời sẽ đ ược nhận giá trị v.v..  RANDOM Sẽ được dùng nếu tệp CSDL thứ hai không được sắp xếp theo trường khoá tăng dần. Nếu tệp CSDL thứ hai được sắp xếp tăng dần theo trường khoá thì mệnh đề này không cần thiết và qúa trình cập nhật được tiến hành nhanh hơn. Giả sử ta có tệp Hoso.dbf có các trường sau: Record# HOTEN NGAYSINH SBDC TONG 1 Hoàng Thọ Diện 281177 99A116 0.00 2 Đỗ Trí Duy 100481 99A123 0.00 3 Nguyễn Văn Đại 020879 99A171 0.00 4 Lâm Hồng Hiệp 080180 99A223 0.00 TRUNG TÂM ĐÀO TẠO TRỰC TUYẾN - ĐẠI HỌC KINH DOANH & CÔNG NGHỆ H À NỘI ELEC Trang 145 5 Hoàng Thanh Hà 191180 99A311 0.00 6 Đinh Quang Hải 280479 99A328 0.00 7 Dương Thị Lan 230481 99A411 0.00 8 Hoàng Văn Mạnh 300680 99A483 0.00 9 Vũ Thị Na 100479 99A492 0.00 10 Lê Thanh Nam 170880 99A504 0.00 11 Nguyễn Quang Phú 240480 99A565 0.00 12 Nguyễn Văn Thuyết 210680 99A627 0.00 13 Bùi Thế Thuật 180281 99A633 0.00 14 Hoàng Trung Thành 231181 99A669 0.00 15 Hà Tất Thắng 151181 99A689 0.00 16 Bùi Duy Thức 100981 99A700 0.00 17 Nguyễn Anh Tuấn 250880 99A784 0.00 18 Hoàng Văn Tường 260179 99A806 0.00 19 Nguyễn Xuân Đô 041080 99A953 0.00 20 Vương Văn Hiệp 250778 99A971 0.00 Và tệp Diem.dbf có các trường sau: Record# SBDC TOAN10 LY10 HOA10 TONGDIEM30 1 99A223 6.3 6.1 8.8 21.2 2 99A784 7.5 5.9 7.5 20.9 3 99A689 5.1 6.2 8.6 19.9 4 99A971 6.5 6.0 7.0 19.5 5 99A171 7.0 5.7 6.6 19.3 6 99A504 7.0 5.4 6.8 1 9.2 7 99A328 4.1 8.7 5.4 18.2 8 99A565 4.1 6.8 7.3 18.2 9 99A627 6.9 6.1 4.9 17.9 10 99A633 6.9 5.4 5.6 17.9 11 99A483 5.6 7.4 4.6 17.6 12 99A492 5.8 6.6 5.1 17.5 13 99A806 6.8 6.9 3.7 17.4 14 99A669 6.5 4.3 6.4 17.2 15 99A311 5.5 4.5 6.8 16.8 16 99A116 4.8 6.2 5.0 16.0 17 99A411 4.1 7.6 4.3 16.0 18 99A700 5.1 6.6 3.1 14.8 19 99A123 4.1 4.4 5.3 13.8 20 99A953 3.0 4.2 5.7 12.9 Ta muốn đưa cột TongDiem30 của tệp CSDL Diem.dbf sâng cột Tong của tệp Hoso.dbf theo trường khoá là SBDC, ta lập trình như sau: Set talk off Clear TRUNG TÂM ĐÀO TẠO TRỰC TUYẾN - ĐẠI HỌC KINH DOANH & CÔNG NGHỆ H À NỘI ELEC Trang 146 Select 1 Use Diem Select 2 Use Hoso Index on sbdc to sbdc1 Update On Sbdc From Diem Replace Tong With Diem.To ngDiem30 Random Select 2 Browse Sau khi chạy chương trình ta có kết quả: Record# HOTEN NGAYSINH SBDC TONG 1 Hoàng Thọ Diện 281177 99A116 16.00 2 Đỗ Trí Duy 100481 99A123 13.80 3 Nguyễn Văn Đại 020879 99A171 19.30 4 Lâm Hồng Hiệp 080180 99A223 21.20 5 Hoàng Thanh Hà 191180 99A311 16.80 6 Đinh Quang Hải 280479 99A328 18.20 7 Dương Thị Lan 230481 99A411 16.00 8 Hoàng Văn Mạnh 300680 99A483 17.60 9 Vũ Thị Na 100479 99A492 17.50 10 Lê Thanh Nam 170880 99A504 19.20 11 Nguyễn Quang Phú 240480 99A565 18.20 12 Nguyễn Văn Thuyết 210680 99A627 17.90 13 Bùi Thế Thuật 180281 99A633 17.90 14 Hoàng Trung Thành 231181 99A669 17.20 15 Hà Tất Thắng 151181 99A689 19.90 16 Bùi Duy Thức 100981 99A700 14.80 17 Nguyễn Anh Tuấn 250880 99A784 20.90 18 Hoàng Văn Tường 260179 99A806 17.40 19 Nguyễn Xuân Đô 041080 99A953 12.90 20 Vương Văn Hiệp 250778 99A971 19.50 Hoặc ta có thể viết lại chương trình để chạy nhanh hơn như sau: Set talk off Clear Select 1 Use Diem Index on SBDC to SbdDiem Select 2 Use Hoso Index on sbdc to sbdc1 Update On Sbdc From Diem Replace Tong With Diem.TongDiem30 Select 2 Browse