delphi连接数据库并查询表数据到listview中显示

你可以使用 Delphi 的数据库组件来连接数据库并查询表数据，然后将查询结果显示在 ListView 控件中。以下是一个简单的示例代码：

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

procedure LoadDataToListView(ListView: TListView);
var
  Connection: TADOConnection;
  Query: TADOQuery;
  I: Integer;
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 中
        while not Query.Eof do
        begin
          with ListView.Items.Add do
          begin
            Caption := Query.FieldByName('Column1').AsString;
            SubItems.Add(Query.FieldByName('Column2').AsString);
            // 添加更多列...
          end;

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

在上面的代码中，你需要替换 `YourServer`、`YourDatabase`、`YourUsername`、`YourPassword` 和 `YourTable` 分别为你的数据库服务器、数据库名称、用户名、密码和表名。你还可以根据需要添加更多的列。

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

希望这可以帮助到你！如果你有任何进一步的问题，请随时提问。