delphi将access数据表中的数据自动加载到listview中设置好的列完整代码

以下是一个完整的Delphi代码示例，用于将Access数据表中的数据自动加载到预先设置好的ListView列中显示：

unit MainForm;

interface

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

type
  TForm1 = class(TForm)
    ListView1: TListView;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    procedure FormCreate(Sender: TObject);
  private
    procedure LoadDataToListView;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  // 连接数据库
  ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\YourDatabase.mdb;';
  ADOConnection1.Connected := True;

  // 打开数据表
  ADOTable1.TableName := 'YourTableName';
  ADOTable1.Active := True;

  // 加载数据到ListView控件
  LoadDataToListView;

  // 关闭数据表
  ADOTable1.Active := False;

  // 断开数据库连接
  ADOConnection1.Connected := False;
end;

procedure TForm1.LoadDataToListView;
var
  ListItem: TListItem;
  FieldValue: string;
  i: Integer;
begin
  // 清空ListView控件
  ListView1.Clear;

  // 遍历数据表中的记录
  ADOTable1.First;
  while not ADOTable1.Eof do
  begin
    // 创建一个新的ListView项
    ListItem := ListView1.Items.Add;

    // 设置每列的数据
    for i := 0 to ListView1.Columns.Count - 1 do
    begin
      FieldValue := ADOTable1.FieldByName(ListView1.Columns[i].Caption).AsString;
      ListItem.SubItems.Add(FieldValue);
    end;

    // 移动到下一条记录
    ADOTable1.Next;
  end;
end;

end.

在这个示例中，我们使用了TListView、TADOConnection和TADOTable组件来实现数据加载功能。在FormCreate事件中，我们设置ADOConnection组件的ConnectionString属性为Access数据库的路径，设置ADOTable组件的TableName属性为要加载数据的表名称，并调用LoadDataToListView方法将数据加载到ListView控件中。

请确保根据您的实际情况修改连接字符串和表名称，并在设计时添加TListView、TADOConnection和TADOTable组件。

希望这段代码能满足您的需求！如有任何问题，请随时提问。