unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DBXpress, FMTBcd, StdCtrls, Grids, DB, SqlExpr;type TForm1 = class(TForm)  SQLConnection1: TSQLConnection;  SQLQuery1: TSQLQuery;  StringGrid1: TStringGrid;  Button1: TButton;  Button2: TButton;  Button3: TButton;  Label1: TLabel;  procedure Button1Click(Sender: TObject);  procedure Button2Click(Sender: TObject);  procedure Button3Click(Sender: TObject); private  { Private declarations } public  { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject);begin SQLConnection1 := TSQLConnection.Create(nil); SQLConnection1.DriverName := 'dbxmysql'; SQLConnection1.GetDriverFunc := 'getSQLDriverMYSQL50'; SQLConnection1.LibraryName := 'dbxopenmysql50.dll'; SQLConnection1.VendorLib := 'libmysql.dll'; SQLConnection1.LoginPrompt := false; SQLConnection1.Params.Append('Database=mysql'); SQLConnection1.Params.Append('User_Name=root'); SQLConnection1.Params.Append('Password='); SQLConnection1.Params.Append('HostName=localhost'); SQLConnection1.Open; if SQLConnection1.Connected = true then begin  SQLQuery1.SQLConnection := SQLConnection1;  Label1.Caption := 'success!'; end else  Label1.Caption := 'failed!';end; procedure TForm1.Button2Click(Sender: TObject);var i, j: Integer;begin  SQLQuery1.SQL.Clear; SQLQuery1.SQL.Add('SELECT * FROM user'); SQLQuery1.Active := true; i := 0; SQLQuery1.First; while not SQLQuery1.eof do begin  for j := 0 to SQLQuery1.FieldCount - 1 do   StringGrid1.cells[j, i] := SQLQuery1.Fields[j].AsString;  SQLQuery1.next;  inc(i); end; SQLQuery1.Active := false;end; procedure TForm1.Button3Click(Sender: TObject);begin if SQLConnection1.Connected = true then  SQLConnection1.Close; SQLConnection1.Free;end; end.