?? 實例——應用訪問控制組件.txt
字號:
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;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -