delphi 将access数据显示到listview设置好的列中显示

要将 Access 数据显示在 ListView 的预定义列中，你可以在设计时创建 ListView 的列，然后在运行时将数据库中的数据填充到相应的列中。下面是一个示例代码：

procedure TForm1.FormCreate(Sender: TObject);
begin
  // 在设计时创建 ListView 的列
  ListView1.Columns.Add.Caption := 'Column1';
  ListView1.Columns.Add.Caption := 'Column2';
  // 添加更多列...

  // 加载数据到 ListView
  LoadDataFromAccess;
end;

procedure TForm1.LoadDataFromAccess;
var
  Connection: TADOConnection;
  DataSet: TADODataSet;
  ListItem: TListItem;
begin
  // 创建 ADO 连接对象
  Connection := TADOConnection.Create(Self);
  Connection.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\path\to\your\database.mdb';

  // 创建 ADO 数据集对象
  DataSet := TADODataSet.Create(Self);
  DataSet.Connection := Connection;
  DataSet.CommandText := 'SELECT * FROM YourTable';

  // 打开连接和数据集
  Connection.Open;
  DataSet.Open;

  // 清空 ListView 中的项
  ListView1.Items.Clear;

  // 遍历数据集，将数据添加到 ListView 中
  while not DataSet.Eof do
  begin
    ListItem := ListView1.Items.Add;
    ListItem.Caption := DataSet.FieldByName('Column1').AsString;
    ListItem.SubItems.Add(DataSet.FieldByName('Column2').AsString);
    // 添加更多列的数据...

    DataSet.Next;
  end;

  // 关闭连接和数据集
  DataSet.Close;
  Connection.Close;

  // 释放对象
  DataSet.Free;
  Connection.Free;
end;

在这个示例中，我们在设计时创建了 ListView 的列，并在 FormCreate 事件中加载数据到 ListView。在 LoadDataFromAccess 过程中，我们通过遍历数据集，将每行数据添加到 ListView 中的相应列。你可以根据实际情况添加更多的列，并使用 `ListItem.SubItems.Add` 方法将数据添加到对应的子项中。确保 Access 数据库的表和列名与代码中的一致。