一個簡單的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.

總結

以上是生活随笔為你收集整理的delphi7 mysql控件_Delphi7连接MySql数据库-DBGrid控件显示数据的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。