怎样用listview显示数据库中的记录?

yxknet 2002-04-30 09:07:50
怎样用listview显示数据库中的记录?
请高手指点,源代码!
谢谢!
...全文
47 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
adminis 2002-06-23
  • 打赏
  • 举报
回复
var
Tmp_item:Tlistitem;
begin
tmp_item:=ListView1.item.add;
tmp_item.caption:=Field[0].Value;
Tmp_item.subitems.add(Fields[1].Value);
……
next;
end;
luoshumeng 2002-04-30
  • 打赏
  • 举报
回复
我也是这样做的!!!!!!!!!!!!!!!!
yyfhz 2002-04-30
  • 打赏
  • 举报
回复
用代码慢慢加吧!
假设ListView上的列已经全部建立,按次序对应Query里的所有记录,而且所有的
字段值都可以用Query.Fields[i].AsString来表示就可以了,那么代码可以如下:
var
nFieldIndex : Integer ;
nItem: TListItem ;
begin
query.Fiest ;
while not query.Eof do
begin
nItem := ListView.Items.Add ;
nItem.Caption := query.Fields[0].AsString ;
for nFieldIndex := 1 to query.Fields.Count-1 do
nItem.SubItems.Add(query.Fields[nFieldIndex].AsString) ;
end ;
end ;
hxshanji 2002-04-30
  • 打赏
  • 举报
回复
依次读取查询结果的每条记录,处理到listview中阿 。

2,507

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