Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   ListView en lugar de DBGrid ??? (https://www.clubdelphi.com/foros/showthread.php?t=49534)

Greco 24-10-2007 03:12:43

ListView en lugar de DBGrid ???
 
Es posible utilizar un ListView en style vsReport para mostrar información de una base de datos en lugar de utilizar el DBGrid???

Lo digo por que he visto varios programas que muestran informacion de la base de datos en un campo similar a los listview, no se si sera un listview normal o modificado o bien un componente distinto.

Alguno sabe si hay un componente de ese tipo que sea freeware o bien el codigo que me permita mostrar los campos de una base de datos en un listview y utilizar este de forma casi similar a un dbgrid.

Saludos

Gabo 24-10-2007 10:06:06

En cuanto a poder, pues claro que se puede... Eso sí requiere programar más que si usas un DBGrid

Para llenar el ListView con una Query (código C++Builder), sería:

Código:


AnsiString sql="SELECT CODIGO, NOMBRE FROM TABLA";
DataModule1->Query->Close();
DataModule1->Query->SQL->Clear();
DataModule1->Query->SQL->Add(sql);
DataModule1->Query->Prepare();
DataModule1->Query->Open();
DataModule1->DataSource->DataSet->First();
while (!DataModule1->DataSource->DataSet->Eof)
{
  TListItem* List= ListView1->Items->Add();
  List->Caption=DataModule1->DataSource->DataSet->FieldByName("CODIGO")->AsInteger;
  List->SubItems->Add(DataModule1->DataSource->DataSet->FieldByName("NOMBRE")->AsString);
  DataModule1->DataSource->DataSet->Next();
}

Siempre utilizo la primera columna del ListView para guardar el código, así, si necesito saber el código de un ítem que el usuario ha seleccionado, lo recupero con:

Código:


StrToInt(lvPlanosNoCreados->Selected->Caption);

Esto es porque el valor de la primera columna lo obtienes mediante el Caption del ítem seleccionado, no así el resto de las columnas. Por ejemplo, si quisiera pasar un ítem del ListView1 (el que acabo de llenar) a un ListView2, tendría que hacerlo así:

Código:


TListItem* List2= ListView2->Items->Add();
List2->Caption=ListView1 ->Selected->Caption;
List2->SubItems->Add(ListView1 ->Selected->SubItems[0][0]);
// Y sí hubieran más columnas seguiría así:
List2->SubItems->Add(ListView1 ->Selected->SubItems[0][1]);

Cómo verás, sí se puede, pero hay que escribir más código.

Greco 24-10-2007 14:52:26

Muchas gracias.

Vreé como puedo adaptarlo a mis necesidades.

Saludos.


La franja horaria es GMT +2. Ahora son las 09:23:34.

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