用Delphi开发小程序，之前使用过Access数据库，但是由于Access依赖于office，感觉有些不太方便，研究一下Delphi使用SQLite3。
SQLite是一款轻型的数据库，是遵守ACID的关系型数据库管理系统，它包含在一个相对小的C库中。
SQLite下载
找到下图内容，根据自己的开发环境选择下载32位的dll还是64位的dll，tools是一个能连接SQLite3的工具。
Delphi简单操作SQLite
将dll放入程序对应目录下，dll版本一定要和开发环境相对应。
选择两个控件TFDConnection和TFDQuery， Name分别为FDConnection1和FDQuery1。 FDQuery1.SQLConnection选择FDConnection1。
简单操作，创建连接数据库，创建表，添加数据和查询数据
(1)创建连接数据库，数据库文件没有会自动创建
procedure TForm1.CreateDBClick(Sender: TObject);
begin
FDConnection1.DriverName := 'SQLite';
FDConnection1.Params.Add('DriverID=SQLite') ;
FDConnection1.Params.Add('Database=E:\sqlite1.db') ;
FDConnection1.Connected := True;
end;
(2)创建表
procedure TForm1.CreateTableClick(Sender: TObject);
begin
FDConnection1.Connected := True;
FDQuery1.Close;
FDQuery1.SQL.Clear;
FDQuery1.SQL.Add('create table user( id INTEGER primary key autoincrement , ' +
' name varchar(255) not null , age INTEGER);');
FDQuery1.ExecSQL;
end;
(3)添加数据
procedure TForm1.AddClick(Sender: TObject);
begin
FDConnection1.Connected := True;
FDQuery1.Close;
FDQuery1.SQL.Clear;
FDQuery1.SQL.Add('insert into user(name,age) values(' + QuotedStr('李四')+ ',15);');
FDQuery1.ExecSQL;
end;
(4)查询数据
procedure TForm1.SearchClick(Sender: TObject);
begin
FDConnection1.Connected := True;
FDQuery1.Close;
FDQuery1.SQL.Clear;
FDQuery1.SQL.Add('select id,name,age from user;');
FDQuery1.Open;
while Not FDQuery1.Eof do
begin
Memo1.Lines.Add(FDQuery1.FieldByName('id').AsString + ' ' + FDQuery1.FieldByName('name').AsString +
' ' + FDQuery1.FieldByName('age').AsString ) ;
FDQuery1.Next;
end;
end;
问题：XE8执行FDQuery1.ExecSQL报Object factory for class{xx-xx-xx-xx-xx} is missing. To register it。
解决方法：添加TFDGUIxWaitCursor控件
