【vfp开源代码栏目提醒】:网学会员--在 vfp开源代码编辑为广大网友搜集整理了:EDITDATA.PRG绩等信息,祝愿广大网友取得需要的信息,参考学习。
set color to w/n
set deleted on
use gongzi
clear
set color to w+/b,w+/rb
@ 2,4 clear to 13,38
@2,4,13,38 box+space(1)
@ 3,13 say'工资
系统☆数据修改'
cxm=space(8)
do while .T.
set color to w+/b,w+/bg
cxm=cxm+space(8-len(cxm))
@ 5,8 say'姓 名:'get cxm picture '!!!!!!!!'
@ 11,8 say'输入待修改的'
read
if (readkey()=12) .or. (cxm=space (8))
exit
endif
cxm=trim(cxm)
count to nrecs for xm=cxm
if nrecs=0
set color to rb+/b
@ 12,8 clear to 12,30
@ 12,8 say'无此'
loop
else
@ 12,8 clear to 12,20
if nrecs>128
set color to w+/rb
@ 12,8 say'重复名太多(>128)!'
endif
dimension aChoiced(nrecs),arecsno(nrecs)
locate for xm=cxm
i=0
do while found()
i=i+1
aChoiced(i)=str(i,3)+"+xm+"+bm
arecsno(i)=recno()
continue
enddo
set color to w+/bg,w+/rb
@ 4,42 menu aChoiced,nrecs,18 title'重复记录'+str(i,3)+'条'
i=1
read menu to i
set color to w/n
@ 4,40 clear to 22,78
if i=0
release aChoiced,arecsno
loop
endif
goto arecsno(i)
release aChoiced,arecsno
endif
cxm=xm
cbm=bm
dbz=bz
dkk=kk
djbgz=jbgz
do while .T.
set color to w+/b,r/bg
@ 5,8 say'姓 名:'get cxm picture'!!!!!!!!'
@ 6,8 say'部 门:'get cbm picture'@!'
@ 7,8 say'补 助:'get dbz picture'9999.99'
@ 8,8 say'扣 款:'get dkk picture'9999.99'
@ 9,8 say'基本工资:'get djbgz picture'9999.99'
read
@ 11,8 say space(28)
set color to w+/bg,w+/rb
@ 11,8 prompt'写 入'
@ 11,16 prompt'放 弃'
@ 11,24 prompt'删 除'
menu to i
set color to w/b
@ 10,8 clear to 10,36
if (i>=1) .and. (i<=3)
exit
endif
enddo
set color to r+/b
do case
case i=1
replace xm with cxm,bm with cbm,bz with dbz,kk with dkk,jbgz with djbgz
@ 12,8 say'记录已修改'
case i=2
@ 12,8 say'放弃修改'
case i=3
delete
@ 12,8 say'记录已删除'
endcase
set color to w+/b,w+/bg
@ 4,8 clear to 11,30
cxm=space(8)
enddo
use
return