RSS订阅 | 匿名投稿
您的位置:网站首页 > 数据库 > 正文

Delphi SQLite实现加密

作者:admin 来源: 日期:2015/4/11 16:38:47 人气: 标签:

SQLite3 4 Delphi:Delphi中操作SQLite库。项目主页:http://code.google.com/p/sv-utils/最新库下载:http://sv-utils.googlecode.com/files/SQLite3_4_Delphi_RC2.zip

wxsqlite:这是wxWidgets组件之一,我们用它来实现加密。下载地址: http://jaist.dl.sourceforge.net/project/wxcode/Components/wxSQLite3/wxsqlite3-3.0.3.zip


下载完上述两个文件后,分别取两个文件中的部分文件:

1,SQLite3 4 Delphi:取“SQLite\sv-utils\SQLite3\Source”目录下3个文件:“SQLite3.pas”、“SQLiteTable3.pas”、“sv.inc”,放到工程里,并     把“SQLite3.pas”、“SQLiteTable3.pas”这两个文件添加到工程里,在使用地方引入这两个单元。

2,wxsqlite:取“wxsqlite3-3.0.3\sqlite3\secure\aes128\dll\release”下的“sqlite3.dll”,放到程序运行目录中。


上面文件准备完毕后,就已经完成对数据库加密需要的全部文件了。



演示代码:


unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm2 = class(TForm)
    logMemo: TMemo;
    clearLogBtn: TButton;
    Button2: TButton;
    dbNameEdt: TEdit;
    Label1: TLabel;
    passwordEdt: TEdit;
    Label2: TLabel;
    createTableBtn: TButton;
    insertDataBtn: TButton;
    deleteDataBtn: TButton;
    selectDataBtn: TButton;
    procedure clearLogBtnClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure createTableBtnClick(Sender: TObject);
    procedure insertDataBtnClick(Sender: TObject);
    procedure selectDataBtnClick(Sender: TObject);
    procedure deleteDataBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure MyLog(tempLog: string); // log方法
  end;

var
  Form2: TForm2;

  logInfo: string; // log信息

implementation

{$R *.dfm}

uses SQLite3, SQLiteTable3;

procedure TForm2.Button2Click(Sender: TObject);
var
  sldb: TSQLiteDatabase;
  sltb: TSQLiteTable;
  sSQL: String;
  dbName: string; // 数据库名
  password: string; // 密码
begin

  dbName := trim(dbNameEdt.Text);
  password := trim(passwordEdt.Text);

  try
    sltb := nil;
    sldb := TSQLiteDatabase.Create(dbName, seUTF8, password);
    sldb.ChangePassword(password);

    MyLog('加密数据库创建完毕:数据库 = ' + dbName + ' ; 密码 = ' + password);

  finally
    sldb.Free;
    if sltb <> nil then
    begin
      sltb.Free;
    end;
  end;

end;

procedure TForm2.clearLogBtnClick(Sender: TObject);
begin
  logMemo.Clear;
end;

// 创建表
procedure TForm2.createTableBtnClick(Sender: TObject);
var
  sldb: TSQLiteDatabase;
  sltb: TSQLiteTable;
  sSQL: String;
  dbName: string; // 数据库名
  password: string; // 密码
begin

  dbName := trim(dbNameEdt.Text);
  password := trim(passwordEdt.Text);

  try
    sltb := nil;
    sldb := TSQLiteDatabase.Create(dbName, seUTF8, password);
    sldb.ChangePassword(password);

    sSQL := 'CREATE TABLE IF NOT EXISTS [test] (';
    sSQL := sSQL + '[a] VARCHAR(100)  NULL,';
    sSQL := sSQL + '[b] VARCHAR(100)  NULL';
    sSQL := sSQL + ')';

    sldb.ExecSQL(sSQL);

    MyLog('创建表: test');

  finally
    sldb.Free;
    if sltb <> nil then
    begin
      sltb.Free;
    end;
  end;
end;

