Giải bài tập foxpro 2016 Học Viện Quân Y

Giải Bài Tập FoxPro 2016
Bài 3
11.
Cách 1:
 CLOSE ALL
 SET DATE fren
 SET CENTURY on
 SET STATUS on
 USE E:\QLDL\QLBN.dbf
 CALCULATE ALL MIN(Ngayvao) FOR Khoa='A1' AND Ngayra={} To N
 LIST Hoten FOR Khoa='A1' AND Ngayra={} AND Ngayvao=N
Cách 2
 CLOSE ALL
 SET DATE fren
 SET CENTURY on
 SET STATUS on
 USE E:\QLDL\QLBN.dbf
 CALCULATE ALL MAX(DATE()-Ngayvao) FOR Khoa='A1' AND Ngayra={} To N
 LIST Hoten FOR Khoa='A1' AND Ngayra={} AND (DATE()-Ngayvao)=N

12.




COUNT ALL FOR Gioi AND Khoa='A3' AND Dtuong='KBH' AND Ngayra={} to N
COUNT ALL FOR !Gioi AND Khoa='A3' AND Dtuong='KBH' AND Ngayra={} to M
?IIF(N>M,'nam nhieu hon','nu nhieu hon')








SUM Tienvp*IIF(Tuoi<10,0.03,IIF(Tuoi>65,0.05,1)) TO N
?' Tong so tien vien phi duoc giam la ', N
COUNT ALL FOR Tuoi<10 TO M
COUNT ALL FOR Tuoi>65 TO A
?' So benh nhan duoc giam tien vien phi la ', M+A





SUM ALL Tienvp FOR Khoa='A1' AND Ngayra<>{} To N
COUNT ALL FOR Khoa='A1' AND Ngayra<>{} To M
LIST Hoten,Que,Tienvp FOR Tienvp>(N/M)







CALCULATE ALL MAX(Tuoi) FOR Khoa='A3' AND Ngayra={} TO N
CALCULATE ALL MIN(Tuoi) FOR Khoa='A3' AND Ngayra={} TO M
?'Chenh lech tuoi lon nhat giua cac benh nhan dang dieu tri tai khoa A3 la ',N-M
LIST Hoten,Tuoi FOR Khoa='A3' AND Ngayra={} AND Tuoi=N
LIST Hoten,Tuoi FOR Khoa='A3' AND Ngayra={} AND Tuoi=M



INDEX ON Mabn TO E:\QLDL\TOP2\MABNID.IDX






INDEX ON Mabn TO E:\QLDL\TOP2\MABNID.IDX
SORT TO E:\QLDL\SXBN.dbf ON Ngayvao/A
USE E:\QLDL\SXBN.dbf
BROWSE

13.

14.

15.

16.
17.

Bài 4:
06.






CLOSE ALL
SET DATE FRENCH
SET CENTURY on
SET STATUS
SET STATUS ON






USE E:\QLDL\QLCB.dbf
BROWSE
REPLACE ALL Luong WITH (Hslg*750000)



REPLACE ALL Pccv WITH
750000*IIF(Cv='GD',0.8,IIF(Cv='PDG',0.65,IIF(Cv='TP',0.45,IIF(Cv='PP',0.4,0))))




REPLACE ALL Tong WITH Luong+Pccv
LIST Hoten,Cv,Tong

07.

08.

09.
Cách 1
 COUNT ALL FOR Gioi AND MONTH(Ngaysinh)=MONTH(DATE()) TO N
 COUNT ALL FOR !Gioi AND MONTH(Ngaysinh)=MONTH(DATE()) TO M
 ?'So tien sinh nhat co quan phai chi la ', N*300000+M*500000 ,'vnd'
Cách 2
 CALCULATE ALL SUM(IIF(Gioi,300000,500000)) FOR MONTH(Ngaysinh)=MONTH(DATE()) TO N
 ?'So tien sinh nhat co quan phai chi la ', N ,'vnd'
10.



CALCULATE ALL MIN(Ngaysinh) TO N
LIST Hoten FOR Ngaysinh=N





COUNT NEXT 6 FOR Gioi TO N
COUNT NEXT 6 FOR !Gioi TO M
?IIF(N>M,' Nam lon hon nu ',' Nu lon hon nam ')







