UniGUI的SQLite数据库(04)

Posted 2021-03-13 涂磊的小作，请赐教

---

1]放FDConnection1和FDQuery1到界面上

 一定要 放一个  FDPhysSQLiteDriverLink1到ServerModule上 

---

2]在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