| ( |
|
|
|||
| Returns TRUE if the logged in user is in administrator mode. | |||
global
updating function Boolean OnLogin()
BEGIN
Record RcVc RepSpec;
Boolean res,reshot;
Integer nwn;
// -- //
if (DBStatus==0) then begin
if (CurrentUserIsAdmin) then begin
nwn = OpenWindow("DBBlessWClass",1,0,"","",RepSpec);
reshot = false;
end;
end;
// -- //
OnLogin = res;
RETURN;
END;
 |
|
| Related topics: | |