DBExpress组件连接远程Mysql数据库

6 Delphi6的新DBExpress专门用来处理MySQL、DB2、Interbase、Oracle等数据库。使用时，注意libmysql.dll

复制到当前目录或系统目录(98:system，NT:system32)，并确保您的端口3306连接到远程服务器。

源程序:
接口

使用

窗口、消息、系统、变量、类、图形、控件、表单，

对话框，DBXpress，DB，SqlExpr，StdCtrls，ComCtrls，FMTBcd，网格，

DBGrids、Provider、DBClient、DBLocal、DBLocalS、DBTables

类型

TForm1 =类(TForm)

SQLConnection:tsql connection；

status bar 1:TStatusBar；

label 1:t label；

data source 1:tdata source；

dbgrid 1:TDBGrid；

group box 1:TGroupBox；

label 2:t label；

密码:TEdit

用户名:TEdit

主机名:TEdit

label 3:t label；

label 4:t label；

button 1:t button；

group box 2:TGroupBox；

label 5:TLabel；

ESQL:TEdit；

label 6:TLabel；

数据库:TEdit

button go:TButton；

SQLClientDataSet:TSQLClientDataSet；

过程按钮1Click(发送方:to object)；

过程按钮GoClick(发送方:to object)；

过程表单关闭(发送方:TObjectvar Action:TCloseAction)；

私人的

{私人声明}

公众的

{公开声明}

结束；

定义变量

form 1:t form 1；

履行

{$R *。dfm}

程序TForm1。Button1Click(发件人:to object)；

开始

用SQLConnection做

开始

关闭；

参数。值[' HostName ']:=主机名。文本；

参数。值['用户名']:=用户名。文本；

参数。值[' Password ']:=密码。文本；

参数。值[' Database ']:=数据库。文本；

尝试

连通:=真；

Statusbar1。面板[0]。Text:= '连接正常'；

ButtonGo。enabled:= True；

除...之外

MessageDlg('连接错误'，mtError，[mbyes]，0)；

结束；

结束；

结束；

程序TForm1。ButtonGoClick(发送方:to object)；

开始

用SQLClientDataSet做

开始

关闭；

命令文本:=ESQL。文本；

开放；

结束；

结束；

程序TForm1。FormClose(发件人:TObjectvar Action:TCloseAction)；

开始

SQLConnection。关闭；

结束；

结束。