权限管理

Question

大家谁知道，权限管理的相关事例，告诉妹妹一下，还有case语句怎么写的相关资料

Answer 1

这里设置了七中权限。你慢慢看吧！procedure TLoginForm.iniapp(qx: int64);
 //项目初始化，对于不同的操作人员，赋予不同的操作权限
var i, j: integer;
begin
  Application.CreateForm(TmainForm, MainForm);
  for i := 0 to MainForm.MainMenu1.items.Count - 1 do
    for j := 0 to MainForm.MainMenu1.Items[i].Count - 1 do
      MainForm.MainMenu1.items[i].Items[j].Enabled := false;
  MainForm.TSGLBT.Enabled := False;
  MainForm.BXGLBT.Enabled := False;
  MainForm.JFDJBT.Enabled := False;
  MainForm.ZHZLBT.Enabled := False;
  MainForm.BACKDATABT.Enabled := False;
   //使所有的菜单为不可用
  qx := qx xor 1234567890;
  qx := qx shr 10;
  for i := 0 to 6 do //共有7 种权限
    if ((1 shl i) and qx) <> 0 then
      case i of
        0: begin
            MainForm.TSGL.Enabled := True;
            MainForm.BXGL.Enabled := True;
            MainForm.TSGLBT.Enabled := True;
            MainForm.BXGLBT.Enabled := True;
          end;
        1: begin
            MainForm.TCGL.Enabled := True;
            MainForm.WYJFGL.Enabled := True;
            MainForm.YFKGL.Enabled := True;
            MainForm.JFDJBT.Enabled := True;
          end;
        2: begin
            MainForm.TSBB.Enabled := True;
            MainForm.BXBB.Enabled := True;
          end;
        3: begin
            MainForm.SFTJBB.Enabled := True;
            MainForm.SFGL.Enabled := True;
          end;
        4: begin
            MainForm.FXZLLR.Enabled := True;
            MainForm.ZHZLLR.Enabled := True;
            MainForm.TCCCWLR.Enabled := True;          end;
        5: begin
            MainForm.ZHZLBT.Enabled := True;
          end;
        6: begin
            MainForm.UserManage.Enabled := True;
            MainForm.BACKDATA.Enabled := True;
            MainForm.BACKDATABT.Enabled := True;
          end;      end;
  MainForm.CHANGEPASSWORD.Enabled := true;
  MainForm.ReLogin.Enabled := true;
  MainForm.ExitMenu.Enabled := true;
  MainForm.SystemHelp.Enabled := true;
  MainForm.About.Enabled := true;
  check := true;
  LoginForm.Free;
  MainForm.ShowModal;
end;