用listView显示范例数据库？？

Question

大家有关于用listView显示自带的一个数据库内容的程序吗，因为刚学，我有范例，但看不懂，希望大家能给我编一个通俗易懂的程序，谢谢。也让我深刻体会一下/

Answer 1

SQL查找后
For i:=0 to ADOQuery1.RecordCount-1 do 
begin
  with ListView1.Items.Add do
  begin
    Caption:=ADOQuery1.Fieldbyname('zcardlabel').AsString;
    SubItems.add(ADOQuery1.Fieldbyname('zlabel').AsString;
    ......
  end;
ADOQuery1.Next;
end;
大概就这样了。

Answer 2

比如这个是我抄的，很多语句都看不懂，而且程序能运行，但看不到结果？？不知为什么？？？
unit database;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, DB, 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);
var
i:integer;
TempColumn:TListColumn;
TempItem:TListItem;
begin
      ListView1.ViewStyle:=VsReport;
      for i:=0 to  Query1.FieldCount-1  do
        begin
            TempColumn:=Form1.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;
      end;
for i:=1 to Query1.FieldCount-1 do
begin
TempItem.SubItems.Add(Query1.Fields[i].AsString);
end;
Query1.Next;
end;
end.

Answer 3

大家帮我解释一下也行，我还有一个问题，就是我在数据库中有很多人的用户名，密码，做一个ATM
是不是我用什么人的用户名和密码登录，就显示谁的信息，但不知为什么，我不论用数据库中的谁的用户名和密码，都显示数据库中第一个建的用户信息。