SQLite в Delphi: большой обзор и LiteDAC в примерах

В этой статье я постарался собрать воедино и структурировать всю информацию по работе с SQLite в Delphi, изложенную на страницах блога, а также обновить кое-какие сведения по работе с СУБД SQLite. Всё-таки технологии не стоят на месте и иметь под рукой самую свежую информацию по рассматриваемому вопросу будет не лишним. Да и, в случае необходимости, читать одну большую статью по SQLite лично для меня проще, чем перечитывать большое количество статей в поисках ответа на интересующий вопрос.

В качестве компонентов для доступа к SQLite в Delphi я, как Вы понимаете, буду использовать LiteDAC. На данный момент последняя версия этих компонентов — 2.7.24. если же Вы не используете эти компоненты по каким-либо причинам, то я вам советую начать их использовать, так как пока я ещё не встретил более простых и понятных компонентов для работы с базами данных. Однако, если Вы используете для работы с SQLite что-либо другое, то этот обзор также может оказаться для вас полезным, потому что здесь будет рассматриваться не только работа LiteDAC, но и, в принципе, работа с SQLite. 

Введение

Для начала, определимся с тем, какая информацию из блога будет использоваться в этом обзоре. В качестве исходных данных для статьи я использовал следующий материал блога webdelphi.ru:

1. SQLite в Delphi 2010 (14/09/2010)
2. SQLite для кроссплатформенной разработки в Delphi XE2 (08/10/2011)
3. SQLite в Delphi XE3 (04/10/2012)
4. SQLite в Delphi XE3 #2 (21/01/2013)
5. SQLite в Delphi. Обзор LiteDAC (14/07/2013)
6. SQLite в Delphi. Работа с LiteDAC #2 (25/12/2014)
7. Ещё один способ ускорить запись данных в БД SQLite (25/10/2015)
8. Обзор программ для администрирования баз данных SQLite (02/11/2010)

Как видите, обзор охватывает период с 2010 по 2015 год и за 5 лет, что компоненты доступа к SQLite в Delphi, что сама СУБД претерпели изменения. Итак, начнем по порядку.

1. Что представляет из себя SQLite и как всё устроено в SQLite?

SQLite — это компактная встраиваемая реляционная база данных. Для нас, как для разработчиков это говорит о том, что:

1. SQLite легко настраивать. Для работы с SQLite не требуется установка дополнительного программного обеспечения (разве что для удобства разработки поставить какую-нибудь утилиту администрирования базы данных, но об этом чуть ниже). Всё, что необходимо, чтобы начать работу — это положить рядом с exe-файлом вашей программы небольшую динамическую библиотеку sqlite3.dll и использовать базовые методы (SQLite API) этой dll.
2. SQLite просто использовать. Хотите — используйте методы dll, хотите — специальные компоненты, как платные, так и бесплатные. На сегодняшний день для Delphi имеется целый ряд компонентов, позволяющих работать с SQLite, в том числе и поставляемые вместе с RAD Studio.

База данный SQLite представляет из себя обычный файл, который может располагаться где угодно, лишь бы вы смогли получить к этому файлу доступ — даже на CD- или DVD-диске, правда, в этом случае вы сможете только читать базу, но не записывать в неё данные (что характерно). В итоге получаем: один файл — одна база данных. Легко, просто, понятно. Естественно, что если Вы только выбираете какую базу данных использовать в своем приложении, то одним из критериев выбора являются ограничения той или иной СУБД. Давайте посмотрим на ограничения СУБД SQLite.

Со всем списком ограничений SQLite Вы можете ознакомиться на официальном сайте, я же обращу внимание только на основные моменты. Итак ограничения, используемые по умолчанию:

Как видите, ограничения более, чем приемлемые для разработки более менее серьезных приложений. Конечно, в случае острой необходимости Вы всегда сможете поменять некоторые ограничения в большую сторону (например, установить максимальное количество присоединенных баз данных в максимально возможное значение — 125), однако, лично мне с трудом представляется то, какое приложение надо писать в Delphi, чтобы превысить лимиты по умолчанию. Что же касается максимального размера файла базы данных, то, согласно официальной документации, в настоящее время максимально возможный размер файла БД SQLite составляет 140 Тб, однако конкретно это ограничение не тестировалось, так как разработчики SQLite не имеют доступа к программным и аппаратным средствам способных достичь такого лимита…что уж говорить нам — простым смертным пользователям SQLite.

