delphi 主程序中利用listview自动加载access表数据显示到对应的列

要在Delphi主程序中利用ListView自动加载Access表数据并显示到应的列，你可以通过ADO连接Access，并使用ADOQuery组件执行语句来获取数据。然后，将查询结果逐行添加到ListView的Item和SubItem中。

以下是一个单的示例代码示如何实现个功能：

uses
  // 需要引入ADODB和ComObj单元
  ADODB, ComObj;

procedure TForm1.LoadDataToListView;
var
  Connection: TADOConnection;
  Query: TADOQuery;
  i: Integer;
begin
  // 创建ADO连接和查询组件
  Connection := TADOConnection.Create(nil);
  Query := TADOQuery.Create(nil);

  try
    // 设置连接字符串，指定Access数据库路径和提供者
    Connection.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;' +
      'Data Source=C:\YourDatabase.mdb;Persist Security Info=False';

    // 连接数据库
    Connection.Connected := True;

    // 设置ADOQuery的连接对象
    Query.Connection := Connection;

    // 执行查询语句，例如获取表中所有数据
    Query.SQL.Text := 'SELECT * FROM YourTable';
    Query.Open;

    // 清空ListView
    ListView1.Items.Clear;

    // 遍历查询结果，逐行添加到ListView中
    while not Query.Eof do
    begin
      // 创建ListView的Item对象，将第一个字段（假设是主键）添加到Caption中
      with ListView1.Items.Add do
        Caption := Query.Fields[0].AsString;

      // 将其他字段添加到SubItems中
      for i := 1 to Query.FieldCount - 1 do
        ListView1.Items[ListView1.Items.Count - 1].SubItems.Add(Query.Fields[i].AsString);

      // 移动到下一行
      Query.Next;
    end;

    // 关闭查询
    Query.Close;
  finally
    // 释放资源
    Query.Free;
    Connection.Free;
  end;
end;

在上述示例代码中，你需要根据自己的实际情况设置Access数据库的路径和表名。然后，通过调用LoadDataToListView过程，即可自动加载Access表数据并显示到ListView的对应列中。

注意：在使用上述代码之前，请确保已经正确安装并导入了ADODB和ComObj单元，这些单元包含了操作ADO组件所需的类和接口。