Tema: Busqueda...
Ver Mensaje Individual
  #3  
Antiguo 08-05-2007
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Reputación: 25
Caral Va por buen camino
Hola
Para variar Egostar tiene razon, dejame una Maestro.
Lo normal en estas busquedas es usar un grid en donde van apareciendo los resultados de la misma.
Se puede hacer con un simple filtro asi:
Este programa busca el cliente.
Código Delphi [-]
procedure TFBuscaCliente.Edit1Change(Sender: TObject);
var
   Filtro : String;
begin
   If (Edit1.Text <> '') then
   begin
      ATClientes.Filtered := False;
      If CBFiltro.Text = 'Código' then Filtro := 'CodCliente Like '+Edit1.Text
         else If CBFiltro.Text = 'Nombre' then Filtro := 'NombreCliente Like '''+ Edit1.Text + '*'''
            else If CBFiltro.Text = 'Teléfono' then Filtro := 'Telefono Like '''+ Edit1.Text + '*''';
      ATClientes.Filter := Filtro;
      ATClientes.Filtered := True
   end
   else ATClientes.Filtered := False;
end;
ATClientes: query
CBFiltro: Combombox que busca el tipo de filtro.
Si lo analizas un poco veras a que se refiere Egostar y Yo.
Saludos
Responder Con Cita