Создание базы данных и таблиц в SQLite с помощью ZeosLib в Delphi для Windows 7

Delphi , Базы данных , SQL

В данной статье мы рассмотрим, как создать базу данных и таблицы в SQLite с использованием компонентов ZeosLib в среде разработки Delphi, предназначенной для работы на операционной системе Windows 7. Это может быть полезно для разработчиков, которые хотят автоматизировать процесс создания базы данных и её структуры в рамках своих проектов на языке Object Pascal.

Подготовка

Прежде всего, убедитесь, что у вас установлены Delphi и ZeosLib. ZeosLib – это набор компонентов, который позволяет работать с различными типами баз данных, включая SQLite. Для начала работы вам понадобится подключить компоненты ZeosLib к вашему проекту в Delphi.

Создание базы данных

Для создания базы данных SQLite вам необходимо установить соответствующий протокол соединения и указать путь к файлу базы данных. Если файл базы данных не существует, ZeosLib позволит создать его при первом подключении.

procedure TForm1.CreateDatabase(Sender: TObject);
begin
  ZConnection1.Protocol := 'sqlite-3';
  ZConnection1.Database := 'C:\path\to\your\database\yourdb.s3db';
  if not FileExists(ZConnection1.Database) then
  begin
    ZConnection1.Connect;
    // БД не существует, поэтому соединение не создаст запросов, кроме создания файла
    ZConnection1.Disconnect;
  end
  else
  begin
    ZConnection1.Connect;
    // Продолжить работу с БД, входя в режиме выполнения какой-либо команды после создания если это необходимо
    // Например создание таблиц, индексов или просто закрыть соединение
    ZConnection1.Disconnect;
  end;
end;

Создание таблицы и вставка данных

После создания базы данных вы можете выполнить команды SQL для создания таблиц и вставки данных в них.

procedure TForm1.CreateTableAndInsert(Sender: TObject);
begin
    ZQuery1.SQL.Text := 'CREATE TABLE hardware (id INTEGER PRIMARY KEY, compname VARCHAR(30), username VARCHAR(30), model VARCHAR(30))';
    ZQuery1.ExecSQL;
    ZQuery1.SQL.Text := 'CREATE INDEX sHardware ON hardware(compname)';
    ZQuery1.ExecSQL;
    ZQuery1.SQL.Text := 'INSERT INTO hardware(id, compname, username, model) VALUES (?, ?, ?, ?)';
    ZQuery1.ParamByName('id').AsInteger := 1;
    ZQuery1.ParamByName('compname').AsString := 'AMD8537';
    ZQuery1.ParamByName('username').AsString := 'OMonge';
    ZQuery1.ParamByName('model').AsString := 'Gigabyte';
    ZQuery1.ExecSQL; // Используйте параметризованные запросы для избегания SQL инъекций
end;

Обратите внимание на безопасность

Параметризованные запросы – важный аспект безопасности при работе с базой данных. Несмотря на то, что в примере выше для упрощения они не используются, на практике их использование является обязательным для предотвращения SQL-инъекций.

Просмотр данных

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

procedure TForm1.OpenTable(Sender: TObject);
begin
  ZQuery1.SQL.Text := 'SELECT id, compname FROM hardware';
  ZQuery1.Open;
  // Здесь вы можете работать с ZQuery1.Dataset или напрямую с ZQuery1, если настройте DataSource и DBGrid
  // Например, заполнить DBGrid, используя DataSource.DataSet
end;

Заключение

Создание базы данных и таблиц с помощью ZeosLib в Delphi является простой, но мощной функциональностью, которая позволяет автоматизировать процессы разработки и управления данными. Убедитесь, что вы используете безопасные практики, такие как параметризованные запросы, чтобы защитить вашу систему от потенциальных угроз безопасности.

Этот пример является базовым и может быть расширен в соответствии с требованиями вашего проекта, включая более сложные схемы таблиц, индексов и транзакций.

Создано по материалам из источника по ссылке.

Создание и управление структурой базы данных SQLite с использованием компонентов ZeosLib в среде разработки Delphi для операционной системы Windows 7.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: SQL ::