VFP主程序析.docVIP

********************************* VFP主程序 分析 1 ** ** 2006.10.7 *********************************SET talk off 不显示命令结果。Clear 清屏ZOOM window screen max 将VFP系统窗口最大化。*set path to home() 设置VFP系统默认路径为当前路径。当你第一次运行时，可将其打开以便观察。oldpath=set(path) 把程序执行前的路径存入变量，以便程序结束后将它恢复? oldpath 显示的是程序执行前的路径wait wind 显示的是程序执行前的路径暂定，以便观察，按任意键继续。=setpath() 调用自定义函数“setpath()”*OPEN database datas\招生管理*PUBLIC qx*qx=*DO form forms\welcome.scx 显示应用程序的欢迎界面。*READ events 执行事件循环*DO form forms\dl.scx 打开登陆界面。*READ events 执行事件循环*以下是退出应用程序CLOSE databaseSET sysmenu to default 设置VFP系统为默认状态。SET path to oldpath 重新设置程序执行前的路径。? set(path) 显示当前路径wait wind 重新设为原来路径 暂定，以便观察，按任意键继续。Release oldpath 释放内存变更。FUNCTION setpath() 自定义函数，函数名“setpath” LOCAL lclsys16,lcprogram,lcpath定义三个局部变量 lcsys16=sys(16) 返回执行程序文件名（即本程序文件名）、路径、盘符及字符串“PROCEDURE SETPATH”， 并把返回值存入变量lclsys16。 ? lcsys16 显示存入变量lclsys16内的内容，即：文件名、路径、盘符及字符串“PROCEDURE SETPATH”。 wait wind 显示程序所在的全部路径及程序名暂定，以便观察，按任意键继续。 lcprogram=substr(lcsys16,at(:,lcsys16)-1)去掉盘符前面的字符串：“PROCEDURE SETPATH”，并保存在变量内。 ? lcprogram 显示程序所在的盘符、路径及程序名 wait wind 显示程序所在的全部路径及程序名，并去掉盘符前面的字符串。暂定，以便观察，按任意键继续。 lcpath=left(lcprogram,rat(\,lcprogram)-1)截取盘符和路径，去掉程序文件名和钭扛“\”，并存入变量。 ? lcpath 显示此路径。 wait wind 显示程序所在的盘符和路径，并去掉程序名暂定，以便观察，按任意键继续。 *lcpath=left(lcprogram,rat(\,lcprogram)-1) *CD lcpath 进入此路径。 set defa to left(lcprogram,rat(\,lcprogram)-1)将此目录设成VFP的默认目录，而不是指定目录。 若设成默认目录，此目录将存入Windows系统的注册表内，使VFP重新启动