Criando telas gen�ricas com TFrame em Delphi

Acredito que um grande desafio para cada sistema que vamos desenvolver � cumprir as metas de prazos estabelecidos e muitas vezes acabamos perdendo tempo desenvolvendo telas que j� criamos em outros sistemas, mas que temos que recria-las. Agora imagine podermos ter prontos determinados "pedaços" de telas para reutilizarmos em qualquer sistema? � ai que entra o componente TFrame.

Este componente pode ser encontrado em FILE > NEW > Frame.

O HELP do delphi chama ele de "TFrame is a container for components; it can be nested within forms or other frames" ou seja � um "container de componentes que pode ser usado em um ou v�rios form's".

Vamos para a pr�tica. Imagine uma tela de cadastro de clientes onde � necess�rio cadastrar o rua, n�mero, complemento, bairro, cidade etc..., assim:

Figura 1. Layout da tela de cadastro

Pense comigo, quando criamos telas para cadastro de fornecedores, vendedores ou outra tela que envolva cadastro de uma entidade n�o precisamos sempre colocar os mesmos campos de endereço? Bom para facilitar nosso trabalho e otimizar o desenvolvimento � que vamos criar um frame para endereços onde vamos conseguir inserir em qualquer form de nosso projeto ou Grupo de projetos.

Siga os passos:

File > New > Frame (Insira um novo Frame, altere a propriedade NAME para FrameEndereco e salve);
Ap�s insira edit's e label's deixando ele como na figura abaixo;
Se tudo estiver ok, basta abrir o form no qual voc� deseja inserir o frame e clicar na PALETE STANDARD EM FRAMES, selecione o frame pelo nome que voc� salvou e ser� inserido automaticamente no form.

Figura 2. Apar�ncia do frame criado

Uma vez inserido o Frame no form, sempre que precisar acessar um valor dentro do frame � necess�rio primeiro indicar o nome do frame, exemplo:


FrameEndereco1.edtRua.Text:='Rua Caipos';

Listagem 1. Referenciando elementos do frame (primeira forma)

ou, se preferir,


with FrameEndereco1 do begin
edtRua.Text:='Rua Caipos';
edtNumero.Text:='111'
end;

Listagem 2. Referenciando elementos do frame (segunda forma)

E assim por diante.

Observaç�o: O que for alterado no Frame se replicar� em todas as telas em que ele estiver inserido.

Mas vamos imaginar algo mais complexo, imagine um ComboBox onde voc� precisa inserir, e excluir valores gen�ricos para tabelas gen�ricas, neste exemplo vou utilizar classes j� criadas em artigos anteriores, Listas Encadeadas e Framework em Delphi. Vamos ao exemplo: Imagine um Combobox onde, em RUN TIME , seja necess�rio em um Form salvar e excluir o nome de cidades e em outro form o salvar e excluir o nome de vendedores. M�os a obra ent�o.

Siga os passos:

File > New > Frame(Insira um novo Frame, altere a propriedade NAME para FrameComboGenerics e salve);
Ap�s, insira UtilComboBox(Ler artigo) e label's deixando ele como na figura abaixo;

Figura 3. Frame com Combobox de valores din�micos

Muto bem, agora vamos criar alguns m�todos.


unit ComboGenericsFrame;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, UtilComboBox, UtilSqlSuid, UtilList;
type
  TFrameComboGenerics = class(TFrame)
    edtCombo: TUtilComboBox;
    LbTitulo: TLabel;
    procedure edtComboKeyPress(Sender: TObject; var Key: Char);
    procedure edtComboChange(Sender: TObject);
    procedure edtComboContextPopup(Sender: TObject; MousePos: TPoint;
      var Handled: Boolean);
    procedure edtComboCloseUp(Sender: TObject);
    procedure edtComboClick(Sender: TObject);
  private
    { Private declarations }
             Table, Field:string;
    	ValueId:integer;
    	DataBase:TDataModule;
  public
    { Public declarations }
   //vari�veis publicas que ser�o utilizadas para criar a 
   //lista de dados e o componente de conex�o com o banco de dados
    QSql:TUtilSqlSuid;
    QList:TUtilList;
    procedure CreateCombo(Table_,Field_:string;ValueId_:Integer);
    //create para setar o nome da tabela a ser usada, o Campo de 
    //pesquisa e o Id do registro quando houver
    procedure SetTitulo(msgTitulo:string);
    procedure SaveCombo;
    //Salvar o registro inserido
    procedure LoadCombo;
    //Carregar os valores da tabela setada no CreateCombo
    procedure SetValue(IdValue:Integer);
    //Setar como default no Combo o registro que possuir o IdValue inserido
    function  GetIdValue:Integer;
    //Capturar o id do registro selecionado no combo
    procedure ReposicionaLabel;
  end;

