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

 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 '请将备份盘插入A驱动器!' 
 @ 6, 42 SAY '然后按任意健......' 
 i = INKEY(0) 
 SET PATH TO C:\ 
 IF FILE('A:disk.$$$') 
      SET PATH TO \cw 
      USE A:disk.$$$ 
 ELSE 
      SET PATH TO \cw 
      SET COLOR TO 
      @ 4, 30 CLEAR TO 8, 68 
      @ 5, 34 SAY '备份盘有关描述信息已丢失!' 
      @ 7, 34 SAY '不能用本功能恢复数据......' 
      a = INKEY(0) 
      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 
 ENDI 
 CLEA 
 pd = 1 
 DO WHILE pd<=mm 
      CLEA 
      pd2 = 'A:'+STR(xm, 4, 0)+'.00'+STR(pd, 1, 0) 
      pd3 = "'"+pd2+"'" 
      if file(&pd3) 
           @ 5, 28 SAY '准备恢复'+STR(xm, 4, 0)+'年数据第'+STR(pd, 2, 0)+'张!' 
           @ 7, 24 SAY '请将备份盘插入A驱动器,然后按任意键.... ' 
           i = INKEY(0) 
           @ 12, 20 SAY '正在恢复文件......' 
           IF pd=1 
                x = STR(xm, 4, 0) 
                ! md \cw\&x 
                ! md \cw\&x\m1 
                ! md \cw\&x\m2 
                ! md \cw\&x\m3 
                ! md \cw\&x\m4 
                ! md \cw\&x\m5 
                ! md \cw\&x\m6 
                ! md \cw\&x\m7 
                ! md \cw\&x\m8 
                ! md \cw\&x\m9 
                ! md \cw\&x\m10 
                ! md \cw\&x\m11 
                ! md \cw\&x\m12 
           ENDI 
           ! \cw\arj x &pd2 -y \ 
      ELSE 
           @ 12, 20 SAY '请插入'+STR(xm, 4, 0)+'年第'+STR(pd, 1, 0)+'张备份盘' 
           @ 14, 25 SAY '按ESC=退出,其他键继续......' 
           i = INKEY(0) 
           IF i=27 
                EXIT 
           ELSE 
                LOOP 
           ENDI 
      ENDI 
      pd = pd+1 
 ENDD 
 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 
*