main.bak

这是一个培训管理系统

************************************
*应用系统主程序
*程序名称：MAIN.PRG
************************************
LOCAL lcSys16,lcProgram
*使用"LOCAL"定义两个局部变量。
lcSys16=SYS(16)
*使用系统参数"SYS（16）"返回当前正在运行的程序名，包括路径。
lcProgram=SUBSTR(lcSys16,AT(":",lcSys16)-1)
*使用AT（）函数返回第一个字符串在第二个字符串中首次出现的数字位置。本例中为"."在程序名中的位置。使用SUBSTR（）函数从给定的字符串中返回一个字符串。
CD LEFT(lcProgram,RAT("\",lcProgram))
* 使用RAT（）函数返回在另一个字符串中最后出现第一个字符串的位置。
do setting.prg
*使用DO命令执行程序Setting.prg，设置执行期间的配置程序。
set path to E:\program files\Microsoft Visual Studio\Vfp98
do form ygpx\form\welcome
*使用DO FORM执行系统的第一个界面程序。
_screen.left=-10000
*将"白框"移出屏幕
open database ygpx\ygpx.dbc
READ EVENTS
*执行READ EVENTS指令开始读取事件程序，让程序开始运行起来。
DO reset.prg
*当执行了CLEAR EVENTS事件程序后。通过DO命令执行一个配置还原程序Reset，还原系统配置。