Создание базы данных и таблиц для Windows-приложения на Delphi с использованием ODBC

Delphi , Графика и Игры , Canvas

В данной статье мы рассмотрим, как создать базу данных и таблицы для Windows-приложения на Delphi с использованием ODBC. Мы будем использовать компоненты ADO (ActiveX Data Objects) для работы с базой данных, так как они предоставляют удобный и простой в использовании интерфейс для доступа к данным.

Предварительные требования

Прежде чем начать, убедитесь, что у вас установлен ODBC-драйвер для вашей базы данных. В нашем случае мы будем использовать MySQL, поэтому установите ODBC-драйвер для MySQL, если вы еще не сделали этого.

Также вам понадобится компонент ADO в вашем проекте Delphi. Если у вас еще нет его, добавьте компонент TADOConnection и TADOQuery на форму вашего проекта.

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

Теперь давайте рассмотрим, как создать базу данных и таблицы с помощью Delphi и ADO.

1. Создайте новое приложение Delphi и добавьте компоненты TADOConnection и TADOQuery на форму.
2. Установите свойство ConnectionString компонента TADOConnection на строку подключения к вашей базе данных. Например:

conn.ConnectionString := 'Driver={MySQL ODBC 8.0 Unicode Driver};Server=localhost;Database=mydb;User=root;Password=secret;Option=3;';

Замените mydb, root и secret на имя вашей базы данных, имя пользователя и пароль соответственно.

1. Создайте процедуру для создания базы данных и таблиц. Например:

procedure CreateDatabaseAndTables;
var
  query: TADOQuery;
  sql: string;
begin
  query := TADOQuery.Create(nil);
  try
    query.Connection := conn;
    sql := 'CREATE DATABASE IF NOT EXISTS mydb;';
    query.SQL.Text := sql;
    query.Execute;

    sql := 'CREATE TABLE IF NOT EXISTS users (';
    sql := sql + 'id INT AUTO_INCREMENT PRIMARY KEY, ';
    sql := sql + 'name VARCHAR(50) NOT NULL, ';
    sql := sql + 'email VARCHAR(100) UNIQUE NOT NULL);';
    query.SQL.Text := sql;
    query.Execute;

    sql := 'CREATE TABLE IF NOT EXISTS posts (';
    sql := sql + 'id INT AUTO_INCREMENT PRIMARY KEY, ';
    sql := sql + 'title VARCHAR(100) NOT NULL, ';
    sql := sql + 'content TEXT NOT NULL, ';
    sql := sql + 'user_id INT NOT NULL, ';
    sql := sql + 'FOREIGN KEY (user_id) REFERENCES users(id));';
    query.SQL.Text := sql;
    query.Execute;
  finally
    query.Free;
  end;
end;

Эта процедура создает базу данных mydb и две таблицы users и posts, если они еще не существуют. Таблица users содержит поля id, name и email, а таблица posts содержит поля id, title, content и user_id.

1. Вызовите процедуру CreateDatabaseAndTables при запуске приложения, чтобы создать базу данных и таблицы. Например:

procedure TForm1.FormCreate(Sender: TObject);
begin
  CreateDatabaseAndTables;
end;

Теперь у вас есть приложение Delphi, которое создает базу данных и таблицы с помощью ODBC и ADO. Вы можете добавить дополнительный код для вставки, обновления и удаления данных из таблиц, а также для выполнения запросов к базе данных.

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

Данная статья является руководством по созданию базы данных и таблиц для Windows-приложения на Delphi с использованием ODBC и компонентов ADO.

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

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

:: Главная :: Canvas ::