2. Кто использует SQLite?

Еще один немаловажный момент при выборе СУБД, который волнует разработчиков — кто это использует? В особенности, если рассматриваются бесплатные инструменты и средства с открытым исходным кодом (к которым относится и SQLite). Ведь, как часто бывает, даже самый гениальный проект с открытым исходным кодом может внезапно уйти в небытие и разработчик останется ни с чем: морально устаревающий со временем инструмент, отсутствие поддержки и так далее. И здесь в пользу того или иного компонента или инструмента разработчика играет наличие в рядах пользователей наиболее титулованных и популярных компаний — уж, если они не боятся использовать что-то бесплатное, то всяко-разно есть шанс, что поддержка продукта будет идти регулярно и долго (по данным официального сайта, SQLite планируется поддерживать вплоть до 2050 года).

Вот небольшой перечень программных продуктов, которые активно используют SQLite:

1. Google Chrome
2. Skype
3. Opera
4. FireFox
5. ThunderBird
6. Safari
7. Практически все программное обеспечение для Android, которому необходимо хранить какие-либо данные (в Android встроена поддержка SQLite)

В дополнение (могу, конечно, сейчас немного ошибиться, так как давно не заглядывал в работы этим приложений) также скажу, что SQLite использовался такими клиентами облачных хранилищ как Dropbox и Google Drive.

3. Какие инструменты использовать для администрирования баз данных SQLite?

Как говориться, на вкус и цвет фломастеры разные и каждый сам выбирает что использовать для администрирования баз данных SQLite: кому-то (как мне, например) по душе «тяжеловесные» программы типа SQLite Expert в которых можно сделать с базой всё, что угодно, другому — подавай легкий маленький и шустрый инструмент, чтобы только посмотреть структуру, добавить пару строк или таблиц в БД и забыть. Разные потребности, соответственно, рождают самые различные предложения. А, учитывая достаточно высокую популярность SQLite, можно смело говорить о том, что выбор программы для администрирования баз SQLite более, чем достаточен даже для самого привередливого пользователя. Когда я начинал свое знакомство с SQLite, то проводил небольшой обзор решение в области администрирования SQLite, но, как я уже писал выше, всё меняется и рынок программных продуктов также претерпевает свои изменения. Поэтому в этой статье, я лишь перечислю рассмотренные ранее программные продукты, а также дополню обзор другими приложениями, о которых мне сообщали Вы, уважаемые читатели, в своих комментариях к статьям.

Название	Стоимость	Ссылка на сайт	Скрин окна программы (кликабельно)	Дата обновления
SQLite Database Browser	бесплатно	ссылка		04/05/2016
SQLite Administrator	бесплатно	ссылка		нет информации
SQLiteManager	$49	ссылка		17/06/2016
SQLite Maestro	от $79 до $499 trial на 30 дней	ссылка		12/01/2015
SQLite Expert	версия «Personal» — бесплатно версии «Professional» от $59	ссылка		20/07/2016
Не рассмотренные ранее программные продукты
SQLiteSpy	бесплатно	ссылка		20/06/2016
SQLiteStudio	бесплатно	ссылка		10/06/2016

Таким образом, у нас в наличии семь различных программных продуктов для управления базами SQLite — более, чем достаточно, чтобы выбрать инструмент по своим потребностям. Я же, в дальнейшем буду использовать давно испытанный SQLite Expert Personal.

4. Какие компоненты есть в Delphi для доступа к SQLite?

В этой части, конечно, не такое большое разнообразие, как в части программ для управления базами SQLite, но, тем не менее и того, что есть в наличии сейчас, когда актуальной версией Delphi является Delphi 10.1 Berlin, более чем достаточно, чтобы начать работу с SQLite.

В теперь уже далеком 2010-м году, когда мы радовались выходу Delphi 2010 и обсуждали её новинки, на рынке компонентов Delphi для SQLite было совсем не радостно. Конечно, уже тогда были свои решения для работы с SQLite (всё-таки SQLite стартовала ещё раньше — в 2000-м году), но, тем не менее сама Delphi не могла похвастаться работой с SQLite «из коробки». Однако, тем, кому было необходимо использовать эту СУБД в Delphi-проектах, было вполне достаточно на первоначальном этапе использовать Delphi wrapper for Sqlite 3 от Тима Андерсона (Tim Anderson). Эти простые в работе классы для SQLite в Delphi и сейчас доступны для скачивания и, даже, со временем стали поддерживать Unicode. Этим же wrapper’ом пользовался и я в свое время, когда только начинал разбираться с SQLite.

