Delphi中使用TListView顯示數據庫的內容

本例教你在TListView組件中顯示數據庫的內容。

首先創建一個新的項目，然後向窗體上添加一個TQuery組件和一個TListView組件。添加組件後的窗體如圖1所示。

圖1 主界面

設置TQuery組件的DatabaseName屬性設置為DBDEMOS，SQL屬性設置為select * from country，Active屬性設置為True。然後添加程序初始化代碼如下：

procedure TForm1.FormCreate(Sender: TObject);
var
　i:Integer;
　TempColumn:TListColumn;
　TempItem:TListItem;
begin
　ListView1.ViewStyle:=vsReport;
　for i:=0 to Query1.FieldCount-1 do
　begin
　　TempColumn:=self.ListView1.Columns.Add;
　　TempColumn.Caption:=Query1.Fields[i].FieldName;
　end;
　Query1.First;
　while not Query1.Eof do
　begin
　　TempItem:=self.ListView1.Items.Add;
　　TempItem.Caption:=Query1.Fields[0].AsString;
　　for i:=1 to Query1.FieldCount-1 do
　　begin
　　　TempItem.SubItems.Add(Query1.Fields[i].AsString);
　　end;
　　Query1.Next;
　end;
end;

程序首先通過ListView1.ViewStyle:=vsReport語句設置TListView組件的ViewStyle屬性值為vsReport。然後通過第1個循環中的TempColumn:=self.ListView1.Columns.Add和TempColumn.Caption:=Query1.Fields[i].FieldName語句在TListView組件的標題行中顯示數據庫中字段的名稱。最後通過一個循環逐行輸出數據庫的所有數據。

程序代碼如下：

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, ComCtrls, DBTables;
type
　TForm1 = class(TForm)
　Query1: TQuery;
　ListView1: TListView;
　procedure FormCreate(Sender: TObject);
private
　{ Private declarations }
public
　{ Public declarations }
end;
var
　Form1: TForm1;
　implementation
　{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
// www.bianceng.cn
var
　i:Integer;
　TempColumn:TListColumn;
　TempItem:TListItem;
begin
　ListView1.ViewStyle:=vsReport;
　for i:=0 to Query1.FieldCount-1 do
　begin
　　TempColumn:=self.ListView1.Columns.Add;
　　TempColumn.Caption:=Query1.Fields[i].FieldName;
　end;
　Query1.First;
　while not Query1.Eof do
　begin
　　TempItem:=self.ListView1.Items.Add;
　　TempItem.Caption:=Query1.Fields[0].AsString;
　　for i:=1 to Query1.FieldCount-1 do
　　begin
　　　TempItem.SubItems.Add(Query1.Fields[i].AsString);
　　end;
　　Query1.Next;
　end;
end;
end.

保存文件，然後按F9鍵運行程序，程序運行結果如圖2所示。

圖2 程序運行結果