行业应用

开发平台：

VFP

WJDB.PRG：源码内容

							********************************
*   文件名: wjdb.prg           *
*   功能:   文件打包           *
*   设计:   黄朝生             *
********************************
cd=space(30)
*do loadsdK
*---------------------------------------------------------------------
on key
! deltree -y outdata >nul
! md outdata 
*Color='B/W,W+/B,W/W,W+/B,W/B,W+/B,GR/W,W/B,N/W,W+/W,+'
defi wind jqwin1 from 6,15 to 14,60
acti wind jqwin1
jsq=1
set path to temptemp
wj=space(30)
do whil .t.
@6,6 say "(按ESC键放弃打包!按Ctrl+W开始打包!)"
wj=space(12)
@ 1,6 say '已选择了'+ltrim(str(jsq-1))+'个文件!'
@ 2,6 say'请输入需打包的文件名'+ltrim(str(jsq))+':'
@ 3,6 say'路径+' get cd
@ 4,6 say'文件 :' get wj
read
if last()=27  && 不打包
   Rdb=.f.
  exit
endif
if last()=23   && 打包
   Rdb=.t.
   exit
endif
set path to jqfax
Rwj=ltrim(trim(cd))+''+trim(ltrim(wj))
if file(Rwj)
    eras outdata&wj 
    copy file &Rwj to outdata&wj 
    ?? chr(7)
    jsq=jsq+1
    @6,6 say "                                   "
    @ 5,8 say'选择文件有效!继续选择..'
else
   ?? chr(7)+chr(7)
    @6,6 say "                                   "
    @ 5,8 say'指定文件没找到!重新选择..'
endif
*wait''
i=inkey(3)
clea 
enddo
set path to jqfax
if Rdb
   * 内存不够时,可用-M0参数打包,但不进行压缩
   ! arj a outdatawj.arj outdata*.* -y
endif
deac wind jqwin1
*=defiwind("WT",0,0,24,79,"colo &color titl''")
@0,0 clea to 24,79
Color='B/W,W+/B,W/W,W+/B,W/B,W+/B,GR/W,W/B,N/W,W+/W,+'
*Color='B/W,W+/B,W/W,W+/B,W/B,W+/B,W+/W,W/B,N/W,W+/W'
*=defiwind("WT",2,2,18,75,"colo &Color titl '        JQFAX 通讯窗口   ;
           黄朝生制作          JQ软件创作室'")
acti wind jqfaxwin
*=ShowBMPIn(C2X(0),R2Y(1),C2X(wcol("WT")),R2Y(wrow("WT")),"9516.bmp")
on key label escape quit
retu

						