Delphi中用TListView显示数据库数据

iteye_6233

于 2012-07-24 22:12:00 发布

阅读量489

点赞数

文章标签：数据库

本文介绍如何在Delphi中使用TQuery组件加载DBDEMOS数据库中的country表，并将数据展示在ListView控件上。具体步骤包括设置TQuery组件的属性、编写初始化程序代码等。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

图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;