主程序.prg

来自「Vfp的关于药房管理系统源代码」· PRG 代码 · 共 9 行

clear all
SET TALK off
mypath=lower(allt(left(sys(16),rat("\",sys(16)))))
set defa to (mypath)
set path to forms,data,reports,menus
OPEN DATABASE ywsykglxt

do form 验证口令
read even