Ayuda Busqueda en DBGrid con 2 campos
 

Hola de vuelta

Bueno tengo un Formulario con un DBGrid, 2 Edit correspondiente a 2 campos de la base de datos, para filtrar los datos del DBGrid. Pero necesito ayuda en lo siguiente
1-Que al borrar una letra en un Edit, se actualize la busqueda, es decir el DBGrid
2-Que al salir de un Edit se borre el otro y el dbgrid vuelva a sin estar filtrado.
3-Exportar el DBGRid filtrado para imprimir.

El codigo que hice fue el siguiente:

Código Delphi [-]
void __fastcall TForm5::Edit2Change(TObject *Sender)
{

        Table1->Filtered = false;
        Table1->Filter = "Detalle =" + QuotedStr(Edit2->Text+"*");
        Table1->Filtered = true;
}
//---------------------------------------------------------------------------


void __fastcall TForm5::Edit3Change(TObject *Sender)
{
             
Table1->Filtered = false;
  Table1->Filter = "Marca =" + QuotedStr(Edit3->Text+"*");
        Table1->Filtered = true;
}
//---------------------------------------------------------------------------


void __fastcall TForm5::Edit2Click(TObject *Sender)
{
   Edit3->Text=EmptyStr;
   Table1->Filtered=false;
}
//---------------------------------------------------------------------------

void __fastcall TForm5::Edit3Click(TObject *Sender)
{
      Edit2->Text=EmptyStr;
      Table1->Filtered=false;  
}

Al cambiar OnChange, que actualize el DBGrid.
Y al hacer click, que vacie el otro edit, y que el filtro vuelva a 0.
Pero no funciona.
Y el como exportar los resultados para imprimir no se, osea se usar quickreport pero no se como exportar el dbgfrid.

Hola.

El punto 1 ya lo tenes solucionado.

Con el 2, podrías asignar este evento a los dos Edits:
El punto 3 es el que mas se complica por culpa del punto 2 ya que, estando en un Edit, vas a tener que llamar al form que tiene el TQuickRep sin que se pierda el foco (y por tanto el filtro).

Una posible solución es poner la propiedad KeyPreview del form a true y detectar una tecla, o combinación de ellas, en el evento OnKeyDown del mismo, algo parecido a:
Por otro lado, en Form2 tendras que agregar al QuickRep un TQRSubDetail con su propiedad DataSet = Form1->Table1. Y tantos TQRDBText como campos se muestren en las columnas de Form1->DBGRid, todos con su propiedad DataSet = Form1->Table1 y cada uno con su nombre de campo correspondiente.

Para lo cuál Form2 deberá tener acceso a Table1 ya sea que esta resida en un TDataModule (la mejor opción) o mediante la inclusión de Form1, haciendo de este modo una referencia circular.

Saludos. :)

¿Y si tengo otra impresion?
 

Hola Eficsa, gracias por responder a mis temas.
Tengo un problema con lo que me dijiste que haga, ya que quiero poner en form1 2 botones, uno que imprima todo, y el otro solo lo filtrado. No se si poner 2 TTable o con la misma alcanza.
Y al salir del Edit deja de estar filtrada la tabla, lo cual creo que tambien este dando problemas. Tengo un DataModule en el Form1, y los dos button. He creado dos QuicReport en dos Form distinto para cada impresion respectivamente. Tal vez con un solo Report es suficiente.
Muchas gracias

Hola giulichajari.
Si, es lo que te comentaba en el mensaje anterior.

Pero se me ocurrió este modo que te permite darle el foco a cualquier componente (que no sea alguno de los dos edits en cuestión) sin que se pierda el filtro actual:
es decir que podras usar los TButtons para llamar a la impresión.

No es necesario usar otro TDataset, podes hacerlo con el mismo.
Por lo que comentas pareciera que con un solo botón para imprimir y un solo TQuickRep tendría que alcanzar. Si el TDataSet está sin filtro se imprimirán todos los registros, si tiene alguno sólo los registros filtrados.

Saludos. :)

Continuando
 

Código Delphi [-]
{
  String sFilter;
  TEdit *ed = static_cast  (ActiveControl);

  if (ed->Name == "Edit2")
    Edit3->Text = "";
  else
    Edit2->Text = "";
  Table1->Filtered = false;
}

Porque pones el filtrado de la tabla en false, no me funciono, y al cvambiar esa linea a true me anduvo para un solo Edit, para el Edit3.

Este es el codigo del cpp del form en el que trabajo:

Código Delphi [-]
void __fastcall TForm5::Edit2Change(TObject *Sender)
{
     String sFilter = "";
  TEdit *ed = static_cast  (ActiveControl);

  if (ed->Name == "Edit2" && !ed->Text.IsEmpty()) {
    Edit3->Text = "";
    sFilter = "Marca = " + QuotedStr(Edit2->Text + "*");
  }
  if (ed->Name == "Edit3" && !ed->Text.IsEmpty()) {
    Edit2->Text = "";
    sFilter = "Detalle = " + QuotedStr(Edit3->Text + "*");
  }
  Table1->Filtered = false;
  Table1->Filter   = sFilter;
  Table1->Filtered = true;
}
//---------------------------------------------------------------------------

void __fastcall TForm5::Edit3Change(TObject *Sender)
{
         String sFilter = "";
  TEdit *ed = static_cast  (ActiveControl);

  if (ed->Name == "Edit2" && !ed->Text.IsEmpty()) {
    Edit3->Text = "";
    sFilter = "Marca = " + QuotedStr(Edit2->Text + "*");
  }
  if (ed->Name == "Edit3" && !ed->Text.IsEmpty()) {
    Edit2->Text = "";
    sFilter = "Detalle = " + QuotedStr(Edit3->Text + "*");
  }
  Table1->Filtered = false;
  Table1->Filter   = sFilter;
  Table1->Filtered = true;
}
//---------------------------------------------------------------------------




void __fastcall TForm5::Button1Click(TObject *Sender)
{
Form6->QuickRep1->Preview();
}
//---------------------------------------------------------------------------



void __fastcall TForm5::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
       if (Key == VK_F1)
    Form7->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TForm5::FormCreate(TObject *Sender)
{
   KeyPreview = true;
}
//---------------------------------------------------------------------------

void __fastcall TForm5::Button1Enter(TObject *Sender)
{
   String sFilter;
  TEdit *ed = static_cast  (ActiveControl);

  if (ed->Name == "Edit2")

    Edit3->Text = "";
  else
    Edit2->Text = "";

  Table1->Filtered = true;
}
//---------------------------------------------------------------------------

void __fastcall TForm5::Button2Enter(TObject *Sender)
{
     String sFilter;
  TEdit *ed = static_cast  (ActiveControl);

  if (ed->Name == "Edit2")
    Edit3->Text = "";

  else
    Edit2->Text = "";
  Table1->Filtered = true;
}

Hola.

Creo que estas mezclando el modo del mensaje #2 con el que te sugerí después (msg #4). Para evitar confusiones te armé un pequeño ejemplo que consta de un Form principal, un DataModule, otro form para visualizar el QuickRep, así podrás estudiarlo con tranquilidad. Solo tenes que crear una carpeta y descomprimir el archivo ahí (incluye tabla de BCDEMOS).

Saludos :)

Muchas gracias
 

Gracias por todo..