Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Impresión
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 05-03-2008
MaSSaKKre MaSSaKKre is offline
Miembro
 
Registrado: sep 2005
Posts: 34
Poder: 0
MaSSaKKre Va por buen camino
Ayuda con Rave Report 6 y Delhpi 2005

hola a todos, he desarrollado un sistema para credenciales e informes de personal, el cual esta completo hasta cierto punto 8pues me faltan algunas funciones mas), el problema que tengo es que nunca en mi vida he trabajado con Rave Reports y por lo tanto no se como enviar los datos de una consulta hacia la realizacion de un informe; según he leido se utilizan 3 componentes q son RvSystem,RvProject y RvDataSetConnection.
pero no se como enviar la informacion hacia el informe, ni como hecharlo a andar.

el procedimiento de mi consulta es el siguiente, esta en un dbgrid, que al ir pulsando hacia abajo, me hace una consulta sobre el registro en el que ando y me envia los valores a unas labels; tambien tengo un procedimiento llamado foto, donde se busca la foto del empleado, la cual esta almacenada en una carpeta en el disco duro y no la puse almacenada en la bd xq me alentaria la bd al momento de mis consultas, ya que manejo mas de 1500 registros y seria muy pesada la consulta. Mi base de datos esta en Access.

primero pongo el procedimiento de la busqueda de la foto y posteriormente el de mi adoquery.

Código Delphi [-]
PROCEDURE TBUSQUEDAGENERAL.FOTO;
VAR NUM_EMPLEADO:STRING;
RUTAFOTO:STRING;
FOTO:TJPEGIMAGE;
BEGIN NUM_EMPLEADO:=LABEL11.Caption; RUTAFOTO:='';    //BUSCANDO EN LA RUTA DE LAS FOTOS
RUTAFOTO:=( (ExtractFilePath( Application.ExeName ) + 'Fotos\'+NUM_EMPLEADO+'.jpg'));
//CARGANDO LA FOTO
IF FILEEXISTS (RUTAFOTO) THEN BEGIN FOTO:=TJPEGImage.Create; FOTO.LoadFromFile(RUTAFOTO); IMAGE1.Picture.Assign(FOTO); //Image1.Visible:=true;
FOTO.Free;
END   ELSE     BEGIN RUTAFOTO:=( (ExtractFilePath( Application.ExeName ) + 'Fotos\LOGO.jpg'));
    FOTO:=TJPEGImage.Create;
    FOTO.LoadFromFile(RUTAFOTO);
IMAGE1.Picture.Assign(FOTO);
  END;
       END;   //END ELSES

Código Delphi [-]
procedure TBUSQUEDAGENERAL.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var NUM_EMPLEADO:STRING;

begin IF DBGRID1.Enabled=FALSE THEN BEGIN EXIT; END;

NUM_EMPLEADO:=DBGRID1.SelectedField.ASSTRING;
IF (NUM_EMPLEADO='') THEN 
BEGIN 
EXIT; 
END   
 ELSE 
     BEGIN
      WITH ADOQUERY2 DO 
       BEGIN        
CLOSE;    
    SQL.Clear;
        SQL.Add('SELECT * FROM Tbl_Personal WHERE NUM_EMPLEADO LIKE "%'+NUM_EMPLEADO+'%"');
       OPEN;
       END;
      //ENVIAR VALORES OBTENIDOS
      LABEL11.Caption:= ADOQUERY2.FieldByName('NUM_EMPLEADO').ASstring;
      LABEL12.Caption:= ADOQUERY2.FieldByName('NOMBRE').ASstring;
      LABEL13.Caption:= ADOQUERY2.FieldByName('APELLIDO_P').Asstring;
      LABEL14.Caption:= ADOQUERY2.FieldByName('APELLIDO_M').AsSTRING;
      LABEL15.Caption:= ADOQUERY2.FieldByName('CARGO').AsSTRING;
      LABEL16.Caption:= ADOQUERY2.FieldByName('AREA').AsSTRING;
      LABEL17.Caption:= ADOQUERY2.FieldByName('STATUS').ASSTRING;
      FOTO;
      IF LABEL11.Caption='' THEN
       BEGIN
       BITBTN1.Enabled:=FALSE;
       END 
        ELSE 
          BEGIN 
          BITBTN1.Enabled:=TRUE;
           END;
     EXIT;
     END;

     END;

la foto esta guardada en *.jpg y se muestra en un contro Timage.

lo que en realidad
quiero hacer es que los datos que estan en las labels (los que envie directo al reporte) asi como tambien la foto que muestro en el Timage.

espero me puedan ayudar u orientar.

ya he leido varios post y manuales pero la vdd no tengo claro los procedimientos.

espero su ayuda, saludos.

Última edición por MaSSaKKre fecha: 05-03-2008 a las 20:44:25. Razón: xq no jaló la configuracion de codigo delphi
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Ayuda con Rave Report Drahcir Impresión 2 14-08-2008 19:32:36
Rave report ayuda con DBgrid pabliyo Impresión 1 01-02-2008 16:52:29
Pasar query a Rave Report [Delphi 2005] Ayabass Impresión 0 17-06-2005 12:38:01
Ayuda con Rave Report solovaer Impresión 0 09-01-2005 06:13:14
Ayuda con rave report datatext raudelink Impresión 0 23-06-2004 20:54:13


La franja horaria es GMT +2. Ahora son las 23:32:44.


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
Copyright 1996-2007 Club Delphi