main.bak

利用VF编写的人力资源管理系统

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
*---调用登录窗体
do form frmLogin