如何在delphi中设计mysql的数据连接

《如何在delphi中设计mysql的数据连接》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、如何在delphi中设计mysql的数据连接如何在delphi中设计mysql的数据连接2008-07-2110:49使用delphi连接mysql做成一个二级服务管理系统应该是中小数据管理模式的一种比较理想的应用，1.使用delphi的客户端用户界面比采用浏览器方式的界面更可以增强客户端的易用性，功能更全面，2.使用mysql的服务器端软件可以节约开支（对不能使用盗版软件而言），功能也较强大，是现在流行的数据库管理软件，会使用的人很多。由于delphi本身提供的mysql连接方式只能支持mysql3.23以下版本的mysql，故对于现在普遍使用的5.0以上的版本无法提供支持，在使用进将会得到

2、“unabletoloadlibmysql”的错误提示。对于该问题的解决有几种方式，目前我使用的是一种用dbxopenmysql50.dll替换掉delphi本身自带的dbexpmysql.dll。进行替换的两种方式１。直接将下载的dbxopenmysql50.dll改名为dbexpmysql.dll存到C:ProgramFilesBorlandDelphi7Bin，对原文件进行替换，然后在程序设计中还要修改connction下的的GetDriverFunc改为getSQLDriverMYSQL50。2.将dbxopenmysql50.dll拷贝到用户设计目录，然后在程序设计中将con

3、nection下的libraryname改为dbxopenmysql50.dll，GetDriverFunc改为getSQLDriverMYSQL50。示例程序及源代码：先在程序中添加控件simpledataset1、datasource1、dbgrid1edit1输入入主机名edit2输入端口（此外此功能无效，因为无法对端口进行更改）edit3数据库名edit4连接mysql数据库的用户名edit5连接mysql数据库的密码edit6表名设置button1的caption为退出设置button2的caption为连接设置datasource1的dataset为simpledataset1设置

4、dbgrid1的datasource为datasource1双击连接button2输入以下代码withsimpledataset1.ConnectiondobeginDriverName:='dbxmysql';GetDriverFunc:='getSQLDriverMYSQL50';LibraryName:='dbxopenmysql50.dll';VendorLib:='libmysql.dll';Params.Append('HostName=localhost');//Params.Append('HostName='+edit1.Text+':'+edit2.Text);//Para

5、ms.Append('port='+edit2.Text);Params.Append('Database='+edit3.Text);Params.Append('User_Name='+edit4.Text);Params.Append('Password='+edit5.Text);end;simpledataset1.DataSet.CommandText:='select*from'+edit6.Text;simpledataset1.Open;双击退出button1输入以下代码simpledataset1.close;close;完成后的程序代码总清单为：unitUnit1;int

6、erfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,DBXpress,FMTBcd,DB,Grids,DBGrids,SqlExpr,DBClient,SimpleDS,StdCtrls;typeTForm1=class(TForm)DBGrid1:TDBGrid;SimpleDataSet1:TSimpleDataSet;DataSource1:TDataSource;Button1:TButton;Label1:TLabel;Label2:TLabel;Label3:TLa

7、bel;Label4:TLabel;Edit1:TEdit;Edit2:TEdit;Edit3:TEdit;Edit4:TEdit;Button2:TButton;Label5:TLabel;Edit5:TEdit;Edit6:TEdit;Label6:TLabel;procedureButton1Click(Sender:TObject);procedureButton2Click(Sender