delphi连接数据库并查询表数据对应到listview设置好的列中显示

在 Delphi 中，ListView 控件没有直接支持多列数据绑定的功能。但是，你可以通过手动设置 ListView 的列来显示查询结果。

以下是一个示例代码，演示如何连接数据库并查询表数据，将查询结果对应到 ListView 设置好的列中显示：

uses
  Data.DB, Data.Win.ADODB, Vcl.ComCtrls;

procedure LoadDataToListView(ListView: TListView);
var
  Connection: TADOConnection;
  Query: TADOQuery;
  I: Integer;
  ListItem: TListItem;
begin
  ListView.Items.Clear;

  // 创建数据库连接组件
  Connection := TADOConnection.Create(nil);
  try
    Connection.ConnectionString := 'Provider=SQLOLEDB;Data Source=YourServer;Initial Catalog=YourDatabase;User ID=YourUsername;Password=YourPassword';
    Connection.Open;

    // 创建查询组件
    Query := TADOQuery.Create(nil);
    try
      Query.Connection := Connection;
      Query.SQL.Text := 'SELECT * FROM YourTable';

      // 执行查询
      Query.Open;
      try
        // 设置 ListView 的列
        ListView.Columns.Clear;
        ListView.Columns.Add.Caption := 'Column1';
        ListView.Columns.Add.Caption := 'Column2';
        // 添加更多列...

        // 将查询结果添加到 ListView 中
        while not Query.Eof do
        begin
          ListItem := ListView.Items.Add;
          ListItem.Caption := Query.FieldByName('Column1').AsString;
          ListItem.SubItems.Add(Query.FieldByName('Column2').AsString);
          // 添加更多列...

          Query.Next;
        end;
      finally
        Query.Close;
      end;
    finally
      Query.Free;
    end;
  finally
    Connection.Free;
  end;
end;

在上面的代码中，你需要替换 `YourServer`、`YourDatabase`、`YourUsername`、`YourPassword` 和 `YourTable` 分别为你的数据库服务器、数据库名称、用户名、密码和表名。同时，你需要根据需要设置 ListView 的列数量，并在 `ListView.Columns.Add.Caption` 中设置列的标题。

调用 `LoadDataToListView` 函数并传入要显示数据的 ListView 控件，即可将数据库表中的数据加载到 ListView 中对应的列中。

希望这次的回答对你有所帮助！如果你还有其他问题，请随时提问。