gz_init.prg

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

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


 ANS =  ;
      MESSAGEBOX('    第一次利用此软件管理本单位的工资核算业务时,必须先执行“系统初始化”功能，以删除示例（光明机械厂）的工资数据，并建立本单位的工资数据库。' +  ;
CHR(13) +  ;
CHR(13) +  ;
'    要执行“系统初始化”，请按“确定”按钮。' +  ;
CHR(13) +  ;
CHR(13) +  ;
'    若已经建立好本单位的工资数据库,请按“取消”按钮或ESC键。',289,'警告')
 IF ANS = 1
 MENUFLAG = .T.
 WAIT WINDOW AT 12 , 40 NOWAIT '正在进行系统初始化...'
 USE gzdate
 DO WHILE  .NOT. EOF()
 YM1 = GZYY + GZMM
  if file('bm&ym1..dbf')
  drop table bm&ym1
 ENDIF 
  if file('lb&ym1..dbf')
  drop table lb&ym1
 ENDIF 
  if file('bh&ym1..dbf')
  drop table bh&ym1
 ENDIF 
  if file('lh&ym1..dbf')
  drop table lh&ym1
 ENDIF 
  if file('gz&ym1..dbf')
  drop table gz&ym1
 ENDIF 
  if file('xm&ym1..dbf')
  drop table xm&ym1
 ENDIF 
  if file('gs&ym1..dbf')
  drop table gs&ym1
 ENDIF 
  if file('tb&ym1..dbf')
  drop table tb&ym1
 ENDIF 
 SKIP 
 ENDDO 
 ZAP 
 USE dwmc
 ZAP 
 USE yhzc
 ZAP 
 USE dbf_file
 ZAP 
 USE gzsys
 REPLACE KA1 WITH .T.
 USE 
 USE gzxm
 GO 8
 REPLACE NAME WITH '' FOR RECNO() >= 8
 USE gzmc
 ZAP 
 CLOSE ALL
 CLOSE DATABASES 
 USE gzk.dbc
 PACK 
 USE 
 = MESSAGEBOX('系统初始化完成。单击“确定”按钮，退出工资管理系统，然后重新运行工资管理系统，以建立本单位的工资系统。','提示')
 CLEAR EVENTS 
 ELSE 
 WAIT WINDOW AT 12 , 40 NOWAIT '没有执行“系统初始化”功能'
 ENDIF 
*