Delphi6的DBExpress連接Mysql數(shù)據(jù)庫

新增的DBExpress專門用來對付MySQL,DB2，Interbase,Oracle等數(shù)據(jù)庫，使用時注意將libmysql.dll
    拷貝到當前目錄或系統(tǒng)目錄(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.