MODIFY STRUCTURE ( vào chèn thêm cột Tuoi )
BROWSE ( Xem đã chèn được chưa )
REPLACE ALL Tuoi WITH YEAR(DATE())-YEAR(Ngaysinh) [ Tính tuổi tất cả thành viên ]
LIST Hoten,Ngaysinh FOR Gioi AND Tuoi=60
LIST Hoten,Ngaysinh FOR !Gioi AND Tuoi>=55







COUNT ALL FOR Gioi AND Tuoi<25 TO N
COUNT ALL FOR !Gioi AND Tuoi<22 TO M
?' So nhan vien di hoc la ', N+M
LIST Hoten,Tuoi FOR Tuoi<25 AND Gioi
LIST Hoten,Tuoi FOR Tuoi<22 AND !Gioi



LIST Hoten,Hslg FOR Hslg>3.0



INDEX ON Chucvu TO E:\QLDL\CHUCVUID.IDX




BROWSE

Cột Chức vụ được sắp xếp theo vần của bảng chữ cái ABC do lệnh tạo tệp chỉ số
INDEX ON ở mục 15 tạo tệp chỉ số CHUCVUID.IDX được sắp xếp luôn theo vần ABC.



SORT TO E:\QLDL\SXCB.DBF ON Tong/D



SET INDEX TO E:\QLDL\CHUCVUID.IDX [dùng lệnh này để mở tệp chỉ số khi đã mở tệp
dữ liệu – vì tệp dữ liệu QLCB.DBF không bị thay bởi SXCB.DBF khi sắp xếp tạo tệp
SXCB.DBF ]
Nếu cả hai tệp chưa mở thì dùng cú pháp USE < đường dẫn tệp dữ liệu > INDEX <
đường dẫn tệp chỉ số >

11.

12.

13.

14.
15.
16.

17.
18


19.




LOCATE FOR Chucvu='TP'
?IIF(FOUND(),Hoten,' ')

Bài 5 :
02.




CLOSE ALL
SET DATE FRENCH
SET CENTURY on






SET STATUS ON
SELECT D
USE E:\QLDL\QLDIEN.dbf



LIST Hoten,Cs1,CS2 FOR Kv=1



LIST Hoten FOR Sokw >=150 AND Sokw=<200




GO 12
?IIF(Dtuong,'Phai','Khong phai')



REPLACE ALL Sokw WITH Cs2-Cs1



REPLACE ALL Tien WITH
Sokw*IIF(Dtuong,0.75,1)*IIF(Sokw>=151,20000,IIF(Sokw>=101,1000,600))




COUNT ALL FOR Kv=2 AND Sokw>200 AND Dtuong TO N
?'Co',N,' ho thuoc dien chinh sach o khu vuc 2 dung tren 200Kw '




CALCULATE ALL MAX(Sokw) FOR !Dtuong TO N
LIST Hoten FOR Sokw=N





COUNT ALL FOR Kv=1 AND Dtuong TO N
COUNT ALL FOR Kv=2 AND Dtuong TO M
?' Ti le ho thuoc dien chinh sach trong khu vuc 1 va 2 la ',N/M

03.
04.
05.

06.
07.

08.

09.

10.

11.
Cách 1
 SUM ALL Tien TO N
 COUNT ALL TO M
 ?' So tien dien trung binh moi ho la',N/M
 LIST Hoten FOR Tien>(N/M)
12.
 SUM ALL Tien TO N
 SUM ALL Sokw TO M

 ?'Moi mot so dien gia',N/M,'vnd'
13.
 CALCULATE ALL MAX(Tien) FOR Kv=1 TO N
 CALCULATE ALL MIN(Tien) FOR Kv=1 TO M
 ?'chenh lech tien dien lon nhat la',N-M,'vnd'
 LIST Hoten FOR Tien=N OR Tien=M
14.
 CALCULATE ALL MIN(Sokw) FOR Kv=2 TO N
 LIST Hoten FOR Kv=1 AND Sokw>N
15.
 CALCULATE ALL MAX(Sokw) FOR Kv=1 AND Dtuong TO N
 LOCATE FOR Sokw=N AND Kv=1 AND Dtuong
 ?IIF(FOUND(),Hoten,'Khong co ho nao')
16.
 SORT TO E:\QLDL\TOP1\SXDIEN.dbf ON Sokw/D
