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;
应用访问控制组件
最新推荐文章于 2022-12-21 21:13:58 发布