www.pudn.com > jq_transfile.ARJ > 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