DBExpress組件連接遠程Mysql數據庫

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;

procedureButton1Click(Sender:TObject);

procedureButtonGoClick(Sender:TObject);

procedureFormClose(Sender:TObject;varAction:TCloseAction);

private

{Privatedeclarations}

public

{Publicdeclarations}

end;

var

Form1:TForm1;

implementation

{$R*.dfm}

procedureTForm1.Button1Click(Sender:TObject);

begin

withSQLConnectiondo

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:=”ConnectOK”;

ButtonGo.Enabled:=True;

except

MessageDlg(”ConnectError”,mtError,[mbyes],0);

end;

end;

end;

procedureTForm1.ButtonGoClick(Sender:TObject);

begin

withSQLClientDataSetdo

begin

Close;

CommandText:=ESQL.Text;

Open;

end;

end;

procedureTForm1.FormClose(Sender: