Q5/ws_objects/Ew_mainface.pbl.src/f_power_ind.srf

$PBExportHeader$f_power_ind.srf
global type f_power_ind from function_object
end type

forward prototypes
global function boolean f_power_ind (long argno)
global function boolean f_power_ind (long argno, ref string arg_msg)
end prototypes

global function boolean f_power_ind (long argno);//f_power_ind
//int i
//
//if sys_power_issuper then return true
//i=integer(mid(sys_right,argno,1))
//if i=1 then	return true
//return false

return f_power_ind(argno, sys_msg_pow)
end function

global function boolean f_power_ind (long argno, ref string arg_msg);//f_power_ind
Int i
String ls_treename
IF sys_power_issuper THEN RETURN True
i = Integer(Mid(sys_right,argno,1))
IF i = 1 THEN	RETURN True

SELECT treename INTO :ls_treename
	FROM sys_func_pwr
	Where funcid = :argno;
IF IsNull(ls_treename) THEN ls_treename = ""
IF ls_treename = "" THEN
	arg_msg = "权限ID:"+String(argno)+"未定义"
ELSE
	arg_msg = '你没有['+ls_treename+']的使用权限!'
END IF
RETURN False




end function