在delphi中怎么用ListView显示查询数据库的字段结果呢，我用MEMO可以显示要的结果但是用listview查不出来

我用MEMO可以显示要的结果但是用listview查不出来，哪位大哥帮帮忙
procedure TForm1.Button1Click(Sender: TObject);
var
  sql1,sql2:string;
  I,m:Integer;
begin

 ADOQuery1.SQL.Text:= 'set names ''gbk'' ';

  ADOQuery1.Active:=False;
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
 sql1:='SELECT sign,count(*) as smscount FROM smsdb..EastSMS_Submit_history where sendtime between '+quotedstr(DateToStr(DateTimePicker1.Date) )+' and '+quotedstr(DateToStr(DateTimePicker2.Date)+' 23:59:59')+' GROUP BY sign ';
  ADOQuery1.SQL.Text:=sql1;
  ADOQuery1.Open;
  for i:=1 to ADOQuery1.FieldCount do
  begin
  Memo1.Lines.Add('通道类型：'+ADOQuery1.FieldByName('sign').asString);
  Memo1.Lines.Add('数量：'+ADOQuery1.FieldByName('smscount').asString);
  ADOQuery1.Next;

  end ;
  sql2:= 'SELECT count(*)as count FROM RegSMS..EastSMS_Submit_history where sendtime between '+quotedstr(DateToStr(DateTimePicker1.Date) )+' and '+quotedstr(DateToStr(DateTimePicker2.Date)+' 23:59:59');
  ADOQuery1.SQL.Text:=sql2;
  ADOQuery1.Open;
  for m:=1 to ADOQuery1.FieldCount do
  begin
  Memo1.Lines.Add('生意助手通道数：'+ADOQuery1.FieldByName('count').asString);


不知道用listview要怎么做呢？

  end;

你只要搞懂LISTVIEW是怎么添加数据的就会了

  with ListView1.Items.Add do
  begin
  Caption := IntToStr(ListView1.Items.Count);
  SubItems.Add('内容1');
  SubItems.Add('内容2']);
  SubItems.Add('内容3']);
  end;

  三列 第一列可以弄个序号列 第二列SubItems自己添加数据

但是还要查数据库啊，2个SQL语句不知道怎么弄啊