На базе Delphi wrapper for Sqlite 3  также развивались такие обёртки для SQLite в Delphi, как Delphi SQLite Wrapper от разработчика библиотеки Synapse и компоненты от sv-utils. Все эти обёртки вносили какие-то улучшения в работу с SQLite (добавлялась работа с параметрами, поддержка Unicode, кроссплатформенность и т.д.), однако, повторюсь, они базировались на обёртке от Тима Андерсона. В настоящее время все эти замечательные миниатюрные компоненты, видимо, заброшены авторами, так как даты последних обновлений не особенно вселяют надежду на их дальнейшее развитие — 2012-2013 год. Из более менее «живых» бесплатных компонентов можно выделить ZeosLib, которой я пользовался ещё в бытность Delphi 7, а также компоненты DISQLite3 от разработчика SQLiteSpy.

Это, в принципе, и понятно, потому как прошло несколько лет и Embarcadero представила нам новый релиз — Delphi XE3, которая позволяла работать с базами SQLite, используя DBExpress. И, как говориться, жизнь стала налаживаться. Прошло совсем немного времени и уже 5 февраля 2013 года Embarcadero заявила в своем пресс-релизе о покупке компонентов AnyDAC (ныне известных под названием FireDAC) — мощной библиотеки компонентов для доступа практически к любым базам данных, включая и SQLite. Таким образом, мы уже имели возможность после покупки лицензии на Delphi свободно использовать для доступа к базам данных SQLite:

1. Бесплатные обёртки от различных разработчиков «Delphi SQLite Wrapper», «Delphi wrapper for SQLite 3«, sv-utils и т.д.
2. Бесплатные библиотеки компонентов (ZeosLib, FireDAC)
3. Технологию DBExpress
4. Компоненты (DISQLite).

Однако, обилие различных бесплатных и относительно бесплатных решений в области работы с SQLite в Delphi нисколько не затормозило разработку платных компонентов для доступа к SQLite. И здесь, наиболее ярким представителем, на мой взгляд, является компания Devart с их замечательными компонентами для доступа к SQLite — LiteDAC (стоимость компонентов на данный момент составляет от 6800 руб.).

Таким образом, на сегодняшний день можно сделать вывод, что для работы с SQLite в Delphi нет никаких препятствий. Ваши возможности ограничиваются лишь вашими потребностями в той или иной функциональности компонентов. Я же, как и три года назад, в работе использую компоненты от Devart LiteDAC. И теперь перейдем непосредственно к работе с SQLite в Delphi.

5. Установка и настройка LiteDAC

Скачать пробную версию компонентов можно с официального сайта Devart. После того, как установщик скачан, запускаем его и устанавливаем компоненты. После установки компонентов на вкладке LiteDAC в Delphi появится вот такой набор компонентов:

Так как компоненты LiteDAC распространяются в двух редакциях: Standard и Professional, то набор компонентов у них разный. Так в версии LiteDAC Standard Edition Вы сможете воспользоваться следующими компонентами для доступа к SQLite:

	TLiteConnection	Компонент для создания подключения к БД SQLite.
	TLiteQuery	Компонент для выполнения запросов и работы наборами данных.
	TLiteSQL	Компонент для выполнения SQL-запросов, которые не возвращают наборы данных
	TLiteTable	Компонент позволяет получать и изменять данные в одной таблице БД без написания SQL-запросов
	TLiteUpdateSQL	Компонент позволяет настроить операции обновления для наборов данных.
	TLiteDataSource	Компонент для создания связей между компонентами LiteDAC, содержащими наборы данных и элементами управления на форме.
	TLiteScript	Компонент для выполнения последовательности SQL-запросов
	TLiteSQLMonitor	Компонент для мониторинга выполнения SQL-запросов к БД SQLite
	TLiteConnectDialog	Компонент для создания пользовательских диалогов для запроса логинов/паролей и ключей шифрования БД.
	TVirtualTable	Компонент для хранения наборов данных в памяти.

