Практическая Работа № 7

· Создайте новое приложение. Сохраните файл pas с именем Uchange.pas, проект с именем Pchange.dpr.

· Разместите на форме невизуальные компоненты доступа к данным по технологии InterBase Express: TIBDataBase, TIBTransaction, 2 компонента TIBQuery

Выполните соединение со своей базой данных InterBase.

· Разместите на форме:

· компонент TMemo;

· компонент TEdit;

· кнопку Button1 – свойство Caption измените на «Выполнить запрос»;

· кнопку Button2 – свойство Caption измените на «Очистить поле ввода»;

· копку Button3 - свойство Caption измените на «Открыть набор данных»;

· Источник данных. Свяжите его с Query2 через свойство DataSet.

· Для компонентов TIBQuery, в свойстве DataBase укажите имя соответствующего компонента;

· сетку DBGrid. Свяжите его с DataSource1 через свойство DataSource.

· В свойстве SQL компонента Query2 напишите запрос, который выводит все записи из таблицы Books. Откройте набор данных. В сетке DbGrid1 должны отобразиться данные. Просмотрите их.

· Для кнопки «Выполнить запрос» напишите обработчик события OnClick: Query1.SQL.Clear;

Query1.SQL.AddStrings(memo1.Lines);

Query1.ExecSQL

· Для кнопки «Открыть набор данных» напишите обработчик события OnClick:

Query2.Close;

Query2.SQL.Clear;

Query2.SQL.add(Edit1.text);

Query2.Open

· Для кнопки «Очистить поля ввода» напишите обработчик события OnClick:

Memo1.Lines.Clear;

Edit1.Clear;

· Запустите приложение;

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

· Выполните команду SQL, нажав на кнопку «Выполнить запрос».

· Во второе поле ввода введите запрос на выборку всех записей из таблицы Books.

· Просмотрите результат выполнения первого запроса.

· Аналогичным образом выполните следующие задачи:

44. Добавьте в таблицу TypeNakl новую запись: в поле TypeID – значение 8, в поле Tname – значение «Брак».

45. Увеличьте на 5% цену покупки книг издательства «Питер».

46. Измените название типа накладной 8 таблицы TypeNakl на «Списание в брак».

47. Добавьте для любой фирмы адрес электронной почты.

48. Удалите из таблицы TypeNakl запись с номером типа 8.

49. Создайте в IB_Console копию таблицы Nakls, дайте ей имя Nakls_CopyXX (XX - № группы)

50. Скопируйте в таблицу Nakls_CopyXX записи из таблицы Nakls, относящиеся к 21 марта 2000 г. Просмотрите результат.

51. Удалите все записи из таблицы Nakls_Copy. Убедитесь в том, что запрос на удаление выполнен.

52. Скопируйте в таблицу Nakls_CopyXX все записи из таблицы Nakls. Убедитесь в правильности написания запроса на добавление записи.

53. Закройте программу, предварительно сохранив все

54. Подготовьте отчет о выполнении практической работы. Отчет должен содержать:

q ФИО студента, № группы

q Название ПР

q цели

q Перечень используемых компонентов и их свойств и методов для организации доступа к данным и выполнения запросов.

q Команды выполненных запросов.

q Анализ ошибок

Наименование дисциплины: Разработка и эксплуатация удаленных баз данных

Тема (раздел) учебной программы: Проектирование клиентской части приложения БД.