restfile.prg

本工资管理系统是一个运行于Windows 95/98 的基于图形用户界面的通用工资管理系统。它具有图形界面友好、操作简单、使用灵活之特点。工资项目、报表格式由用户任意设置

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: RESTFILE.PRG 
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 MENUFLAG = .T.
 CLOSE TABLE
 CLOSE DATABASES 
 SET RESOURCE TO
 OLDPATH = SET('path')
 SET PATH TO 
 PATHNAME1 = SUBSTR(PATHNAME,4)
 WAIT TO DA WINDOW AT 10 , 30  ;
      '可以从硬盘Ｄ分区或软盘Ａ恢复工资数据。请键入Ｄ(表示Ｄ盘)或Ａ(表示Ａ盘)。'
  dele file &pathname.\gzdata\*.*
 IF UPPER(DA) = 'D'
  !copy  /y  d:\&pathname1..bak\gzdata\*.*   &pathname.\gzdata
  !copy  /y  d:\&pathname1..bak\reports\*.*  &pathname.\reports
 ENDIF 
 IF UPPER(DA) = 'A'
 = MESSAGEBOX('请插入第一张工资数据库备份软盘到Ａ驱动器。',64,'恢复工资数据库')
 DO WHILE .T.
 IF FILE('A:\dbf_file.dbf')
 EXIT 
 ELSE 
  MESSAGEBOX('不是第一张工资数据库备份软盘。' + CHR(13) + CHR(13) +  ;
'请插入第一张工资数据库备份软盘到Ａ驱动器。',64,'恢复工资数据库')
 ENDIF 
 ENDDO 
  copy file a:\dbf_file.dbf to &pathname.\gzdata\dbf_file.dbf
 USE dbf_file
 N = 2
 NEXTDISK = .F.
 DO WHILE  .NOT. EOF()
 FNAME = ALLTRIM(FILE_NAME)
 DO WHILE .T.
  if !file('a:\&fname')
  MESSAGEBOX('请插入第 ' + ALLTRIM(STR(N)) + ' 张工资数据库备份软盘到Ａ驱动器。',64,'恢复工资数据库')
 NEXTDISK = .T.
 ELSE 
 EXIT 
 ENDIF 
 ENDDO 
 IF NEXTDISK
 N = N + 1
 NEXTDISK = .F.
 ENDIF 
  copy file a:\&fname to &pathname.\gzdata\&fname
 SKIP 
 ENDDO 
 USE 
 = MESSAGEBOX('请插入工资报表文件的备份软盘到Ａ驱动器。',64,'恢复工资报表文件')
  !copy  /y  a:\*.frx  &pathname.\reports
  !copy  /y  a:\*.frt  &pathname.\reports
 ENDIF 
  set path to &oldpath
 SET RESOURCE TO gzzywj
 OPEN DATABASE gzk
 MENUFLAG = .F.
 = MESSAGEBOX('工资数据库和工资报表文件恢复完毕!',64,'提示')
 RETURN 
*