Ajuda para distribuir Form

Question

Seguinte, em quase todos os meus form tem um bot�o localizar, onde abre um tela com um grid e um edit, digamos que tenho duas tela, Cliente e Funcion�rio, eu gostaria de usar a mesma tela de localizar...

Abdigadiga · Answer

crie um form, FrmPadrao por exemplo.neste form vc coloca td que seria comum, grid, table, datasource, procedures e functions, etc.depois vc vai em file -> new -> other. vai na aba com o nome da sua aplica��o e cria um novo FrmPadrao, apartir dele vc faz as particularidades de cada form.espero ter ajudado....

Luiz_aquino · Answer

Axo que vc n�o entedeu, quero usar o mesmo for para duas tela, cliente e funcionario, mas esse form � para localizar...

Colega,

Eu tenho um form de pesquisa generico, neste form tenho o edit pra digitar o texto que procuro, o dbgrid pra exibir os dados que vou pesquisar, query, datasource e os botoes ok e cancelar.
No botao do form de vendas por exemplo vou pesquisar um cliente fa�o assim:

with TfrmLocaliza.Create(self) do 
begin
  with Query.SQL do 
  begin
    Clear;
    Add(�SELECT FANTASIA As Nome, COD_CLIENTE FROM CLIENTES�);
    Add(�WHERE FANTASIA LIKE :Nome�);
    Add(�ORDER BY FANTASIA�);
  end;
  CampoLocate := �FANTASIA�; //Variavel publica no form localiza
  ShowModal;
  if Tag = 1 then //Se pressionar ok no form localiza tag vai ser 1, Cancela tag vai ser 0
  begin
     //Aqui atribuo os valores da tela de pesquisa para os campos da minha tela de venda
     dmPedidos.qryVendasCOD_CLIENTE.Value :=
          Query.FieldByName(�COD_CLIENTE�).AsInteger;
     edtNomeFantazia.Text :=
          Query.FieldByName(�Nome�).AsString;
     end;         
  Free;

Pra pesquisar um produto passo pra sql o select da tabela de produto usando o mesmo codigo acima porem alterando a sql.
Acabei fazendo um componente dessa tela se quiser passe um email e te envio.
e-mail: rpinformatica@terra.com.br
msn: renatopavan2002@hotmail.com

[]�s

Renato.

Renato.pavan · Answer

[quote:4b7c5e3474=�luiz_aquino�]Axo que vc n�o entedeu, quero usar o mesmo for para duas tela, cliente e funcionario, mas esse form � para localizar...[/quote:4b7c5e3474]Colega, Eu tenho um form de pesquisa generico, neste form tenho o edit pra digitar o texto que procuro, o dbgrid pra exibir os dados que vou pesquisar, query, datasource e os botoes ok e cancelar.No botao do form de vendas por exemplo vou pesquisar um cliente fa�o assim:[code:1:4b7c5e3474]with TfrmLocaliza.Create(self) do begin  with Query.SQL do   begin    Clear;    Add(�SELECT FANTASIA As Nome, COD_CLIENTE FROM CLIENTES�);    Add(�WHERE FANTASIA LIKE :Nome�);    Add(�ORDER BY FANTASIA�);  end;  CampoLocate := �FANTASIA�; //Variavel publica no form localiza  ShowModal;  if Tag = 1 then //Se pressionar ok no form localiza tag vai ser 1, Cancela tag vai ser 0  begin     //Aqui atribuo os valores da tela de pesquisa para os campos da minha tela de venda     dmPedidos.qryVendasCOD_CLIENTE.Value :=          Query.FieldByName(�COD_CLIENTE�).AsInteger;     edtNomeFantazia.Text :=          Query.FieldByName(�Nome�).AsString;     end;           Free;[/code:1:4b7c5e3474]Pra pesquisar um produto passo pra sql o select da tabela de produto usando o mesmo codigo acima porem alterando a sql.Acabei fazendo um componente dessa tela se quiser passe um email e te envio.e-mail: rpinformatica@terra.com.brmsn: renatopavan2002@hotmail.com[]�sRenato....

Luiz_aquino · Answer

Meu dbCodigo no frmCadCliente o OnExit dele faz a busca do c�digo.
Ent�o se eu passar o c�digo que buscar no meu frm de pesquisa e passar ele para meu dbCodigo e for�ar o Exit dele, me trar� os dados. Como no exemplo abaixo.

Var
NomedoForm: ? N�o sei o tipo de vari�vel que � para receber o nome do for
Begin
NomedoForm := �frmCadCliente�;
NomedoForm.dbCodigo.Text := IntToStr(QryPesquisaCODI_CLIE.AsInsteger);
NomedoForm.dbCodigoExit(nil);
Fecha form que estou;
End

F�rum Ajuda para distribuir Form #330122