Filtrar 3 veces una grilla

[[AgustinOrtu]]

Ah no espera, crei que estabas usando un solo dataset, resulta que son 3, no me dí cuenta

Primero usaría otro evento y no el OnClick de los combos. Proba con el OnExit o el OnCloseUp

Yo sacaria el refresh que tenés por ahí

[ecfisa]

Hola giulichajari.

Tengo un catalogo de productos que se muestra en forma de grilla obviamente, y deseo seleccionar en un DBLookupcombobox la categoria, entonces se filtra otro dblookupcombobox que es de subcategoria, y a la vez la grilla. Y al seleccionar una subcategoria se vuelve a filtrar la grilla, ademas tiene un edit para filtrar por nombre del producto los resgistros resultantes.

A ver... Tenes dos datasets, un query, un ClientDataSet, dos DBLookupComboBox y un Edit y el problema se te presenta en el armado de la consulta vinculada al ClientDataSet.

De lo que leí y pude entender, creo que podrías hacer:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  // (1)
  DBLookupComboBox1.KeyValue := DataSet1.FieldByName( 'KEY_FIELD_1' ).Value;
  DBLookupComboBox2.KeyValue := DataSet2.FieldByName( 'KEY_FIELD_2' ).Value;
end;

procedure TForm1.btnFiltrarQueryClick(Sender: TObject);
var
  s: string;
begin
  with tu_Query do
  begin
    Close;
    SQL.Clear;
    SQL.Add( 'SELECT *'); // (2)
    SQL.Add('FROM TABLA1 T1, TABLA2 T2' );
    s := Format( 'WHERE T1.KEY_FIELD_1 = %s AND ', [QuotedStr( DBLookupComboBox1.KeyValue ) ] );
    s := s + Format( ' T2.KEY_FIELD_2 = %s ', [QuotedStr( DBLookupComboBox2.KeyValue ) ] );
    if Edit1.Text <> EmptyStr then
      s := s + 'AND T2.OTRO_CAMPO = ' + QuotedStr( Edit1.Text );
    SQL.Add( s );
    Open;
  end;
  ClientDataSet1.Refresh; // <- datasource <- dbgrid
end;

(1) KEY_FIELD_1 y KEY_FIELD_2 serán los nombres de campo que asignaste respectivamente a la propiedad KeyField de los combos y OTRO_CAMPO el campo por el que filtra el Edit.
(2) O mejor aún, la enumeración de los campos que desees seleccionar.

Como no has comentado si existe algún tipo de relación entre las tablas que pudiera acotar la consulta, el conjunto de datos que podría traer es muy grande...

Saludos

Consejo: Tomate el tiempo para publicar toda la información posible y las respuestas serán mas rápidas y precisas.

[giulichajari]

Bueno es un Terminal de Ventas, y pienso que la agilidad es importante, tenia 2 edits, uno para la categoria de producto y otro para la subcategoria de producto, pero es mejor si se ve el nombre completo de la categoria, entonces cambie por el combo. La idea es al seleccionar una categoria filtrar las subcategorias, por ejemplo de mano y de pie pertenecen a electricos, focos y lamparas a iluminacion, etc..
Pero voy a probar tu metodo.

Y con respecto a los componentes: si tengo un Clientdataset : no es mejor filtrar este y no el query asociado?

Tambien quiero usar un evento para no tener que hacer click en el boton.. la idea es usar el teclado y lo menos posible el raton. los combos los completo con el mismo tclientdataset.

[ecfisa]

Hola giulichajari

Empezado por giulichajari

Y con respecto a los componentes: si tengo un Clientdataset : no es mejor filtrar este y no el query asociado?

Siendo sincero no entiendo todos los pormenores como para aconsejarte el uso de uno u otro, pero el filtrado equivalente al anterior sobre el ClientDataSet, sería algo así:

Código Delphi [-]
...
var
  s: string;
begin
  with ClientDataSet1 do
  begin
    Filtered := False;
    s := EmptyStr;
    if Edit1.Text <> EmptyStr then
      s := s + ' AND OTRO_CAMPO = ' + QuotedStr( Edit1.Text );
    Filter   := Format( 'KEY_FIELD_1 = %s AND KEY_FIELD_2 = %s %s', 
      [ QuotedStr( DBLookupComboBox1.KeyValue ), QuotedStr( DBLookupComboBox2.KeyValue ), s ] );
    Filtered := True;
  end;
end;

Eso si, en este caso, los campos KEY_FIELD_1, KEY_FIELD_2 y OTRO_CAMPO deberán estar incluidos en el SELECT de la consulta.

Saludos

[giulichajari]

Lo que estuve leyendo es que es bueno aplicar rangos. Luego de que el dataset de productos tenga el rango de subcategoria aplicar el filtro por nombre para los productos de esa subcategoria. Ejecutar la consulta de vuelta tiene una sobrecarga, por eso no modifico el query, aparte trabajo sin conexion. Ademas filtrar por varios campos supone aplicar la subcategoria y el nombre de vuelta, de la otra forma se hace solo por los registros ya filtrados

[ecfisa]

Hola giulichajari.

Empezado por giulichajari

Lo que estuve leyendo es que es bueno aplicar rangos. Luego de que el dataset de productos tenga el rango de subcategoria aplicar el filtro por nombre para los productos de esa subcategoria.

Así es, aunque los rangos tienen algunas limitantes:

• Están basados en índices, y la/las columnas a que se apliquen deberán estar indizadas y dicho índice activo.
• Solo se puede definir rangos sobre una columna (índice) en un momento dado, si bién esto se soluciona usando combinaciones rango/filtro.

Si estas interesado por profundizar el tema, recuerdo que La cara oculta de Delphi 4, dedica unas cuantas páginas a tratarlo de manera clara y con ejemplos.

Saludos

[giulichajari]

Ya se puede marcar el tema como resuelto y gracias ecfisa:

Código Delphi [-]

procedure TForm1.DBLookupComboBox1Exit(Sender: TObject);
begin
if DBLookupComboBox1.KeyValue<>null then
 begin
    with ClientModule1.cdssubcat do
    begin
          begin
            IndexFieldNames:='idcategoria';
            SetRange([DBLookupComboBox1.KeyValue],[DBLookupComboBox1.KeyValue]);

          end;

    end;
 end;

end;

procedure TForm1.DBLookupComboBox2Click(Sender: TObject);
begin
 with ClientModule1.cdsprod do
              begin
                  IndexFieldNames:='idsubcategoria';
                  SetRange([DBLookupComboBox2.KeyValue],[DBLookupComboBox2.KeyValue]);

              end;
end;

procedure TForm1.EnombreChange(Sender: TObject);
begin
   if DBLookupComboBox2.KeyValue<>null then
       begin
          with ClientModule1.cdsprod do
            begin

              Filtered:=False;
              Filter:='nombre LIKE ''' +'%'+Enombre.Text+'*''' ;

              Filtered:=True;

            end;
      end;
end;

Ademas se podria mostrar en orden alfabetico por marca por ejemplo o por precio.

Lo unico que me gustaria es en vez de un combo un edit que se despliegue... auunque se puede escribir encima del combo y se filtra.