【vfp开源代码栏目提醒】:网学会员,鉴于大家对vfp开源代码十分关注,论文会员在此为大家搜集整理了“SEARCH.PRG”一文,供大家参考学习!
public scondition
set deleted on
use gongzi
do while .T.
set color to w+/n
clear
set color to w+/b,w+/rb
@ 2,4 clear to 12,40
@ 2,4,12,40 box+space(1)
@ 3,14 say '工资
系统☆数据检索'
set color to w+/b,w+/bg
@ 11,8 say '输入检索条件'
sxm=space(len(xm))
sbm=space(len(bm))
dbz1=0.00
dbz2=0.00
dkk1=0.00
dkk2=0.00
djbgz1=0.00
djbgz2=0.00
do while .T.
set color to w+/b,rb/bg
@ 5,8 say'姓 名:'get sxm picture '@!'
@ 6,8 say'部 门:'get sbm picture '@!'
@ 7,8 say'补 助:从'get dbz1 picture '999.99'
@ 7,29 say '至' get dbz2 picture '999.99'
@ 8,8 say'扣 款:从'get dkk1 picture '999.99'
@ 8,29 say'至'get dkk2 picture '999.99'
@ 9,8 say'基本工资:从'get djbgz1 picture '999.99'
@ 9,29 say'至'get djbgz2 picture '999.99'
read
creadk=readkey()
if creadk=12
use
return
endif
@ 11,8 say space(28)
set color to w+/bg,w+/rb
@ 11,8 prompt'开始检索'
@ 11,20 prompt'放 弃'
menu to i
set color to w/b
@ 11,8 clear to 11,36
if(i>=1) .and. (i<=3)
exit
endif
enddo
do case
case i=1
use gongzi
do case
case sxm<>space(len(xm))
locate for sxm=xm
set color to 7+/1
clear
disp
wait""
return
case sbm<>space(len(bm))
locate for sbm=bm
set color to 7+/1
clear
disp
case
wait""
return
otherwise
clear
return
endcase
case i=2
exit
endcase
set color to w+/b,w+/bg
@ 5,8 clear to 9,36
enddo
use
return