sl_netprg.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                 &&设定日期显示格式为：年/月/日

**/ 重新定义Visual FoxPro主窗口
_screen.controlBox=.f.          && 去掉Visual FoxPro主窗口上的标签(狐狸头)
_screen.caption="Visual FoxPro 系统开发教程.教学实例.2002.10"       && 重新定义Visual FoxPro主窗口上的标题
_screen.autocenter=.t.         && 使Visual FoxPro主窗口自动居中
*_screen.desktop=.t.            && 去掉Visual FoxPro主窗口

**/  执行操作界面
do sl_netmenu.mpr              &&执行一个菜单文件


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

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