public purview,GLY,TC
public myDrive
purview=5
GLY=.f.
TC=.t.
local lcsys16,lcprogram                 &&定義兩個局部變量
myDrive=sys(5)+sys(2003)   &&定義全局變量 獲取系統所在路徑 防止找不到路徑

lcsys16=sys(16)                         && sys(16)返回當前正在運行的程序名（包括路徑）
lcprogram=substr(lcsys16,at(":",lcsys16)-1)
cd left(lcprogram,rat("\",lcprogram))   &&用CD命令進入系統所在目錄
deactivate window "project manager"     &&關閉項目管理器
do setting                              &&設置系統環境配置
_screen.left=-10000                     &&程序運行時去掉Visual FoxPro的主窗口
_screen.visible=.f.

do form form\frmlogin
read events                             &&準備接收事件響應
do reset