Вид формы программы приведен на рис. 1.74.

Рис. 1.74. Форма программы Создать таблицу базы данных

// щелчок на кнопке Создать
procedure TForml.ButtonlClick(Sender: TObject);
begin
Queryl.DatabaseName := 'Peterburg';
I Peterburg — псевдоним базы данных,
в которой будет создана таблица. }
with Queryl do begin
SQL.Clear;
SQL.Add('CREATE TABLE pam (');
SQL.Add('Monument CHAR(60),');
SQL.Add('Architect CHAR (40),');
SQL.Add('Note CHAR(255),');
SQL.Add('Photo CHAR(12));');
// в процессе выполнения запроса возможны ошибки,
// например нельзя создать таблицу, которая
// уже есть в базе данных
try
ExecSQL; // выполнить запрос
except
on E: EDBEngineError do
begin
ShowMessage('Ошибка создания таблицы БД.'+
#13 + Е.Message);
Buttonl.Enabled := False;
end;
end;
end;
end;