www.pudn.com > jq_gongzi.ARJ > GZB.PRG

*************************** 
* .\GZB.PRG 
*************************** 
set talk off 
set status off 
set scoreboard off 
set deleted on 
set menu off 
set path to \cw 
set color to bg/bg 
clear  
set color to w/n 
@ 4 , 7 , 16 , 76 box '          ' 
set color to w+/b 
@ 3 , 5 , 15 , 75 box '         ' 
@ 3 , 5 to 15 , 75 double 
@ 4 , 8 say 'J Q 系 列 软 件 ' 
set color to w/n 
@ 6 , 12 , 13 , 70 box '         ' 
set color to w+/g 
@ 5 , 10 , 12 , 68 box '         ' 
@ 5 , 10 to 12 , 68 
set color to w+/b 
@ 14 , 27 say 'J Q 软 件 创 作 室      黄朝生' 
set color to w/n 
@ 7 , 16 , 11 , 64 box '          ' 
set color to gr+/r 
@ 6 , 14 , 10 , 62 box '          ' 
@ 7 , 18 say '☆   ＪＱ００１  工 资 表 管 理 系 统   ☆ ' 
@ 9 , 32 say ' Ｖｅｒ  ２.０' 
@ 24 , 0 say '' 
I = inkey(3) 
GZBWJ = 'gzb1' 
do while .t. 
  set color to n/w 
  clear  
  set color to 
  @ 7 , 22 clear to 17 , 60 
  set color to n/bg 
  @ 6 , 20 clear to 16 , 58 
  set color to w+/bg 
  X1 = 6 
  X2 = 16 
  Y1 = 22 
  Y2 = 56 
  do box-1 
  set color to gr+/w 
  @ 1 , 2 say '欢 迎 使 用' 
  @ 1 , 67 say 'JQ系列软件' 
  do case 
  case GZBWJ='gzb1' 
    @ 18 , 32 say ' 工资表1' 
  case GZBWJ='gzb2' 
    @ 18 , 32 say ' 工资表2' 
  case GZBWJ='gzb3' 
    @ 18 , 32 say ' 工资表3' 
  case GZBWJ='gzb4' 
    @ 18 , 32 say ' 工资表4' 
  endcase  
  @ 20 , 27 say 'JQ 软 件 工 作 室 黄朝生 研制' 
  DATE = date() 
  @ 22 , 24 say '现在时间:' 
  @ 22 , 35 say year(DATE) 
  @ 22 , 41 say '年' 
  @ 22 , 43 say month(DATE) 
  @ 22 , 46 say '月' 
  @ 22 , 48 say day(DATE) 
  @ 22 , 51 say '日' 
  set clock to 22 , 55 
  PD = 3 
  set color to bg+/n 
  @ 4 , 30 say '  工资表管理   ' 
  set color to w/b , w+/r 
  @ 7 , 29 prompt ' 退出工资表管理系统 ' 
  @ 8 , 29 prompt ' 选  择  工  资  表 ' 
  @ 9 , 29 prompt '工 资 表 数 据 编 辑' 
  @ 10 , 29 prompt '工 资 表 数 据 汇 总' 
  @ 11 , 29 prompt '打 印 工 资 明 细 表' 
  @ 12 , 29 prompt '简 化 数 据 到 文 件' 
  @ 13 , 29 prompt '备 份 工 资 表 数 据' 
  @ 14 , 29 prompt '恢 复 工 资 表 数 据' 
  @ 15 , 29 prompt '设置单位名称及表名称' 
  menu to PD 
  set clock off 
  do case 
  case PD=1 or PD=0 
    ?? chr(7) 
    set color to 
    @ 4 , 27 say '      真的退出吗(Y/N)?      ' 
    I = inkey(0) 
    if I=121 or I=89 
      quit  
    endif  
  case PD=2 
    set color to g+/b , bg+/r 
    PD = 1 
    @ 7 , 6 say '请选择:' 
    @ 9 , 6 prompt '工资表1' 
    @ 10 , 6 prompt '工资表2' 
    @ 11 , 6 prompt '工资表3' 
    @ 12 , 6 prompt '工资表4' 
    menu to PD 
    do case 
    case PD=1 
      GZBWJ = 'gzb1' 
    case PD=2 
      GZBWJ = 'gzb2' 
    case PD=3 
      GZBWJ = 'gzb3' 
    case PD=4 
      GZBWJ = 'gzb4' 
    endcase  
  case PD=3 
    do GZBXG 
  case PD=4 
    do gzbhz-1 
  case PD=5 
    do GZBDY 
  case PD=6 
    do JHSJDWJ 
  case PD=7 
    set color to 
    clear  
    @ 12 , 25 say '请将备份盘插入A:驱动器!' 
    @ 14 , 25 say '按ESC=返回,Y键=拷贝...' 
    I = inkey(0) 
    if I=89 or I=121 
      @ 16 , 30 say '正在拷贝文件......' 
      run copy gzb1.dbf A:gzb1.dbf >nul 
      run copy gzb2.dbf A:gzb2.dbf >nul 
      run copy gzb3.dbf A:gzb3.dbf >nul  
      run copy gzb4.dbf A:gzb4.dbf >nul 
    endif  
    @ 17 , 0 clear to 18 , 79 
  case PD=8 
    set color to 
    clear  
    @ 12 , 25 say '请将备份盘插入A:驱动器!' 
    @ 14 , 25 say '按ESC=返回,Y键=拷贝...' 
    I = inkey(0) 
    if I=89 or I=121 
      @ 16 , 30 say '正在拷贝文件......' 
      run copy A:gzb1.dbf gzb1.dbf >nul 
      run copy A:gzb2.dbf gzb2.dbf >nul 
      run copy A:gzb3.dbf gzb3.dbf >nul  
      run copy A:gzb4.dbf gzb4.dbf >nul 
    endif  
    @ 17 , 0 clear to 18 , 79 
  case PD=9 
    do SZ 
  endcase  
enddo  
return