Профессиональная версия LiteDAC (Professional Edition) расширяется следующими компонентами

	TLiteUserFunction	Компонент для определения пользовательских функций для будущего использования в SQL-запросах
	TLiteLoader	Компонент обеспечивает быструю загрузку внешних данных в базу
	TLiteDump	Компонент обеспечивает создание дампов для базы данных или отдельных её частей и восстановления БД из этих дампов.
	TLiteMetaData	Компонент для извлечения мета-данных из базы данных
	TLiteEncryptor	Компонент для шифрования/дешифрования базы данных SQLite
	TCRBatchMove	Компонент обеспечивает обмен данными между всеми потомками TDataSet.

Со всеми отличиями версий LiteDAC вы можете ознакомиться на официальном сайте, я же обращу внимание на три важных, на мой взгляд, преимущества профессиональной версии:

1. Возможность использовать прямой доступ (Direct Mode) к БД SQLite
2. Возможность использовать шифрование базы данных (в режиме Direct Mode)
3. Возможность разработки приложений для работы с базами данных под Android и iOS

Перейдем к разработке нашего первого приложения для работы с SQLite в Delphi.

6. Первая база данных SQLite в Delphi

Пусть в нашей базе данных будет храниться, например, информация о курсе валют от ЦБ РФ. Для этого разберемся со структурой нашей будущей базы данных и типами данных.

Так как мы будем использовать API ЦБ РФ по курсам валют,  то нам потребуется создать в нашей  базе данных как минимум две таблицы:

1. Справочник кодов валют
2. Данные по курсам валют на определенную дату.

Таблица справочника кодов валют будет содержать следующие столбцы:

1. идентификатор записи, например, 1
2. идентификатор валюты, например, R01010
3. номинал, например, 10
4. наименование валюты на английском языке, Australian Dollar 
5. наименование валюты на русском языке, например, Австралийский доллар

Таблица данных о курсах валют будет содержать следующую информацию:

1. идентификатор записи, например, 1
2. идентификатор валюты, например, R01010
3. Дата на которую установлен курс, например, 10.08.2016
4. Курс валюты по отношению к рублю, например, 49,9973

6.1. Создаем базу данных с помощью SQLite Expert

Создавать базу данных можно как с помощью наших компонентов непосредственно в Delphi, так и, используя одну из программ, рассмотренных выше. Например, создать в SQLite Expert таблицу со справочником кодов можно следующим образом:

1.Запускаем SQLite Expert и жмем кнопку «New Database»

2. Задаем имя базы данных, её расположение, кодировку текста и другие параметры

О таком параметре как Vacuum мы поговорим чуть позднее. Пока же жмем «Ok» и переходим к следующему шагу — созданию таблицы.

3. Для создания новой таблицы в базе данных вы можете кликнуть правой кнопкой мыши на названии базы в дереве слева или же воспользоваться разделом меню «Table» и выбрать пункт «New Table». После этого откроется редактор для в котором необходимо указать название новой таблицы, определить необходимые поля, а также указать другие параметры, если это необходимо. В нашем случае, таблицы «valute» будет выглядеть следующим образом:

Как видите, несмотря на то, что в SQLite нет такого типа, как CHAR, я все равно его использовал при создании таблицы и это не будет иметь никаких негативных последствий для работы с нашей базой данных.

Аналогичным образом создадим таблицу с курсами валют, опять же используя такие типы данных как DATE и CURRENCY:

Теперь рассмотрим другой вариант создания базы данных — с помощью LiteDAC.

6.2. Создание базы данных с помощью LiteDAC

Для создания базы данных воспользуемся компонентом TLiteConnection. Для этого создаем в Delphi новый VCL-проект, бросаем на главную форму компонент TLiteConnection с вкладки LiteDAC и устанавливаем свойство TLiteConnection.Options.ForceCreateDatabase в значение True. Это позволит нам, в случае отсутствия файла базы данных по указанному в свойстве Database пути создать его.

Теперь создадим обработчик события OnBeforeConnect компонента и напишем следующий код:

procedure TForm3.LiteConnection1BeforeConnect(Sender: TObject);
begin
  //указываем путь к файлу базы данных
  LiteConnection1.Database:=ExtractFilePath(ParamStr(0))+'base.db';
  //указываем путь к клиентской библиотеке sqlite
  LiteConnection1.ClientLibrary:=ExtractFilePath(ParamStr(0))+'sqlite3.dll';
