应用访问控制组件

网页权限控制与登录验证

最新推荐文章于 2022-12-21 21:13:58 发布

原创最新推荐文章于 2022-12-21 21:13:58 发布 · 313 阅读

0 ·

CC 4.0 BY-SA版权

Delphi 专栏收录该内容

95 篇文章

订阅专栏

initialization
if WebRequestHandler <> nil then
WebRequestHandler.AddWebModuleFactory(TWebAppPageModuleFactory.Create(TMyHome, TWebPageInfo.Create([wpPublished {, wpLoginRequired}], '.html', '', '我的主页' ), caCache)
修改为:
initialization
if WebRequestHandler <> nil then
WebRequestHandler.AddWebModuleFactory(TWebAppPageModuleFactory.Create(TMyHome, TWebPageInfo.Create([wpPublished , wpLoginRequired], '.html', '', '我的主页' ), caCache)
//即去掉{, wpLoginRequired}的大括号，迫使该页面在创建过程中增加登录过程。
//OnHasRights事件中增加如下代码（只列出dbEdit，其它页面相同）：
  procedure TMyHome.EndUserSessionAdapter1HasRights(Sender: TObject;
  Rights: TStrings; var HasRights, Handled: Boolean);
begin
     HasRights:=true;
     if WebUserList1.UserItems.FindUserName(EndUserSessionAdapter1.UserID).AccessRights<>'admin' then
     dbedit.AdapterFieldGroup1.AdapterMode := 'Browse'//如果当前用户名称不是“admin”将修改数据页面设置为浏览状态
   else
     dbedit.AdapterFieldGroup1.AdapterMode := 'Edit' ; // 如果当前用户名称是“admin”将修改数据页面设置为编辑状态
end;