行业应用

开发平台：

VFP

DOS.PRG：源码内容

							
! dos.bat
! cd jqfax
Color='B/W,W+/B,W/W,W+/B,W/B,W+/B,GR/W,W/B,N/W,W+/W,+'
*defi wind jqfaxwin 0,0,24,79,"colo &color titl''")
clea
on key label escape quit
clea
acti wind jqfaxwin
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

						