SQLite/zh CN: what changed
Revision 0 to 1. Removed lines have a minus sign; added lines have a plus sign.
Title: SQLite/zh CN
| Old | New | Line | |
|---|---|---|---|
| 1 | + | ## SQLite 和 FPC/Lazarus 支持 | |
| 2 | + | ||
| 3 | + | SQLite 是一个嵌入式的 (非服务器的) 、单用户的、可以在 FPC 和 Lazarus 应用程序中使用的数据库。许多驱动可以用于在FPC/Lazarus程序中访问SQLite数据库。 所有的驱动都需要SQLite库/dll在可执行目录(可以是你的项目目录,或者例如 (projectdir)/lib/architecture/ ,这取决于你的Lazarus项目设置)(并与你的可执行文件一起发行)以正常运作。 | |
| 4 | + | ||
| 5 | + | 这可能也需要悲包含在你的 Lazarus IDE 目录. 详见 [1](https://forum.lazarus.freepascal.org/index.php?topic=46118.msg327940#msg327940) 并继续阅读 TSQLite3Dataset 和 TSQLiteDataset See below | |
| 6 | + | ||
| 7 | + | 大多数 Linux发行版默认安装有 sqlite3 (例如 libsqlite3.so.0),但至少基于Debian的发行版也需要匹配的Dev包才能获得 libsqlite3.so。两者都应通过系统包管理器安装并标记为依赖项,而不是与应用程序一起分发。 | |
| 8 | + | ||
| 9 | + | Win64: 请看 [[Windows Programming Tips|这里]] 关于不使用某些 FPC/Lazarus Win64 版本的警告 | |
| 10 | + | ||
| 11 | + | ### 直接访问 SQLite | |
| 12 | + | ||
| 13 | + | 你可以使用一种简单的方式在 Lazarus 上连接到 SQLite。名为 LiteDAC 的组件。SQLite 数据访问组件(LiteDAC)是一个提供原生的SQLite连接的组件库,在 Windows, macOS, iOS, Android, Linux 和 FreeBSD 的32位及64位上的的Lazarus(和 Free Pascal)。LiteDAC 为编程者开发真正跨平台的桌面和移动的 SQLite 数据库应用程序而无需部署其它额外的库而设计。 | |
| 14 | + | ||
| 15 | + | 你可以在这里下载一份这个商业产品的适用版本 Lazarus components. | |
| 16 | + | ||
| 17 | + | ### 内建的 SQLDB | |
| 18 | + | ||
| 19 | + | FPC/Lazarus 提供内建的 SQLDB 组件,它提供 SQLite 数据库 ([[TSQLite3Connection]]) 从 [[Component Palette]] 的 [[SQLdb tab]],它允许你例如使用形如 [[Component Palette]] 的数据库组件来创建图形界面。使用 SQLDB 的有点是它可以很容易地更换到一个不同的数据库例如 FireBird 或 PostgreSQL,而不必太多修改你的程序。详情请见下文。 | |
| 20 | + | ||
| 21 | + | #### Spatialite support | |
| 22 | + | ||
| 23 | + | Spatialite are GIS extensions to SQLite which you can use from within SQLDB. See [[Spatialite]]. | |
| 24 | + | ||
| 25 | + | #### SQLite 加密的支持 | |
| 26 | + | ||
| 27 | + | 在近期的 FPC 版本 (从 FPC 3.0.0 开始, 在 2012年3月 实现), SQLDB 包括了对 SQLite3 的某些扩展版本的支持,这些版本使用 AES 算法加密 SQLite 数据库文件。 使用“Password”属性设置加密密钥。 | |
| 28 | + | ||
| 29 | + | 示例: | |
| 30 | + | ||
| 31 | + | - [SQLCipher](http://sqlcipher.net/): 开源, e.g. Windows 二进制文件不免费 (你必须自己编译它们) | |
| 32 | + | - [System.Data.SQLite](http://system.data.sqlite.org/): 开源, Windows (32, 64, CE) 二进制文件可用, e.g 下载预编译的二进制文件之一并重命名SQLite.Interop.dll到sqlite3.dll(如果你正在使用静态链接的,想必你需要重命名System.Data.SQLite.DLL到sqlite3.dll) | |
| 33 | + | - [wxSQLite3](http://wxcode.sourceforge.net/docs/wxsqlite3/): 开源, 一些 Linux 的二进制文件可用 (ex: <https://launchpad.net/ubuntu/oneiric/+package/libwxsqlite3-2.8-0>) | |
| 34 | + | ||
| 35 | + | 根据您使用的内容,可能还需要在“5.0 C interface”处单独启用加密[如此处所写](https://www.sqlite.org/see/doc/trunk/www/readme.wiki), 在访问加密数据库之前,您需要使用产品密钥调用 sqlite3_activate_see() 。 | |
| 36 | + | ||
| 37 | + | #### sqlite3backup | |
| 38 | + | ||
| 39 | + | sqlite3backup 是 FPC 提供的一个单元(不在 Lazarus 中,但可以通过编程方式使用),为 SQLite3 提供备份/恢复功能。 它使用 SQLDB 的 sqlite3conn。 | |
| 40 | + | ||
| 41 | + | ### Zeos | |
| 42 | + | ||
| 43 | + | [Zeos](https://sourceforge.net/projects/zeoslib/) | |
| 44 | + | ||
| 45 | + | ### SQLitePass | |
| 46 | + | ||
| 47 | + | [SQLitePass](http://source.online.free.fr/) 组件. 2010年最后一次编码. 上次社区活跃在2011年. | |
| 48 | + | ||
| 49 | + | ### TSQLite3Dataset 和 TSQLiteDataset | |
| 50 | + | ||
| 51 | + | 还有单独的TSQLiteDataset(单元 sqlites)和TSQLite3Dataset(单元 sqlite3ds)包; 有关如何使用它们的说明,请参阅下文。 访问 [sqlite4fpc 主页](http://sqlite4fpc.yolasite.com/sqlite4fpc) 查找 API 参考和更多教程。 | |
| 52 | + | ||
| 53 | + | TSqliteDataset 和 TSqlite3Dataset 是 [[TDataSet]] 后代,分别访问 2.8.x 和 3.x.x sqlite 数据库。 对于新项目,您可能会使用 TSQlite3Dataset,因为 SQLite 3.x 是当前版本。 | |
| 54 | + | ||
| 55 | + | 下面列出了与其他 FPC/Lazarus SQLite 驱动程序/访问方法相比的主要优点和缺点: | |
| 56 | + | ||
| 57 | + | 优点: | |
| 58 | + | ||
| 59 | + | - 灵活:程序员可以选择使用或不使用 SQL 语言,允许他们使用简单的表布局或 SQL/sqlite 允许的任何复杂布局 | |
| 60 | + | ||
| 61 | + | 缺点: | |
| 62 | + | ||
| 63 | + | - 更改为其他数据库比使用 SQLDB 或 Zeos 组件更困难 | |
| 64 | + | ||
| 65 | + | > **Note:** 鉴于上述情况,许多用户会因为 SQLDB 或 Zeos 的优点而使用 SQLDB 或 Zeos,除非他们需要对 SQLite 库进行较低级别的访问 | |
| 66 | + | ||
| 67 | + | ## 使用SQLdb组件以使用SQLite | |
| 68 | + | ||
| 69 | + | 这些说明重点关注 SQLite 的 SQLDB (TSQLite3Connection) 细节。 有关一般概述,请查看 [[SqlDBHowto]],其中包含有关 SQLdb 组件的一些有用信息。 | |
| 70 | + | ||
| 71 | + | 有关创建为 SQLite/SQLDB(以及 Firebird/SQLDB、PostgreSQL/SQLDB,基本上任何 RDBMS SQLDB 支持)编写的支持 GUI 数据库的程序的教程,请参阅 [[SQLdb Tutorial1]]。 | |
| 72 | + | ||
| 73 | + | 我们将使用 Lazarus SQLdb 选项卡中的三个组件的组合:TSQLite3Connection、TSQLTransaction 和 TSQLQuery。 TSQLQuery 充当我们的 TDataset; 在最简单的情况下,它仅代表我们的一张表。 为了简单起见:确保您已经拥有一个现有的 SQLite 数据库文件,并且现在不需要创建新的文件。 如果您想自己声明或者在 FreePascal 中工作,TSQLite3Connection 可以在“sqlite3conn”单元中找到。 | |
| 74 | + | ||
| 75 | + | 这三个组件像平常一样相互连接:在 TSQLQuery 中设置属性 Database 和 Transaction,在 TSQLTransaction 中设置属性 Database。 Transaction 和 Connection 组件中没有太多可做的事情,大部分有趣的事情将在 TSQLQuery 中完成。 配置组件如下: | |
| 76 | + | ||
| 77 | + | TSQLite3Connection: | |
| 78 | + | ||
| 79 | + | - DatabaseName:将此属性设置为 SQLite 文件的文件名(绝对路径!)。 不幸的是,您不能简单地使用在设计时和运行时都保持不变的相对路径***这仍然是真的吗? 难道您不能在构建后的 shell 脚本中复制 db 文件或对其进行符号链接吗?***。 您应该确保在应用程序启动时始终以编程方式设置文件的正确路径,无论设计时包含什么内容。 | |
| 80 | + | ||
| 81 | + | 注意:要设置完整的库路径(如果您将 sqlite dll/so/dylib 放置在操作系统找不到它的地方,例如 Linux/OSX 上的应用程序目录),您可以设置 *SQLiteLibraryName* 属性(在建立任何连接之前,例如在主窗体的 OnCreate 事件中),如下所示: | |
| 82 | + | ||
| 83 | + | ``` pascal | |
| 84 | + | SQLiteLibraryName:='./sqlite3.so'; | |
| 85 | + | ``` | |
| 86 | + | ||
| 87 | + | TSQLQuery: | |
| 88 | + | ||
| 89 | + | - SQL:将其设置为对您的表之一进行一些简单的选择查询。 例如,如果您有一个表“foo”并希望此数据集代表该表,则只需使用以下内容: | |
| 90 | + | ``` SQL | |
| 91 | + | SELECT * FROM foo | |
| 92 | + | ``` | |
| 93 | + | ||
| 94 | + | - Active:在 IDE 中将其设置为 True 以测试其是否全部设置正确。 这也将自动激活事务和连接对象。 如果收到错误,则连接的 DatabaseName 不正确或 SQL 查询错误。 稍后,当我们添加完字段(见下文)后,再次将它们全部设置为非活动状态,我们不希望 IDE 在测试应用程序时锁定 SQLite 数据库(单用户!)。 | |
| 95 | + | ||
| 96 | + | - *可能不需要正确操作 - 需要检查(2012 年 6 月)* 现在我们可以将字段添加到 TSQLQuery 中。 当组件仍设置为活动状态时,右键单击并“编辑字段...”。 单击“+”按钮并添加字段。 它将列出您的 SQL 查询返回的所有字段。 添加您需要的每个字段,您还可以在此处添加查找字段; 在这种情况下,只需确保您已经在其他数据集中定义了所有需要的字段,然后再开始添加引用它们的查找字段。 如果您的表有很多列并且您不需要全部列,您可以将它们省略,您还可以使您的 SQL 更具体一些。 | |
| 97 | + | ||
| 98 | + | - 在您的代码中,您需要调用 SQLQuery.ApplyUpdates 和 SQLTransaction.Commit,当与数据感知控件一起使用时,TSQLQuery.AfterPost 和 AfterInsert 事件是执行此操作的好地方,但当然您也可以将这些调用推迟到以后的时间。 如果您不调用它们,数据库将不会更新。 | |
| 99 | + | ||
| 100 | + | - "Database is locked" :IDE 可能仍在锁定数据库(SQLite 是单用户数据库),您可能忘记在定义完 TSQLQuery 对象的所有字段后将组件设置为非活动状态并再次断开连接。 使用窗口的 OnCreate 事件设置路径并仅在运行时激活对象。 您在 IDE 中的 TSQLQuery 中设置的大多数内容不需要(有些甚至不允许)它们在设计时处于活动状态,唯一的例外是定义要读取表设计的字段, 所以设计时不活动应该是正常状态。 | |
| 101 | + | ||
| 102 | + | - 您的表都应该有一个主键,并且您必须确保相应的字段具有 pfInKey 并且其 PoviderFlags 中没有其他内容(这些标志控制在自动构建更新和删除查询时如何以及在何处使用该字段)。 | |
| 103 | + | ||
| 104 | + | - 如果您使用查找字段 | |
| 105 | + | - 确保查找字段的 ProviderFlags 完全为空,这样它就不会尝试在更新查询中使用其名称。 查找字段本身不是数据字段,它只作用于另一个字段的值,即相应的关键字段,并且只有这个关键字段稍后才会在更新查询中使用。 您可以将关键字段设置为隐藏,因为通常您不希望在 DBGrid 中看到它,但需要定义它。 | |
| 106 | + | - LookupCache 必须设置为 True。 在撰写本文时,由于某种原因,查找字段不会显示任何其他内容(但仍然有效),奇怪的是,使用 TSQLite3Dataset 或其他 TXXXDataset 组件时的情况恰恰相反,此处必须将其设置为 False。 我还不确定这是有意的行为还是错误。 | |
| 107 | + | ||
| 108 | + | - 通常,对于简单的表,您不需要设置任何 InsertSQL、UpdateSQL 和 DeleteSQL 属性,只需将它们留空即可。 如果您正确设置了所有字段的 ProviderFlags,它应该能够动态创建所需的 SQL。 有关 InsertSQL、UpdateSQL 和 DeleteSQL 的更多详细信息,请参阅[[Working With TSQLQuery|Working_With_TSQLQuery#InsertSQL.2C_UpdateSQL_and_DeleteSQL_-_Basic_use_of_parameters]]. | |
| 109 | + | ||
| 110 | + | 正确设置上述所有内容后,您现在应该能够像任何其他 TDataset 一样使用 TSQLQuery,方法是通过以编程方式操作其数据,或者将 TDatasouce 放置在表单上,将其连接到 TSQLQuery,然后使用 TDBGrid 等数据控件。 | |
| 111 | + | ||
| 112 | + | ### 创建一个数据库 | |
| 113 | + | ||
| 114 | + | 从父类继承的[TSQLite3Connection.CreateDB](http://www.freepascal.org/docs-html/fcl/sqldb/tsqlconnection.createdb.html)方法实际上什么也不做; 要在尚不存在文件的情况下创建数据库,您只需编写表数据,如下例所示: | |
| 115 | + | ||
| 116 | + | (从 Lazarus 1.3 及以上版本附带的 sqlite_encryption_pragma 示例中提取的代码) | |
| 117 | + | ||
| 118 | + | ``` pascal | |
| 119 | + | var | |
| 120 | + | newFile : Boolean; | |
| 121 | + | begin | |
| 122 | + | ||
| 123 | + | SQLite3Connection1.Close; // 确保启动时连接已关闭 | |
| 124 | + | ||
| 125 | + | try | |
| 126 | + | // 由于我们是第一次创建这个数据库, | |
| 127 | + | // 检查文件是否已经存在 | |
| 128 | + | newFile := not FileExists(SQLite3Connection1.DatabaseName); | |
| 129 | + | ||
| 130 | + | if newFile then | |
| 131 | + | begin | |
| 132 | + | // 创建数据库和表 | |
| 133 | + | try | |
| 134 | + | SQLite3Connection1.Open; | |
| 135 | + | SQLTransaction1.Active := true; | |
| 136 | + | ||
| 137 | + | // 这里我们在新数据库中设置一个名为“DATA”的表 | |
| 138 | + | SQLite3Connection1.ExecuteDirect('CREATE TABLE "DATA"('+ | |
| 139 | + | ' "id" Integer NOT NULL PRIMARY KEY AUTOINCREMENT,'+ | |
| 140 | + | ' "Current_Time" DateTime NOT NULL,'+ | |
| 141 | + | ' "User_Name" Char(128) NOT NULL,'+ | |
| 142 | + | ' "Info" Char(128) NOT NULL);'); | |
| 143 | + | ||
| 144 | + | // 根据DATA表中的id创建索引 | |
| 145 | + | SQLite3Connection1.ExecuteDirect('CREATE UNIQUE INDEX "Data_id_idx" ON "DATA"( "id" );'); | |
| 146 | + | ||
| 147 | + | SQLTransaction1.Commit; | |
| 148 | + | ||
| 149 | + | ShowMessage('Succesfully created database.'); | |
| 150 | + | except | |
| 151 | + | ShowMessage('Unable to Create new Database'); | |
| 152 | + | end; | |
| 153 | + | end; | |
| 154 | + | except | |
| 155 | + | ShowMessage('Unable to check if database file exists'); | |
| 156 | + | end; | |
| 157 | + | end; | |
| 158 | + | ``` | |
| 159 | + | ||
| 160 | + | ### 创建用户定义的排序规则 | |
| 161 | + | ||
| 162 | + | ``` pascal | |
| 163 | + | // utf8 区分大小写的比较回调函数 | |
| 164 | + | function UTF8xCompare(user: pointer; len1: longint; data1: pointer; len2: longint; data2: pointer): longint; cdecl; | |
| 165 | + | var S1, S2: AnsiString; | |
| 166 | + | begin | |
| 167 | + | SetString(S1, data1, len1); | |
| 168 | + | SetString(S2, data2, len2); | |
| 169 | + | Result := UnicodeCompareStr(UTF8Decode(S1), UTF8Decode(S2)); | |
| 170 | + | end; | |
| 171 | + | ||
| 172 | + | // utf8 不区分大小写的比较回调函数 | |
| 173 | + | function UTF8xCompare_CI(user: pointer; len1: longint; data1: pointer; len2: longint; data2: pointer): longint; cdecl; | |
| 174 | + | var S1, S2: AnsiString; | |
| 175 | + | begin | |
| 176 | + | SetString(S1, data1, len1); | |
| 177 | + | SetString(S2, data2, len2); | |
| 178 | + | Result := UnicodeCompareText(UTF8Decode(S1), UTF8Decode(S2)); | |
| 179 | + | end; | |
| 180 | + | ||
| 181 | + | // 使用 SQLite3 API 注册排序规则(需要 sqlite3dyn 单元): | |
| 182 | + | sqlite3_create_collation(SQLite3.Handle, 'UTF8_CI', SQLITE_UTF8, nil, @UTF8xCompare_CI); | |
| 183 | + | // 或使用 TSQLite3Connection 的方法: | |
| 184 | + | CreateCollation('UTF8_CI',1,nil,@UTF8xCompare_CI); | |
| 185 | + | ||
| 186 | + | // 现在我们可以在 SQL 中使用不区分大小写的比较,例如: | |
| 187 | + | // SELECT * FORM table1 WHERE column1 COLLATE UTF8_CI = 'á' | |
| 188 | + | ||
| 189 | + | // 但这对于 LIKE 运算符不起作用 | |
| 190 | + | // 为了也支持 LIKE 运算符,我们必须使用 sqlite3_create_function() 重载默认的 LIKE 函数 | |
| 191 | + | // http://www.sqlite.org/lang_corefunc.html#like | |
| 192 | + | ``` | |
| 193 | + | ||
| 194 | + | ### 创建用户定义的函数 | |
| 195 | + | ||
| 196 | + | ``` pascal | |
| 197 | + | // 使用用户提供的函数重载默认 LOWER() 函数的示例 | |
| 198 | + | // 要运行此演示,您必须将单元'sqlite3dyn'和'ctypes'添加到您的uses-clause中 | |
| 199 | + | // 并添加一个值为 $800 的 const 'SQLITE_DETERMINISTIC' | |
| 200 | + | ||
| 201 | + | procedure UTF8xLower(ctx: psqlite3_context; N: cint; V: ppsqlite3_value); cdecl; | |
| 202 | + | var S: AnsiString; | |
| 203 | + | begin | |
| 204 | + | SetString(S, sqlite3_value_text(V[0]), sqlite3_value_bytes(V[0])); | |
| 205 | + | S := UTF8Encode(AnsiLowerCase(UTF8Decode(S))); | |
| 206 | + | sqlite3_result_text(ctx, PAnsiChar(S), Length(S), sqlite3_destructor_type(SQLITE_TRANSIENT)); | |
| 207 | + | end; | |
| 208 | + | ||
| 209 | + | // 注册函数 LOWER() 使用 SQLite3 API (requires sqlite3dyn unit): | |
| 210 | + | sqlite3_create_function(SQLite3.Handle, 'lower', 1, SQLITE_UTF8 or SQLITE_DETERMINISTIC, nil, @UTF8xLower, nil, nil); | |
| 211 | + | ``` | |
| 212 | + | ||
| 213 | + | ### SQLite3 与日期 | |
| 214 | + | ||
| 215 | + | - SQLite 3 不将日期存储为特殊的 DateTime 值。 它可以将它们存储为字符串、双精度数或整数 - 请参阅 | |
| 216 | + | ||
| 217 | + | <http://www.sqlite.org/datatype3.html#datetime>。 | |
| 218 | + | ||
| 219 | + | - 在字符串中,根据 SQL 标准/ISO 8601,日期分隔符为“-”。因此,如果您使用内置 DATE 函数执行 INSERT,它会将其存储为“YYYY-MM-DD”之类的内容。 | |
| 220 | + | - 如果数据集存储为字符串,则读取 DateTime 值可能会导致数据集出现问题:.AsDateTime 限定符可能会在 SQLite“字符串日期”上停止,但这可以通过使用类似 `strftime(`*`%d/% m/%Y`*`,recdate) AS sqlite3recdate` 在 SQL SELECT 语句中,强制 SQLite3 以指定格式返回日期记录。 (格式字符串 %d/%m/%d 对应于 .AsDateTime 能够理解的区域设置日期格式) **==\> 请打开错误报告,其中包含演示问题的示例应用程序(如果是这种情况)** | |
| 221 | + | - 当比较存储为字符串的日期时(例如使用 BETWEEN 函数),请记住比较将始终是<b>字符串</b>比较,因此取决于您存储日期值的方式。 | |
| 222 | + | ||
| 223 | + | #### 默认值采用当地时间而不是 UTC | |
| 224 | + | ||
| 225 | + | CURRENT_TIME、CURRENT_DATE 和 CURRENT_TIMESTAMP 返回当前 UTC 日期和/或时间。 对于本地日期和/或时间,我们可以使用: | |
| 226 | + | ||
| 227 | + | ` DEFAULT (datetime('now','localtime')) 对于格式为 YYYY-MM-DD HH:MM:SS 的日期时间值`\ | |
| 228 | + | ` DEFAULT (date('now','localtime')) 对于格式为 YYYY-MM-DD 的日期值`\ | |
| 229 | + | ` DEFAULT (time('now','localtime')) 格式为 HH:MM:SS 的时间值` | |
| 230 | + | ||
| 231 | + | ### SQLDB 和 SQLite 故障排除 | |
| 232 | + | ||
| 233 | + | - 请记住,为了使设计时支持(字段等)发挥作用,Lazarus 也必须找到 sqlite3.dll。 | |
| 234 | + | - 数据库文件名也是如此。 如果您使用组件来提取,请始终使用绝对路径,例如 设计时的字段名称。 否则 IDE 将在其目录中创建一个空文件。 如果出现问题,请检查 lazarus/ 目录是否不包含数据库文件的零字节副本。 | |
| 235 | + | - 如果您有主/从关系,则需要在每次插入后刷新主数据集,以便获取从数据集外键字段的值。 您可以在主数据集的 AfterPost 事件中通过调用以下重载过程之一来执行此操作: | |
| 236 | + | ||
| 237 | + | ``` pascal | |
| 238 | + | interface | |
| 239 | + | procedure RefreshADatasetAfterInsert(pDataSet: TSQLQuery);overload; | |
| 240 | + | procedure RefreshADatasetAfterInsert(pDataSet: TSQLQuery; pKeyField: string);overload; | |
| 241 | + | ||
| 242 | + | implementation | |
| 243 | + | ||
| 244 | + | procedure RefreshADatasetAfterInsert(pDataSet: TSQLQuery; pKeyField: string); | |
| 245 | + | //此过程刷新数据集并将光标定位到最后一条记录 | |
| 246 | + | //如果数据集不能保证按自动增量主键排序,则使用 | |
| 247 | + | var | |
| 248 | + | vLastID: Integer; | |
| 249 | + | vUpdateStatus : TUpdateStatus; | |
| 250 | + | begin | |
| 251 | + | vUpdateStatus := pDataset.UpdateStatus; | |
| 252 | + | //获取数据库中最后插入的ID | |
| 253 | + | pDataset.ApplyUpdates; | |
| 254 | + | vLastID:=(pDataSet.DataBase as TSQLite3Connection).GetInsertID; | |
| 255 | + | //Now come back to respective row | |
| 256 | + | if vUpdateStatus = usInserted then begin | |
| 257 | + | pDataset.Refresh; | |
| 258 | + | //刷新并返回相应行 | |
| 259 | + | pDataset.Locate(pKeyField,vLastID,[]); | |
| 260 | + | end; | |
| 261 | + | end; | |
| 262 | + | ||
| 263 | + | procedure RefreshADatasetAfterInsert(pDataSet: TSQLQuery); | |
| 264 | + | //此过程刷新数据集并将光标定位到最后一条记录 | |
| 265 | + | //仅在保证DataSet按自动增量主键排序时使用 | |
| 266 | + | var | |
| 267 | + | vLastID: Integer; | |
| 268 | + | vUpdateStatus : TUpdateStatus; | |
| 269 | + | begin | |
| 270 | + | vUpdateStatus := pDataset.UpdateStatus; | |
| 271 | + | pDataset.ApplyUpdates; | |
| 272 | + | vLastID:=(pDataSet.DataBase as TSQLite3Connection).GetInsertID; | |
| 273 | + | if vUpdateStatus = usInserted then begin | |
| 274 | + | pDataset.Refresh; | |
| 275 | + | //危 | |
| 276 | + | pDataSet.Last; | |
| 277 | + | end; | |
| 278 | + | end; | |
| 279 | + | ||
| 280 | + | procedure TDataModule1.SQLQuery1AfterPost(DataSet: TDataSet); | |
| 281 | + | begin | |
| 282 | + | RefreshADatasetAfterInsert(Dataset as TSQLQuery); //如果你的数据集是按主键排序的 | |
| 283 | + | end; | |
| 284 | + | ||
| 285 | + | procedure TDataModule1.SQLQuery2AfterPost(DataSet: TDataSet); | |
| 286 | + | begin | |
| 287 | + | RefreshADatasetAfterInsert(Dataset as TSQLQuery, 'ID'); //如果你不确定数据集总是按主键排序 | |
| 288 | + | end; | |
| 289 | + | ``` | |
| 290 | + | ||
| 291 | + | ### 真空和其他必须在事务外完成的操作 | |
| 292 | + | ||
| 293 | + | SQLDB 似乎总是需要connection,但某些操作(例如 Pragma 和 Vacuum)必须在transaction之外完成。 诀窍是结束transaction,执行你必须做的事情然后在此开始transaction(这样sqldb就不会混淆:) | |
| 294 | + | ||
| 295 | + | ``` pascal | |
| 296 | + | // 提交任何挂起的操作或使用“新”sql连接 | |
| 297 | + | Conn.ExecuteDirect('End Transaction'); // 结束由 SQLdb 启动的transaction | |
| 298 | + | Conn.ExecuteDirect('Vacuum'); | |
| 299 | + | Conn.ExecuteDirect('Begin Transaction'); // 启动一个transaction供 SQLdb 使用 | |
| 300 | + | ``` | |
| 301 | + | ||
| 302 | + | ## 使用 TSQLite3Dataset | |
| 303 | + | ||
| 304 | + | 本节详细介绍如何使用 TSQLite2Dataset 和 TSQLite3Dataset 组件访问 SQlite 数据库。 by Luiz Américo luizmed(at)oi(dot)com(dot)br | |
| 305 | + | ||
| 306 | + | #### 要求 | |
| 307 | + | ||
| 308 | + | - 对于 sqlite2 数据库 (遗留): | |
| 309 | + | - FPC 2.0.0 或更高 | |
| 310 | + | - Lazarus 0.9.10 或更高 | |
| 311 | + | - SQLite 运行库 2.8.15 或更高* | |
| 312 | + | ||
| 313 | + | - Sqlite2 不再被维护,二进制文件在sqlite网站找不到 | |
| 314 | + | ||
| 315 | + | - 对于 sqlite3 数据库: | |
| 316 | + | - FPC 2.0.2 或更高 | |
| 317 | + | - Lazarus 0.9.11 (svn revision 8443) 或更高 | |
| 318 | + | - sqlite 运行库 3.2.1 或更高 (从这里获取: [www.sqlite.org](http://www.sqlite.org)) | |
| 319 | + | ||
| 320 | + | **在初始化一个Lazarus项目之前, 确保:** | |
| 321 | + | ||
| 322 | + | - sqlite库是 | |
| 323 | + | - 在系统的PATH 或 | |
| 324 | + | - 在可执行输出目录和Lazarus(或当前项目)目录 - 这个选项可能只在Windows上有效 | |
| 325 | + | - 在Linux下, 将cmem作为主程序uses子句中的第一个单元 | |
| 326 | + | - 在 Debian、Ubuntu 和其他类似 Debian 的发行版中,为了构建 Lazarus IDE,您必须安装软件包 libsqlite-dev/libsqlite3-dev,而不仅仅是 sqlite/sqlite3(也适用于 OpenSuSe) | |
| 327 | + | ||
| 328 | + | #### 怎样使用 (基础用法) | |
| 329 | + | ||
| 330 | + | 安装在 /components/sqlite 目录中找到的包 (见说明: [[Install Packages|here]]) | |
| 331 | + | ||
| 332 | + | 在设计时,设置以下属性: | |
| 333 | + | ||
| 334 | + | - FileName: sqlite 文件的路径 \[必填\] | |
| 335 | + | - TableName: sql语句中使用的表名\[必填\] | |
| 336 | + | - SQL:一条SQL select语句\[可选\] | |
| 337 | + | - SaveOnClose:默认值为 false,表示不保存更改。 可以将其更改为 true。\[可选\] | |
| 338 | + | - Active:需要在设计时或程序启动时设置。 \[必填\] | |
| 339 | + | ||
| 340 | + | **创建表 (Dataset)** | |
| 341 | + | ||
| 342 | + | 双击组件图标或使用单击鼠标右键时出现的弹出菜单中的“创建表”项。 将显示一个简单的不言自明的表格编辑器。 | |
| 343 | + | ||
| 344 | + | 以下是 TSqliteDataset 和 TSqlite3Dataset 支持的所有字段类型: | |
| 345 | + | ||
| 346 | + | - Integer | |
| 347 | + | - AutoInc | |
| 348 | + | - String | |
| 349 | + | - Memo | |
| 350 | + | - Bool | |
| 351 | + | - Float | |
| 352 | + | - Word | |
| 353 | + | - DateTime | |
| 354 | + | - Date | |
| 355 | + | - Time | |
| 356 | + | - LargeInt | |
| 357 | + | - Currency | |
| 358 | + | ||
| 359 | + | **检索数据** | |
| 360 | + | ||
| 361 | + | 创建表后或使用之前创建的表,使用 Open 方法打开数据集。 如果未设置 SQL 属性,则将检索所有字段中的所有记录,如果将 SQL 设置为: | |
| 362 | + | ||
| 363 | + | ``` pascal | |
| 364 | + | SQL := 'Select * from TABLENAME'; | |
| 365 | + | ``` | |
| 366 | + | ||
| 367 | + | **将更改应用到基础数据文件** | |
| 368 | + | ||
| 369 | + | 要使用ApplyUpdates函数,数据集必须至少包含一个满足主键要求的字段(值必须是UNIQUE且不为NULL) | |
| 370 | + | ||
| 371 | + | 可以通过两种方式做到这一点: | |
| 372 | + | ||
| 373 | + | - 将 PrimaryKey 属性设置为主键字段的名称 | |
| 374 | + | - 添加一个 AutoInc 字段(这更容易,因为 TSqliteDataSet 自动将其作为主键处理) | |
| 375 | + | ||
| 376 | + | 如果设置了两个条件之一,则只需调用 | |
| 377 | + | ||
| 378 | + | ``` pascal | |
| 379 | + | ApplyUpdates; | |
| 380 | + | ``` | |
| 381 | + | ||
| 382 | + | > **Note:** 如果两个条件都设置了,则使用 PrimaryKey 对应的字段来应用更新。 | |
| 383 | + | ||
| 384 | + | > **Note:** 将PrimaryKey设置为非主键的字段,如果调用ApplyUpdates,将导致数据丢失,因此在使用之前请确保所选字段不包含Null和Unique值。 | |
| 385 | + | ||
| 386 | + | ##### 大纲/详细信息示例 | |
| 387 | + | ||
| 388 | + | 主/详细关系的各种示例(例如客户和订单之间的关系): | |
| 389 | + | ||
| 390 | + | - 使用 `DataSource` 属性执行此操作的通用 SQLDB 方法:[[MasterDetail]] | |
| 391 | + | - 使用locate 的TSQLite3 特定示例:[[TSqlite3 TSqlite3 Master Detail Example]]。 | |
| 392 | + | ||
| 393 | + | #### 评论 | |
| 394 | + | ||
| 395 | + | - 尽管已经用 10,000 条记录进行了测试并且工作正常,但 TSqliteDataset 将所有数据保留在内存中,因此请记住仅检索必要的数据(尤其是备注字段)。 | |
| 396 | + | - 同一数据文件(Filename 属性)可以托管多个表/数据集 | |
| 397 | + | - 可以使用同一个表同时创建多个数据集(不同的字段组合) | |
| 398 | + | - 可以使用sql中的WHERE语句过滤数据,关闭并重新打开数据集(或调用RefetchData方法)。 但在这种情况下,字段的顺序和数量必须保持不变 | |
| 399 | + | - 也可以使用复杂的 SQL 语句,在多个表中使用别名、联接、视图(记住它们必须驻留在同一个数据文件中),但在这种情况下,ApplyUpdates 将不起作用。 如果有人想要使用复杂的查询并将更新应用到数据文件,请发邮件给我,我将给出一些如何做到这一点的提示 | |
| 400 | + | - 允许将文件名设置为不是由 TSqliteDataset 创建的 sqlite 数据文件并打开它,但某些字段不会检测到正确的字段类型。 这些将被视为字符串字段。 | |
| 401 | + | ||
| 402 | + | 通用示例可以在 fpc/fcl-db/src/sqlite SVN 目录中找到 | |
| 403 | + | ||
| 404 | + | ## 也可以看看 | |
| 405 | + | ||
| 406 | + | - [[SQLdb Tutorial1]] Tutorial for Sqlite | |
| 407 | + | - [[SqlDBHowto]] General information on SQLDB | |
| 408 | + | - [[Working With TSQLQuery]] Information on SQLDB's TSQLQuery | |
| 409 | + | - [SQLite site](http://www.sqlite.org) | |
| 410 | + | ||
| 411 | + | --- | |
| 412 | + | *From the Free Pascal wiki, page "SQLite/zh CN", as it stood on 2023-07-15 after a change by Iruanp, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).* |
