delphi DISQLite3使用例子

unit main;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ComCtrls, StdCtrls, DB, DISQLite3DataSet, DISQLite3Database,
DISQLite3Cache, DISQLite3Api;

type
TForm5 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
ListView_keydogs: TListView;
Memo_log: TMemo;
StatusBar1: TStatusBar;
Button1: TButton;
Button2: TButton;
PopupMenu_keydog: TPopupMenu;
N3: TMenuItem;
N4: TMenuItem;
sqlite3Database1: TDISQLite3Database;
sqlite3UniDirQuery1: TDISQLite3UniDirQuery;
procedure N2Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

PTKeyDog = ^TKeyDog;

TKeyDog = record
id: Integer;
projectname: string;
city: string;
letter: string;
hash: string;
code: string;
end;

var
Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.Button2Click(Sender: TObject);
var
dbname: string;
stmt: TDISQLite3Statement;
pkeydog: PTKeyDog;
list: TList;
count: Integer;
i: Integer;
arrs: TArray<TKeyDog>;

begin
// http://www.yunqa.de/delphi/doku.php/wiki/sqlite3/sqlite3_get_table // demo  http://www.yunqa.de/delphi/doku.php/wiki/sqlite3/disqlite3_blobs_and_streams // http://www.yunqa.de/delphi/doku.php/wiki/sqlite3/index?do=index dbname := 'keydog.db';

sqlite3Database1.DatabaseName := dbname;
// sqlite3Database1.Password := 'jp123456';

if FileExists(dbname) then
begin
DeleteFile(dbname);
end;

if FileExists(dbname) = False then
begin
sqlite3Database1.CreateDatabase;
end;
sqlite3Database1.Connected := True;
sqlite3Database1.Open;
sqlite3Database1.Execute(
'CREATE TABLE IF NOT EXISTS keydog(id INTEGER PRIMARY KEY AUTOINCREMENT,projectname TEXT, city TEXT,letter TEXT,hash TEXT,code TEXT); ');

sqlite3Database1.Execute(
'INSERT INTO keydog(projectname, city,letter,hash,code) VALUES (''xx'', ''北京'', ''beijing'', ''xxxxxx'',''code''); ');

sqlite3Database1.Execute(
'INSERT INTO keydog(projectname, city,letter,hash,code) VALUES (''xx'', ''上海'', ''shanghai'', ''xxxxxx'',''code''); ');

stmt := sqlite3Database1.Prepare(
'INSERT INTO keydog(projectname, city,letter,hash,code) VALUES (?, ?, ?, ?, ? ); ');
try
stmt.Bind_Str(1, 'xxx');
stmt.Bind_Str(2, '广州');
stmt.Bind_Str(3, 'guangzhou');
stmt.Bind_Str(4, 'fuck');
stmt.Bind_Str(5, 'code');
stmt.Step;
finally
stmt.Free;
end;

stmt := sqlite3Database1.Prepare('select * from keydog;');
count := 0;
list := TList.Create;

try
while stmt.Step = SQLITE_ROW do
begin
New(pkeydog);
pkeydog.id := stmt.Column_Int64(0);
pkeydog.projectname := string(stmt.Column_Str(1));
pkeydog.city := string(stmt.Column_Str(2));
pkeydog.letter := string(stmt.Column_Str(3));
pkeydog.hash := string(stmt.Column_Str(4));
pkeydog.code := string(stmt.Column_Str(5));
list.Add(pkeydog);

Inc(count);
// ShowMessage(keydog.code);
end;
finally
stmt.Free;
end;
ShowMessage(IntToStr(count));

for i := 0 to list.count - 1 do
begin

pkeydog := list.Items[i];
ShowMessage(pkeydog.projectname+pkeydog.city+pkeydog.letter+pkeydog.hash+pkeydog.code);
Dispose(pkeydog);
end;
list.Free;

// sqlite3Database1.Open;
// sqlite3Database1.Execute('');
sqlite3Database1.Close;

end;

procedure TForm5.N2Click(Sender: TObject);
begin
Application.Terminate;
end;

end.