Delphi XE使用SQLite3

用Delphi开发小程序，之前使用过Access数据库，但是由于Access依赖于office，感觉有些不太方便，研究一下Delphi使用SQLite3。

SQLite是一款轻型的数据库，是遵守ACID的关系型数据库管理系统，它包含在一个相对小的C库中。

SQLite下载

官网下载页面 https://www.sqlite.org/download.html

找到下图内容，根据自己的开发环境选择下载32位的dll还是64位的dll，tools是一个能连接SQLite3的工具。

Delphi简单操作SQLite

用tools创建了一个数据库EtTest.db，里面一张表User(两个字段Id和name)，发在E盘根目录。

0. 将dll放入程序对应目录下，dll版本一定要和开发环境相对应。
   
1. 选择两个控件TSQLConnection和TSQLQuery。
2. 配置TSQLConnection
   （1）放入TSQLConnection控件，Name为SQLConnection1。
   （2）设置SQLConnection1.ConnectionName为SQLITECONNECTION。
   （3）设置SQLConnection1.Driver为Sqlite
   
   （4）设置SQLConnection1.Params中的Database为E:\EtTest.db（按照你的实际情况）点【OK】
   
3. 配置TSQLQuery, 放入TSQLQuery控件，Name为SQLQuery1。
   SQLQuery1.SQLConnection选择SQLConnection1。
4. 两个简单操作，添加和查询
   
   （1）查询

   procedure TForm1.SearchClick(Sender: TObject);
   begin
       SQLConnection1.Connected := True;
       SQLQuery1.Close;
       SQLQuery1.SQL.Clear;
       SQLQuery1.SQL.Add('select id,name from user;');
       SQLQuery1.Open;
       while Not SQLQuery1.Eof do
       begin
           Memo1.Lines.Add(SQLQuery1.FieldByName('id').AsString + '  ' + SQLQuery1.FieldByName('name').AsString) ;
   SQLQuery1.Next;
       end;
   end;

   （2）添加

procedure TForm1.AddClick(Sender: TObject);
begin
  SQLConnection1.Connected := True;
  SQLQuery1.Close;

  SQLQuery1.SQL.Clear;
  SQLQuery1.SQL.Add('insert into user(name) values(' + QuotedStr('李四')+ ');');
  SQLQuery1.ExecSQL;
end;