Formulário de Edição de Pedidos

O nome está correto, mas o significado abrange mais funcionalidades. Não é possível editar um pedido sem poder gerenciar clientes e produtos. O editor usa grades para gerenciar clientes e produtos, e um par mestre/detalhe de grades para editar pedidos com seus itens.

Formulário de Edição de Pedidos para Desktop

dEditOrdersForm

_dOrdersForm.pas

unit _dOrdersForm;

interface

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

type
  TdOrdersForm = class(TUniForm)
    pc: TUniPageControl;
    tsOrdersItems: TUniTabSheet;
    pnlItems: TUniPanel;
    dbnItems: TUniDBNavigator;
    dbgItems: TUniDBGrid;
    pnlOrders: TUniPanel;
    dbgOrders: TUniDBGrid;
    tsCustomers: TUniTabSheet;
    dbnCustomers: TUniDBNavigator;
    dbgCustomers: TUniDBGrid;
    barCustomers: TUniToolBar;
    barOrders: TUniToolBar;
    btnPaid: TUniToolButton;
    barItems: TUniToolBar;
    tsProducts: TUniTabSheet;
    barProducts: TUniToolBar;
    dbnProducts: TUniDBNavigator;
    dbgProducts: TUniDBGrid;
    cntOrders: TUniToolButton;
    dbnOrders: TUniDBNavigator;
    cntItems: TUniToolButton;
    btnItems: TUniToolButton;
    btnCustomers: TUniToolButton;
    cntCustomers: TUniToolButton;
    btnProducts: TUniToolButton;
    cntProducts: TUniToolButton;
    procedure UniFormCreate(Sender: TObject);
    procedure UniFormDestroy(Sender: TObject);
  private
    { Declarações privadas }
  public
    { Declarações públicas }
  end;

function dOrdersForm: TdOrdersForm;

implementation

{$R *.dfm}

uses
  MainModule, uniGUIApplication;

function dOrdersForm: TdOrdersForm;
begin
  Result := TdOrdersForm(UniMainModule.GetFormInstance(TdOrdersForm));
end;

procedure TdOrdersForm.UniFormCreate(Sender: TObject);
begin
  uniMainModule.OnCreateOrdersEditor(Sender);
end;

procedure TdOrdersForm.UniFormDestroy(Sender: TObject);
begin
  uniMainModule.OnDestroyOrdersEditor(Sender);
end;

end.

Este formulário está usando um TUniPageControl para hospedar pedidos/itens, clientes e produtos, em diferentes abas. Cada um deles funciona quase da mesma forma que em uma aplicação VCL comum. Seguindo o mesmo padrão do Formulário de Edição de Usuários, há apenas duas solicitações ao MainModule; todo o resto é tratado por manipuladores de eventos e ações.

A estrutura inteira do formulário é:

dEditOrdersFormStructure

Formulário de Edição de Pedidos para Touch

mEditOrders

_mOrdersForm.pas

unit _mOrdersForm;

interface

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

type
  TmOrdersForm = class(TUnimForm)
    dbgOrders: TUnimDBGrid;
    barOrders: TUnimToolBar;
    btnMarkAsPaid: TUnimToolButton;
    UnimCarousel1: TUnimCarousel;
    cpOrders: TUnimCarouselPage;
    pnlOrders: TUnimContainerPanel;
    pnlItems: TUnimContainerPanel;
    barItems: TUnimToolBar;
    dbgItems: TUnimDBGrid;
    cpCustomers: TUnimCarouselPage;
    barCustomers: TUnimToolBar;
    dbgCustomers: TUnimDBGrid;
    cpProducts: TUnimCarouselPage;
    barProducts: TUnimToolBar;
    dbgProducts: TUnimDBGrid;
    UnimToolButton1: TUnimToolButton;
    dbnOrders: TUnimDBNavigator;
    UnimToolButton2: TUnimToolButton;
    UnimToolButton3: TUnimToolButton;
    dbnItems: TUnimDBNavigator;
    UnimToolButton4: TUnimToolButton;
    UnimToolButton5: TUnimToolButton;
    dbnProducts: TUnimDBNavigator;
    UnimToolButton6: TUnimToolButton;
    UnimToolButton7: TUnimToolButton;
    dbnCustomers: TUnimDBNavigator;
    procedure UnimFormCreate(Sender: TObject);
    procedure UnimFormDestroy(Sender: TObject);
  private
    { Declarações privadas }
  public
    { Declarações públicas }
  end;

function mOrdersForm: TmOrdersForm;

implementation

{$R *.dfm}

uses
  uniGUIApplication;

function mOrdersForm: TmOrdersForm;
begin
  Result := TmOrdersForm(UniMainModule.GetFormInstance(TmOrdersForm));
end;

procedure TmOrdersForm.UnimFormCreate(Sender: TObject);
begin
  uniMainModule.OnCreateOrdersEditor(Sender);
end;

procedure TmOrdersForm.UnimFormDestroy(Sender: TObject);
begin
  uniMainModule.OnDestroyOrdersEditor(Sender);
end;

end.

Como antes, o código é semelhante, mas os componentes são diferentes. Neste caso, o TUniPageControl foi substituído por um TUnimCarousel. Por mais que as grades pareçam semelhantes, a funcionalidade orientada para toque requer grandes mudanças na interação do usuário. Após um duplo clique em uma linha de pedido, o seguinte formulário automático é exibido:

mEditOrdersRow

Observe que há uma máscara cobrindo a grade ao fundo (informando ao usuário que não há acesso a elas até fechar o editor em pop-up).

Em vez de mostrar um combobox de pesquisa padrão para selecionar o cliente, clicar nesse campo exibirá o seletor típico na parte inferior da tela:

mEditOrdersRowSelection

A estrutura inteira é:

mEditOrdersStructure

Claro, isto é apenas uma demonstração, porque selecionar um cliente entre centenas se tornará um problema usando este método.