简洁网站设计,网站搭建公司案例网址,没有域名怎么访问网站,池州北京网站建设//摘自#xff1a;http://bbs.witbase.com/thread-1141-1-1.html Delphi纯代码连SQLite数据库#xff0c;同时支持数据库的加密解密 Delphi纯代码连SQLite数据库#xff0c;同时支持数据库的加密解密本文的内容包括#xff1a;#xff08;1#xff09;一个实现了加密解密… //摘自http://bbs.witbase.com/thread-1141-1-1.html Delphi纯代码连SQLite数据库同时支持数据库的加密解密 Delphi纯代码连SQLite数据库同时支持数据库的加密解密本文的内容包括1一个实现了加密解密功能的SQLite3 dll2纯Delphi代码连接SQLite数据库3改进后的纯代码连接SQLite数据库同时实现了数据库的加密解密1关于SQLite数据库的C加密实现 SQLite 数据库加密的一种解决方案 http://blog.csdn.net/benny5609/archive/2008/03/17/2192786.aspx sqlite3.dll(404kb)2一个纯Delphi代码封装的SQLite简单实现 http://www.itwriting.com/sqlitesimple.php感谢以上的作者我在这里提供的只是对上面二个进行了一些修改和整合实现了纯Delphi代码连结Sqlite数据库并支持数据库的加密和解决所有修改的地方已经在Delphi源程序中的进行标注附件中的源码是基于D2009版的如果你用的是其它版本的Delphi只需要在工程中加入 SQLite3.pas 和 SQLiteTable3.pas这二个文件就是纯Delphi代码封装的SQLite实现而SQLite3.dll是实现了加密解密重新编译过的所以这三个文件要同时加入工程sqlite3.dll只需要放到工程目录下即可。下面简单介绍一下这个工具的使用方法uses SQLiteTable3;1创建数据库 var sql:string; db:TSQLiteDatabase;tryif FileExists(test.db) then DeleteFile(test.db);//连接数据库如果数据库文件不存在会自动创建 db:TSQLiteDatabase.Create(test.db,dbpassword);//使用密码创建数据库//db:TSQLiteDatabase.Create(test.db,Nil);//无密码创建数据库//创建USER表 sql:CREATE TABLE USER(ID integer PRIMARY KEY AUTOINCREMENT NOT NULL,NAME VARCHAR(50),HOMEPAGE VARCHAR(255)); db.ExecSQL(sql);//插入一条测试数据 sql:INSERT INTO USER VALUES(NULL,ekinglong,http://www.blogjava.net/ekinglong); db.ExecSQL(sql);finally db.Free;end; 2查询数据 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.RowCount0 thenbegin name:tbl.FieldAsString(tbl.FieldIndex[NAME]); homepage:tbl.FieldAsString(tbl.FieldIndex[HOMEPAGE]); ShowMessage(Name:name#13HomePage:homepage);end;finally tbl.Free; db.Free;end; 转载于:https://www.cnblogs.com/xunxun/archive/2011/03/03/1969682.html
