main.bak

大一的课程设计

*---设置运行环境
set talk off
set safety off
close all
set talk off
set near on
set exact on
set ansi on
set excl off
set safety off
set dele on
set century on
set date to YMD
*---设置系统路径
public mypath
mypath=left(sys(16),rat("\",sys(16)))
set defa to (mypath)
*---打开管理原信息表
select a
use 管理员信息.dbf
select b
use 录取情况.dbf
select 1
*---调用登录窗体
do form frmLogin
read event