fix: support backtick quoted user roles, and some other TValueListEditor related bug fixes

Refs #1155

Author: ansgarbecker

source/dbconnection.pas

@@ -577,6 +577,7 @@   TDBConnection = class(TComponent)
       property KeyCache: TKeyCache read FKeyCache;
       property ForeignKeyCache: TForeignKeyCache read FForeignKeyCache;
       property CheckConstraintCache: TCheckConstraintCache read FCheckConstraintCache;
+      property StringQuoteChar: Char read FStringQuoteChar;
       property QuoteChar: Char read FQuoteChar;
       property QuoteChars: String read FQuoteChars;
       function ServerVersionStr: String;

source/usermanager.pas

@@ -53,7 +53,7 @@   TUserList = class(TObjectList<TUser>)
     public
       function GetRoleNames: TStringList; overload;
       procedure GetRoleNames(Strings: TStrings); overload;
-      function GetDefaultRoles: TStringList;
+      function GetDefaultRoles(ExcludeRole: TUser): TStringList;
   end;
 
   EInputError = class(Exception);
@@ -556,10 +556,7 @@ procedure TUserManagerForm.ValueListEditorRolesSelectCell(Sender: TObject;
   // Disallow assigning a role to itself
   if (aRow <= 0) or (aRow > ValueListEditorRoles.Strings.Count) then
     Exit;
-  if SameText(ValueListEditorRoles.Strings.Names[ARow-1], editUsername.Text) then
-    CanSelect := False
-  else
-    ValueListEditorRoles.ItemProps[aRow-1].EditStyle := esPickList;
+  ValueListEditorRoles.ItemProps[aRow-1].EditStyle := esPickList;
 end;
 
 procedure TUserManagerForm.ValueListEditorRolesSetEditText(Sender: TObject;
@@ -628,7 +625,7 @@ procedure TUserManagerForm.listUsersFocusChanged(Sender: TBaseVirtualTree; Node:
 var
   P, Ptmp, PCol: TPrivObj;
   User: PUser;
-  UserHost, Msg, CreateUser: String;
+  UserHost, UserHostRx, Msg, CreateUser, RxQuotes: String;
   Grants, AllPNames, Cols, RoleNames, DefaultRoles: TStringList;
   rxTemp, rxGrant: TRegExpr;
   i, j: Integer;
@@ -661,13 +658,17 @@ procedure TUserManagerForm.listUsersFocusChanged(Sender: TBaseVirtualTree; Node:
   editSubject.Clear;
   tabPrivileges.Caption := _('Privileges');
   tabRoles.Caption := _('Roles');
+  // All possible quote chars, escaped for RegExpr. Todo: use in all relevant expressions.
+  RxQuotes := '['+QuoteRegExprMetaChars(FConnection.QuoteChars + FConnection.StringQuoteChar)+']';
 
   if UserSelected then begin
     User := Sender.GetNodeData(Node);
-    if User.IsUser then
-      UserHost := FConnection.EscapeString(User.Username)+'@'+FConnection.EscapeString(User.Host)
-    else
-      UserHost := FConnection.EscapeString(User.Username);
+    UserHost := FConnection.EscapeString(User.Username);
+    UserHostRx := RxQuotes + '?' + QuoteRegExprMetaChars(User.Username) + RxQuotes + '?';
+    if User.IsUser then begin
+      UserHost := UserHost + '@' + FConnection.EscapeString(User.Host);
+      UserHostRx := UserHostRx + '@' + RxQuotes + '?' + QuoteRegExprMetaChars(User.Host) + RxQuotes + '?';
+    end;
     editUsername.Text := User.Username;
     editFromHost.Text := User.Host;
     i := comboDefaultRole.Items.IndexOf(User.DefaultRole);
@@ -829,13 +830,14 @@ procedure TUserManagerForm.listUsersFocusChanged(Sender: TBaseVirtualTree; Node:
     // GRANT role_admin TO 'root'@'127.0.0.1';
     // GRANT 'role space' TO 'root'@'127.0.0.1';
     // GRANT role_space to 'role_admin' WITH ADMIN OPTION;
-    DefaultRoles := FUsers.GetDefaultRoles;
+    DefaultRoles := FUsers.GetDefaultRoles(User^);
     User.Roles.Assign(DefaultRoles);
     RoleNames := FUsers.GetRoleNames;
     for i:=0 to RoleNames.Count-1 do begin
       RoleNames[i] := QuoteRegExprMetaChars(RoleNames[i]);
     end;
-    rxGrant.Expression := '^GRANT\s+''?('+Implode('|', RoleNames)+')''?\s+TO\s+'+QuoteRegExprMetaChars(UserHost)+'(\s+WITH ADMIN OPTION)?$';
+    rxGrant.Expression := '^GRANT\s+'+RxQuotes+'?('+Implode('|', RoleNames)+')'+RxQuotes+'?\s+'+
+      'TO\s+'+UserHostRx+'(\s+WITH ADMIN OPTION)?$';
     for i:=0 to Grants.Count-1 do begin
       // Find selected priv objects via regular expression
       if not rxGrant.Exec(Grants[i]) then begin
@@ -849,7 +851,9 @@ procedure TUserManagerForm.listUsersFocusChanged(Sender: TBaseVirtualTree; Node:
           User.Roles.ValueFromIndex[j] := User.RoleYes;
       end;
     end;
+    ValueListEditorRoles.BeginUpdate;
     ValueListEditorRoles.Strings.Assign(User.Roles);
+    ValueListEditorRoles.EndUpdate;
     DefaultRoles.Free;
 
     // Parse general user options
@@ -1911,16 +1915,19 @@ procedure TUserList.GetRoleNames(Strings: TStrings);
   RoleNames.Free;
 end;
 
-function TUserList.GetDefaultRoles: TStringList;
+function TUserList.GetDefaultRoles(ExcludeRole: TUser): TStringList;
 var
   RoleNames: TStringList;
   i: Integer;
 begin
   // Default role assignments with "no" value for all roles
   Result := TStringList.Create;
   RoleNames := GetRoleNames;
-  for i:=0 to RoleNames.Count-1 do
+  for i:=0 to RoleNames.Count-1 do begin
+    if ExcludeRole.IsRole and SameText(RoleNames[i], ExcludeRole.Username) then
+      Continue;
     Result.AddPair(RoleNames[i], TUser.RoleNo);
+  end;
   RoleNames.Free;
 end;