行业应用

开发平台：

VFP

CSBB.PRG：源码内容

							*********************************************
*       程序名: CSWJ.PRG                    *
*       功能:   传输报表                    *
*       设计:   黄朝生                      *
*********************************************
if !file('jqfaxoutdatabb.arj')
defi wind jqwin1 from 6,20 to 11,60
acti wind jqwin1
@2,2 say "没有打包报表,请先对报表进行打包! "
*?? prmbar(popu(),bar())
wait''
deac wind jqwin1
retu
endif
*else
defi wind jqwin1 from 6,20 to 11,60
acti wind jqwin1
*dh='                 '
@2,2 say "请输入电话号码:" get dh 
read
*wait''
deac wind jqwin1
if last()<>27 .and. len(trim(ltrim(dh)))<>0
! minicom -P1 -Foutdatabb.arj -T&dh -S
endif
*endif
***************
*=defiwind("WT",0,0,24,79,"colo &Color titl ''")
clea
acti wind jqfaxwin
***************
retu

						