main.prg

一个基于vf的人事管理系统哦

CLOSE ALL
CLEAR ALL
SET CENTURY ON                           &&  显示四位年代
SET HOURS TO 24
PUBLIC qx,yong_pass,yong_name,first,keyno,yonghu,yonghu1&&  声明全局全变量
first=.t.
keyno=0
yonghu=0
yonghu1=0
_SCREEN.VISIBLE=.F.
do form from\log                      &&  执行login表单
read events								 &&