wt.prg

本工资管理系统由foxpro编写,可在VF下运行

******************************************
*程序名称:wt.prg
*日    期:2000年9月4日
*功    能:打字练习软件
*作    者:吴启武
****************************************
set clock off
set sysmenu off
SET TALK OFF
CLEAR ALL
CLEAR
CLOSE ALL
SET DELE ON
SET ESCAPE ON
ON ESCAPE DO PROESC
*ON ERROR DO PROERR
SET CENT ON
set hour to 24
set color to *3,*4,*5
clear
***密码
do mao
****封面设计
DEFINE WINDOW WINESC1 FROM 1,1 TO 20,70;
NOCLOSE NOFLOAT SHADOW ;
COLOR SCHEME 5;
title "软件封面" ;
FOOTER "安化职业中专六十班吴启武 开发";
"*"
MOVE WINDOW WINESC1 CENTER
ACTIVATE WINDOW WINESC1
set text on
text 


                        欢迎使用本软件
           
              功能: 打字. 联机对话.  FOXPRO介绍      
           
              作者: 吴  启  武
            
              语言: FOXPRO FOR DOS
           
              日期:二000年十月十日
            
    
     祝:  一路顺风,
          天天进步!
        

endtext
wait ""  timeout 0.5
clear
set text off
rele wind winesc1
*********主 程序从以下开始
DEFINE WINDOW WIN1 FROM 2,5 TO 20,60;
FLOAT GROW ZOOM MINI SHADOW;
TITLE "初学者WT与TT练习软件";
footer "安化职业中专C60 吴启武 开发";
COLOR SCHEME 10
ACTIVATE WINDOW WIN1
CHOICE=1
DO WHILE .T.
@2,18  PROMPT "\<A.  打字练习   " MESSAGE "回车之后,开始练习!"
@5,18  PROMPT "\<B.  英文练习   " MESSAGE "回车之后,开始练习!"
@8,18  proMPT "\<c.  使用帮助   " MESSAGE "回车之后,开始帮助!"
@11,18 prompt "\<e.  退出系统   " MESSAGE "回车之后,返回到FOXPRO系统!"
menu to choice
do case
   case choice=1
     do wqwwt
   case choice=2
     do wqwwt
   case choice=3
     do wqwhelp
   case choice=4
        set clock off
     CLEAR
     CLEAR ALL
     return
endc
endd
set talk on
on error
on escape
return
************************
*名称:escpro
*日期:二000年十月
**************
PROC proesc
DEFINE WINDOW WINESC FROM 1,1 TO 10,50;
NOCLOSE NOFLOAT SHADOW ;
COLOR SCHEME 5;
TITLE "  警  告 " ;
 "*"
MOVE WINDOW WINESC CENT
ACTIVATE WINDOW WINESC
@ 2,2 SAY "您想退出使用本系统是不是?"  color 3/*4
@4,2 say "注意:由于ESC被封锁,不能够中止程序!" color 4/*5
wait "按任意键将继续!" window
rele wind winesc
return
************************
** proerr
proc proerr
DEFINE WINDOW WINERR FROM 2,1 TO 10,50;
CLOSE GROW FLOAT SHADOW COLOR SCHEME 5;
TITLE "错误提示："
acti wind winerr
@2,2 say "错误代码："+message((1))
@4,2 say "错误程序行:"+allt(str(line(1)))
@6,2 say "程序名:"+allt(program(1))
@7,2 say "按任意键继续!"
rele wind winerr
return to master
*****************************
*帮助文件
*help1.prg
*help2.prg
*help3.prg
*quit
************************
proc wqwhelp
define window  winhelp from 2,1 to 20,70;
shadow mini zoom close grow  color scheme 5;
title "wqw.wt 文字处理软件帮助" ;
footer "欢迎您提出宝贵意见!"
acti wind winhelp 
**********
**帮助窗口
*********
define window winh from 2,2 to 22,75 ;
color scheme 6 title "使用帮助";
foot "按 ESC 键退出" panel
**********
chohelp=1
do while .t.
@2,12 prompt "\<A.如何使用WT系统!"
@6,12 prompt "\<B.软 件 说  明"
@10,12 prompt "\<C.返        回" 
menu to chohelp
do case
   case chohelp=1
     acti wind winh
     move wind winh cent
     modi comm help1.txt;
     noedit WINDOW WINH
  case chohelp=2
    acti wind winh
        move wind winh cent
    modi comm help2.txt;
    noedit  WINDOW WINH
  case chohelp=3
     release window winh
     return
endcase
enddo
rele wind winhelp
return
**********
*USE11
********
proc  use11
IF USED("WQWWT.DBF")
SELECT wqwwt
SET ORDER TO 0
ELSE
USE(LOCF("WQWWT.DBF","DBF","请打开学生文件wqwwt.dbf!"));
again alias wqwwt order 0
endif
return
*******************
*wqwwt.prg
*******************
proc wqwwt
DEFINE WINDOW WINWT;
FROM 1,1  TO 20,60;
COLOR scheme 5;
 SHAD CLOSE;
PANEL TITLE "WT WQW"
move window winwt center
ACTI WIND WINWT

DO USE11
Go TOP
DD=RECC()
DIME DA(DD)
DA(1)="新用户登录"
FOR I=2 TO DD
DA(I)=姓名
SKIP
endfor
@4,22 GET CHO FROM DA DEFA 1
READ
DO CASE
    CASE CHO=1
    CLEAR 
    append blank
    @3,3 say "请输入您的姓名:" color 2/4
    @4,13 GET 姓名  color 4/5,6/7
    read
    public1=姓名
 OTHER 
    PUBLIC1=DA(CHO)
 endc
 dime aa(5)
 aa(1)="一级练习"
 aa(2)="二级练习"
 aa(3)="三级练习"
 aa(4)="四级练习"
 aa(5)="五级练习"
 cho11=1
 clear
 @4,5 say "请用光标选择:" color 4/*5
 @5,8 get cho11 from aa    
 read
 do wt1 
 release window winwt
 return
********************
*wt1.prg
*****************
proc wt1
define window winwt1;
from 1,1 to 24,79 panel;
shadow nofloat close zoom mini;
color scheme 5;
title "         打字练习                       启武开发";
footer "注意: ALT+X