tôi thử

USE c:\pcthcs\data\hdb01.dbf EXCLUSIVE
do c:\pcthcs\prog\chuanhoa
repl all mh with 'TC'
brow for (len(allt(tntieuhoc))<4 and len(allt(tntieuhoc))>0) or (len(allt(tnthcs))<4 and len(allt(tnthcs))>0)
brow for !empty(tnthcs) and empty(tntieuhoc)
repl all dhlop0506 with dhlop 0607-1 for !empty(nambo) and empty(bo2006) and dhlop0607>0 and dhlop0506=0
repl all dhlop0506 with dhlop0607-1 for !empty(nambo) and empty(bo2006) and dhlop0607>0 and dhlop0506=0
repl all dhlop0405 with dhlop0506-1 for !empty(nambo) and empty(bo2006) and dhlop0506>0 and dhlop0405=0
repl all dhlop0304 with dhlop0405-1 for !empty(nambo) and empty(bo2006) and dhlop0405>0 and dhlop0304=0
repl all dhlop0203 with dhlop0304-1 for !empty(nambo) and empty(bo2006) and dhlop0304>0 and dhlop0203=0
repl all dhlop0102 with dhlop0203-1 for !empty(nambo) and empty(bo2006) and dhlop0203>0 and dhlop0102=0
repl all dhlop0001 with dhlop0102-1 for !empty(nambo) and empty(bo2006) and dhlop0102>0 and dhlop0001=0
REPL bo2001 with '6' ALL for dhlop0607=0 and !empty(tntieuhoc) and empty(tnthcs) and empty(bo2006) AND
val(allt(allt(tmtieuhoc)))>1900 AND val(allt(allt(tmtieuhoc)))<2001
repl all dhlop0001 with 6 for dhlop0607=0 and val(allt(tntieuhoc))=2000 and empty(tnthcs) and empty(bo2006)
repl all dhlop0001 with 6 for val(allt(tntieuhoc))<2001 and val(allt(tntieuhoc))>1980
do c:\pcthcs\prog\chuanhoa
brow for val(allt(nambo))<2001 and empty(bo2001) and val(allt(nambo))>0
brow for tnthcs='2006' and dhlop0506<>9
brow for dhlop0607=0 and empty(tnthcs) and empty(tntieuhoc) and dhlop0506>5
brow for dhlop0607>0 and empty(he)
brow for dhlop0607>5 and empty(tntieuhoc)
brow for dhlop0607=0 and !empty(tntieuhoc) and empty(tnthcs) and empty(bo2006)
brow for dhlop0607=0 and val(allt(tntieuhoc))>=2000 and empty(tnthcs) and empty(bo2006)
brow for dhlop0607=0 and empty(bo2006) and !empty(tntieuhoc) and empty(tnthcs)
brow for dhlop0607=0 and empty(bo2006) and !empty(tntieuhoc) and empty(tnthcs)
brow for year(ngaysinh)=1994 and allt(hcdb)<>'KT' and dhlop0506=5 and val(tntieuhoc)<=2005 and val(tntieuhoc)>0
modi comm c:\pcthcs\prog\chuanhoa
do c:\pcthcs\prog\chuanhoa
brow for dhlop0607=0 and empty(bo2006) and !empty(tntieuhoc) and empty(tnthcs)
do c:\pcthcs\prog\bieu1

brow for dhlop0607=0 and empty(bo2006) and !empty(tntieuhoc) and empty(tnthcs)
brow for !empty(tntieuhoc) and empty(he)
brow for !empty(tnthcs) and empty(he)
brow for dhlop0607>0 and empty(he)
brow for !empty(bo2006) and empty(he)
brow for dhlop0506>0 and empty(he)
brow for dhlop0405>0 and empty(he)
brow for dhlop0304>0 and empty(he)
brow for dhlop0203>0 and empty(he)
brow for dhlop0607=0 and !empty(tntieuhoc)
brow for dhlop0607=0 and !empty(tntieuhoc) and empty(tnthcs)
brow for dhlop0607=0 and !empty(tntieuhoc) and empty(tnthcs) and empty(bo2006)
brow for allt(hcdb)<>'KT' and !empty(tntieuhoc) and dhlop0607=0 and val(bo2006)>=0 and val(bo2006)<=5 and empty(tnthcs)
brow for !inlist(allt(he),'PT','BT')
brow for val(tnthcs)-val(tntieuhoc)>0 and val(tnthcs)-val(tntieuhoc)<4 and he='PT'
brow for val(tnthcs)-val(tntieuhoc)>5 and val(tnthcs)-val(tntieuhoc)<14 and he='PT'
brow for val(tnthcs)-val(tntieuhoc)=3
brow for val(tnthcs)-val(tntieuhoc)=1
brow for val(tnthcs)-val(tntieuhoc)=4
brow for val(tnthcs)-val(tntieuhoc)=3 and he='BT'
brow for val(tnthcs)-val(tntieuhoc)=2 and he='BT'
brow for val(tnthcs)-val(tntieuhoc)=1 and he='BT'
brow for val(tnthcs)-val(tntieuhoc)=4 and he='BT'
delete all for year(ngaysinh)=1987 and maxa='MTH' (xãa ®é tuæi)
pack
count to ts for maxa='NK' (tæng sè d©n theo x·)