如何导出数据？

Question

我做了一个查询模块，查询的结果显示在listView控件里，现在想把这些查询的结果导出为Excel表或Access表，该怎么实现？

Answer 1

这是部分代码！
procedure Tquery_xz.pquery1 ;
var q1:Tquery;
begin
  ListView2.Items.Clear;
  q1 := TQuery.Create(nil);
  q1.DatabaseName :='zz';
  SetSQL1(q1);
  if radiobutton6.Checked then setparam1(q1,combobox3.Items[combobox3.itemindex])
  else if radiobutton8.Checked then setparam1(q1,combobox4.Items[combobox4.itemindex])
  else SetParam1(q1,edit2.Text);
  q1.Open;
  while not q1.Eof do
  begin
    with ListView2.Items.Add do
    begin
      Caption := q1.FieldByName('姓名').AsString;
      SubItems.Add(q1.FieldByName('性别').AsString);
      SubItems.Add(q1.FieldByName('出生年月').AsString);
      SubItems.Add(q1.FieldByName('政治面貌').AsString);
      SubItems.Add(q1.FieldByName('所属单位名称').AsString);
    end;
    q1.Next;
  end;
  label4.Caption:= '共'+IntToStr(q1.RecordCount)+'记录';
  q1.Close;
  q1.Free;
end;

Answer 2

UP一下1！！！UP一下1！！！UP一下1！！！UP一下1！！！UP一下1！！！UP一下1！！！