Delphi純代碼連SQLite數(shù)據(jù)庫(kù)，同時(shí)支持?jǐn)?shù)據(jù)庫(kù)的加密解密
本文的內(nèi)容包括：
（1）一個(gè)實(shí)現(xiàn)了加密解密功能的SQLite3 dll
（2）純Delphi代碼連接SQLite數(shù)據(jù)庫(kù)
（3）改進(jìn)后的純代碼連接SQLite數(shù)據(jù)庫(kù)，同時(shí)實(shí)現(xiàn)了數(shù)據(jù)庫(kù)的加密解密
（1）關(guān)于SQLite數(shù)據(jù)庫(kù)的C++加密實(shí)現(xiàn)：
SQLite 數(shù)據(jù)庫(kù)加密的一種解決方案
http://blog.csdn.net/benny5609/archive/2008/03/17/2192786.aspx
sqlite3.dll(404kb)
（2）一個(gè)純Delphi代碼封裝的SQLite簡(jiǎn)單實(shí)現(xiàn)
http://www./sqlitesimple.php
感謝以上的作者，我在這里提供的只是對(duì)上面二個(gè)進(jìn)行了一些修改和整合，實(shí)現(xiàn)了純Delphi代碼連結(jié)Sqlite數(shù)據(jù)庫(kù)，并支持?jǐn)?shù)據(jù)庫(kù)的加密和解決，所有修改的地方已經(jīng)在Delphi源程序中的進(jìn)行標(biāo)注，附件中的源碼是基于D2009版的，如果你用的是其它版本的Delphi，只需要在工程中加入 SQLite3.pas 和 SQLiteTable3.pas（這二個(gè)文件就是純Delphi代碼封裝的SQLite實(shí)現(xiàn)），而SQLite3.dll是實(shí)現(xiàn)了加密解密重新編譯過的，所以這三個(gè)文件要同時(shí)加入工程（sqlite3.dll只需要放到工程目錄下即可）。
下面簡(jiǎn)單介紹一下這個(gè)工具的使用方法：
uses SQLiteTable3;
（1）創(chuàng)建數(shù)據(jù)庫(kù)
var
sql:string;
db:TSQLiteDatabase;
try
if FileExists('test.db') then DeleteFile('test.db');
//連接數(shù)據(jù)庫(kù)，如果數(shù)據(jù)庫(kù)文件不存在會(huì)自動(dòng)創(chuàng)建
db:=TSQLiteDatabase.Create('test.db','dbpassword');//使用密碼創(chuàng)建數(shù)據(jù)庫(kù)
//db:=TSQLiteDatabase.Create('test.db',Nil);//無(wú)密碼創(chuàng)建數(shù)據(jù)庫(kù)
//創(chuàng)建USER表
sql:='CREATE TABLE USER(ID integer PRIMARY KEY AUTOINCREMENT NOT NULL,NAME VARCHAR(50),HOMEPAGE VARCHAR(255))';
db.ExecSQL(sql);
//插入一條測(cè)試數(shù)據(jù)
sql:='INSERT INTO USER VALUES(NULL,"ekinglong","http://www./ekinglong")';
db.ExecSQL(sql);
finally
db.Free;
end;
（2）查詢數(shù)據(jù)
var
sql:string;
db:TSQLiteDatabase;
tbl:TSQLiteTable;
name:string;
homepage:string;
begin
try
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;
| 
