如何根据用户权限设置mainmenu显示与否……

Question

如何根据用户权限设置mainmenu显示与否…… 
代码如下
IsAdmin: Boolean;
      begin
           if form9.ADOTable1.FieldByName('Right').AsString = '1' then
             mainform.N2.Visible:=IsAdmin;
            mainform.N4.Visible:=IsAdmin;
            mainform.N6.Visible:=IsAdmin;
           mainform.N8.Visible:=IsAdmin;
             MainForm.ShowModal;
             form9.close;
结果都一样不会根据权限去判断只有mainform.N2.Visible:=IsAdmin;这一条可行

Answer 1

Then 后面的语句要用begin...end，否则就只执行一句了。
正确的应该如下：
IsAdmin: Boolean; 
      begin 
          if form9.ADOTable1.FieldByName('Right').AsString = '1' then 
            Begin
            mainform.N2.Visible:=IsAdmin; 
            mainform.N4.Visible:=IsAdmin; 
            mainform.N6.Visible:=IsAdmin; 
            mainform.N8.Visible:=IsAdmin; 
            end;
            MainForm.ShowModal; 
            form9.close;