delphi7 mysql控件_Delphi7连接MySql数据库-DBGrid控件显示数据

一个简单的Delphi7小程序，使用MySql数据库做简单查询，用DBGrid控件显示结果，实现过程如下：

(1)在MySql中新建demouser表，插入记录用于测试。

(2)在Delphi7中新建项目。

(3)在From中添加组件。

组件Panel：pnl1

组件属性-属性值：

Caption-请输入工号：

组件Edit：edt1

组件Button：btn1

组件属性-属性值：

Caption-查询

组件ADOQuery：qry1

组件属性-属性值：

Active-True　　//设置SQL属性后取得表中数据，绑定的显示控件上可以实时出现数据

ConnectionString-Provider=MSDASQL.1;Persist Security Info=False;Data Source=MySqlOdbcU　　//ODBC方式连接MySql，参考：http://blog.csdn.net/akof1314/article/details/6822902

SQL-SELECT * FROM DEMOUSER;

组件DataSource：ds1

组件属性-属性值：

DataSet-qry1　　//绑定数据集ADOQuery

组件DBGrid：dbgrd1　　//认的情况下，dbgrid的数据修改就和打开数据库直接修改一样，修改完自动保存，除非修改了readonly(只读) enable(可选中)这些属性的默认值或者单独修改了字段的这两个属性

组件属性-属性值：

DataSource-ds1　　//绑定数据源DataSource

Enabled-True　　　 //可选中？

ReadOnly-True　　 //只读？

(4)在代码编辑窗口中增加代码。

unitDataInMysql;interface

usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, DB, ADODB,ComObj, Grids, DBGrids, ExtCtrls;typeTForm1= class(TForm)

qry1: TADOQuery;

ds1: TDataSource;

btn1: TButton;

dbgrd1: TDBGrid;

pnl1: TPanel;

edt1: TEdit;procedurebtn1Click(Sender: TObject);private

{Private declarations}

public

{Public declarations}

end;varForm1: TForm1;implementation

usesUserMessage;{$R *.dfm}

procedureTForm1.btn1Click(Sender: TObject);vars:string;begins:='SELECT * FROM DEMOUSER where 1=1';if edt1.Text<>'' then

begins:=s+'and id='+edt1.Text;end;with qry1 do

beginClose;

SQL.Clear;

SQL.Add(s);

Open;end;end;end.

(5)运行项目，保存文件。

效果如下：

注意：选择【Project | View Source】，可以创建一个缺省的Delphi项目文件的源代码(.DPR)，修改后双击它打开对应的项目，避免点击启动时总是启动其他项目。

programProject3;usesForms,

DataInMysqlin 'DataInMysql.pas' {Form1}; //改这儿{$R *.res}

beginApplication.Initialize;

Application.CreateForm(TForm1, Form1);

Application.Run;end.