主程序.prg

医务所药库管理系统（VFP）(包括程序文档)

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