www.pudn.com > jq_caiwu.ARJ > BFSJ.PRG

 pd = ryear 
 SET COLOR TO R+/N 
 @ 4, 38 CLEAR TO 7, 62 
 ?? CHR(7) 
 @ 5, 42 SAY '真有备份数据吗?' 
 pd1 = 'N' 
 @ 6, 49 GET pd1 PICTURE 'x' 
 READ 
 IF pd1<>'Y' .AND. pd1<>'y' 
      SET COLOR TO W+/N 
      @ 4, 38, 7, 62 BOX '鞍鞍鞍鞍鞍' 
      RETU 
 ENDI 
 SET COLOR TO 
 @ 4, 38 CLEAR TO 7, 62 
 ?? CHR(7) 
 @ 5, 40 SAY '备份哪个年份的数据?' 
 @ 6, 46 GET pd PICTURE '9999' 
 READ 
 ERAS cdk.dbf 
 x = pd 
 pd = '\cw\'+STR(pd, 4, 0) 
 pd1 = '\cw\temp\'+STR(x, 4, 0) 
 pd2 = pd1+'.001' 
 xx = pd+'\nul' 
 IF FILE(xx) 
      RUN md \cw\temp 
      RUN cd \cw\temp 
      RUN del \cw\temp\*.0?? 
      ! \cw\arj a -r -v1200 &pd2 &pd -y 
      a1 = STR(ryear, 4, 0) 
      IF ryf<10 
           a2 = STR(ryf, 1, 0) 
      ELSE 
           a2 = STR(ryf, 2, 0) 
      ENDI 
      a2 = 'm'+a2 
      ! cd \cw\&a1\&a2 
      CLEA 
      pd = 1 
      DO WHILE .T. 
           pd2 = pd1+'.00'+STR(pd, 1, 0) 
           pd3 = "'"+pd2+"'" 
           if file(&pd3) 
                pd = pd+1 
           ELSE 
                EXIT 
           ENDI 
      ENDD 
      pd = pd-1 
      COPY FILE \cw\disk.$$$ TO \cw\temp\disk.$$$ 
      USE \cw\temp\disk.$$$ 
      REPL xm WITH x, mm WITH pd 
      USE 
      SET COLOR TO G+/N 
      @ 10, 30 SAY '请准备'+STR(pd, 2, 0)+'张已格式化的空软盘!' 
      @ 12, 30 SAY '按任意键转入拷贝......' 
      i = INKEY(0) 
      SET COLOR TO 
      CLEA 
      pd = 1 
      DO WHILE .T. 
           CLEA 
           pd2 = pd1+'.00'+STR(pd, 1, 0) 
           pd3 = "'"+pd2+"'" 
           if file(&pd3) 
                @ 5, 30 SAY '准备拷贝第      张!' 
                @ 5, 42 SAY pd PICTURE '99' 
                @ 7, 18 SAY '本程序没有测试磁盘是否已格式化.请用已格式化' 
                @ 9, 14 SAY '的空软盘插入A驱动器,按Y键开始拷贝,其他键退出....' 
                i = INKEY(0) 
                IF i=89 .OR. i=121 .OR. i=13 
                     @ 12, 20 SAY '正在拷贝文件......' 
                     a1 = SYS(5) 
                     SET DEFAULT TO A: 
                     IF DISKSPACE()<1200000 
                          set defa to &a1 
                          SET COLOR TO RB+/N 
                          @ 12, 20 SAY 'A盘空间不足,请换成已格式化的新盘!' 
                          ?? CHR(7) 
                          ?? CHR(7) 
                          SET COLOR TO 
                          i = INKEY(0) 
                          LOOP 
                     ENDI 
                     set defa to &a1        
                     ! copy &pd2 A: >nul 
                     COPY FILE \cw\temp\disk.$$$ TO A:disk.$$$ 
                ELSE 
                     SET COLOR TO RB+/N 
                     @ 12, 20 SAY '不拷贝文件! 按任意键退出......' 
                     i = INKEY(5) 
                     EXIT 
                ENDI 
           ELSE 
                @ 14, 20 SAY '退出!' 
                EXIT 
           ENDI 
           pd = pd+1 
      ENDD 
 ELSE 
      ERAS cdk.dbf 
      @ 4, 38 CLEAR TO 7, 62 
      @ 5, 40 SAY '没有指定年份的数据!' 
      i = INKEY(0) 
 ENDI 
 CLOS DATABASES 
 SET COLOR TO W+/B 
 @ 0, 0, 23, 79 BOX '北北北北' 
 SET COLOR TO W+/N 
 @ 1, 1, 22, 78 BOX '鞍鞍鞍鞍鞍' 
 @ 23, 28 SAY '当前数据的月份:'+STR(ryear, 4, 0)+'年'+STR(ryf, 2, 0)+'月' COLOR B+/BG  
 @ 24, 0 SAY ' JQ001财务管理系统(Ver2.5)  黄朝生研制  版权所有  南宁市建政路51号  邮编:530023 ' COLOR R/W  
 ON KEY LABEL Escape do Rquit 
 SET CLOCK TO 23, 69 
 RETU 
*