企业管理

开发平台：
VFP

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 = 'cwtemp'+STR(x, 4, 0)
 pd2 = pd1+'.001'
 xx = pd+'nul'
 IF FILE(xx)
      RUN md cwtemp
      RUN cd cwtemp
      RUN del cwtemp*.0??
      ! cwarj 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 cwdisk.$$$ TO cwtempdisk.$$$
      USE cwtempdisk.$$$
      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 cwtempdisk.$$$ 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
*

						