SQLite/ru: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		## Поддержка SQLite и FPC/Lazarus
2	2
3	3		SQLite - это встроенная (не серверная) однопользовательская база данных, которую можно использовать в приложениях FPC и Lazarus. Для доступа к SQLite из программ FPC/Lazarus можно использовать различные драйверы. Все драйверы нуждаются в библиотеке SQLite/dll в исполняемом каталоге (который может быть каталогом вашего проекта или, например, (projectdir)/lib/architecture/ в зависимости от настроек вашего проекта Lazarus) (и распространяется вместе с вашим исполняемым файлом) для работы.
4	4
5	5		Это также может быть необходимо включить в ваш каталог Lazarus IDE. См. [ветку форума](https://forum.lazarus.freepascal.org/index.php?topic=46118.msg327940#msg327940) и особенно внимательно прочитайте про TSQLite3Dataset и TSQLiteDataset [[SQLite/ru\|ниже]]
6	6
7	7		В большинстве дистрибутивов Linux по умолчанию установлен sqlite3 (например, libsqlite3.so.0), но для дистрибутивов Ubuntu, по крайней мере, также требуется соответствующий пакет Dev. Оба должны быть установлены через системный менеджер пакетов и помечены как зависимость, а не распространяться вместе с вашим приложением.
8	8
9	9		Win64: см. предупреждение [[Windows Programming Tips\|здесь]] о неиспользовании определенных версий FPC/Lazarus Win64.
10	10
11	11		### Прямой доступ к SQLite
12	12
13	13		Вы можете использовать простой способ подключения SQLite к Lazarus. Компоненты называются LiteDAC. Компоненты доступа к данным SQLite (LiteDAC) - это библиотека компонентов, которая обеспечивает встроенное подключение к SQLite из Lazarus (и Free Pascal) в Windows, macOS, iOS, Android, Linux и FreeBSD как для 32-разрядных, так и для 64-разрядных платформ. LiteDAC предназначен для программистов, которые могут разрабатывать действительно кроссплатформенные настольные и мобильные приложения баз данных SQLite без необходимости развертывания каких-либо дополнительных библиотек.
14	14
15	15		Вы можете скачать пробную версию этого коммерческого продукта по адресу _<https://www.devart.com/litedac/download.html> (LiteDAC 4.4 for Lazarus (FreePascal))
16	16
17	17		### Встроенный SQLDB
18	18
19	19		FPC/Lazarus предлагает встроенные компоненты SQLDB, которые включают поддержку баз данных SQLite ([[TSQLite3Connection]]) с [[SQLdb tab\|вкладки SQLdb]] в [[Component Palette\|Палитре компонентов]], которые позволяют, например, создавать графические интерфейсы пользователя с такими компонентами базы данных, как [[TDBGrid]]. Преимущество использования SQLDB заключается в том, что довольно легко перейти на другую базу данных, такую как Firebird или PostgreSQL, без особых изменений в программе. Подробнее см. ниже.
20	20
21	21		#### Поддержка Spatialite
22	22
23	23		Spatialite - это ГИС-расширения SQLite, которые можно использовать из SQLDB. См. [[Spatialite]].
24	24
25	25		#### Поддержка шифрования SQLite
26	26
27	27		В последних версиях FPC (реализованных в марте 2012 г.) SQLDB включал поддержку некоторых расширенных версий SQLite3, которые шифруют файл базы данных SQLite с использованием алгоритма AES. Используйте свойство пароля, чтобы установить ключ шифрования.
28	28
29	29		Примеры:
30	30
31	31		- [SQLCipher](http://sqlcipher.net/): Открытый исходный код, например Бинарные файлы Windows не бесплатно (их нужно скомпилировать самостоятельно)
32	32		- [System.Data.SQLite](http://system.data.sqlite.org/): с открытым исходным кодом, доступны двоичные файлы Windows (32, 64, CE), загрузите, например, один из предварительно скомпилированных двоичных файлов и переименуйте SQLite.Interop.dll в sqlite3.dll (если вы используете статически связанные файлы, вероятно, вам нужно переименовать System.Data.SQLite.DLL в sqlite3.dll)
33	33		- [wxSQLite3](http://wxcode.sourceforge.net/docs/wxsqlite3/): открытый исходный код, доступны некоторые бинарные файлы для Linux (напр: <https://launchpad.net/ubuntu/oneiric/+package/libwxsqlite3-2.8-0>)
34	34		- [sqleet](https://github.com/resilar/sqleet): открытый исходный код, нет зависимостей от других библиотек, легко собирается при помощи GCC в исполняемые файлы и файлы библиотек, кроссплаформенный. Доступны механизмы шифрования как в интерактивном режиме, так и посредством sqleet API.
35	35
36	36		#### sqlite3backup
37	37
38	38		sqlite3backup - это модуль, поставляемый с FPC (не в Lazarus, но может использоваться программно), который обеспечивает функции резервного копирования/восстановления для SQLite3. Он использует SQLDB sqlite3conn.
39	39
40	40		### Zeos
41	41
42	42		[Zeos](https://sourceforge.net/projects/zeoslib/)
43	43
44	44		### SQLitePass
45	45
46	46		Компоненты [SQLitePass](http://source.online.free.fr/). Последнее обновление кода в 2010. Последняя активность на форуме в 2011.
47	47
48	48		### TSQLite3Dataset и TSQLiteDataset
49	49
50	50		Существуют также отдельные пакеты TSQLiteDataset (модуль sqlite) и TSQLite3Dataset (модуль sqlite3ds); см. ниже описание того, как их использовать. Посетите [домашнюю страницу sqlite4fpc](http://sqlite4fpc.yolasite.com/), чтобы найти справочник по API и другие руководства.
51	51
52	52		TSqliteDataset и TSqlite3Dataset являются потомками [[TDataSet]], которые обращаются к базам данных sqlite 2.8.x и 3.x.x соответственно. Для новых проектов вы, вероятно, будете использовать TSQlite3Dataset, поскольку текущая версия SQLite 3.x.
53	53
54	54		Ниже приведен список основных преимуществ и недостатков по сравнению с другими драйверами/методами доступа FPC/Lazarus SQLite:
55	55
56	56		Преимущества:
57	57
58	58		- Гибкость: программисты могут выбирать, использовать или не использовать язык SQL, что позволяет им работать с простыми макетами таблиц или любым сложным макетом, который позволяет SQL/sqlite.
59	59
60	60		Недостатки:
61	61
62	62		- Переход на другие базы данных сложнее, чем при использовании компонентов SQLDB или Zeos
63	63
64	64		> Note: Учитывая вышеизложенное, многие пользователи будут использовать SQLDB или Zeos из-за преимуществ, если им не нужен низкоуровневый доступ к библиотеке SQLite.
65	65
66	66		## Использование компонентов SQLdb со SQLite
67	67
68	68		Эти инструкции сосредоточены на особенностях SQLDB (TSQLite3Connection) для SQLite. Для общего обзора ознакомьтесь с [[SqlDBHowto\|SqlDB: Howto]], где есть полезная информация о компонентах SQLdb.
69	69
70	70		См. [[SQLdb Tutorial1\|Учебник1 по SQLdb]] для обучения создания программы с поддержкой базы данных с графическим интерфейсом пользователя, которая написана для SQLite/SQLDB (а также для Firebird/SQLDB, PostgreSQL/SQLDB, в основном любой СУБД, поддерживаемой SQLDB).
71	71
72	72		Мы будем использовать комбинацию из трех компонентов из вкладки Lazarus SQLdb: TSQLite3Connection, TSQLTransaction и TSQLQuery. TSQLQuery действует как наш TDataset; в простейшем случае это просто одна из наших таблиц. Для простоты: убедитесь, что у вас уже есть существующий файл базы данных SQLite, и вам не нужно создавать новый сейчас. TSQLite3Connection можно найти в модуле sqlite3conn, если вы хотите объявить его самостоятельно или работаете в FreePascal.
73	73
74	74		Эти три компонента связаны друг с другом как обычно: в TSQLQuery установите свойства Database и Transaction, в TSQLTransaction установите свойство Database. В компонентах Transaction и Connection особо нечего делать, большинство интересного будет сделано в TSQLQuery. Настройте компоненты следующим образом:
75	75
76		-	~~<b>TSQLite3Connection</b>:~~
	76	+	TSQLite3Connection:
77	77
78		-	- DatabaseName: установите для этого свойства имя файла (абсолютный путь!) вашего файла SQLite. К сожалению, вы не можете просто использовать относительный путь, который работает без изменений во время разработки и во время выполнения (<i>это все еще верно? Разве вы не можете просто скопировать файл db в сценарий оболочки после сборки или создать символическую ссылку на него? </i>). Вы должны убедиться, что при запуске приложения правильный путь к файлу всегда устанавливается программно, независимо от того, что он содержал во время разработки.
	78	+	- DatabaseName: установите для этого свойства имя файла (абсолютный путь!) вашего файла SQLite. К сожалению, вы не можете просто использовать относительный путь, который работает без изменений во время разработки и во время выполнения (это все еще верно? Разве вы не можете просто скопировать файл db в сценарий оболочки после сборки или создать символическую ссылку на него? ). Вы должны убедиться, что при запуске приложения правильный путь к файлу всегда устанавливается программно, независимо от того, что он содержал во время разработки.
79	79
80	80		> Note: Чтобы установить полный путь к библиотеке (если вы поместите свою sqlite dll/so/dylib в место, где ОС ее не найдет, например каталог приложения в Linux/OSX), вы можете установить «SQLiteLibraryName» свойство (ДО того, как будет установлено какое-либо соединение, например, в событии OnCreate главной формы)
81	81
82	82		, например:
83	83
84	84		``` pascal
85	85		SQLiteLibraryName:='./sqlite3.so';
86	86		```
87	87
88		-	~~<b>TSQLQuery</b>:~~
	88	+	TSQLQuery:
89	89
90	90		- SQL: задайте для него простой запрос выбора для одной из ваших таблиц. Например, если у вас есть таблица 'foo' и вы хотите, чтобы этот набор данных представлял эту таблицу, просто используйте следующие:
91	91		``` SQL
92	92		SELECT * FROM foo
93	93		```
94	94
95	95		- Active: установите для него значение True в среде IDE, чтобы проверить, все ли настроено правильно. Это также автоматически активирует транзакцию и объекты подключения. Если вы получаете сообщение об ошибке, то либо DatabaseName соединения неверно, либо запрос SQL неверен. Позже, когда мы закончим добавление полей (см. ниже), снова установим их все в неактивные состояния, мы не хотим, чтобы среда IDE блокировала базу данных SQLite (для одного пользователя!) при тестировании приложения.
96	96
97	97		- Наверное, не нужно для правильной работы - нужно будет проверить (June 2012) Теперь мы можем добавить поля в наш TSQLQuery. Пока компоненты все еще активны, щелкните правой кнопкой мыши и «отредактируйте поля ...». Нажмите кнопку «+» и добавьте поля. В нем будут перечислены все поля, возвращенные вашим SQL-запросом. Добавьте все поля, которые вам понадобятся, вы также можете добавить сюда поля поиска; в этом случае просто убедитесь, что вы уже определили все необходимые поля в других наборах данных, прежде чем начинать добавлять поля поиска, которые ссылаются на них. Если в вашей таблице много столбцов, и они вам не нужны, вы можете просто не указывать их, а также сделать свой SQL более конкретным.
98	98
99	99		- В вашем коде вам нужно вызвать SQLQuery.ApplyUpdates и SQLTransaction.Commit, события TSQLQuery.AfterPost и AfterInsert - хорошее место для этого при использовании его с элементами управления с учетом данных, но, конечно, вы также можете отложить эти вызовы на более позднее время. Если вы не вызовете их, база данных не будет обновлена.
100	100
101	101		- "Database is locked" (База данных заблокирована): IDE может по-прежнему блокировать базу данных (SQLite - это база данных для одного пользователя), вы, вероятно, забыли установить компоненты в неактивное состояние и снова отключить их после того, как вы закончили определение всех полей ваших объектов TSQLQuery. Используйте событие OnCreate формы, чтобы задать путь и активировать объекты только во время выполнения. Большинство вещей, которые вы устанавливаете в TSQLQuery из среды IDE, не требуют (а некоторые даже не позволяют), чтобы они были активными во время разработки, единственным исключением является определение полей, в которых он хочет прочитать дизайн таблицы, поэтому неактивность во время разработки должно быть нормальным состоянием.
102	102
103	103		- Все ваши таблицы должны иметь первичный ключ, и вы должны убедиться, что соответствующее поле имеет pfInKey и ничего больше в его PoviderFlags (эти флаги управляют тем, как и где используется поле при автоматическом построении запросов на обновление и удаление).
104	104
105	105		- Если вы используете lookup-поля
106	106		- убедитесь, что ProviderFlags для lookup-поля полностью пуст, чтобы он не пытался использовать свое имя в запросе на обновление. Само поле поиска не является полем данных, оно действует только на значение другого поля, соответствующего ключевого поля, и только это ключевое поле будет позже использоваться в запросах на обновление. Вы можете установить ключевое поле как скрытое, потому что обычно вы не хотите видеть его в своей DBGrid, но его необходимо определить.
107	107		- LookupCache должен иметь значение True. На момент написания этой статьи по какой-то причине в -lookupполе ничего не отображается (но все равно работает), и, как ни странно, происходит полная противоположность при работе с TSQLite3Dataset или другими компонентами TXXXDataset, здесь должно быть установлено значение False. Я еще не уверен, является ли это предполагаемым поведением или ошибкой.
108	108
109	109		- Обычно для простых таблиц вам не нужно устанавливать какие-либо свойства InsertSQL, UpdateSQL и DeleteSQL, просто оставьте их пустыми. Если у вас правильно установлены ProviderFlags всех ваших полей, он сможет создать необходимый SQL на лету. Подробнее об InsertSQL, UpdateSQL и DeleteSQL см. [[Working With TSQLQuery\|Работа с TSQLQuery]].
110	110
111	111		После того, как все вышеперечисленное будет настроено правильно, вы сможете использовать TSQLQuery, как и любой другой TDataset, либо программно манипулируя его данными, либо помещая TDatasouce в форму, подключая его к TSQLQuery, а затем используя контуры данных, такие как TDBGrid и т.п.
112	112
113	113		### Creating a Database
114	114
115	115		Метод [TSQLite3Connection.CreateDB](http://www.freepascal.org/docs-html/fcl/sqldb/tsqlconnection.createdb.html), унаследованный от родительского класса, на самом деле ничего не делает; чтобы создать базу данных, если файл еще не существует, вам просто нужно записать данные таблицы, как в следующем примере:
116	116
117	117		(Код, извлеченный из примера sqlite_encryption_pragma, который поставляется с Lazarus 1.3 и новее)
118	118
119	119		``` pascal
120	120		var
121	121		newFile : Boolean;
122	122		begin
123	123
124	124		SQLite3Connection1.Close; // Убедитесь, что соединение закрыто при запуске
125	125
126	126		try
127	127		//Поскольку мы делаем эту базу данных впервые,
128	128		// проверяем, существует ли уже файл
129	129		newFile := not FileExists(SQLite3Connection1.DatabaseName);
130	130
131	131		if newFile then
132	132		begin
133	133		// Создаем базу данных и таблицы
134	134		try
135	135		SQLite3Connection1.Open;
136	136		SQLTransaction1.Active := true;
137	137
138	138		// Здесь мы настраиваем таблицу с именем "DATA" в новой базе данных.
139	139		SQLite3Connection1.ExecuteDirect('CREATE TABLE "DATA"('+
140	140		' "id" Integer NOT NULL PRIMARY KEY AUTOINCREMENT,'+
141	141		' "Current_Time" DateTime NOT NULL,'+
142	142		' "User_Name" Char(128) NOT NULL,'+
143	143		' "Info" Char(128) NOT NULL);');
144	144
145	145		// Создание индекса на основе идентификатора в таблице "DATA"
146	146		SQLite3Connection1.ExecuteDirect('CREATE UNIQUE INDEX "Data_id_idx" ON "DATA"( "id" );');
147	147
148	148		SQLTransaction1.Commit;
149	149
150	150		ShowMessage('База данных успешно создана.');
151	151		except
152	152		ShowMessage('Невозможно создать новую базу данных');
153	153		end;
154	154		end;
155	155		except
156	156		ShowMessage('Невозможно проверить, существует ли файл базы данных');
157	157		end;
158	158		end;
159	159		```
160	160
161	161		### Создание определяемых пользователем порядка сортировки
162	162
163	163		``` pascal
164	164		// utf8-callback функция сравнения с учетом регистра
165	165		function UTF8xCompare(user: pointer; len1: longint; data1: pointer; len2: longint; data2: pointer): longint; cdecl;
166	166		var S1, S2: AnsiString;
167	167		begin
168	168		SetString(S1, data1, len1);
169	169		SetString(S2, data2, len2);
170	170		Result := UnicodeCompareStr(UTF8Decode(S1), UTF8Decode(S2));
171	171		end;
172	172
173	173		// utf8-callback функция сравнения без учета регистра
174	174		function UTF8xCompare_CI(user: pointer; len1: longint; data1: pointer; len2: longint; data2: pointer): longint; cdecl;
175	175		var S1, S2: AnsiString;
176	176		begin
177	177		SetString(S1, data1, len1);
178	178		SetString(S2, data2, len2);
179	179		Result := UnicodeCompareText(UTF8Decode(S1), UTF8Decode(S2));
180	180		end;
181	181
182	182		// регистрируем порядок сортировки с помощью SQLite3 API (требуется модуль sqlite3dyn):
183	183		sqlite3_create_collation(SQLite3.Handle, 'UTF8_CI', SQLITE_UTF8, nil, @UTF8xCompare_CI);
184	184		// или используем метод TSQLite3Connection:
185	185		CreateCollation('UTF8_CI',1,nil,@UTF8xCompare_CI);
186	186
187	187		// теперь мы можем использовать порядок сортировки без учета регистра в SQL, например:
188	188		// SELECT * FORM table1 WHERE column1 COLLATE UTF8_CI = 'á'
189	189
190	190		// но это не работает для оператора LIKE
191	191		// чтобы поддерживать также оператор LIKE, мы должны перегрузить функцию LIKE по умолчанию, используя sqlite3_create_function ()
192	192		// http://www.sqlite.org/lang_corefunc.html#like
193	193		```
194	194
195	195		### Создание пользовательских функций (UDF)
196	196
197	197		``` pascal
198	198		// пример перегрузки функции LOWER() по умолчанию на функцию, предоставляемую пользователем
199	199		// чтобы запустить эту демку, вы должны добавить модули sqlite3dyn и ctypes в ваше предложение uses
200	200		// и добавить константу 'SQLITE_DETERMINISTIC' со значением $800
201	201
202	202		procedure UTF8xLower(ctx: psqlite3_context; N: cint; V: ppsqlite3_value); cdecl;
203	203		var S: AnsiString;
204	204		begin
205	205		SetString(S, sqlite3_value_text(V[0]), sqlite3_value_bytes(V[0]));
206	206		S := UTF8Encode(AnsiLowerCase(UTF8Decode(S)));
207	207		sqlite3_result_text(ctx, PAnsiChar(S), Length(S), sqlite3_destructor_type(SQLITE_TRANSIENT));
208	208		end;
209	209
210	210		// регистрируем функцию LOWER() с помощью SQLite3 API (требуется модуль sqlite3dyn):
211	211		sqlite3_create_function(SQLite3.Handle, 'lower', 1, SQLITE_UTF8 or SQLITE_DETERMINISTIC, nil, @UTF8xLower, nil, nil);
212	212		```
213	213
214	214		### SQLite3 и даты
215	215
216	216		- SQLite 3 не хранит даты как специальное значение DateTime. Он может хранить их в виде строк, чисел двойной точности или целых чисел - см. [Date and Time Datatype](http://www.sqlite.org/datatype3.html#datetime).
217	217		- В строках разделителем даты является «-» в соответствии со стандартом SQL/ISO 8601. Таким образом, если вы выполняете INSERT с использованием встроенной функции DATE, она сохранит его как что-то вроде «ГГГГ-ММ-ДД».
218	218		- Чтение значения DateTime может вызвать проблемы для DataSet, если они хранятся в виде строк: квалификатор .AsDateTime может останавливаться на "строковой дате" SQLite, но это можно преодолеть, используя что-то вроде `strftime(``%d/%m/%Y``,recdate) AS sqlite3recdate` в вашем операторе SQL SELECT, который заставляет SQLite3 возвращать запись даты в указанном формате (строка формата %d/%m/%d соответствует вашему региональному формату даты, который будет пониматься как .AsDateTime) ==\> Пожалуйста, откройте отчет об ошибке с примером приложения, демонстрирующим проблему, если это так
219		-	- При сравнении дат, хранящихся в виде строк (используя, например, функцию BETWEEN), помните, что сравнение всегда будет <b>строковым</b> сравнением и, следовательно, будет зависеть от того, как вы сохранили значение даты.
	219	+	- При сравнении дат, хранящихся в виде строк (используя, например, функцию BETWEEN), помните, что сравнение всегда будет строковым сравнением и, следовательно, будет зависеть от того, как вы сохранили значение даты.
220	220
221	221		#### Значения по умолчанию для местного времени вместо UTC
222	222
223	223		CURRENT_TIME, CURRENT_DATE и CURRENT_TIMESTAMP возвращают текущую дату и/или время в формате UTC. Для местной даты и/или времени мы можем использовать:
224	224
225	225		` DEFAULT (datetime('now','localtime')) for datetime values formated YYYY-MM-DD HH:MM:SS`\
226	226		` DEFAULT (date('now','localtime')) for date value formated YYYY-MM-DD`\
227	227		` DEFAULT (time('now','localtime')) for time value formated HH:MM:SS`
228	228
229	229		### Устранение неполадок SQLDB и SQLite
230	230
231	231		- Имейте в виду, что для поддержки работы времени разработки (поля и т.д.) Lazarus также должен найти sqlite3.dll (прим.перев: положите этот файл в корень IDE рядом с экзешником. Обратите внимание, что разрядность библиотеки должна соответствовать разрядности Лазаруса).
232	232		- То же самое и с именем файла базы данных. Всегда используйте абсолютный путь, если вы используете компоненты для извлечения, например, имена полей во время разработки. В противном случае IDE создаст в своем каталоге пустой файл. В случае возникновения проблем проверьте, не содержит ли каталог lazarus/ нулевую байтовую копию файла базы данных.
233	233		- Если у вас есть отношения master/detail, вам необходимо обновлять главный набор данных после каждой вставки, чтобы получить значение для поля внешнего ключа подчиненного набора данных. Это можно сделать в событии AfterPost основного набора данных, вызвав одну из следующих перегруженных процедур:
234	234
235	235		``` pascal
236	236		interface
237	237		procedure RefreshADatasetAfterInsert(pDataSet: TSQLQuery);overload;
238	238		procedure RefreshADatasetAfterInsert(pDataSet: TSQLQuery; pKeyField: string);overload;
239	239
240	240		implementation
241	241
242	242		procedure RefreshADatasetAfterInsert(pDataSet: TSQLQuery; pKeyField: string);
243	243		// Эта процедура обновляет набор данных и помещает курсор на последнюю запись
244	244		// Используется, если Dataset не гарантирует сортировку набора данных по первичному ключу автоинкремента
245	245		var
246	246		vLastID: Integer;
247	247		vUpdateStatus : TUpdateStatus;
248	248		begin
249	249		vUpdateStatus := pDataset.UpdateStatus;
250	250		//Получаем последний вставленный ID в базе данных
251	251		pDataset.ApplyUpdates;
252	252		vLastID:=(pDataSet.DataBase as TSQLite3Connection).GetInsertID;
253	253		//Теперь возвращаемся к соответствующей строке
254	254		if vUpdateStatus = usInserted then begin
255	255		pDataset.Refresh;
256	256		//Обновляемся и возвращаемся к соответствующей строке
257	257		pDataset.Locate(pKeyField,vLastID,[]);
258	258		end;
259	259		end;
260	260
261	261		procedure RefreshADatasetAfterInsert(pDataSet: TSQLQuery);
262	262		//Эта процедура обновляет набор данных и помещает курсор на последнюю запись
263	263		//Используется только в том случае, если DataSet гарантированно отсортирован по первичному ключу с автоинкрементом.
264	264		var
265	265		vLastID: Integer;
266	266		vUpdateStatus : TUpdateStatus;
267	267		begin
268	268		vUpdateStatus := pDataset.UpdateStatus;
269	269		pDataset.ApplyUpdates;
270	270		vLastID:=(pDataSet.DataBase as TSQLite3Connection).GetInsertID;
271	271		if vUpdateStatus = usInserted then begin
272	272		pDataset.Refresh;
273	273		//Опасно!
274	274		pDataSet.Last;
275	275		end;
276	276		end;
277	277
278	278		procedure TDataModule1.SQLQuery1AfterPost(DataSet: TDataSet);
279	279		begin
280	280		RefreshADatasetAfterInsert(Dataset as TSQLQuery); //Если ваш набор данных отсортирован по первичному ключу
281	281		end;
282	282
283	283		procedure TDataModule1.SQLQuery2AfterPost(DataSet: TDataSet);
284	284		begin
285	285		RefreshADatasetAfterInsert(Dataset as TSQLQuery, 'ID'); //если вы не уверены, что набор данных всегда сортируется по первичному ключу
286	286		end;
287	287		```
288	288
289	289		### Vacuum и другие операции, которые необходимо выполнять вне транзакции
290	290
291	291		Кажется, что SQLDB всегда требует подключения, но некоторые операции, такие как Pragma и Vacuum, должны Быть сделано вне транзакции. Хитрость заключается в том, чтобы завершить транзакцию, выполнить то, что вы должны, и начать транзакцию еще раз (чтобы не запутать sqldb):
292	292
293	293		``` pascal
294	294		// коммит любых ожидающих операций или использование «свежего» соединения sql
295	295		Conn.ExecuteDirect('End Transaction'); // Завершение транзакции, начатой SQLdb
296	296		Conn.ExecuteDirect('Vacuum');
297	297		Conn.ExecuteDirect('Begin Transaction'); //Запуск транзакции для использования SQLdb
298	298		```
299	299
300	300		## Использование TSQLite3Dataset
301	301
302	302		В этом разделе подробно описано, как использовать компоненты TSQLite2Dataset и TSQLite3Dataset для доступа к базам данных SQlite (от Luiz Américo luizmed(at)oi(dot)com(dot))br
303	303
304	304		#### Требования
305	305
306	306		- Для баз данных sqlite2 (legacy):
307	307		- FPC 2.0.0 или выше
308	308		- Lazarus 0.9.10 или выше
309	309		- SQLite runtime библиотеки 2.8.15 или выше*
310	310
311	311		- Sqlite2 больше не поддерживается, и двоичный файл не может быть найден на сайте sqlite
312	312
313	313		- Для баз данных sqlite3:
314	314		- FPC 2.0.2 или выше
315	315		- Lazarus 0.9.11 (svn revision 8443) или выше
316	316		- sqlite runtime библиотеки 3.2.1 или выше (можно получить с [www.sqlite.org](http://www.sqlite.org))
317	317
318	318		Перед запуском проекта lazarus убедитесь, что:
319	319
320	320		- библиотека sqlite либо
321	321		- прописана в системной переменной PATH или
322	322		- находится в каталоге вывода исполняемых файлов и в каталогах Lazarus (или текущего проекта) - этот параметр может работать только в Windows
323	323		- в Linux поместите `cmem` в качестве первого модуля в разделе `uses` основной программы
324	324		- В Debian, Ubuntu и других подобных Debian дистрибутивах для создания Lazarus IDE необходимо установить пакеты libsqlite-dev/libsqlite3-dev, а не только sqlite/sqlite3 (также относится к OpenSuSe)
325	325
326	326		#### Как использовать (базовое использование)
327	327
328	328		Установить пакет, который находится в каталоге /components/sqlite (см. инструкции [[Install Packages/ru\|здесь]]) (прим.перев.: на момент перевода статьи это можно сделать через стандартный установщик пакетов Лазаруса из меню Package(Пакеты) --\> Install/Uninstall Package (Установка/Удаление пакетов) --\> справа в окне Available for installation (Доступные для установки) выбираем sqlite3laz 0.4 --\> ниже жмем кнопку Install Selection (Установить выбранное) --\> жмем в самом низу кнопку Save and rebuild IDE (Сохранить и пересобрать IDE)).
329	329
330	330		Во время разработки установите следующие свойства:
331	331
332	332		- FileName: путь к файлу sqlite \[обязательно\]
333	333		- TableName: имя таблицы, используемой в операторе sql \[обязательно\]
334	334		- SQL: оператор выбора SQL \[по желанию\]
335	335		- SaveOnClose: значение по умолчанию - false, что означает, что изменения не сохраняются. Его можно изменить на true. \[по желанию\]
336	336		- Active: необходимо установить во время разработки или при запуске программы. \[обязательно\]
337	337
338	338		Создание Table (Dataset)
339	339
340	340		Дважды щелкните значок компонента или используйте пункт 'Create Table'(Создать таблицу) во всплывающем меню, которое появляется при нажатии правой кнопки мыши. Будет показан простой редактор таблиц с пояснениями.
341	341
342	342		Вот все типы полей, поддерживаемые TSqliteDataset и TSqlite3Dataset:
343	343
344	344		- Integer
345	345		- AutoInc
346	346		- String
347	347		- Memo
348	348		- Bool
349	349		- Float
350	350		- Word
351	351		- DateTime
352	352		- Date
353	353		- Time
354	354		- LargeInt
355	355		- Currency
356	356
357	357		Получение данных
358	358
359	359		После создания таблицы или с помощью ранее созданной таблицы откройте набор данных с помощью метода Open. Если свойство SQL не было установлено, будут извлечены все записи из всех полей, то же самое можно получить, если вы зададите SQL следующим образом:
360	360
361	361		``` pascal
362	362		SQL := 'Select * from TABLENAME';
363	363		```
364	364
365	365		Применение изменений к базовому файлу данных
366	366
367	367		Чтобы использовать функцию ApplyUpdates, набор данных должен содержать по крайней мере одно поле, которое удовлетворяет требованиям для первичного ключа (значения должны быть UNIQUE, а не NULL)
368	368
369	369		Сделать это можно двумя способами:
370	370
371	371		- Установить свойство PrimaryKey на имя поля первичного ключа
372	372		- Добавить поле AutoInc (это проще, поскольку TSqliteDataSet автоматически обрабатывает его как первичный ключ)
373	373
374	374		Если установлено одно из двух условий, просто вызовите
375	375
376	376		``` pascal
377	377		ApplyUpdates;
378	378		```
379	379
380	380		> Note: Если заданы оба условия, поле, соответствующее PrimaryKey, используется для применения обновлений.
381	381
382	382		> Note: Установка PrimaryKey в поле, которое не является первичным ключом, приведет к потере данных при вызове ApplyUpdates, поэтому перед его использованием убедитесь, что выбранное поле не содержит значений Null и Unique.
383	383
384	384		##### Пример Master/detail
385	385
386	386		Различные примеры отношений master/detail (например, отношения между клиентом и заказами):
387	387
388	388		- общий способ SQLDB для этого с использованием свойства `DataSource`: [[MasterDetail]]
389	389		- Конкретный пример TSQLite3 с использованием метода `locate`: [[TSqlite3 Master Detail Example\|пример TSqlite3 Master Detail]].
390	390
391	391		#### Примечания
392	392
393	393		- Несмотря на то, что TSqliteDataset был протестирован с 10 000 записей и работал нормально, все данные хранятся (прим.перев.: кешируются) в памяти, поэтому не забывайте извлекать только необходимые данные (особенно с полями Memo).
394	394		- Один и тот же файл данных (свойство Filename) может содержать несколько таблиц/наборов данных.
395	395		- Несколько наборов данных (разные комбинации полей) могут быть созданы с использованием одной и той же таблицы одновременно
396	396		- Можно фильтровать данные с помощью операторов WHERE в sql, закрывая и повторно открывая набор данных (или вызывая метод RefetchData). Но в этом случае порядок и количество полей должны оставаться прежними.
397	397		- Также можно использовать сложные операторы SQL, используя псевдонимы, объединения, представления в нескольких таблицах (помните, что они должны находиться в одном файле данных), но в этом случае ApplyUpdates не будет работать. Если кто-то хочет использовать сложные запросы и применить обновления к файлу данных, напишите мне, и я дам несколько советов, как это сделать.
398	398		- Установка имени файла в файл данных sqlite, не созданный TSqliteDataset, и его открытие разрешено, но в некоторых полях не будет обнаружен правильный тип поля. Они будут рассматриваться как строковые поля.
399	399
400	400		Общие примеры можно найти в SVN каталоге fpc/fcl-db/src/sqlite.
401	401
402	402		## See also
403	403
404	404		- [[SQLdb Tutorial1]] Учебник по Sqlite
405	405		- [[SqlDBHowto]] Общая информация о SQLDB
406	406		- [[Working With TSQLQuery]] Информация о SQLDB's TSQLQuery
407	407		- [SQLite site](http://www.sqlite.org)
408	408		- [TSQLConnection](https://www.freepascal.org/docs-html/fcl/sqldb/tsqlconnection.html)
409	409
410	410		---
411	411		From the Free Pascal wiki, page "SQLite/ru", as it stood on 2021-11-16 after a change by Slawek, 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).

Back to history