企业管理

开发平台：

VFP

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 '

						