Listagem 3. C�digo do frame criado

Muito bem, uma vez criado os m�todos vamos desenvolv�-los, como abaixo:


{ TFrameComboGenerics }

procedure TFrameComboGenerics.CreateCombo(Table_, Field_: string;
  ValueId_: Integer);
begin
  Table  :=Table_;
  Field  :=Field_;
  ValueId:=ValueId_;
end;


procedure TFrameComboGenerics.edtComboKeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then begin
    if edtCombo.Items.IndexOf(edtCombo.Text)=-1 then begin
      SaveCombo;
   //   LbMensagem.Caption:='';
  //    LbMensagem.Caption:='Registro SALVO';
      Sleep(200);
   //   LbMensagem.Caption:='...';
   //   LbMensagem.Repaint;
    end;
  end;
end;


function TFrameComboGenerics.GetIdValue: Integer;
var QValue:TUtilSqlSuid;
begin
  //buscar o ID da string selecionada
  QValue:=TUtilSqlSuid.Create(Table, Field, 0);
  QValue.CreateOpenQuery('Select * from '+Table+' Where '+field+ ' = '''+edtCombo.Text+'''');
  Result:=QValue.GetIntegerField('Id'+Table);
  QValue.free;
end;

procedure TFrameComboGenerics.LoadCombo;
begin
   [atr�ves de uma lista encadeada estamos carregando o combobox]
   QSql:=TUtilSqlSuid.Create(Table, Field, ValueId);
   QSql.OpenSimpleQuery;
   Qsql.first;
   QList:=TUtilList.Create;
   while not Qsql.Eof do begin
    QList.Add(QSql.GetStringField(Field));
    QSql.next;
   end;
[Colocamos a lista com todos os dados da tabel para dentro do ComboBox]
   edtCombo.UtilList:=QList;
   QSql.Free;
end;


procedure TFrameComboGenerics.ReposicionaLabel;
begin
//  LbMensagem.Left:=LbTitulo.Width+5;
end;

procedure TFrameComboGenerics.SaveCombo;
begin
  //Atra�ves do estanciamento da classe estamos salvando o registro inserido, claro
  //que seria legal criar um regra para verificar duplicidade
  QSql:=TUtilSqlSuid.Create(Table, Field, ValueId);
  QSql.OpenSimpleQuery;
  QSql.ClearList;
  QSql.AddStringField(Field,''+UpperCase(edtCombo.Text)+'');
  QSql.ExecuteInsert ;
  QSql.Free;
end;

procedure TFrameComboGenerics.SetTitulo(msgTitulo: string);
begin
  //Alterar o caption do Label
  LbTitulo.Caption:=msgTitulo;
  LbTitulo.Repaint;
end;


procedure TFrameComboGenerics.SetValue( IdValue: Integer);
var QValue:TUtilSqlSuid;
begin
  //Busca atrav�s do ID o valor String Correspondente
  QValue:=TUtilSqlSuid.Create(Table, 'Id'+Table, IdValue);
  QValue.OpenQuery;
  edtCombo.ItemIndex:=edtCombo.Items.IndexOf(QValue.GetStringField(Field));
  QValue.free;
end;

end.

Listagem 4. Desenvolvimento dos m�todos do frame criado

Feito isso � s� inserir no formul�rio e setar os m�todos necess�rios assim:


FrameComboLocal.CreateCombo('reg_LocalChale','Nome',0);
//Estou aqui informando o nome da tabela e qual campo desejo que 
popule o combobox
FrameComboLocal.LoadCombo;
//Realizando o LoadCombo para carregar os dados
FrameComboLocal.SetValue(QSql.GetIntegerField('IdLocal'));
//Seto um registro default com o ID que puxo do banco

Listagem 5. Utilizando o frame

Figura 4. Resultado final

Com isso podemos inserir este frame em v�rios forms, trocando os par�metros do create.

Criando telas gen�ricas com TFrame em Delphi

Veja neste artigo como criar partes genéricas de telas utilizando o componente TFrame.

Artigos relacionados