Delphi纯代码连SQLite数据库，同时支持数据库的加密解密

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;