zyscx.prg

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

set talk off
set status off
close all
set colo to
jx="Y"
use gz
define window cx from 7,14 to 18,66 zoom shadow float colo w/r+
activate window cx
  @1,4 say "你可以输入象  欠条=300 等这样的式子"
  @2,4 say "输入的式子必须正确,否则无法查询"
do while jx$"Yy"
  srcxtj=space(25)
  @4,4 say "请输入查询条件:" get srcxtj
  read
  srcxtj=alltrim(srcxtj)
  if empty(srcxtj) .or. .not."="$srcxtj
     loop
  endif     
  locate for &srcxtj
  if found()
       cxtj="已找到"+srcxtj+"的记录"
       set format to gzgs.fmt
       do dycx  
  else
    @7,4 say "查无此人!"
  endif
  @8,4 say "继续查询吗?(y/n)" get jx pict"!"
  read
enddo
deactivate window cx
release window cx
close database
return