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.