Tin học ứng dụng thieunshvtc edu vn 1 BÀI TẬP FOXPRO Bài 1 1 Tạo tệp dữ liệu cho bài toán quản lý lương cán bộ Sử dụng lệnh Create QLLCB, sau đó tạo các trường có cấu trúc Tên trường Kiểu Độ rộng Dec.
Tin h c ng d ng thieuns@hvtc.edu.vn BÀI T P FOXPRO Bài 1: 1.ăT oăt păd ăli uăchoăbàiătoánăqu nălýăl ngăcánăb S ăd ngăl nhăCreate QLLCB,ăsauăđóăt oăcácătr ngăcóăc uătrúc: Tênătr ng Ki u macb C hodem C ten C mpct C macv C ns D gt L hsl N nll D pcat N bhyt N bhxh N tstdl N ăr ng Dec 18 10 4 8 7 Gi iăthíchăăăăăăă Mãăcánăb H ăđ m Tên Mã phịng cơng tác Mãăch căv Ngày sinh Gi iătính H ăs ăl ng Ngàyălênăl ngăg nănh t Ph ăc pă nătr a B oăhi măyăt B oăhi măxãăh i T ngăs ăti năđ căl nh 2.ăNh păd ăli u Use QLLCB Append L u ý: Khơngănh păd ăli uăchoătr ng:ăpcat,ăbhyt,ăbhxh,ătstdl Cóăth ăkhơngăc năgõăti ngăVi tăcóăd u.ăNgàyăthángăcóăd ngătháng/ngày/n m Macb Hodem 001 Ph măTr ng 002 D ngăH i Ten C ng Mpct Macv Ns Gt Hsl Nll P01 TPH 06/06/1961 T 6.67 04/01/2016 Y n P03 05/16/1966 F 5.34 08/01/2015 09/11/1986 T 2.67 02/01/2017 12/20/1967 F 5.67 04/01/2015 10/19/1966 T 5.34 06/01/2017 05/11/1974 F 3.34 09/01/2015 003 Ngô Anh Tu n P01 004 Lê Minh Anh P02 005 ăM nh D ng P01 H P01 006 Nguy năThu ng PPH PPH Tin h c ng d ng 007 Ph măPh thieuns@hvtc.edu.vn ng Th o P01 10/17/1983 F 2.67 08/01/2016 11/25/1992 T 5.34 02/01/2017 04/04/1961 T 7.00 03/01/2017 09/02/1974 F 4.00 01/01/2016 008 V ăHuy Hùng P02 009 Ph măV n Hi p BGD 010 Nguy năTh Hu P03 011 Tr nhăV n C ng P03 TPH 05/07/1987 T 4.34 02/01/2017 012 Nguy năXuân Tr ng BGD GDO 09/09/1982 T 6.00 05/01/2015 TPH 10/20/1968 F 6.34 08/01/2017 PGD 013 ăMinh H ng P02 014 V ă ông Th ng P03 10/15/1969 T 3.67 09/01/2016 015 Lê Thúy Lan P02 05/22/1989 F 2.34 01/01/2016 Nh păxong:ăCtrlă+ăW.ăDùngăBrowseăđ ăxemậs aăl iăb ngăd ăli uăv aănh p,ăsauă đóăCtrl+Wăho căESC 3.ăXem,ăs aăc uătrúc Xemăl iăc uătrúcăt păd ăli u:ăList Structure ho căDisplay Structure Dùngăl nh:ăModify Structure đ ăthêmătr ngăph ăc păch căv :ăăăă pccv N(7,0) 4.ăHi năth ăd ăli u XemăHodem,ăTen,ăMpctăc aăcácăcánăb ăNam:ă List Fields hodem, ten, mpct For gt XemăHodem,ăTen,ăMpctăc aăcácăcánăb ăN ăphòng P01: List Fields hodem,ten,mpct For NOT gt AND mpct=”P01” XemăHodem,ăTen,ăMpctăc aăcácăcánăb ăNamăd iă40ătu i List Fields hodem, ten, mpct For gt AND 2021-YEAR(ns)0 XemăHodem,ăTen,ăMpctăc aăcácăcánăb ăv ăh uătrongăn mă2021 (nam 60 n ă55) List Fields hodem, ten, mpct FOR (gt AND 2021-YEAR(ns)=60) OR (NOT gt AND 2021-YEAR(ns)=55) XemăHodem,ăTen,ăMpct,ăhslăc aă3ăng iăđ uătiên GOTO top Tin h c ng d ng thieuns@hvtc.edu.vn LIST next fields hodem,ten,mpct,hsl XemăHodem,ăTen,ăMpct,ăhslăc aă3ăng iăcu iăcùng GO bottom SKIP -2 LIST next fields hodem,ten,mpct,hsl 5.ăDùngăl nhăReplaceăđ ătính: Pcat 900.000ăđ iăv iăt tăc ăcánăb REPLACE ALL pcat WITH 900000 Pccvă đ că tínhă nh ă sau:ă 500.000ă đ iă v iă PPH,ă 800.000ă đ iă v iă TPH,ă 1500.000ăđ iăv iăPGDăvàă2.000.000ăđ iăv iăGDO REPLACE ALL pccv WITH IIF(macv="PPH", 500000, IIF(macv="TPH", 800000, IIF(macv="PGD", 1500000, IIF(macv="GDO", 2000000, 0)))) Bhytă =ă 1%ă L ngă chính,ă Bhxhă =ă 5%ă l ngă chính,ă l ngă chínhă =ă 1.450.000*hsl REPLACE ALL bhyt WITH 0.01*1450000*hsl REPLACE ALL bhxh WITH 0.05*1450000*hsl Tstdlă=ăl ngăchínhă+ăpcată+ăpccvăậ bhyt ậ bhxh REPLACE ALL tstdl WITH 1450000*hsl+pcat+pccv-bhyt-bhxh 6.ăSaoăchépăd ăli u Dùngăl nhăCopyăđ ăt oăraăt păLL2021.DBFăg măcácăcánăb ăs ăđ călênă l ngătrongăn mă2021.ăBi tăr ng,ăv iăh ăs ăl ngă=ă3ăthìă4ăn măđ călênăl ngă1ăl n COPY TO LL2021.dbf FOR (hsl=3 AND 2021-YEAR(nll)=4) M ăt păLL2021 raăxemăb ngăListăho căBrowse,ăsauăđóăm ăl iăt păQLLCB USE LL2021 BROWSE 7.ăS păx păd ăli uă(Indexăậ dùngăListăđ ăxemăk tăqu ăs p x p) S păx păcácăcánăb ătheoătênăvàăh ăđ m INDEX ON ten+hodem TO id1.IDX List Fields hodem, ten, mpct S păx păcácăcánăb ătheoăt ngăphòngăbanăvàăh ăs ăl ngăt ngăd n INDEX ON mpct+STR(hsl,5,2) TO id2.IDX List Fields hodem, ten, mpct S păx păcácăcánăb ătheoăt ngăphòngăbanăvàăh ăs ăl ngăgi măd n INDEX ON mpct+STR(100-hsl,5,2) TO id3.IDX List Fields hodem, ten, mpct Choăbi tăMacb,ăHodem,ăTen,ămpctăc aă3ăcánăb ăn ăcóătstdlăcaoănh t INDEX on -tstdl TO id3.IDX FOR NOT gt Tin h c ng d ng thieuns@hvtc.edu.vn GO top LIST next Fields hodem, ten, gt,mpct ,tstdl 8.ăTínhăt ng Tínhăt ngătstdl,ăpcatăc aăphòngăP03 SUM tstdl,pcat TO t1,t2 FOR mpct="P03" ?"Tong so tien duoc linh P03 la:",t1 ?"Tong phu cap an trua P03 la:",t2 Tínhăl ngăbìnhăqnăc aă1ăcánăb AVERAGE tstdl TO bq1 ?"Luong bq la:",bq1 9.ă m Cóăbaoănhiêuăcánăb ăcóăch căv ăsinhăsauăn mă1980? COUNT TO d1 FOR EMPTY(macv)=.F AND YEAR(ns)>=1980 Cóăbaoănhiêuăcánăb ănamăcóăl ngăd iă5 tri u? COUNT TO d2 FOR gt AND tstdl15ăăANDăMONTH(ngay)=6ă AND year(NGAY)=2020 Các dòng phi uăxu t v tăt ăcóămã S01 theoătrìnhăt ăkh iăl ngăt ngăd n?ă INDEXăăONăăklăăTOăsx1.IDXăFORăLEFT(SP,2)=”PX”ăANDăămavt=”S01” LIST Các dòng phi uăxu t v tăt ăcó mã S01 theoătrìnhăt ăkh iăl ngăgi măd n? INDEX ON -kl TO sx2.IDXăFORăLEFT(SP,2)=”PX”ăANDăămavt=”S01” LIST 6.ăTínhătốn,ăs aăd ăli u S aăđ năgiáăX03 phi uăxu tăPX002 thành 22 nghìn REPLACEăăALLăădgăWITHă22000ăFORăămavt=”X03”ăăANDăsp=”PX002” REPLACE ALL ttăăWITHăăkl*dg*IIF(LEFT(mavt,1)=”X”,1.05,1.1) Gi mă5%ăđ năgiáănh păS t tháng tháng REPLACE ALL dg WITH 0.95*dg FOR LEFT(sp,2)=”PN”ă ANDă LEFT(mavt,1)=”S”ăăANDăă(MONTH(ngay)=5ăORăMONTH(ngay)=7) REPLACE ALL ttăăWITHăăkl*dg*IIF(LEFT(mavt,1)=”X”,1.05,1.1) 7.ăHãyăchoăbi t T ngăs ăti nătrênăphi uăxu tăPX003? SUMăăttăăTOăăt1ăFORăăsp=”PX003” ?”T ngăs ăti nălà:”,ăt1 T ngăs ăti nănh păXiăm ng tháng n mă2020? Tin h c ng d ng thieuns@hvtc.edu.vn SUMă ă ttă ă TOă t2ă FORă ă LEFT(sp,2)=”PN”ă ANDă ă LEFT(mavt,1)=”X”ă ă ANDăă (MONTH(ngay)=5 OR MONTH(ngay)=6) AND YEAR(ngay)=2020 ?”T ngăs ăti nălà:”,ăt2 Kh iăl ngăcịnăl iăc aăS01ătínhăđ năh tăngàyă15/7/2020? SUMă klă TOă klnă ă FORă ă LEFT(sp,2)=”PN”ă ă ANDă ă mavt=”S01”ă ă Andă ngay