Topic: Users and Roles (Version 6 Beta)

When the Role-access control is activated then (in my opinion) 4 forms are created by the program, e.g. form Access Control (Create roles and Settings), form Login (Enter User/Password), form Users (New, Edit and Delete users) and form User (Edit individual user) Also a new menu entry is created (Options->Users) presenting the form Users.

The 4 forms are not visible and so also not editable in the programming environment. Because of that the forms cannot be adapted to the Dutch language. The new menu entry cannot be changed also. Dmitry says that the forms can be changed by scripting and asked for this new topic. My question therefor is: how can the 4 forms be changed?

Another question is: When in the beginning roles are defined I cannot find a way to add, change or delete roles?

Re: Users and Roles (Version 6 Beta)

Hello.


Please download latest beta version again
https://www.dropbox.com/s/6079b1qerk86k … a.zip?dl=0


An example, how to translate these forms:
http://myvisualdatabase.com/forum/misc. … download=1


To add, change or delete roles you can do it only using MVD
http://myvisualdatabase.com/help_en/roles/button_roles.png

http://myvisualdatabase.com/help_en/roles/dialog_roles.png

Post's attachments

Attachment icon Roles translate system forms.zip 4.99 kb, 413 downloads since 2019-11-07 

Dmitry.

Re: Users and Roles (Version 6 Beta)

DriveSoft wrote:

Hello.


Please download latest beta version again
...


Что-то с этой сборкой (07.11.19) не так.

На форме с компонентами RichEdit и Button не срабатывает код:

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
  i: integer;
begin
  for i := 0 to Form1.ComponentCount - 1 do
  begin
    if (Form1.Components[i] is TdbRichEdit) then
    begin
      ShowMessage(Form1.Components[i].Name);
    end;
  end;
end;

В предыдушей сборке (06.11.19) всё работало.

Re: Users and Roles (Version 6 Beta)

mapcreatormail wrote:
DriveSoft wrote:

Hello.


Please download latest beta version again
...


Что-то с этой сборкой (07.11.19) не так.

На форме с компонентами RichEdit и Button не срабатывает код:

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
  i: integer;
begin
  for i := 0 to Form1.ComponentCount - 1 do
  begin
    if (Form1.Components[i] is TdbRichEdit) then
    begin
      ShowMessage(Form1.Components[i].Name);
    end;
  end;
end;

В предыдушей сборке (06.11.19) всё работало.


Спасибо, поправил
https://www.dropbox.com/s/6079b1qerk86k … a.zip?dl=0

Dmitry.