Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Como Trabajar los listview en delphi 7 (https://www.clubdelphi.com/foros/showthread.php?t=23479)

Shidalis 18-07-2005 22:14:29

Como Trabajar los listview en delphi 7
 
Hola amigos alguno de ustedes me podria facilitar material o alguna direccion donde hable de como trabajar los listview en delphi 7.
De ante manos gracias !!!

delphi.com.ar 18-07-2005 22:22:03

Yo te recomendaría leer la ayuda, y ver los ejemplos (VirtualListView)

Saludos!

Shidalis 18-07-2005 22:49:27

disculpa pero aun soy novata y en la ayuda del delphi no me explica como pudo mostrar los datos desde una base de datos en un listview

delphi.com.ar 18-07-2005 22:56:28

Si sos novata no te recomiendo utilizar un TListView con este fin... ¿Porque no un DBGrid?.... Por ejemplo, los DBGrids solo muestran una página de datos, lo que para consultas muy extensas es lo mas recomendado, si lo haces con un ListView vas a tener que encargarte de paginar la información.... nada para novatos.

Por otro lado no dudo que exista algún listview de terceros con ese fin, te recomiendo buscarlo en Torry.net

Saludos!

Shidalis 18-07-2005 23:51:31

gracias por todo!!!1

lucasarts_18 19-07-2005 05:11:33

Hola Shidalis:

Aquí te dejo un fragmento de código para que vayas dandote una idea de como se trabaja con este control.

Código Delphi [-]
 
procedure TVenta.lboxCatClick(Sender: TObject);
var
Item : Integer;
ListItem : TListItem; 
valor : String;
begin
   LstViewProd.Items.Clear;
   Item := lboxCat.ItemIndex;
   valor := lboxCat.Items[Item];
   with Modulo.QryVentas do
   begin
       valor := valor + '%';
       Close;
       SQl.Clear;
       SQL.Add ('Select * from Productos');
       SQL.Add ('Where Descripcion like ' + quotedstr(valor));
       Open;
       Active := True;
       while not EOF do
       begin
          ListItem := LstViewProd.Items.Add;
          ListItem.Caption := FieldValues['Id_Producto'];
          ListItem.SubItems.Add (FieldValues['Descripcion']);
          ListItem.SubItems.Add (FieldValues['Procedencia']);
          ListItem.SubItems.Add (FieldValues['Precio_Unitario']);
          ListItem.SubItems.Add (FieldValues['Stock']);
          Next;
       end;
   end;
end;

Este trozo de código toma la consulta de acuerdo al contenido del ListBox y lo pasa como parametro al TQuery

Para agregar Items a un ListView debes declarar esto:

Código Delphi [-]
 ListItem : TListItem;

y luego le asignas el control listview al ListItem y, después accediendo a sus metodos podrás ir asignando valores a cada celda.

Como dijo delphi.com.ar este control no es para novatos, así que antes de enbarcarte bien con este control, estudialo bastante y, con el ejemplo que te deje deberías empezar a practicar algunas cosillas.

Saludos.

delphi.com.ar 19-07-2005 14:23:33

Cita:

Empezado por lucasarts_18
Como dijo delphi.com.ar este control no es para novatos....

Esteeeee... yo no quise decir eso!
Lo que quise decir es que el DBGrid tiene ciertas funcionalidades implementadas, que el TListView no, y su implementación no es para novatos. Digamos, si esta en la disyuntiva de cual usar, que no lo dude!
Pero no quise decir que el TListView sea un control avanzado!

Saludos!

Shidalis 19-07-2005 15:26:45

Disculpa lucasart pero para que usas esta variable "FieldValues" y de que tipo la declaras?

delphi.com.ar 19-07-2005 15:31:52

FieldValues no es una variable, es una propiedad de Modulo.QryVentas y te retorna un variant con el valor de campo que le pases como parámetro.
Yo en este caso utilizaría un FieldByName('Campo').DisplayText para que sea mas standard!

Saludos!

Shidalis 19-07-2005 16:03:49

Muchas Gracias por su ayuda ya logre mostrar los datos que queria!!!


La franja horaria es GMT +2. Ahora son las 20:14:37.

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