怎么把数据库中的数据显示在ListView上？

Question

不知道是代码问题还是控件问题？反正编译是通过了，就是运行时ListView上没有数据显示，怎么解决啊？
下面是代码：try
    with DataModuleADO.ADOQuery1 do
    begin
      SQL.Clear;
      SQL.Add('select * from Reader order by ReaderID');
      Open;
      ListView1.Items.Clear;
      while not Eof do
      begin
        with ListView1.Items.Add do
        begin
          Caption:=FieldByName('ReaderID').AsString;
          SubItems.Add(FieldByName('Name').AsString);
          if FieldByName('Sex').AsString='1' then
             SubItems.Add('女')
          else
             SubItems.Add('男');
          SubItems.Add(FieldByName('IDCardNo').AsString);
        end;
        Next;
      end;
      Close;
    end;  
    except
      ListView1.Items.Clear;
      MessageDlg('刷新出错',mtError,[mbok],0);
    end;

Answer 1

代码没问题。ListView的ViewSytle设成vsReport，Columns里面添加4个TListColumn就行。