使用Delphi6的DBExpress组件连接远程的Mysql数据库

　　Delphi6新增的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.