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

用代码慢慢加吧!假设ListView上的列已经全部建立,按次序对应Query里的所有记录,而且所有的字段值都可以用Query.Fields

.AsString来表示就可以了,那么代码可以如下

nFieldIndex

:

Integer

nItem:

TListItem

begin

query.Fiest

while

not

query.Eof

do

begin

nItem

ListView.Items.Add

nItem.Caption

query.Fields

.AsString

for

nFieldIndex

1

to

query.Fields.Count-1

do

nItem.SubItems.Add(query.Fields

.AsString)

end

end

1var

i

:integer

For

i:=0

to

ListView1.Items.Count-1

do

If

ListView1.Items.Item[i].Selected

then

begin

ADOQuery1.Close

ADOQuery1.SQL.Add(Format('delete

from

表名

where

字段名=%s',[QuotedStr(ListView1.Items[i].SubItems.strings[0])]))//这里以0为例,你是若干本身改

end

ListView1.Items.Delete(i)//删除ListView1琅绫擎的相干行

ADOQuery1.ExecSQL

应当是如许了

1、ListView控件的ViewStyle属性设置为vsReport

2、为ListView控件添加列名-->设置Columns属性

3、开始编程

procedure TForm1.Button1Click(Sender: TObject)

var

tmpItem: TListItem

begin

while not ADOQuery1.Eof do

begin

tmpItem := ListView1.Items.Add

tmpItem.Caption := ADOQuery1.FieldByName('xx').AsString

tmpItem.SubItems[0] := ADOQuery1.FieldByName('xx').AsString

end

end

上面只是个范例，可以参考一下，实际使用中有很多不同的

---