delphi利用listview设置好的列显示access表中对应的数据

您可以使用 Delphi 的 ADO 组件来连接并查询 Access 数据库，然后将查询结果绑定到 ListView 控件的列中。以下是一个示例代码，演示如何实现这个功能：

uses
  Data.Win.ADODB, ComObj;

procedure TForm1.FormCreate(Sender: TObject);
var
  ADOConnection: TADOConnection;
  ADOQuery: TADOQuery;
  I: Integer;
begin
  // 创建 ADO 连接组件
  ADOConnection := TADOConnection.Create(nil);
  ADOConnection.ConnectionString := 'Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb';

  // 创建 ADO 查询组件
  ADOQuery := TADOQuery.Create(nil);
  ADOQuery.Connection := ADOConnection;
  
  // 打开数据库连接
  ADOConnection.Connected := True;

  // 执行 SQL 查询语句
  ADOQuery.SQL.Text := 'SELECT * FROM YourTable';
  ADOQuery.Open;

  // 设置 ListView 的列
  ListView1.Columns.Clear;
  for I := 0 to ADOQuery.Fields.Count - 1 do
    ListView1.Columns.Add.Caption := ADOQuery.Fields[I].DisplayName;

  // 将查询结果绑定到 ListView 的行中
  while not ADOQuery.Eof do
  begin
    with ListView1.Items.Add do
    begin
      // 将每个字段的值添加到 ListView 的相应列中
      for I := 0 to ADOQuery.Fields.Count - 1 do
        SubItems.Add(ADOQuery.Fields[I].AsString);
    end;
    ADOQuery.Next;
  end;

  // 关闭数据库连接
  ADOConnection.Connected := False;

  // 释放资源
  ADOQuery.Free;
  ADOConnection.Free;
end;

请注意将上述代码中的 `'C:\path\to\your\database.accdb'` 替换为您实际的 Access 数据库文件路径。另外，还需要在窗体上放置一个 ListView 控件，并将其命名为 `ListView1`。

以上代码会连接到指定的 Access 数据库文件，并执行一个简单的查询语句，将查询结果绑定到 ListView 的列中显示出来。您可以按需修改代码以适应您的实际需求。