delphi主程序中利用listview自动加载access表中的数据的完整代码

下面是一个示例代码，展示了如何使用Delphi的ListView控件自动加载Access数据库表中的数据：

首先，你需要在Delphi中创建一个新的窗体(Form)，然后在窗体上放置一个ListView控件并命名为ListView1。

接下来，你需要添加以下单元到你的程序中：

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, DB, ADODB;

然后，在窗体的私有部分（private section）声明以下变量：

  private
    { Private declarations }
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;

在窗体的OnCreate事件中，添加以下代码：

procedure TForm1.FormCreate(Sender: TObject);
var
  Item: TListItem;
begin
  // 创建ADO连接对象
  ADOConnection1 := TADOConnection.Create(Self);
  ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=YourAccessDatabase.mdb';

  // 创建ADO查询对象
  ADOQuery1 := TADOQuery.Create(Self);
  ADOQuery1.Connection := ADOConnection1;
  ADOQuery1.SQL.Text := 'SELECT * FROM YourTableName';

  // 打开数据库连接和执行查询
  ADOConnection1.Open;
  ADOQuery1.Open;

  // 将查询结果加载到ListView中
  ListView1.Clear;
  while not ADOQuery1.Eof do
  begin
    Item := ListView1.Items.Add;
    Item.Caption := ADOQuery1.FieldByName('FieldName1').AsString;
    Item.SubItems.Add(ADOQuery1.FieldByName('FieldName2').AsString);
    // 添加其他字段...

    ADOQuery1.Next;
  end;

  // 关闭查询和数据库连接
  ADOQuery1.Close;
  ADOConnection1.Close;
end;

请注意，你需要根据你的实际情况修改数据库连接字符串（ConnectionString）和查询语句（SQL.Text），以及字段名（FieldName1，FieldName2等）和数据库文件名（YourAccessDatabase.mdb）。

这样，当窗体创建时，ListView将自动加载Access数据库表中的数据。你可以根据自己的需求进一步定制ListView的显示方式和数据加载逻辑。