Delphi中使用DBExpress组件连接远程Mysql数据库

Delphi中使用DBExpress组件连接远程Mysql数据库2011-04-23Delphi6新增的DBExpress专门用来对付MySQL,DB2，Interbase,Oracle等数据库，使用时注意将libmysql.dll拷贝到当前目录或系统目录（98:system,NT:system32）下，并保证您的 3306端口与远程服务器是相通的。

源程序：

interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBXpress, DB, SqlExpr, StdCtrls, ComCtrls, FMTBcd, Grids,
DBGrids, Provider, DBClient, DBLocal, DBLocalS, DBTables;
type
TForm1 = class（TForm）
SQLConnection: TSQLConnection;
StatusBar1: TStatusBar;
Label1: TLabel;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
GrouPBox1: TGroupBox;
Label2: TLabel;
Password: TEdit;
User_Name: TEdit;
HostName: TEdit;
Label3: TLabel;
Label4: TLabel;
Button1: TButton;
GroupBox2: TGroupBox;
Label5: TLabel;
ESQL: TEdit;
Label6: TLabel;
Database: TEdit;
ButtonGo: TButton;
SQLClientDataSet: TSQLClientDataSet;
procedure Button1Click（Sender: TObject）;
procedure ButtonGoClick（Sender: TObject）;
procedure FormClose（Sender: TObject; var Action: TCloseAction）;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click（Sender: TObject）;
begin
with SQLConnection do
begin
Close;
Params.Values["HostName"]:=HostName.Text;
Params.Values["UserName"]:=User_Name.Text;
Params.Values["Password"]:=Password.Text;
Params.Values["Database"]:=Database.Text;
try
Connected:=True;
Statusbar1.Panels[0].Text:="Connect OK";
ButtonGo.Enabled:=True;
except
MessageDlg（"Connect Error",mtError,[mbyes],0）;
end;
end;
end;
procedure TForm1.ButtonGoClick（Sender: TObject）;
begin
with SQLClientDataSet do
begin
Close;
CommandText:=ESQL.Text;
Open;
end;
end;
procedure TForm1.FormClose（Sender: TObject; var Action: TCloseAction）;
begin
SQLConnection.Close;
end;
end.