Visual Foxpro - Bài 7

lập trình trong Visual FoxproI. 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.
Nội dung trích xuất từ tài liệu:
Visual Foxpro - Bài 7 Bài 7 - lập trình trong Visual FoxproI. 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 Dùng các lệnh SET để thiết lập môi trường làm việ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 d iemSET 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 các câu Lệnh K và kết thúc, trường hợp tất 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 d iemSET RELATION TO mamon INTO MonhocSUM monhoc.sodvht*diem.diem1,monhoc.sodvht TO tongdiem,tongdvht FOR masv=SV-0624DTBC=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 d iemRETURN3. ...