Использование Delphi для создания приложений баз данных. Устюгова В.Н. - 53 стр.

Query1.Prepare; //Убедимся что запрос подготовлен
//Берем значение, введенное пользователем и заменяем им параметр.
if edit1.text <> '' //Проверяем на предмет пустого ввода
then
        Query1.ParamByName('DEPT_NO').AsString := edit1.text
else
begin
        Query1.ParamByName('DEPT_NO').AsInteger := 0;
        edit1.text := '0';
end;
Query1.Open; //Выполняем запрос и открываем набор данных

12. Запустить программу.

                               Лабораторная работа № 8

            Работа с запросами. Изменяемые запросы. Формируемые запросы.

     Свойство SQL компонента TQuery имеет тип TStrings и поэтому содержимое свойства
SQL может формироваться программно методами Add (добавить элемент), Delete (удалить
элемент), Clear (очистить список) и прочими.


      1. Продолжим работу с формой, которую создали при работе с параметрическими
запросами. Программно будем формировать SQL-операторы, с помощью которых будем
работать с данными, находящимися в таблицах. Строки сформированных SQL-операторов
будем отображать в компоненте TListBox.
1.     На форму «Chld2» добавить 5 компонентов TEdit, расположив их под каждой
колонкой компонента TDBGrid.
2.     На форму «Chld2» добавить компонент TListBox, в котором будем будем
отображать формированные строки SQL- операторов.
3.     На форму «Chld2» добавить компонент TQuery        через который будем работать
(добавлять записи) с таблицей country.db.
4.     На форму «Chld2» добавить кнопку «Добавить», по которой будем запускать
программно сформированный запрос.
5.     В обработчике события OnClick кнопки «Добавить», сформировать строку SQL-
запроса. По этому запросу будем добавлять записи в таблицу. Значения для полей брать из
компонентов TEdit.

Формат SQL-операторов для изменения данных
[...] означает необязательные пораметры
{вариант1| вариант2 |…} означает один из вариантов

Добавление записей
INSERT INTO <объект> [(столбец1 [,столбец2 ...])]
{VALUES (<значение1> [, < значение2> ...]) | <оператор SELECT>};

Оператор SELECT возвращающий ноль или более строк, где число столбцов в каждой
строке такое же, как число элементов, которые должны быть вставлены.

Следующая инструкция добавляет строку в таблицу, присваивает значения двум столбцам:

INSERT INTO EMPLOYEE (EMP_NO, PROJ_ID) VALUES (52, "DGPII");

                                           53