日本综合一区二区|亚洲中文天堂综合|日韩欧美自拍一区|男女精品天堂一区|欧美自拍第6页亚洲成人精品一区|亚洲黄色天堂一区二区成人|超碰91偷拍第一页|日韩av夜夜嗨中文字幕|久久蜜综合视频官网|精美人妻一区二区三区

本文的內(nèi)容包括：

（1）一個實現(xiàn)了加密解密功能的SQLite3 dll

（2）純Delphi代碼連接SQLite數(shù)據(jù)庫

（3）改進后的純代碼連接SQLite數(shù)據(jù)庫，同時實現(xiàn)了數(shù)據(jù)庫的加密解密

（1）關(guān)于SQLite數(shù)據(jù)庫的C++加密實現(xiàn)：

SQLite 數(shù)據(jù)庫加密的一種解決方案：

http://blog.csdn.net/benny5609/archive/2008/03/17/2192786.aspx

sqlite3.dll(404kb)

（2）一個純Delphi代碼封裝的SQLite簡單實現(xiàn)：

 http://www.itwriting.com/sqlitesimple.php

感謝以上的作者，我在這里提供的只是對上面二個進行了一些修改和整合，實現(xiàn)了純Delphi代碼連結(jié)Sqlite數(shù)據(jù)庫，并支持?jǐn)?shù)據(jù)庫的加密和解決，所有修改的地方已經(jīng)在Delphi源程序中的進行標(biāo)注，附件中的源碼是基于D2009版的，如果你用的是其它版本的Delphi，只需要在工程中加入 SQLite3.pas 和 SQLiteTable3.pas（這二個文件就是純Delphi代碼封裝的SQLite實現(xiàn)），而SQLite3.dll是實現(xiàn)了加密解密重新編譯過的，所以這三個文件要同時加入工程（sqlite3.dll只需要放到工程目錄下即可）。

下面簡單介紹一下這個工具的使用方法：

uses SQLiteTable3;

（1）創(chuàng)建數(shù)據(jù)庫

 
 
 

  
  
  
var 
  
  
  
  sql:string; 
  
  
  
  db:TSQLiteDatabase; 
  
  
  
try 
  
  
  
  if FileExists('test.db') then DeleteFile('test.db'); 
  
  
  
  //連接數(shù)據(jù)庫，如果數(shù)據(jù)庫文件不存在會自動創(chuàng)建 
  
  
  
  db:=TSQLiteDatabase.Create('test.db','dbpassword');//使用密碼創(chuàng)建數(shù)據(jù)庫   
  
  
  
  //db:=TSQLiteDatabase.Create('test.db',Nil);//無密碼創(chuàng)建數(shù)據(jù)庫 
  
  
  
  //創(chuàng)建USER表 
  
  
  
  sql:='CREATE TABLE USER(ID integer PRIMARY KEY AUTOINCREMENT NOT NULL,NAME VARCHAR(50),HOMEPAGE VARCHAR(255))'; 
  
  
  
  db.ExecSQL(sql); 
  
  
  
  //插入一條測試數(shù)據(jù) 
  
  
  
  sql:='INSERT INTO USER VALUES(NULL,"ekinglong","http://www.blogjava.net/ekinglong")'; 
  
  
  
  db.ExecSQL(sql); 
  
  
  
finally 
  
  
  
  db.Free; 
  
  
  
end; 
 
 
 

（2）查詢數(shù)據(jù)

 
 
 

  
  
   
var 
  sql:string; 
  db:TSQLiteDatabase; 
  tbl:TSQLiteTable; 
  name:string; 
  homepage:string;begintry 
  db:=TSQLiteDatabase.Create('test.db','dbpassword'); 
  sql:='SELECT * FROM USER LIMIT 1'; 
  tbl:=db.GetTable(sql); 
  if tbl.RowCount>0 then 
  begin 
    name:=tbl.FieldAsString(tbl.FieldIndex['NAME']); 
    homepage:=tbl.FieldAsString(tbl.FieldIndex['HOMEPAGE']); 
    ShowMessage('Name:'+name+#13+'HomePage:'+homepage); 
  end; 
finally 
  tbl.Free; 
  db.Free; 
end;
 
 
 

當(dāng)前名稱：Delphi純代碼連SQLite數(shù)據(jù)庫，同時支持?jǐn)?shù)據(jù)庫的加密解密
網(wǎng)頁地址：http://www.dlmjj.cn/article/dhheoeo.html