Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   Trabajos con ComboBox y Reportes (https://www.clubdelphi.com/foros/showthread.php?t=65944)

Jucho69 22-01-2010 20:46:41

Trabajos con ComboBox y Reportes
 
Hola

Por favor quisiera saber si es posible llevar la información almacenada en 4 ComboBox a un reporte (QuickRep) previamente creado con sus 4 QRDBText con el tamano y configuración apropiados para la información a mostrar y que están enlazados a un Adoquery.

Solo deseo saber que camino seguir para llevar la información de un componente (Combo o List )a un reporte. Yo utilizo Delphi 6

Gracias

Cañones 22-01-2010 22:10:33

Creo que deberías explayarte un poco mejor.

Sabes usar QR? Tenés algún reporte que funcione?

La información del combo la guardas en la DDBB y con los QRDBText lees los datos desde la DDB.

Saludos.

Jucho69 27-01-2010 17:10:20

Hola Cañones

Te agradesco la observación, te esplicaré mejor, estoy haciendo un programa de finanzas para la empresa y utilizo una base de datos Acces con varias tablas, la dificultad que tengo es la siguente:

Tengo dos tablas con sus correspondientes campos:

Tabla1
nombre------Provincia------salarios
Vivian-------C.Habana------$500
Alfredo------Villa Clara------$450
Raúl---------Las Tunas------$800

Tabla2
nombre----cargo-------sexo
Ana-------Auxiliar------- F
René------J Contab------M
Mayra-----Aseg.---------F


Y quiero lograr mediante una consulta

Nombre
Vivian
Alfredo
Raúl
Ana
René
Mayra

O sea, utilizando una consulta SQL seleccionar y unir la información de ambos campos.

Lo que pude hacer es que mediante dos consultas seleccioné ambos compos y almacené su información en un combobox:

ADOQuery3.SQL.Clear;
ADOQuery3.SQL.Add('Select * From Tabla1');
ADOQuery3.Open;
While not ADOQuery3.Eof do
begin
ComboBox1.Items.Add(ADOQuery3.Fields[0].Text);
AdoQuery3.Next;
end;

y entonses de tratar llevar esa información a un reporte.
Claro está que debe haber una solución mas facil por eso recurro a ustedes

Gracias y un saludo

rgstuamigo 27-01-2010 18:05:53

Puedes hacerlo todo en tu consulta SQL,;) Mas o menos asi:
Código SQL [-]
(Select Nombre From Tabla1)
union all
(Select Nombre From Tabla2);
Ojo ten en cuenta que para que la union se realize correctamente los campos deben ser compatibles.;).
En tu ADOQuery haces la consulta anterior y lo enganchas a tu reporte atraves de la propiedad Dataset de tu componente QuickRep y tu QRDBText respectivamente(Un solo QRDBText es suficiente segun veo), luego asignas el campo que se va reportar en tu QRDBText, eso se hace con la Propiedad DataField del QRDBText.;) y eso es todo.;):D
Espero te sea de utilidad.:).
Saludos...:)

Jucho69 28-01-2010 15:51:36

Hola RGSTuamigo
 
Hola RGSTuamigo y al Foro

Gracias por tu valoración, ayer no pude, pero hoy probaré la solución que me distes, yo programo y he hecho algunos programas para mi empresa pero no me acerco por mucho a la altura de ustedes, Dec, Marcos, Caral, Nestali y otros que ya llevan tiempo en esto, por eso es natural que tenga algunas dificultades cuando hago un programa como los de Finanzas que requieren seguridad y mucha programación.

Te reitero las gracias

Saludos

rgstuamigo 29-01-2010 14:17:00

Cita:

Empezado por Jucho69 (Mensaje 352117)
... yo programo y he hecho algunos programas para mi empresa pero no me acerco por mucho a la altura de ustedes, Dec, Marcos, Caral, Nestali y otros que ya llevan tiempo en esto...

Yo tambien soy aprendiz:o:D por aqui, asi que no te preocupe que entre aprendiz vamos a aprender mucho mas...:D, y ahí estamos para cualquier cosa...;).
Saludos...:)


La franja horaria es GMT +2. Ahora son las 19:25:31.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi