Consulta Inner Join

[[ElDioni]]

Hola,

no se que componente es el gridview, ¿un DbGrid?, de todas formas, se me ocurre que tendrás que hacer dos consultas, una con los usuarios (solo los usuarios) y otra, que es la que ya tienes, con los permisos por usuario, una vez tengas esto lo tendrás que montar en dos DbGrids, uno con el listado de usuarios y otro en donde aparecerán los permisos de cada usuario conforme se vaya pinchando en el usuario correspondiente. No se si entiendes la idea que te propongo.

Saludos.

[amerika111]

el gridview es un datagrid o dbgrid.. y si creo que si te entiendo lo que me comentas...

no habra manera de meterlo en algun procedimiento almacendo y mientras recorre la consulta del inner join vaya guardando como variable el usuario, y mientras siga siendo el mismo usuario despliege solo los permisos y si no desplegaria al usuario siguiente y asi.. detalle esta en que no se como construir el procedimiento..

[[ElDioni]]

Hola,

en una ocasión vi un ejemplo de unos grids que dependía uno del otro, uno de los grids está oculto y aparece cuando haces click en un registro del grid que se está viendo. Quiero decir que tu verías el grid de los usuarios y al hacer click o al ir moviendote por los registros podrías ir enseñando el grid oculto con los permisos correspondientes, como si fuera un desplegable del grid principal. Lo podrías hacer de la siguiente forma.

Código Delphi [-]
procedure TFrmMenuArt.DBGridUsuariosCellClick(Column: TColumn);
begin
if QueryUsuarios.IsEmpty then
  begin
    DbGridPermisos.Visible:=False;
  end
else
  begin
    QueryPermisos.close;
    QueryPermisos.SQL.Text:='SELECT * FROM permisos WHERE usuario='+QueryUsuarios.FieldByName('Usuario').AsString;
    QueryPermisos.Open;
    DbGridPermisos.Top:=DBGridUsuarios.Top+(QueryUsuarios.RecNo*18)+18;
    DbGridPermisos.Visible:=true;
  end;
end;

No se que te parece el asunto, ya me contarás.

Saludos.

[amerika111]

eso tambien funcionaria pero como ya cuento con una forma en que se consulta al usuario y se desglosan sus respectivos permisos.. lo que intento hacer seria mas bien como un tipo reporte esto lo intento desplegar en un grid y despues se va a exportar a excel..

[[ElDioni]]

Hola,

entiendo que tu lo que tienes montado es un formulario con un grid para mostrar los datos, si es así no se me ocurre como dentro del mismo grid puedes mostrar los datos maestros, que sería el usuario, y los datos detalle, que serías los permisos, o eso o te estoy entendiendo mal, ¿como recorres la consulta?, ¿podrías subir una captura?.

Saludos.

[amerika111]

Hola que tal... adjunto un archivo.zip para ver mejor el resultado que se espera..

archivo usuarios:es como se pretende quede en el grid y de ahi se exporte a excel
archivo archivo1: es como se obtiene actualmente en el grid y exportacion a excel

no se si haya alguna manera de que no se repitan los usuarios tantas veces tengan permisos, si no que nada mas muestre una vez al usuario
y con sus respectivos permisos..

[[Caral]]

Hola
No se si entiendo bien.
Archivo1: muestra lo que contiene el dbgrid, osea, lo que muestra la consulta sql actualmente.
Usuarios: es como pretendes que se muestre en el dbgrid, osea, que la consulta sql genere.

Me da la impresión que quieres que el usuario no se repita, solo lo necesario.

Código SQL [-]
select DISTINCT u.usr as usuario, u.id,
       u.nom+' '+ u.ape_pat+' '+ u.ape_mat as 'Nombre Completo',
       CASE u.estado 
           when 1 then 'Activo' 
            when 2 then 'Suspendido' 
           end as 'Estado',
             p.descr,
       tp.descr ,
       ua.dir_cliente,
       ua.ult_act
 from fusu_usr_per up 
        inner join fusu_per p on up.id_per=p.id 
        inner join fusu_usr u on up.id_usr=u.id 
        inner join fusu_tper tp on p.id_tper=tp.id 
 inner join fusu_usr_acc ua on up.id_usr=ua.id_usr
 where ua.id=(Select Top 1 id from fusu_usr_acc where id_usr=ua.id_usr order by ult_act desc)
        order by u.id

O podría ser:

Código SQL [-]
select LAST(u.usr) as usuario, u.id,
       u.nom+' '+ u.ape_pat+' '+ u.ape_mat as 'Nombre Completo',
       CASE u.estado 
           when 1 then 'Activo' 
            when 2 then 'Suspendido' 
           end as 'Estado',
             p.descr,
       tp.descr ,
       ua.dir_cliente,
       ua.ult_act
 from fusu_usr_per up 
        inner join fusu_per p on up.id_per=p.id 
        inner join fusu_usr u on up.id_usr=u.id 
        inner join fusu_tper tp on p.id_tper=tp.id 
 inner join fusu_usr_acc ua on up.id_usr=ua.id_usr
 where ua.id=(Select Top 1 id from fusu_usr_acc where id_usr=ua.id_usr order by ult_act desc)
        order by u.id

No llevo el hilo del asunto, solo es una apreciación.
Saludos