DBExpress組件連接遠(yuǎn)程Mysql數(shù)據(jù)庫(kù)

Delphi6新增的DBExpress專門用來對(duì)付MySQL,DB2，Interbase,Oracle等數(shù)據(jù)庫(kù)，使用時(shí)注意將libmysql.dll
    拷貝到當(dāng)前目錄或系統(tǒng)目錄(98:system,NT:system32)下，并保證您的3306端口與遠(yuǎn)程服務(wù)器是相通的。
    源程序：
    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.