feat: support assigning roles to a user or role

Refs #1155

Author: ansgarbecker

source/dbstructures.mysql.pas

@@ -3393,6 +3393,8 @@ function TMySqlProvider.GetSql(AId: TQueryId): string;
     qCreateRole: Result := 'CREATE ROLE %s';
     qDropRole: Result := 'DROP ROLE %s';
     qReloadPrivileges: Result := 'FLUSH PRIVILEGES';
+    qGrantRole: Result := 'GRANT %s TO %s%s';
+    qRevokeRole: Result := 'REVOKE %s FROM %s';
     else Result := inherited;
   end;
 end;

source/dbstructures.pas

@@ -50,7 +50,8 @@ interface
     qForeignKeyDrop, qGetTableColumns, qGetCollations, qGetCollationsExtended, qGetCharsets,
     qGetReverseForeignKeys, qExplain, qSetTimezone,
     qShowFunctionStatus, qShowProcedureStatus, qShowTriggers, qShowEvents, qShowCreateTrigger,
-    qHelpKeyword, qShowWarnings, qGetEnumTypes, qDropUser, qCreateRole, qDropRole, qReloadPrivileges);
+    qHelpKeyword, qShowWarnings, qGetEnumTypes,
+    qDropUser, qCreateRole, qDropRole, qReloadPrivileges, qGrantRole, qRevokeRole);
   TSqlProvider = class
     strict protected
       FNetType: TNetType;