?? 車輛管理系統.prg
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -