var
  frmMain: TfrmMain;
  OperatorName, OperatorRight: string;          //用户名、权限
  procedure ChkRight(strRight: string);         //权限检查
implementation

uses uLogin;

{$R *.dfm}

//==============================================================================
// 检查用户权限
//==============================================================================

procedure ChkRight(strRight: string);
var
  i, num: Integer;
  blRight: Boolean;
begin
  with frmMain do
  begin
    // string[i]没有 0 ,所以循环从 1 开始
    for i := 1 to Length(strRight) do
    begin
      //设置Actions是否显示,以此来控制用户权限
      blRight := strRight[i] = '1';
      TAction(actlstMain.Actions[i-1]).Visible := blRight;
    end;
  end;
end;

procedure TfrmMain.FormActivate(Sender: TObject);
begin
  ChkRight(OperatorRight);                       //检查用户权限
end;