feat: support assigning roles to a user or role

Refs #1155

Author: ansgarbecker

extra/locale/heidisql.po

@@ -7,7 +7,7 @@ msgid ""
 msgstr ""
 "Project-Id-Version: HeidiSQL\n"
 "POT-Creation-Date: 2012-11-05 21:40\n"
-"PO-Revision-Date: 2026-03-20 15:16+0100\n"
+"PO-Revision-Date: 2026-03-24 12:08+0100\n"
 "Last-Translator: Ansgar Becker <anse@heidisql.com>\n"
 "Language-Team: English (http://www.transifex.com/projects/p/heidisql/language/en/)\n"
 "Language: en\n"
@@ -6815,3 +6815,21 @@ msgstr "Folder in path does not exist: %s"
 
 msgid "File does not yet exist, will be created now: %s"
 msgstr "File does not yet exist, will be created now: %s"
+
+msgid "Create role"
+msgstr "Create role"
+
+msgid "Role name"
+msgstr "Role name"
+
+msgid "Roles"
+msgstr "Roles"
+
+msgid "Assigned"
+msgstr "Assigned"
+
+msgid "Yes, with admin option"
+msgstr "Yes, with admin option"
+
+msgid "No password hash column available"
+msgstr "No password hash column available"

source/dbstructures.mysql.pas

@@ -3399,6 +3399,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

@@ -48,7 +48,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;

source/usermanager.lfm

@@ -16,15 +16,13 @@ object UserManagerForm: TUserManagerForm
   OnCloseQuery = FormCloseQuery
   OnCreate = FormCreate
   OnDestroy = FormDestroy
-  OnResize = FormResize
   OnShow = FormShow
   object Splitter1: TSplitter
     Cursor = crSizeWE
     Left = 229
     Height = 328
     Top = 0
     Width = 8
-    OnMoved = FormResize
   end
   object pnlLeft: TPanel
     Left = 5
@@ -174,67 +172,6 @@ object UserManagerForm: TUserManagerForm
     Constraints.MinWidth = 20
     ParentBackground = False
     TabOrder = 1
-    object tlbObjects: TToolBar
-      Left = 0
-      Height = 28
-      Top = 145
-      Width = 385
-      AutoSize = True
-      ButtonHeight = 28
-      ButtonWidth = 79
-      Caption = 'tlbObjects'
-      EdgeBorders = []
-      Images = MainForm.ImageListMain
-      List = True
-      ParentShowHint = False
-      ShowCaptions = True
-      ShowHint = True
-      TabOrder = 1
-      Wrapable = False
-      object lblAllowAccessTo: TLabel
-        Left = 1
-        Height = 28
-        Top = 0
-        Width = 121
-        AutoSize = False
-        Caption = 'Allow access to:'
-        Layout = tlCenter
-        Transparent = False
-      end
-      object btnAddObject: TToolButton
-        Left = 122
-        Hint = 'Add object ...'
-        Top = 0
-        Caption = 'Add object'
-        ImageIndex = 45
-        OnClick = btnAddObjectClick
-      end
-    end
-    object treePrivs: TLazVirtualStringTree
-      AnchorSideTop.Control = tlbObjects
-      AnchorSideTop.Side = asrBottom
-      Left = 0
-      Height = 150
-      Top = 173
-      Width = 385
-      Align = alClient
-      Header.AutoSizeIndex = 0
-      Header.Columns = <>
-      Header.MainColumn = -1
-      Images = MainForm.ImageListMain
-      IncrementalSearch = isAll
-      TabOrder = 2
-      TreeOptions.AutoOptions = [toAutoDropExpand, toAutoTristateTracking, toAutoDeleteMovedNodes, toAutoChangeScale]
-      TreeOptions.MiscOptions = [toAcceptOLEDrop, toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning, toEditOnClick]
-      TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowRoot, toShowTreeLines, toThemeAware, toUseBlendedImages, toUseExplorerTheme, toHideTreeLinesIfThemed]
-      OnChecked = treePrivsChecked
-      OnExpanded = treePrivsExpanded
-      OnGetText = treePrivsGetText
-      OnPaintText = treePrivsPaintText
-      OnGetImageIndex = treePrivsGetImageIndex
-      OnInitChildren = treePrivsInitChildren
-      OnInitNode = treePrivsInitNode
-    end
     object PageControlSettings: TPageControl
       Left = 0
       Height = 145
@@ -589,6 +526,96 @@ object UserManagerForm: TUserManagerForm
         end
       end
     end
+    object PageControlAccess: TPageControl
+      Left = 0
+      Height = 178
+      Top = 145
+      Width = 385
+      ActivePage = tabPrivileges
+      Align = alClient
+      TabIndex = 0
+      TabOrder = 1
+      object tabPrivileges: TTabSheet
+        Caption = 'Privileges'
+        ClientHeight = 150
+        ClientWidth = 377
+        object treePrivs: TLazVirtualStringTree
+          Left = 0
+          Height = 122
+          Top = 28
+          Width = 377
+          Align = alClient
+          DefaultText = 'Node'
+          Header.AutoSizeIndex = 0
+          Header.Columns = <>
+          Header.MainColumn = -1
+          Images = MainForm.ImageListMain
+          IncrementalSearch = isAll
+          TabOrder = 0
+          TreeOptions.AutoOptions = [toAutoDropExpand, toAutoTristateTracking, toAutoDeleteMovedNodes, toAutoChangeScale]
+          TreeOptions.MiscOptions = [toAcceptOLEDrop, toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning, toEditOnClick]
+          TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowRoot, toShowTreeLines, toThemeAware, toUseBlendedImages, toUseExplorerTheme, toHideTreeLinesIfThemed]
+          OnChecked = treePrivsChecked
+          OnExpanded = treePrivsExpanded
+          OnGetText = treePrivsGetText
+          OnPaintText = treePrivsPaintText
+          OnGetImageIndex = treePrivsGetImageIndex
+          OnInitChildren = treePrivsInitChildren
+          OnInitNode = treePrivsInitNode
+        end
+        object tlbObjects: TToolBar
+          Left = 0
+          Height = 28
+          Top = 0
+          Width = 377
+          AutoSize = True
+          ButtonHeight = 28
+          ButtonWidth = 79
+          Caption = 'tlbObjects'
+          EdgeBorders = []
+          Images = MainForm.ImageListMain
+          List = True
+          ParentShowHint = False
+          ShowCaptions = True
+          ShowHint = True
+          TabOrder = 1
+          Wrapable = False
+          object btnAddObject: TToolButton
+            Left = 1
+            Hint = 'Add object ...'
+            Top = 0
+            Caption = 'Add object'
+            ImageIndex = 45
+            OnClick = btnAddObjectClick
+          end
+        end
+      end
+      object tabRoles: TTabSheet
+        Caption = 'Roles'
+        ClientHeight = 150
+        ClientWidth = 377
+        object ValueListEditorRoles: TValueListEditor
+          Left = 0
+          Height = 150
+          Top = 0
+          Width = 377
+          Align = alClient
+          RowCount = 2
+          TabOrder = 0
+          OnSelectCell = ValueListEditorRolesSelectCell
+          OnSetEditText = ValueListEditorRolesSetEditText
+          TitleCaptions.Strings = (
+            'Role name'
+            'Assigned'
+          )
+          OnGetPickList = ValueListEditorRolesGetPickList
+          ColWidths = (
+            64
+            309
+          )
+        end
+      end
+    end
   end
   object pnlBottom: TPanel
     AnchorSideLeft.Control = Owner