end;

Теперь напишем небольшую процедуру, которая будет создавать необходимые таблицы в базе данных и поместим её в обработчик OnAfterConnect компонента:

procedure TForm3.CreateTables;
begin
  LiteConnection1.ExecSQL('CREATE TABLE IF NOT EXISTS valute (v_id INTEGER PRIMARY KEY AUTOINCREMENT, ' + 'v_code CHAR(6), v_nominal INTEGER, v_eng_name TEXT, v_ru_name TEXT)');
  LiteConnection1.ExecSQL('CREATE TABLE IF NOT EXISTS rates (r_id INTEGER PRIMARY KEY AUTOINCREMENT, ' + 'r_code CHAR(6), r_date DATE, r_value CURRENCY)');
end;

В процедуре CreateTables мы проверяем существует ли необходимая нам таблица в базе данных и, если таблицы нет, то создаем её. Теперь нам только остается подключиться к базе данных и проверить как работает наша программа. Пишем в обработчике OnCreate главной формы приложения всего одну строку:

procedure TForm3.FormCreate(Sender: TObject);
begin
  LiteConnection1.Connected := True;
end;

После первого запуска программы рядом с exe-файлом появится файл базы данных с необходимыми таблицами. При этом не забывайте, что рядом с exe-файлом должен находиться файл sqlite3.dll.

В том случае, если Вам необходимо протестировать подключение к базе данных или настроить его в Design-Time, вы можете воспользоваться редактором свойств подключения у компонента TLiteConnection, который вызывается двойным кликом мыши по компоненту или вызовом через контекстное меню (пункт «Connection Editor…»). Выглядит редактор следующим образом:

Здесь вы можете указать путь к базе данных и клиентской библиотеке, а также, если включите чек-бокс «Direct» (режим прямого доступа к БД), то дополнительно сможете указать алгоритм шифрования базы данных и ключ шифрования.

7. Шифрование базы данных с помощью LiteDAC

Если Вам необходимо зашифровать базу данных или сами данные, то LiteDAC поддерживает следующие операции:

1. шифровать базу данных;
2. создать новую зашифрованную базу данных;
3. подключения и работы с зашифрованной базе данных;
4. изменить ключ шифрования зашифрованной базы данных;
5. расшифровать зашифрованную базу данных.

Для шифрования/расшифровки файла базы данных, в LiteDAC используется один из следующих алгоритмов:

  LiteConnection1.Database := ExtractFilePath(ParamStr(0)) + 'base.db';
  LiteConnection1.Options.Direct:=True;                      //только в Direct Mode можно использовать шифрование
  //шифрование базы данных
  LiteConnection1.Options.ForceCreateDatabase := False;      //проверяем есть ли файл БД на диске
  LiteConnection1.Options.EncryptionAlgorithm := leAES256;   //указываем алгоритм шифрования
  LiteConnection1.EncryptionKey := '';                       //база не зашифрована - оставляем пока ключ пустым
  LiteConnection1.Open;                                      //подключаемся к БД
  LiteConnection1.EncryptDatabase ('masterkey');             //шифруем БД с ключом masterkey

  LiteConnection1.Database := ExtractFilePath(ParamStr(0)) + 'base.db';
  LiteConnection1.Options.Direct:=True;                      
  //шифрование базы данных
  LiteConnection1.Options.ForceCreateDatabase := True;       //если базы нет, то она будет создана и зашифрована
  LiteConnection1.Options.EncryptionAlgorithm := leAES256;   
  LiteConnection1.EncryptionKey := 'masterkey';              //указываем ключ шифрования
  LiteConnection1.Open;

  LiteConnection1.Database := ExtractFilePath(ParamStr(0)) + 'base.db';
  LiteConnection1.Options.Direct:=True;                      
  //шифрование базы данных
  LiteConnection1.Options.ForceCreateDatabase := False;      //проверяем есть ли файл БД на диске
  LiteConnection1.Options.EncryptionAlgorithm := leAES256;   
  LiteConnection1.EncryptionKey := 'masterkey';              //указываем старый ключ шифрования
  LiteConnection1.Open;                                      //подключаемся к БД
  LiteConnection1.EncryptDatabase ('root');                  //шифруем БД с новым ключом root

 TValute = class
  private
    FCode: string;
    FNominal: cardinal;
    FRuName: string;
    FEngName: string;
  public
    constructor Create(const ACode, ARuName, AEngName: string; ANominal: cardinal);
    destructor Destroy;override;
    property Code: string read FCode write FCode;
    property Nominal: cardinal read FNominal write FNominal;
    property RuName: string read FRuName write FRuName;
    property EngName: string read FEngName write FEngName;
  end;

