如何通过FireDAC获取MySQL数据库用户的访问权限？

要解决这个问题，核心是利用MySQL的系统查询获取当前登录用户的权限，再通过FireDAC执行这些查询并解析结果，最后根据权限控制UI元素（比如菜单、编辑按钮）的可用性，从根源避免无权限操作引发的异常。

1. 用MySQL系统查询获取权限 #

MySQL提供了两种常用方式查询当前用户权限：

方式一：使用SHOW GRANTS语句 #

直接查询当前登录用户的所有权限条目，涵盖全局、数据库、表等不同层级的权限：

SHOW GRANTS FOR CURRENT_USER;

方式二：查询information_schema系统表 #

如果需要更精细的权限筛选（比如针对特定数据库或表），可以查询对应的系统表：

-- 查询当前用户的全局权限
SELECT PRIVILEGE_TYPE FROM information_schema.USER_PRIVILEGES
WHERE GRANTEE = CURRENT_USER();

-- 查询当前用户对指定数据库的权限
SELECT PRIVILEGE_TYPE FROM information_schema.SCHEMA_PRIVILEGES
WHERE GRANTEE = CURRENT_USER() AND TABLE_SCHEMA = '你的数据库名';

-- 查询当前用户对指定表的权限
SELECT PRIVILEGE_TYPE FROM information_schema.TABLE_PRIVILEGES
WHERE GRANTEE = CURRENT_USER() AND TABLE_SCHEMA = '你的数据库名' AND TABLE_NAME = '你的表名';

2. 在Delphi/FireDAC中执行查询并解析权限 #

以下是具体的Delphi代码示例，演示如何获取并验证当前用户对指定表的更新权限：

uses
  FireDAC.Comp.Client;

function HasTableUpdatePermission(const AConnection: TFDConnection; const ADbName, ATableName: string): Boolean;
var
  LQuery: TFDQuery;
begin
  Result := False;
  LQuery := TFDQuery.Create(nil);
  try
    LQuery.Connection := AConnection;
    LQuery.SQL.Text := 'SELECT PRIVILEGE_TYPE FROM information_schema.TABLE_PRIVILEGES ' +
                       'WHERE GRANTEE = CURRENT_USER() AND TABLE_SCHEMA = :DbName AND TABLE_NAME = :TableName';
    LQuery.ParamByName('DbName').AsString := ADbName;
    LQuery.ParamByName('TableName').AsString := ATableName;
    LQuery.Open;
    
    // 遍历结果，检查是否包含UPDATE权限
    while not LQuery.Eof do
    begin
      if UpperCase(LQuery.FieldByName('PRIVILEGE_TYPE').AsString) = 'UPDATE' then
      begin
        Result := True;
        Break;
      end;
      LQuery.Next;
    end;
  finally
    LQuery.Free;
  end;
end;

3. 根据权限控制UI元素 #

拿到权限验证结果后，直接控制菜单或操作按钮的可用性即可：

// 假设你有一个编辑菜单项EditMenuItem
EditMenuItem.Enabled := HasTableUpdatePermission(FDConnection1, 'mydb', 'customers');

这样就能提前禁用用户无权限的操作，避免后续操作触发数据库异常。

注意事项 #

• CURRENT_USER()返回的是当前MySQL连接使用的用户（格式为'user'@'host'），和你登录数据库时用的账号完全一致。
• 如果用户权限在运行时被修改，需要重新执行权限查询或重新连接数据库才能获取最新权限。
• 涉及列级权限的场景，可以查询information_schema.COLUMN_PRIVILEGES表做更细致的验证。

内容的提问来源于stack exchange，提问作者Peter van Schagen