Ver Mensaje Individual
  #1  
Antiguo 05-03-2008
MaSSaKKre MaSSaKKre is offline
Miembro
 
Registrado: sep 2005
Posts: 34
Reputación: 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