FValutes: TObjectList;

var Timer: TStopWatch;
begin
{В этом месте мы загружаем список валют с сайта ЦБ РФ и сохраняем его в списке}
  Timer:=TStopwatch.StartNew;
  Timer.Start; //запускаем таймер
  LiteSQL1.SQL.Text := 'INSERT INTO valute (v_code, v_nominal, v_eng_name, v_ru_name) VALUES (:code, :nominal, :eng_name, :ru_name)';
  for I := 0 to Pred(CBR.Valutes.Count) do
  begin
    LiteSQL1.ParamByName('code').AsString := CBR.Valutes[I].Code;
    LiteSQL1.ParamByName('nominal').AsInteger := CBR.Valutes[I].Nominal;
    LiteSQL1.ParamByName('eng_name').AsString := CBR.Valutes[I].EngName;
    LiteSQL1.ParamByName('ru_name').AsString := CBR.Valutes[I].RuName;
    LiteSQL1.Execute;
  end;
  Timer.Stop;
  ShowMessage(Timer.Elapsed.ToString);//показываем затраты времени
end;

LiteConnection1.StartTransaction; //запускаем транзакцию
try
 LiteSQL1.SQL.Text := 'INSERT INTO valute (v_code, v_nominal, v_eng_name, v_ru_name) VALUES (:code, :nominal, :eng_name, :ru_name)';
 for I := 0 to Pred(CBR.Valutes.Count) do
  begin
    LiteSQL1.ParamByName('code').AsString := CBR.Valutes[I].Code;
    LiteSQL1.ParamByName('nominal').AsInteger := CBR.Valutes[I].Nominal;
    LiteSQL1.ParamByName('eng_name').AsString := CBR.Valutes[I].EngName;
    LiteSQL1.ParamByName('ru_name').AsString := CBR.Valutes[I].RuName;
    LiteSQL1.Execute;
  end;
  LiteConnection1.Commit;//подтверждаем запись
  Timer.Stop;
  ShowMessage(Timer.Elapsed.ToString);
except
  LiteConnection1.Rollback; //откатываем изменения
end;

LiteConnection1.ExecSQL('PRAGMA synchronous = OFF');

LiteConnection1.ExecSQL('PRAGMA synchronous = OFF')

LiteSQL1.SQL.Text := 'INSERT INTO valute (v_code, v_nominal, v_eng_name, v_ru_name) VALUES (:code, :nominal, :eng_name, :ru_name)';
//определяем типы данных параметров
LiteSQL1.Params[0].DataType:=ftString;
LiteSQL1.Params[1].DataType:=ftInteger;
LiteSQL1.Params[2].DataType:=ftString;
LiteSQL1.Params[3].DataType:=ftString;
//определяем количество записей в пакете
LiteSQL1.Params.ValueCount:=CBR.Valutes.Count;
//собираем пакет
for I := 0 to Pred(CBR.Valutes.Count) do
 begin
   LiteSQL1.Params[0][i].AsString := CBR.Valutes[I].Code;
   LiteSQL1.Params[1][i].AsInteger := CBR.Valutes[I].Nominal;
   LiteSQL1.Params[2][i].AsString := CBR.Valutes[I].EngName;
   LiteSQL1.Params[3][i].AsString := CBR.Valutes[I].RuName;
 end;
//выполняем пакетную операцию
LiteSQL1.Execute(CBR.Valutes.Count);

LiteSQL1.ParamByName('code').AsString := CBR.Valutes[I].Code;

LiteSQL1.Params.ValueCount := CBR.Valutes.Count;
for I := 0 to Pred(CBR.Valutes.Count) do
 begin
   LiteSQL1.Params[0][I].AsString := CBR.Valutes[i].Code;
   LiteSQL1.Params[1][I].AsInteger := CBR.Valutes[i].Nominal;
   LiteSQL1.Params[2][I].AsString := CBR.Valutes[i].EngName;
   LiteSQL1.Params[3][I].AsString := CBR.Valutes[i].RuName;
 end;
