企业管理

开发平台：
VFP

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&xm1
                ! md cw&xm2
                ! md cw&xm3
                ! md cw&xm4
                ! md cw&xm5
                ! md cw&xm6
                ! md cw&xm7
                ! md cw&xm8
                ! md cw&xm9
                ! md cw&xm10
                ! md cw&xm11
                ! md cw&xm12
           ENDI
           ! cwarj 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
*

						