UniGUI的SQLite数据库(04)

897 0 0

作者:涂磊的小作，请赐教

1]放FDConnection1和FDQuery1到界面上

2]在OnFormCreate事件里写

FDQuery1.Connection := FDConnection1;
FDConnection1.LoginPrompt:=false; //取消登录提示框
FDConnection1.Open('DriverID=SQLite;Database=test1.Sqlite3');//test1.Sqlite数据库要与E:UniGui_Learn4OnLineIditomWin32DebugProject1.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’);//只读取第一个
unilistbox1.Items.Add( FDQuery1.fieldbyname('name').asstring);
unimemo1.Text:= FDQuery1.fieldbyname('info').asstring;

FDQuery1.next; //第二个到最后一个
while not FDQuery1.eof do begin
unilistbox1.Items.Add( FDQuery1.fieldbyname('name').asstring);
FDQuery1.next;
end;

----------------插入数据------

var xzxx:string; maxId:integer;
begin
  FDQuery1.Open('select max(id) as maxId from atb; ');
  maxId:=  FDQuery1.fieldbyname('maxId').AsInteger+1;

    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;

//好像不能有英文的感叹号!

内容来源于网络如有侵权请私信删除

文章来源: 博客园

原文链接: https://www.cnblogs.com/tulater/p/12247984.html

标签： R语言 Delphi erlang verilog dart

你还没有登录，请先登录或注册！

还没有人评论，欢迎说说您的想法！

UniGUI的SQLite数据库(04)