主程序.prg

来自「图书管理系统（VFP）(包括程序文档)」· PRG 代码 · 共 8 行

clear all
SET TALK off
mypath=lower(allt(left(sys(16),rat("\",sys(16)))))
set defa to (mypath)
set path to forms,data,reports
OPEN DATABASE tsglxt
do form 验证口令
read even