行业应用

开发平台：

VFP

HZDWGL.PRG：源码内容

							sele 1
set dele on
use hzdw
ON KEY LABEL F1 A=1
ON KEY LABEL F2 DO ZJ
ON KEY LABEL F3 A=1
ON KEY LABEL F4 DO SC
ON KEY LABEL F5 A=1
ON KEY LABEL F6 A=1
ON KEY LABEL F7 A=1
ON KEY LABEL F8 A=1
ON KEY LABEL F9 A=1
ON KEY LABEL F10 A=1
*OM KEY LABEL F11 A=1
*ON KEY LABEL F12 A=1
brow fields hzdw :H="单位名称" title 'F2增加;F4删除;Ctrl+W退出'
dele all for len(alltrim(hzdw))=0
pack
@ 10,4 say '已修改汇总单位,请重新启用JQ系统!'
i=inkey(10)
quit
retu
procedure zj
inse blank
*use hzdw
*brow fields hzdw :H="单位名称" title "F2增加;F4删除;Ctrl+W退出"
retu
procedure sc
dele 
*pack
*brow fields hzdw :H="单位名称" title "F2增加;F4删除;Ctrl+W退出"
retu

						