reporte desde un DBGrid

[Alexandro]

Gracias por responder:
Me explico mejor a ver si me entienden. En el formulario hay un DBGrid, 2 botones (Informe todo e Informe selecion), un Query y un DataSource.
Con el boton "Informe todo" no hay problema, yo doy clic ahí y el reporte asume el query y me muestra todos los resultados del query, Eso esta genial. Pero donde me trabo es cuando el usuario, de ese resultado que arrojó el query, quiera ver el informe de uno solo, lo selecione y de clic en el boton "Informe selecion".
Que debo hacer para hacer eso?
Espero sus respuestas.
Muchas por su atencion y ayuda.
Suerte

[juanelo]

Hola Alexandro,
Lo que se podría hacer es que ligues tu query a un ClientDataSet y este a su vez sea el que alimente de datos a tiu grid y a tu reporte. Cuando el usuario seleccione un registro y quieras que el reporte nuestre solamente este, puedes usar la propiedad FilterText para filtrar la el CDS por el campo seleccionado y posteriormente aplicar el filtro con Filtered. De esa manera tu reporte solo mostrará el resultado del filtro.
Saludos

[Alexandro]

juanelo:
Me gustaría que me explicaras mejor como puedo hacer lo que dices. Es que soy un poco nuevo en esto.
Gracias.

[[coso]]

hola alexandro, como accedes a la base de datos ? con ADO, BDE? con tablas? queries SQL?

saludos

[Alexandro]

Hola coso:
Yo acceso a ella por tablas con TTables y TQuerys. Les piedom que me ayuden en esto por favor. Es una de las pocas cosas que me faltan para terminar mi programa.
Gracias.

[[coso]]

Código Delphi [-]
// todos los registros
query1.Active := false;
query1.SQL.Text := 'select * from tabla';
query1.Active := true;

Código Delphi [-]
//los registros con una condicion
query2.Active := false;
query2.SQL.Text := 'select * from tabla where cliente = ''%MI%''';
query2.Active := true;

antes de llamar al preview del quickreport, pones su propiedad dataset a la query q quieras sacar

Código Delphi [-]
 
QuickRep1.DataSet := Query2; // caso filtrado
QuickRep1.Preview;
...
QuickRep1.DataSet := Query1; // caso sin filtrar
QuickRep1.Preview;
...

...
por lo que veo ahora estas hablando de registros seleccionados, supongo que con el multiselect. Entonces debes usar la propiedad SelectedRows para, con sus items, saber que registros se han marcado y construir asi tu query2

Código Delphi [-]
Query2.Active := false;
Query2.sql.text := 'select * from tablas where id = -1 and' 
for i := 0 to DBGrid1.SelectedRows.Count do
Query2.sql.text := ' id = ' + DBGrid1.SelectedRows.Items[i] + ' and';
 
Query2.Active := true;

PD: lo de arriba es pseudocodigo. deberas investigar en el foro o en la ayuda el correcto uso de Selectedrows.

[Garry]

También, aunque no lo he examinado detenidamente, veo que esto falla:
[quote=coso;298671]

Código Delphi [-]
Query2.Active := false;
Query2.sql.text := 'select * from tablas where id = -1 and' 
for i := 0 to DBGrid1.SelectedRows.Count do
Query2.sql.text := ' id = ' + DBGrid1.SelectedRows.Items[i] + ' and'; 
Query2.Active := true;

... habiendo que eliminar un AND sobrante:

Código Delphi [-]
Query2.Active := false;
Query2.sql.text := 'select * from tablas where id = -1' 
for i := 0 to DBGrid1.SelectedRows.Count do
Query2.sql.text :=  ' and id = ' + DBGrid1.SelectedRows.Items[i]; 
Query2.Active := true;

No he examinado más. Saludos...