Как создать таблицу базы данных, не используя Database Desktop

Delphi , Базы данных , Таблицы

Положите компонент TTable на форму и попробуйте указанную ниже процедуру.

procedure TForm1.CreateMyTable(NameFile: string);
begin
  with Table1 do
  begin
    Active := False;
    DatabaseName := '';
    TableName := NameFile;
    TableType := ttDefault;
    with FieldDefs do
    begin
      Clear;
      Add('EmpNo', ftInteger, 0, False);
      Add('LastName', ftString, 20, False);
      Add('FirstName', ftString, 15, False);
      Add('PhoneExt', ftString, 4, False);
      Add('HireDate', ftDateTime, 0, False);
      Add('Salary', ftFloat, 0, False);
    end;
    with IndexDefs do
    begin
      Clear;
      Add('', 'EmpNo', [ixPrimary, ixUnique]);
      Add('ByName', 'LastName;FirstName', [ixCaseInsensitive]);
    end;
    CreateTable;
    Free;
  end;
end;

Текст переведен на русский язык:

Код, который вы предоставили, написан на Delphi и использует компонент TTable для создания таблицы в базе данных. Вот объяснение, как он работает:

1. Процедура CreateMyTable принимает один параметр NameFile, который specifies имя таблицы, которую нужно создать.
2. Процедура начинает с установки свойства Active компонента TTable (названного Table1) в значение False. Это означает, что таблица не активна и не подключена к базе данных.
3. Свойство DatabaseName устанавливается в пустую строку, что указывает на то, что таблица будет создана в новой базе данных или перезапишет любую существующую базу данных с тем же именем.
4. Свойство TableName устанавливается в значение параметра NameFile, которое specifies имя таблицы, которую нужно создать.
5. Свойство TableType устанавливается в ttDefault, что означает, что таблица будет иметь стандартные свойства и настройки для новой таблицы в базе данных.
6. Затем процедура добавляет пять полей (столбцов) к таблице с помощью компонента FieldDefs:
   • EmpNo: целочисленное поле с длиной 0, что означает, что оно не имеет фиксированной длины.
   • LastName, FirstName и PhoneExt: строковые поля с длинами 20, 15 и 4 соответственно.
   • HireDate: дата/время поле с длиной 0.
   • Salary: вещественное поле с длиной 0.
7. Затем процедура добавляет два индекса к таблице с помощью компонента IndexDefs:
   • Основной ключ индекс на поле EmpNo, что означает, что каждый значение в этом поле должно быть уникальным и не null.
   • Индекс ByName на полях LastName и FirstName вместе, что позволяет выполнять поиск по фамилии и имени.
8. Наконец, процедура вызывает метод CreateTable, чтобы создать таблицу в базе данных.

Обратите внимание, что этот код предполагает, что у вас есть компонент TTable с именем Table1 на вашей форме, и что он правильно подключен к базе данных или имеет необходимые настройки для создания новой базы данных.

Альтернативное решение:

Если вы хотите избежать использования инструментов Database Desktop, можно использовать встроенные инструменты Delphi, такие как компоненты TSQLConnection и TSQLQuery. Вот пример, как можно создать таблицу программно:

procedure TForm1.CreateMyTable(TableName: string);
var
  SQLConn: TSQLConnection;
  SQLQuery: TSQLQuery;
begin
   // Создайте новую подключение к базе данных
  SQLConn := TSQLConnection.Create(nil);
  try
    SQLConn.DriverName := 'MySQL'; // или любая другая база данных
    SQLConn.Database := 'mydatabase';
    SQLConn.Username := 'username';
    SQLConn.Password := 'password';

     // Создайте новую запрос на создание таблицы
    SQLQuery := TSQLQuery.Create(nil);
    try
      SQLQuery.Connection := SQLConn;
      SQLQuery.SQL.Add('CREATE TABLE ' + TableName + ' (');
      SQLQuery.SQL.Add('  EmpNo INTEGER,');
      SQLQuery.SQL.Add('  LastName VARCHAR(20),');
      SQLQuery.SQL.Add('  FirstName VARCHAR(15),');
      SQLQuery.SQL.Add('  PhoneExt VARCHAR(4),');
      SQLQuery.SQL.Add('  HireDate DATETIME,');
      SQLQuery.SQL.Add('  Salary FLOAT);');

       // Выполните запрос на создание таблицы
      SQLQuery.ExecSQL;
    finally
      FreeAndNil(SQLQuery);
    end;

  finally
    FreeAndNil(SQLConn);
  end;
end;

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

Создать таблицу базы данных в Delphi без использования Database Desktop можно с помощью процедуры TForm1.CreateMyTable, которая создает таблицу с полями EmpNo, LastName, FirstName, PhoneExt, HireDate и Salary.

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

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

:: Главная :: Таблицы ::