delphi查询数据库

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.Grids, Vcl.DBGrids, ADODB;

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  // 设置数据库连接字符串
  ADOConnection1.ConnectionString := 'Provider=SQLOLEDB;Data Source=your_server;Initial Catalog=your_database;User ID=your_username;Password=your_password;';
  ADOConnection1.Connected := True;

  // 设置查询语句
  ADOQuery1.Connection := ADOConnection1;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('SELECT * FROM your_table');

  // 打开查询
  ADOQuery1.Open;

  // 将数据源与 DBGrid 关联
  DataSource1.DataSet := ADOQuery1;
  DBGrid1.DataSource := DataSource1;
end;

end.