gzcx4.prg

本工资管理系统由foxpro编写,可在VF下运行

set talk off
clea
sele 2
use gz
store 0 to nu1,nu2

jx="Y"
do while jx$"Yy"
clear
@16,20 say "请输入待查工龄工资的上限:" get nu1
@18,20 say "请输入待查工龄工资的下限:" get nu2
read
 locate for nu2<=工龄工资.and.工龄工资<=nu2
if found()
  set format to gzgs
  edit
  set format to 
else
@6,20 say "查无此人!"
endif
@18,20 say "继续查询吗?(y/n)" get jx pict"!"
read
enddo

clear
close database
return