LiteSQL1.Execute(CBR.Valutes.Count);

SELECT * FROM valute WHERE v_eng_name='US Dollar'

LiteConnection1.ExecSQL('CREATE UNIQUE INDEX IF NOT EXISTS val_idx ON valute (v_code, v_eng_name)');

INSERT OR IGNORE INTO valute (v_code, v_nominal, v_eng_name, v_ru_name) 
VALUES (:code, :nominal, :eng_name, :ru_name)

LiteConnection1.ExecSQL('VACUUM')

LiteConnection1.ExecSQL('PRAGMA auto_vacuum = FULL')

SELECT valute.[v_ru_name], rates.[r_date], rates.[r_value] FROM valute, rates WHERE valute.[v_code]=rates.[r_code]

LiteConnection1.ExecSQL('CREATE VIEW IF NOT EXISTS [val_rates] AS select valute.[v_ru_name], rates.[r_date], rates.[r_value] from valute, rates where valute.[v_code]=rates.[r_code]');

SELECT * FROM val_rates

LiteTable1.TableName:='val_rates';
LiteTable1.DataTypeMap.AddFieldNameRule('v_ru_name', ftString);
LiteTable1.DataTypeMap.AddFieldNameRule('r_date', ftDate);
LiteTable1.DataTypeMap.AddFieldNameRule('v_value', ftCurrency);
LiteTable1.Open;

procedure TForm3.Button3Click(Sender: TObject);
begin
  LiteDump1.BackupToFile('bakup.sql'); // создаем дамп и сохраняем его в поток
end;

LiteDump1.RestoreFromFile('bakup.sql');

LiteDump1.BackupToStream(AStream: TStream)
LiteDump1.RestoreFromStream(AStream: TStream)

LiteQuery1.SQL.Text:='SELECT * FROM valute';
LiteQuery1.Open; //поработали с записями
LiteQuery1.Close;
//новый запрос для другой таблицы
LiteQuery1.SQL.Text:='SELECT * FROM rates';
LiteQuery1.Open;

LiteQuery1.SQL.Text:='SELECT * FROM &TableName';
LiteQuery1.MacroByName('TableName').Value:='valute';
LiteQuery1.Open; //поработали с записями
LiteQuery1.Close;
LiteQuery1.MacroByName('TableName').Value:='rates';
LiteQuery1.Open;

Как видите, SQLite — достаточно удобная и легкая в использовании СУБД с массой возможностей и широким набором самых различных настроек. И то, что на первый взгляд, может показаться в ней непродуманным (например, растущий размер файла) далеко не всегда является таковым. С выходом Delphi XE3 появилась полноценная поддержка работы с SQLite, что называется «из коробки». Однако, наравне с компонентами, поставляемыми вместе с Delphi, развиваются (и достаточно успешно) различные сторонние компоненты для доступа к SQLite, как, например, приведенные в этой статье компоненты LiteDAC. Конечно, каждый выбирает самостоятельно компоненты для работы: кому-то непременно надо использовать только то, что есть в Delphi, кто-то использует исключительно Open Source. Я же предпочитаю использовать то, что мне кажется наиболее удобным и простым в использовании, поэтому уже несколько лет для работы с SQLite в Delphi использую исключительно LiteDAC.

Ниже представлен исходник программы, примеры из которой я приводил выше в статье, однако обращу ваше внимание — это не полноценный продукт для работы с курсами валют. Это лишь набросок программы, демонстрирующий работу с SQLite, который, возможно Вам пригодится.

Книжная полка

	Автор: Андрей Шкрыль Название: Разработка клиент-серверных приложений в Delphi Описание: Рассмотрены практические вопросы по разработке клиент-серверных приложений в среде Delphi 7 и Delphi 2005 с использованием СУБД MS SQL Server 2000, InterBase и Firebird. Приведена информация о теории построения реляционных баз данных и языке SQL. Освещены вопросы эксплуатации и администрирования СУБД.
	Автор: Антон Григорьев Название: О чем не пишут в книгах по Delphi Описание: Рассмотрены малоосвещенные вопросы программирования в Delphi. Описаны методы интеграции VCL и API. Показаны внутренние механизмы VCL и приведены примеры вмешательства в эти механизмы. Рассмотрено использование сокетов в Delphi: различные режимы их работы, особенности для протоколов TCP и UDP и др.