sl_netform.bak

henhaoyong

**/  设置环境，初始化变量
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 date to ymd                    && 设定日期显示格式为：年/月/日
set path to data;form;file;video   && 设定搜索路径

**/  记录原来日期显示格式
date1=set("date")                  && 记录现在日期显示格式
set date to ymd                    && 设定日期显示格式为：年/月/日

**/  执行操作界面
do form sl_login.scx               && 执行一个表单文件
_screen.left=-1000                 && 把Visual FoxPro主窗口隐藏

**/  执行表单事件循环
read events                &&开始执行事件循环

**/  复系统原来操作界面
set date to &date1           &&恢复原来日期显示格式