Ver Mensaje Individual
  #4  
Antiguo 18-01-2004
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Reputación: 10
marcoszorrilla Va por buen camino
Como lo que vas a construir es una cadena, es fácil, recorres los checkboxes:

Por ejemplo:
Código:
var
cadSql:String;
nCont:Integer;
begin
nCont:=0;
if CheckBox1.Checked then
begin
CadSql:='MiCampo1 ='+QuotedStr(Edit1.Text);
nCont:=nCont + 1;
end

if CheckBox2.Checked then
  if nCont > 0 then
  CadSql:=+CadSql+' And ';
CadSql:=+CadSql+'MiCampo1 ='+QuotedStr(Edit2.Text);
nCont:=nCont + 1;
end
.....
cadSql:=CadSql +'From MiTabla';
MiTabla.Filter:=CadSql;
MiTabla.Filtered:=True;
end;
Bueno, esto es la idea básica creo que te cueste poco desarrollarla.
Un Saludo.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.

Última edición por marcoszorrilla fecha: 18-01-2004 a las 20:35:12.
Responder Con Cita