delphi listview结合adapter适配器将access数据库表中数据对应到设置好的列中显示的完整代码

下面是一个完整的示例代码，展示如何使用Delphi中的TListView组件结合TAdapterBindSource和TAdapterListViewAdapter来将Access数据库表中的数据对应到设置好的列中显示：

unit MainForm;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Vcl.StdCtrls, Vcl.ExtCtrls,
  Vcl.ComCtrls, Data.Bind.GenData, Data.Bind.EngExt, Vcl.Bind.DBEngExt,
  System.Rtti, System.Bindings.Outputs, Vcl.Bind.Editors, Data.Bind.Components,
  Data.Bind.ObjectScope;

type
  TForm1 = class(TForm)
    ListView1: TListView;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    FConnection: TADOConnection;
    procedure LoadData;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses
  System.Generics.Collections;

type
  TPerson = class
    FirstName: string;
    LastName: string;
    Age: Integer;
  end;

procedure TForm1.Button1Click(Sender: TObject);
var
  PersonList: TObjectList<TPerson>;
begin
  LoadData;

  PersonList := TObjectList<TPerson>.Create;
  try
    // 连接并打开Access数据库
    FConnection := TADOConnection.Create(nil);
    FConnection.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Path\To\Your\Database.mdb';
    FConnection.LoginPrompt := False;
    FConnection.Connected := True;

    // 查询数据并将结果填充到PersonList中
    with FConnection.Query do
    begin
      SQL.Text := 'SELECT * FROM YourTable';
      Open;

      while not EOF do
      begin
        PersonList.Add(TPerson.Create);
        PersonList.Last.FirstName := FieldByName('FirstName').AsString;
        PersonList.Last.LastName := FieldByName('LastName').AsString;
        PersonList.Last.Age := FieldByName('Age').AsInteger;
        Next;
      end;

      Close;
    end;

    ListView1.Items.Clear;
    ListView1.ItemAppearanceObjects.ItemObjects.Text.Text := 'FirstName';
    ListView1.ItemAppearanceObjects.ItemObjects.Detail.Text := 'LastName';
    ListView1.ItemAppearanceObjects.ItemObjects.Accessory.Text := 'Age';

    // 将PersonList绑定到ListView上
    ListView1.Adapter := TListBindSourceAdapter<TPerson>.Create(Self, PersonList);
  finally
    FConnection.Free;
    PersonList.Free;
  end;
end;

procedure TForm1.LoadData;
begin
  // 加载Access数据库表的数据
  // 可以根据需求自定义实现
end;

end.

在上述代码中，首先在Button1Click事件中，通过LoadData方法加载Access数据库表中的数据，并将数据填充到PersonList对象中。

然后，创建一个TADOConnection对象用于连接Access数据库，并执行查询语句将数据填充到PersonList中。

接下来，清空ListView的Items，并设置各个列的显示文本。

最后，使用TListBindSourceAdapter<T>类将PersonList对象绑定到ListView的Adapter属性上，实现数据的绑定和显示。

请确保替换代码中的数据库连接字符串为您实际的Access数据库文件路径。