procedure TForm2.deleteDataBtnClick(Sender: TObject);
var
  sldb: TSQLiteDatabase;
  sltb: TSQLiteTable;
  sSQL: String;
  dbName: string; // 数据库名
  password: string; // 密码
begin

  dbName := trim(dbNameEdt.Text);
  password := trim(passwordEdt.Text);

  try
    sltb := nil;
    sldb := TSQLiteDatabase.Create(dbName, seUTF8, password);
    sldb.ChangePassword(password);

    sSQL := 'DELETE FROM [test] ';
    sldb.ExecSQL(sSQL);

    MyLog('删除数据完毕 ');

  finally
    sldb.Free;
    if sltb <> nil then
    begin
      sltb.Free;
    end;
  end;
end;

// 添加数据
procedure TForm2.insertDataBtnClick(Sender: TObject);
var
  sldb: TSQLiteDatabase;
  sltb: TSQLiteTable;
  sSQL: String;
  dbName: string; // 数据库名
  password: string; // 密码
  i: integer;
  maxCount: integer; // 添加数据最大数量
begin

  dbName := trim(dbNameEdt.Text);
  password := trim(passwordEdt.Text);

  try
    sltb := nil;
    sldb := TSQLiteDatabase.Create(dbName, seUTF8, password);
    sldb.ChangePassword(password);

    maxCount := 9;

    for i := 0 to maxCount do
    begin
      sSQL := 'INSERT INTO [test] VALUES (';
      sSQL := sSQL + QuotedStr('a' + inttostr(i)) + ',';
      sSQL := sSQL + QuotedStr('b' + inttostr(i));
      sSQL := sSQL + ')';

      sldb.ExecSQL(sSQL);
    end;

    MyLog('共添加: ' + inttostr(maxCount + 1) + ' 条数据');

  finally
    sldb.Free;
    if sltb <> nil then
    begin
      sltb.Free;
    end;
  end;
end;

// log方法
procedure TForm2.MyLog(tempLog: string);
var
  temp: string;
  oldLog: string;
begin
  if trim(tempLog) <> '' then
  begin

    oldLog := trim(logMemo.Text);
    logMemo.Clear;

    temp := FormatDateTime('yyyy-mm-dd hh:mm:ss', now) + ' ' + trim(tempLog);
    if oldLog = '' then
    begin
      logMemo.Lines.Add(temp);
      logMemo.Lines.Add('');
    end
    else
    begin
      logMemo.Lines.Add(temp);
      logMemo.Lines.Add('');
      logMemo.Lines.Add(oldLog);
    end;

  end;

end;

procedure TForm2.selectDataBtnClick(Sender: TObject);
var
  sldb: TSQLiteDatabase;
  sltb: TSQLiteTable;
  sSQL: String;
  dbName: string; // 数据库名
  password: string; // 密码
  totalCount: integer;
  temp: string;
begin

  dbName := trim(dbNameEdt.Text);
  password := trim(passwordEdt.Text);

  try
    sltb := nil;
    sldb := TSQLiteDatabase.Create(dbName, seUTF8, password);
    sldb.ChangePassword(password);

    sSQL := 'SELECT * FROM [test] ';
    sltb := sldb.GetTable(sSQL);

    // 1,显示总数据条数

    totalCount := 0;
    if not sltb.EOF then
    begin
      totalCount := sltb.Count;
    end;

    MyLog('共: ' + inttostr(totalCount) + ' 条数据');

    // 2,显示详细信息

    temp := '';

    while not sltb.EOF do
    begin

      if temp = '' then
      begin
        temp := #13#10 + sltb.FieldValByNameAsString['a'] + ' ; ' +
          sltb.FieldValByNameAsString['b'] + #13#10;
      end
      else
      begin
        temp := temp + sltb.FieldValByNameAsString['a'] + ' ; ' +
          sltb.FieldValByNameAsString['b'] + #13#10;
      end;

      sltb.Next;
    end;

    if temp <> '' then
    begin
      MyLog('详细数据:' + #13#10 + temp);
    end;

  finally
    sldb.Free;
    if sltb <> nil then
    begin
      sltb.Free;
    end;
  end;
end;

end.
读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料