Bài 7 - lập trình trong Visual Foxpro

I. Tạo và chạy một chương trình Visual Foxpro làm việc ở hai chế độ:o Cửa sổ lệnh - Các lệnh được đưa vào cửa sổ lệnh và thựcthi.o Chương trình - Tập các lệnh được thực hiện theo một thứ tựnào đó. Chương trình trong Visual Foxpro được lưu trong các file cóphần mở rộng là PRG.
Nội dung trích xuất từ tài liệu:
Bài 7 - lập trình trong Visual Foxpro 7 - lập trình trong Visual Foxpro BàiI. Tạo và chạy một chương trình Visual Foxpro làm việc ở hai chế độ:  o Cửa sổ lệnh - Các lệnh được đưa vào cửa sổ l ệnh và thực thi. o Chương trình - Tập các lệnh được thực hiện theo một th ứ t ự nào đó. Chương trình trong Visual Foxpro được lưu trong các file có  phần mở rộng là PRG.• Tạo một chương trình Lệnh (từ cửa sổ lệnh) MODIFY COMMAND ↵ Trong đó: là tên chương trình Khi đó xuất hiện cửa sổ soạn thảo cho phép soạn th ảo văn b ản chương trình. Kết thúc soạn: Nhấn Ctrl+W để ghi lại. Sửa chương trình: cũng dùng lệnh MODI COMM Một chương trình đơn giản Chương trình trong Visual Foxpro không qui định theo một cấu trúc nhất định. Xét một ví dụ đơn giản sau đây:* Phần 1 : Bắt đầu lệnh SET để thiết lập môi trường làm việc ...* Dùng các && Hiển thị năm dạng yyyySET CENTURY ON && Hiển thị ngày tháng dạng dd/mm/yyyySET DATE FREN && Đặt chế độ mở bảng dạng dùng riêngSET EXCLUSIVE ON* Phần 2: Chuẩn bị dữ liệu Mở các bản cần thiết, đặt quan hệ ....*CLOSE ALLSELECT 0USE Hososv ALIAS SINHVIENSET ORDER TO MASVSELECT 0USE diemSET RELATION TO masv INTO SINHVIEN* Phần 3: Chương trình chính Xử lý các yêu cầu đặt ra*BROWSE FIELDS masv,SINHVIEN.HOTEN,MAMON,DIEM1 ; FOR malop=3H-04 AND mamon=GT101 ; TITLE Bảng điểm môn GT101 - Lớp 3H-04 ; NOEDIT* Phần 4: Kết thúc Đóng các bảng đả mở, thiết lập lại chế độ làm việc ...*USE IN SINHVIENUSE IN DIEMRETURN Như trên ta thấy chương trình được tổ chức thành 4 phần: Phần 1: Bắt đầu - chuẩn bị môi trường (sử dụng các lệnh SET) Phần 2: Chuẩn bị dự liệu (mở các bảng, đặt quan hệ ...) Phần 3: Thân chương trình (xử lý các yêu cầu đặt ra) Phần 4: Kết thúc (Đóng các bảng đã mở, trả lại trạng thái ...)• Chạy (thực thi) một chương trình Lệnh (thực hiện từ cửa sổ lệnh) DO ↵II. lệnh có cấu trúc1. Lệnh IF .. ENDIF Thực hiện có điều kiện một tập các lệnh dựa vào giá trị của biểu thức logic Cú pháp: IF [THEN] Lệnh1 [ELSE Lệnh2] ENDIF Trong đó: BieuThucLG - Biểu thức logic  BieuThucLG = TRUE Thì các Lệnh1 được thực hiện  BieuThucLG = FALSE và sử dụng mệnh đề ELSE khi đó các  Lệnh2 được thực hiện. Ví dụ 1: Kiểm tra xem có ai sinh nhật vào hôm nay hay không? Nếu có thì hiển thị họ tên người đó.SET CENTURY ONSET DATE FRENSET EXCLUSIVE ONCLOSE ALLSELECT 0USE HOSOSV ALIAS HSSVLOCA FOR DAY(DATE())=DAY(Ngaysinh) and MONT(DATE())=MONT(Ngaysinh)IF Found() THEN WAIT WIND “Hom nay:”+DTOC(Date()) “la sinh nhat cua:”+HSSV.hotenELSE WAIT WIND “Khong co ai sinh nhat vao hom nay:”+DTOC(Date())ENDIFUSE IN HOSOSVRETURN Chú ý: Có thể sử dụng cấu trúc IF ENDIF lồng nhau. && IF thứ 1 IF BT1 THEN .... && IF thứ 2 IF BT2 THEN .... ELSE .... && Kết thúc IF thứ 2 ENDIF ELSE .... && Kết thúc IF thứ nhất. ENDIF2. Lệnh DO CASE ... ENDCASE Kiểm tra nhiều điều kiện logic, và thực hiện t ập l ệnh đầu tiên mà biểu thức logic có giá trị TRUE. Cú pháp: DO CASE CASE BieuThucLogic1 Lệnh 1 CASE BieuThucLogic2 Lệnh 2 ... CASE BieuThucLogicN Lệnh N [ OTHERWISE Lệnh N+1 ] ENDCASE Trong đó: BieuThucLogicK - Biểu thức logic  Thực hiện lệnh: Kiểm tra từ BieuThucLogic1 đến N nếu tồn  tại một BieuThucLogicK =TRUE thì chương trình sẽ thực hiện Lệnh kết trường hợp tất cả các câu K và thúc, các BieuThucLogic=FALSE và sử dụng mệnh đề OTHERWISE thì các Lệnh N+1 được thực hiện. Ví dụ 2: Tính điểm trung bình chung và tính xếp lo ại c ủa m ột sinh viên nào đó.SET TALK OFFCLOSE ALLSELECT 0USE monhocSET ORDER TO MaSELECT 0USE diemSET RELATION TO mamon INTO MonhocSUM monhoc.sodvht*diem.diem1,monhoc.sodvht TO tongdiem,tongdvhtFOR masv=SV-0624 DTBC=tongdiem/tongdvhtDO CASE CASE dtbc>9 WAIT WINDOW Xep loai: Xuat sac CASE dtbc>8 WAIT WINDOW Xep loai: Gioi CASE dtbc>7 WAIT WINDOW Xep loai: Kha CASE dtbc>6 WAIT WINDOW Xep loai: Trung Binh Kha CASE dtbc>5 WAIT WINDOW Xep loai: Trung Binh OTHERWISE WAIT WINDOW Xep loai: YeuENDCASEUSE IN monhocUSE IN diemRETURN3. Lệnh DO WHILE ... ENDDO Thực hiện một tập các lệnh trong vòng lặp có điều kiện. Cú pháp: DO WHILE Lệnh 1 [LOOP] [EXIT] Lệnh 2 ENDDO Trong đó: BieuThucLogic - Biểu thức logic  Thực hiện: Nếu BieuThucLogic=TRUE sẽ thực các Lệnh 1, Lệnh  2, khi đến ENDDO sẽ quay trở lại kiểm tra BieuThucLogic; trường hợp BieuThucLogic=FALSE sẽ kết thúc lệnh. Lệnh LOOP cho phép (ngay lập tức) trở lại bắt đầu vòng lặp (Kiểm tra BieuThucLogic), bỏ qua các lệnh giữa LOOP và ENDDO. Lệnh LOOP có thể đặt vào bất cứ đâu giữa DO WHILE và ENDDO. Lệnh lập tức) kết l ệnh EXIT cho phép (ngay thúc DO WHILE ...ENDDO và bỏ qua các lệnh giữa EXIT và ENDDO. Lệnh EXIT có thể đặt vào bất cứ đâu giữa DO ...