30 replies to this topic

[adriano_servitec]

Mas duvidas...

Quiero para seleccionar las letras también, ya que estas en el botón

print


Así lo hice, pero no funcionó 

delphi

procedure TForm1.FilterLetras(qQuery: TADOQuery; sLetraIni, sLetraFin: String);
begin
  with qQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add(&#39; SELECT * FROM TABLA WHERE (CAMPO >= :INI AND CAMPO <= :FIM) OR (CAMPO LIKE :FIM) &#39;);
    SQL.Add(&#39; ORDER BY CAMPO &#39;);
    Parameters.ParamByName(&#39;INI&#39;).Value := sLetraIni;
    Parameters.ParamByName(&#39;FIM&#39;).Value := sLetraFin +&#39;%&#39;;
    Open;
  end;
end;

Estoy llamando de esta manera

delphi

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  FilterLetras(ADOQuery1,'A','B');
end;
 
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
  FilterLetras(ADOQuery1,'C','D');
end;
 
procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
  FilterLetras(ADOQuery1,'E','F');
end;
 
procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
 FilterLetras(ADOQuery1,'G','H');
end;
 
procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
  FilterLetras(ADOQuery1,'I','J');
end;
 
procedure TForm1.SpeedButton6Click(Sender: TObject);
begin
  FilterLetras(ADOQuery1,'K','L');
end;
 
procedure TForm1.SpeedButton7Click(Sender: TObject);
begin
   FilterLetras(ADOQuery1,'M','N');
end;
 
procedure TForm1.SpeedButton8Click(Sender: TObject);
begin
  FilterLetras(ADOQuery1,'O','P');
end;
 
procedure TForm1.SpeedButton9Click(Sender: TObject);
begin
  FilterLetras(ADOQuery1,'Q','R');
end;
 
procedure TForm1.SpeedButton10Click(Sender: TObject);
begin
   FilterLetras(ADOQuery1,'S','T');
end;
 
procedure TForm1.SpeedButton11Click(Sender: TObject);
begin
  FilterLetras(ADOQuery1,'U','V');
end;
 
procedure TForm1.SpeedButton12Click(Sender: TObject);
begin
  FilterLetras(ADOQuery1,'X','W');
end;
 
procedure TForm1.SpeedButton13Click(Sender: TObject);
begin
   FilterLetras(ADOQuery1,'Y','Z');
end;
 
procedure TForm1.SpeedButton14Click(Sender: TObject);
begin
   FilterLetras(ADOQuery1,'0','9');
end;

Saludos

[felipe]

Ya que tienes la consulta lista, ¿no sería mejor aplicar un filtro desde el ADOQuery?


Saludos!

[egostar]

Hola

Siguiendo con el mismo concepto que se ha estado manejando, yo haría esto.

sql

SELECT * FROM tabla
WHERE (campo BETWEEN 'A' AND 'BZ') AND
      (campo LIKE '_%') OR
      (campo LIKE 'A%') OR
      (campo LIKE 'B%')
ORDER BY campo

Referente al paso de parámetros, podemos simplificar el código de esta forma

Crea un sólo evento (en cualquiera de los SpeedButton) y lo asignas a todos los demás.

El código que puedes usar es este:

delphi

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  FilterLetras( ADOQuery1,
                (Sender as TSpeedButton).Caption[1],
                (Sender as TSpeedButton).Caption[2] );
end;

Salud OS

[felipe]

O también, siguiendo con la propuesta que te menciono, algo así:

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOQuery1.Filtered := False;
  ADOQuery1.Filter := 'campo like ' + QuotedStr('a*');
  ADOQuery1.Filtered := True;
end;

Saludos!

[felipe]

La función te quedaría algo así:

delphi

procedure TForm1.FilterLetras(qQuery: TADOQuery; sLetraIni, sLetraFin: String);
var s: String;
begin
  with qQuery do
  begin
    Filtered := False;
    s := 'campo like ' + QuotedStr(sLetraIni+'*') + 'or campo like ' + QuotedStr(sLetraFin+'*');
    Filter := s;
    Filtered := True;
  end;
end;

Es solo una propuesta, recuerda que sigues teniendo la opción del SQL.


Saludos!

[adriano_servitec]

Muchas gracias Felipe e Egostar                         

Funcionó correctamente

Result del ejemplo

delphi

procedure TForm1.FilterLetras(qQuery: TADOQuery; sLetraIni, sLetraFin: String);
var s: String;
begin
  with qQuery do
  begin
    Filtered := False;
    s := 'campo like ' + QuotedStr(sLetraIni+'*') + 'or campo like ' + QuotedStr(sLetraFin+'*');
    Filter := s;
    Filtered := True;
  end;
end;

Referente al paso de parámetros, podemos simplificar el código de esta forma

Crea un sólo evento (en cualquiera de los SpeedButton) y lo asignas a todos los demás.

Chamo assí

delphi

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  FilterLetras( ADOQuery1,
                (Sender as TSpeedButton).Caption[1],
                (Sender as TSpeedButton).Caption[2] );
end;

Event del outros speedbutton apontado para event del speedbutton1.


Excelente ejemplo pessoal.

[adriano_servitec]

Pensé que había resuelto, pero ....

Ejemplo:
Sí usar el button CD 

Y no EDIT Editar en text  "A"

No result en dbGrid...

¿cómo puedo dejar el button FILTER cuando se edita?

Espero ter escrito corectamente...

[Caral]

Hola
Si te es posible coloca la BD y el programa en un Zip aqui para revisarlo.
Saludos

[adriano_servitec]

Hola
Si te es posible coloca la BD y el programa en un Zip aqui para revisarlo.
Saludos

Gracias Caral...

Resuelto....

He cambiado FILTRER para SQL

delphi

procedure TForm1.FilterLetras(qQuery: TADOQuery; sLetraIni, sLetraFin: String);
var
  s: String;
begin
  if Trim(EdtPesquisa.Text) <> EmptyStr then
     EdtPesquisa.Clear;
 
  with qQuery do
  begin
    //Filtered := False;
 
    qQuery.Close;
    qQuery.SQL.Clear;
    qQuery.SQL.Text := ' SELECT * FROM TABLA  WHERE campo LIKE '+ QuotedStr(sLetraIni+'%') +
      'OR campo LIKE ' + QuotedStr(sLetraFin +'%') +
      ' ORDER BY CAMPO ';
    qQuery.Open;
   {    s := 'campo like ' + QuotedStr(sLetraIni+'%') + 'or campo like ' + QuotedStr(sLetraFin+'%');
    Filter := s;
    Filtered := True;}
  end;
end;

con suerte que non haja otro inesperado. 

[adriano_servitec]

Hola
Si te es posible coloca la BD y el programa en un Zip aqui para revisarlo.
Saludos

Si, no sei anexo en foro, segue link
http://www.4shared.c...nsensitive.html

Mas ja Resuelto....

Saludos.

[Caral]

Hola
Interesante forma de programar.
Saludos