17.
 INDEX ON Sokw TO E:\QLDL\KWID.IDX
 LIST Hoten,Sokw,Tien
 [Giải thích: Khi hiển thị danh sách họ tên, số KW tiêu thụ và tiền điện thì số KW
được sắp xếp từ nhỏ tới lớn do tạo tệp chỉ số KWID.IDX trước đó]
18.
 LOCATE FOR Sokw>210
 ?IIF(FOUND(),Hoten,'Khong co ho nao')

Bài 6:
01.


CLOSE ALL





SET DATE FRENCH
SET CENTURY on
SET STATUS ON





SELECT E
USE E:\QLDL\QLTS.dbf
BROWSE



LIST Hoten,Diemm1,Diemm2,Diemm3 FOR Khuvuc='1' OR Khuvuc='2'



LIST Hoten,Ngaysinh FOR YEAR(Ngaysinh)<1997



DELETE ALL FOR Diemm1*Diemm2*Diemm3=0



RECALL ALL FOR Diemm1+Diemm2+Diemm3<>0




REPLACE ALL Dut WITH
IIF(Dtuong,0.5,0)+IIF(Khuvuc='4',1.5,IIF(Khuvuc='3',1,IIF(Khuvuc='2',0.5,0)))
REPLACE ALL Diemtg WITH Diemm1+Diemm2+Diemm3+Dut




REPLACE ALL Ketqua WITH 'Do' FOR Diemtg>=17.5 AND Diemm1*Diemm2*Diemm3<>0
REPLACE ALL Ketqua WITH 'Truot' FOR Diemtg<17.5 OR Diemm1*Diemm2*Diemm3=0






COUNT ALL FOR Ketqua='Do' TO N
COUNT ALL FOR Ketqua='Truot' TO M
?'Ti le do la',N/(N+M)
?'Ti le truot la',M/(N+M)






CALCULATE
CALCULATE
CALCULATE
LIST Hoten





CALCULATE ALL MAX(Diemtg) FOR Dtuong TO N
COUNT ALL FOR Diemtg=N AND Dtuong TO M
?'Co',M,'thi sinh co tong diem cao nhat trong so cac thi sinh thuoc dien chinh
sach'




CALCULATE ALL MAX(Ngaysinh) FOR Que='Ha Noi' AND !Gioi TO N
LIST Hoten FOR Ngaysinh=N AND Que='Ha Noi' AND !Gioi





COUNT FOR Dtuong TO N
COUNT FOR !Dtuong TO M
?'So tien phai nop la',30000*N+60000*M,'vnd'



LIST Hoten FOR Diemm1=Diemm2 AND Diemm2=Diemm3 AND Diemm3=Diemm1




CALCULATE ALL MAX(Diemtg-Dut) TO N
LIST Hoten FOR Diemtg-Dut=N





INDEX ON Diemtg TO E:\QLDL\DIEMTGID.IDX
LIST Hoten,Diemtg,Ketqua
[Nhận xét : Khi tạo tệp chỉ số DIEMTGID.IDX theo trường Diemtg thì tệp chỉ số
được tạo sẽ được sắp xếp theo thứ tự từ thấp đến cao của điểm tổng ]

02.

03.
04.
05.
06.
07.

08.

09.

10.
ALL
ALL
ALL
FOR

MAX(Diemm1)
MAX(Diemm2)
MAX(Diemm3)
Diemm1=N OR

TO N
TO M
TO A
Diemm2=M OR Diemm3=A

11.

12.

13.

14.
15.

16.

17.



SORT TO E:\QLDL\TSSX.dbf ON Diemtg/D
LIST Hoten,Diemtg

18.




USE E:\QLDL\QLTS.dbf INDEX E:\QLDL\DIEMTGID.IDX
LOCATE FOR Diemtg=25.5
?IIF(FOUND(),Hoten,'Khong tim thay')


19.





LOCATE FOR Que='Ha Noi' AND Diemtg>24
?IIF(FOUND(),Hoten,'Khong tim thay')
?IIF(FOUND(),Que,'Khong tim thay')
?IIF(FOUND(),Diemtg,'Khong tim thay')



LIST Hoten,Que FOR Que='Ha Noi' OR Que='Ha Tay' AND YEAR(Ngaysinh)<1997

20.