start.prg

医院管理系统

clear all
close all
local lcsys16,lcprogram                 &&定义局部变量
lcsys16=sys(16)                         && sys(16)返回当前正在运行的程序名（包括路径）
lcprogram=substr(lcsys16,at(":",lcsys16)-1)
cd left(lcprogram,rat("\",lcprogram))   &&用CD命令进入系统所在目录
deactivate window "project manager"     &&关闭项目管理器
_screen.left=-10000                     &&程序运行时去掉Visual FoxPro的主窗口
do setting                              &&调用系统环境设置
open data database\数据库.dbc
do form form\main.scx
read events