Users Editor Form

This form uses a grid and navigator to add, delete, and edit users/operators of the Point-of-Sale. There is a button in the toolbar for changing the Admin status. Its implementation in both platforms will be identical, except for the visual controls.

Desktop Users Editor Form

dEditUsersForm

unit _dUsersForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, uniGUITypes, uniGUIAbstractClasses,
  uniGUIClasses, uniGUIForm, uniBasicGrid, uniDBGrid, uniDBNavigator,
  uniGUIBaseClasses, uniPanel, uniToolBar;

type
  TdUsersForm = class(TUniForm)
    dbnCustomers: TUniDBNavigator;
    dbgCustomers: TUniDBGrid;
    barTop: TUniToolBar;
    btnToggleAdmin: TUniToolButton;
    cntUsers: TUniToolButton;
    procedure UniFormCreate(Sender: TObject);
    procedure UniFormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

function dUsersForm: TdUsersForm;

implementation

{$R *.dfm}

uses
  MainModule, uniGUIApplication;

function dUsersForm: TdUsersForm;
begin
  Result := TdUsersForm(UniMainModule.GetFormInstance(TdUsersForm));
end;

procedure TdUsersForm.UniFormCreate(Sender: TObject);
begin
  uniMainModule.OnCreateUsersEditor(Sender);
end;

procedure TdUsersForm.UniFormDestroy(Sender: TObject);
begin
  uniMainModule.OnDestroyUsersEditor(Sender);
end;

end.

It was mentioned before as a best practice. This form asks the MainModule to set up its environment at the beginning (OnCreate), and do the same in OnDestroy for tearing off them. Whatever has to be done is not the responsibility of the presentation layer.

Its visual design is:

dEditUsersFormStructure

---

Touch Users Editor Form

mEditUsers

unit _mUsersForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, uniGUITypes, uniGUIAbstractClasses,
  uniGUIClasses, uniGUImClasses, uniGUIForm, uniGUImForm, uniGUImJSForm,
  uniBasicGrid, uniDBGrid, unimDBListGrid, unimDBGrid, uniGUIBaseClasses,
  uniDBNavigator, unimDBNavigator, uniToolBar, unimToolbar;

type
  TmUsersForm = class(TUnimForm)
    dbgUsers: TUnimDBGrid;
    barUsers: TUnimToolBar;
    btnToggleAdmin: TUnimToolButton;
    UnimContainerPanel1: TUnimContainerPanel;
    UnimToolButton1: TUnimToolButton;
    dbnUsers: TUnimDBNavigator;
    procedure UnimFormCreate(Sender: TObject);
    procedure UnimFormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

function mUsersForm: TmUsersForm;

implementation

{$R *.dfm}

uses
  MainModule, uniGUIApplication;

function mUsersForm: TmUsersForm;
begin
  Result := TmUsersForm(UniMainModule.GetFormInstance(TmUsersForm));
end;

procedure TmUsersForm.UnimFormCreate(Sender: TObject);
begin
  uniMainModule.OnCreateUsersEditor(Sender);
end;

procedure TmUsersForm.UnimFormDestroy(Sender: TObject);
begin
  UniMainModule.OnDestroyUsersEditor(Sender);
end;

end.

It is the same code (changing TUni<> controls by TUnim<> controls). It is also the same structure.

mEditUsersStructure