行业应用

开发平台：

VFP

HZDWGL.PRG：源码内容

							
********
defi wind jqwin1 from 2,35 to 22,75 colo 6+/w
acti wind jqwin1
clea
on key
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增加;Ctrl+T删除;Ctrl+W退出'
dele all for len(alltrim(hzdw))=0
pack
on key label escape quit
clea
deac wind jqwin1
deac wind jqfax
retu
procedure zj
inse blank
*use hzdw
*brow fields hzdw :H="单位名称" title "F2增加;F4删除;Ctrl+W退出"
retu
*procedure sc
*if dele()
*  reca
*eles
*  dele
*endif
*pack
*brow fields hzdw :H="单位名称" title "F2增加;F4删除;Ctrl+W退出"
*retu

						