示例项目part1, Part2

1]相关控件添加
2]SQLit数据库连接
3]查询,返回单条数据
4]查询,返回多条数据
5]插入单条数据

1]相关控件添加

放一个FDConnection1和FDQuery1到界面上

放一个  FDPhysSQLiteDriverLink1到ServerModule上  

uses FireDAC.Phys.SQLite 单元之后, 可不用添加 FDPhysSQLiteDriverLink1 

2]SQLit数据库连接 

在OnFormCreate事件里写

FDQuery1.Connection := FDConnection1;
FDConnection1.LoginPrompt:=false; //取消登录提示框
FDConnection1.Open('DriverID=SQLite;Database=test1.Sqlite3');
//test1.Sqlite数据库要与E:\UniGui_Learn\04OnLineIditom\Win32\Debug\Project1.exe位置一致

3]查询,返回单条数据

FDQuery1.Open('select id,info from atb where id = 11111 ' );
unimemo1.Text:= FDQuery1.fieldbyname('info').asstring;

4]查询,返回多条数据

FDQuery1.Open(‘select  id,name,info from atb  where 1=1’);

//FDQuery1.First; //
while not FDQuery1.eof do begin
     unilistbox1.Items.Add( FDQuery1.fieldbyname('name').asstring);
     FDQuery1.next;
end;

5]插入单条数据

复制代码
var xzxx:string; maxId:integer;
begin
  FDQuery1.Open('select max(id) as maxId from atb; ');
  maxId:=  FDQuery1.fieldbyname('maxId').AsInteger+1;{当数据为空里，maxId为null, 要将 ID设为 AUTOINCREMENT}

    xzxx := stringreplace(uniMemo2.Text, '''', '''''', [rfReplaceAll]); //将 (')-> ('')
    xzxx := stringreplace(xzxx, #13#10, 'Z~z~', [rfReplaceAll]); //将 (^p)-> (Z~z~)
    xzxx := 'insert into atb values('
      + IntToStr(maxId)
      + ',''' + StringReplace(uniedit2.Text, '''', '''''', [rfReplaceAll])
      + ''',''' + xzxx + ''')';

   FDQuery1.ExecSQL(xzxx);

    Caption:=  IntToStr(maxId)+'插入新记录  成功！' ;
end;
复制代码

1]不能有英文的感叹号!

2]{当数据为空里，maxId为null, 要将 ID设为 [Id] INTEGER PRIMARY KEY  AUTOINCREMENT,  -- 自增}  

 INSERT INTO ToDoListTable VALUES(null, 'aaa',0)//自增列 值 为null

总是说我字少总是说我字少总是说我字少总是说我字少总是说我字少总是说我字少总是说我字少总是说我字少总是说我字少总是说我