FireDAC简易教程

FireDAC简易教程(Delphi)

 

一、VCL下的FireDAC

 

1.创建数据库连接：

新建一个VCL Forms Application工程，放置一个TFDConnection控件，设置其ConnectionDefName属性，这里选择SQLite_Demo。当Connected属性设置为True时，弹出一个登陆对话框。

 

这个Demo是没有密码的，直接点OK进入。当连接成功，Connected属性会一直为True。

2.取数据表内容：

放置一个TFDQuery控件，这个控件主要用来设置SQL命令，以操控数据。Connection属性选择FDConnection1。点击SQL属性弹出SQL命令设置窗口，写下代码获取表Orders数据：

SELECT * FROM Orders

3.显示数据表内容：

放置一个 TDataSource控件，将DataSet属性设置为TFDQuery1，再放一个TDBGrid控件，DataSource属性设置为DataSource1，最后将TFDQuery1的Active属性设置为True。数据内容就显示到TDBGrid1中了。

实际运行中，还需要添加以下两个控件：

TFDPhysMSSQLDriverLink

TFDGUIxWaitCursor

 

再复习一下，用语句建立数据连接：

1.建立VCL工程，将C:\ProgramFiles\Embarcadero\Studio\16.0\Samples\Data\fddemo.sdb数据文件拷贝到D:\目录下。如果安装目录不是上面的，自己搜索下。

 

2.放置控件：TFDConnection、TFDQuery、TDataSource、TDBGrid、FDPhysSQLiteDriverLink、

TFDGUIxWaitCursor

 

3.设置控件属性：

procedureTForm1.FormCreate(Sender: TObject);

var

  path:string;

begin

  path:= 'D:\fddemo.sdb';

  FDConnection1.Params.Database:=path;

  FDConnection1.DriverName:='SQLite';

  FDConnection1.Connected:=True;

  FDQuery1.Connection:=FDConnection1;

  FDQuery1.SQL.Add('SELECT * FROM Orders');

  DataSource1.DataSet:=FDQuery1;

  DBGrid1.DataSource:=DataSource1;

  FDQuery1.Active:=True;

end;

 

 

二、FMX下的FireDAC

 

1.建立FMX工程，将C:\ProgramFiles\Embarcadero\Studio\16.0\Samples\Data\fddemo.sdb数据文件拷贝到D:\目录下。如果安装目录不是上面的，自己搜索下。

 

2.放置控件：TFDConnection、TFDQuery、TDataSource、TStringGrid、FDPhysSQLiteDriverLink、

TFDGUIxWaitCursor

 

3.选择StringGrid1，建立LiveBindings连接。会自动添加两个控件：TbindSourceDB、TbindingsList。

 

4.设置控件属性：

procedureTForm1.FormCreate(Sender: TObject);

var

  path:string;

begin

  path:= 'D:\fddemo.sdb';

  FDConnection1.Params.Database:=path;

  FDConnection1.DriverName:='SQLite';

  FDConnection1.Connected:=True;

  FDQuery1.Connection:=FDConnection1;

  FDQuery1.SQL.Add('SELECT * FROM Orders');

  DataSource1.DataSet:=FDQuery1;

  FDQuery1.Active:=True;

end;

 

运行效果：