Login Form

O código do formulário de login é quase idêntico para as plataformas alvo, mas a interface do usuário é diferente. O módulo de dados desconhece essas diferenças.

Formulário de Login para Desktop

Formulário de Login para Desktop

unit _dLoginForm.pas

unit _dLoginForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, uniGUITypes, uniGUIAbstractClasses,
  uniGUIClasses, uniGUIRegClasses, uniGUIForm, uniGUIBaseClasses, uniFieldSet,
  uniEdit, uniPanel, uniButton;

type
  TdLoginForm = class(TUniLoginForm)
    UniFieldSet1: TUniFieldSet;
    edtUsername: TUniEdit;
    edtPassword: TUniEdit;
    UniFieldContainer1: TUniFieldContainer;
    btnOk: TUniButton;
    btnCancel: TUniButton;
    UniContainerPanel1: TUniContainerPanel;
    procedure btnOkClick(Sender: TObject);
  private
    { Declarações privadas }
  public
    { Declarações públicas }
  end;

function dLoginForm: TdLoginForm;

implementation

{$R *.dfm}

uses
  uniGUIVars, MainModule, uniGUIApplication;

function dLoginForm: TdLoginForm;
begin
  Result := TdLoginForm(UniMainModule.GetFormInstance(TdLoginForm));
end;

procedure TdLoginForm.btnOkClick(Sender: TObject);
begin
  if uniMainModule.Login(edtUsername.Text, edtPassword.Text, true) then
    ModalResult := mrOk
  else
    ShowMessage('Invalid credentials!');
end;

initialization
  RegisterAppFormClass(TdLoginForm);

end.

Este formulário usa FieldSets para alcançar um design visual consistente.

Estrutura do Formulário de Login para Desktop

UniFieldContainer1, que contém os botões OK e Cancelar, usa uma tabela de alinhamento do lado do cliente com duas colunas.

UniFieldSet1 renderizará os campos username e password usando um formulário de alinhamento do lado do cliente.

---

Formulário de Login para Touch

Formulário de Login para Touch

unit _mLoginForm.pas

unit _mLoginForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, uniGUITypes, uniGUIAbstractClasses,
  uniGUIClasses, uniGUImClasses, uniGUIRegClasses, uniGUIForm, uniGUImForm,
  uniGUImJSForm, uniGUIBaseClasses, unimFieldSet, uniEdit, unimEdit,
  uniButton, unimButton;

type
  TmLoginForm = class(TUnimLoginForm)
    UnimFieldSet1: TUnimFieldSet;
    UnimContainerPanel1: TUnimContainerPanel;
    edtUsername: TUnimEdit;
    edtPassword: TUnimEdit;
    btnOK: TUnimButton;
    btnCancel: TUnimButton;
    procedure btnOKClick(Sender: TObject);
  private
    { Declarações privadas }
  public
    { Declarações públicas }
  end;

function mLoginForm: TmLoginForm;

implementation

{$R *.dfm}

uses
  uniGUIVars, MainModule, uniGUIApplication;

function mLoginForm: TmLoginForm;
begin
  Result := TmLoginForm(UniMainModule.GetFormInstance(TmLoginForm));
end;

procedure TmLoginForm.btnOKClick(Sender: TObject);
begin
  if uniMainModule.Login(edtUsername.Text, edtPassword.Text, false) then
    ModalResult := mrOk
  else
    ShowMessage('Invalid credentials!');
end;

initialization
  RegisterAppFormClass(TmLoginForm);

end.

Ambos os formulários são praticamente idênticos; os componentes são semelhantes mas destinam-se a plataformas diferentes (por exemplo, TUnimContainerPanel em vez de TUniContainerPanel).