sl_netprg1.bak

henhaoyong

clear screen 
clear events
clear all
public No,Name,DEPT,Month
No=""
Name=""
DEPT=""
Month=0
set talk on
set safety off
set printer off
set delete on
set exact on
set path to data;form;file;video
do form sl_login.scx
_screen.left=-10000  
read events