backupf.prg

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

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


 MENUFLAG = .T.
 CLOSE DATABASES 
 PATHNAME1 = SUBSTR(PATHNAME,4)
 SET RESOURCE TO
 WAIT TO DA WINDOW AT 10 , 30 '可以将工资数据备份到硬盘Ｄ分区或软盘Ａ。请键入Ｄ或Ａ。'
  !del &pathname.\gzdata\*.bak
 IF UPPER(DA) = 'D'
  if !directory('d:\&pathname1..bak')
  md d:\&pathname1..bak
  md d:\&pathname1..bak\gzdata
  md d:\&pathname1..bak\reports
 ENDIF 
  dele file d:\&pathname1..bak\gzdata\*.*
  dele file d:\&pathname1..bak\reports\*.*
  !copy /y  &pathname.\gzdata\*.*   d:\&pathname1..bak\gzdata 
  !copy /y  &pathname.\reports\*.*  d:\&pathname1..bak\reports
  =messageBox(chr(13)+'工资数据库已经备份到D:\&pathname1..BAK\gzdata 文件夹,'+chr(13) +chr(13)+'工资报表文件已经备份到D:\&pathname1..BAK\reports 文件夹。',0+64+0,'提示')
 ENDIF 
 IF UPPER(DA) = 'A'
 = MESSAGEBOX('请插入一张已格式化的空白软盘到A驱动器。',64,'备份工资数据库')
 NUM = ADIR(FA,'*.*')
 USE dbf_file
 ZAP 
 FOR I = 1 TO NUM
 APPEND BLANK
 REPLACE FILE_NAME WITH ALLTRIM(FA(I,1)) , FILE_SIZE WITH FA(I,2)
 ENDFOR 
 LOCATE FOR UPPER(FILE_NAME) = 'DBF_FILE.DBF'
 DELETE 
 PACK 
 N = 1
 N2 = .F.
 COPY TO a:\dbf_file
 GO TOP
 DO WHILE  .NOT. EOF()
 DO WHILE DISKSPACE('A:') < FILE_SIZE + 1024
 = MESSAGEBOX('软盘自由空间不够。请插入下一张已格式化的软盘到Ａ驱动器',64,'备份工资数据库')
 ENDDO 
 FNAME = ALLTRIM(FILE_NAME)
  copy file &fname to a:\&fname
 SKIP 
 ENDDO 
 USE 
 = MESSAGEBOX('请插入一张空白软盘到Ａ驱动器。',64,'备份工资报表文件')
  !copy  /y  &pathname.\reports\*.*  a:
 = MESSAGEBOX('工资数据和工资报表文件备份完毕!',64,'提示')
 ENDIF 
 OPEN DATABASE gzk
 SET RESOURCE TO gzzywj
 MENUFLAG = .F.
 RETURN 
*