auth.prg

vf编译的工资管理系统 vf编译的工资管理系统

para username, oname
select * from salary!op where userid=username and o_name=oname into curs intmp
if _tally <>0
use in intmp
do form &oname
else
use in intmp
=messagebo("你没有该操作的权限!!!")
endif