auth.prg

来自「vf编译的工资管理系统 vf编译的工资管理系统」· PRG 代码 · 共 9 行

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