gzcx9.prg

来自「本工资管理系统由foxpro编写,可在VF下运行」· PRG 代码 · 共 26 行

set talk off
clear
use gz
jx="Y"
do while jx$"Yy"
clear
@16,20 say "请输入任意的组合条件"
@18,20 say "例如: 基本工资>=100.and.奖金>50"
accpet to st
locate for  &st
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