Лабораторные работы по дисциплине: "Основы визуального программирования" (№№ 1-5).

Лабораторная работа №1
Тема: Работа с компонентами TPanel (закладка Standard); TDriveComboBox, TFilterComboBox, TDirectoryListBox, TFileListBox (закладка Win 3.1); Tsplitter, TImage (закладка Additional); TStatusBar (закладка Win32).
ЗАДАНИЕ 1: Создать форму как показано на рисунке 1.
ЗАДАНИЕ 2: Изменить Form1 на рис. 1 (задание 1) следующим образом: использовать для реализации строки состояния вместо компонента TPanel компонент TStatusBar. Структура компонента TStatusBar показана на рис. 2.
ЗАДАНИЕ 3: 1. Поместить на форму компонент TImage как показано на рис.2. Отображать внутри компонента графическое изображение только в том случае, если в FileListBox1 выбран BMP-файл.
2. Поместить на Panel1 компонент TSpeedButton (быстрая кнопка) с изображением часов (или с любым другим). Выбор изображения – свойство Glyph.

Лабораторная работа № 2
Тема: Компоненты MainMenu, PopupMenu, Memo, OpenDialog, SaveDialog.
Создание вложенного динамического меню.
ЗАДАНИЕ 1:
Создание простейшего редактора, который работает с файлом memos.txt, находящемся в текущей папке.
ЗАДАНИЕ 2:
Создание простейшего редактора, который работает с диалоговыми окнами открытия и сохранения файлов.
ЗАДАНИЕ 3:
Создание пункта File главного меню текстового редактора с возможностью добавлять имена файлов во вложенное динамическое меню пункта Reopen, максимальный размер которого ограничен 4 пунктами.

Лабораторная работа № 3
Тема: работа с базами данных.
ЗАДАНИЕ 1: Создание простейшего приложения базы данных с использованием эксперта форм базы данных (DataBase Form Wizard).
ЗАДАНИЕ 2: Создание новой базы с помощью утилиты Database Desktop.

Лабораторная работа № 4
Тема: Базы данных.
ЗАДАНИЕ 1:
1. Создание таблиц.
Создайте таблицы:
Faculty (Название факультета, Курс, Количество групп на курсе );
Group (Название группы, Фамилия старосты, Количество студентов в группе);
Stud (ФИО, Домашний адрес, Телефон).
Построение внешних ключей
Разработка Приложения
Объединение таблиц
Свойство MasterFields: String;
2. Заполнение таблиц.
3. Редактирование полей
Создание полей-объектов
4. Проверка работы Приложения
ЗАДАНИЕ 2:
Добавить в Приложение (см. рис. 2)
1. Для таблицы Facultу и Group – компонент TDBNavigator.
Установите свойства TDBNavigator: DataSource = dsF (dsGrp);
ShowHint = True
2. Для таблицы Stud:
- Перемещение на первую запись (First)
- Перемещение на одну запись назад (Prior)
- Перемещение на одну запись вперед (Next)
- Перемещение на последнюю запись (Last)
- Добавление новой записи (значение поля Фамилия - из Edit1) (Insert)
- Редактирование записи (значение поля Фамилия - из Edit1) (Edit)
- Удаление записи (Delete)
- Удаление всех записей (Del All)
- Перемещение на заданное количество записей, \'-\' – движение к первой записи (Move by)
- Включение режима сортировки (неотсортированный список/ сортировка по фамилиям).
Для возможности сортировки по полю Фамилия надо создать вторичный индекс таблицы Stud по двум полям: G_Num и St_FIO (Фамилия). Для этого выполните следующее:
• Установите значения свойства Active=False у всех таблиц (это необходимо, чтобы можно было реконструировать таблицы. При Active=True таблицы находятся в режиме работы с базой данных и изменять их нельзя)
• Запустите DBD и создайте вторичный индекс известным способом
• Вернитесь к Приложению и у всех таблиц установите значения свойства Active=True
– Поиск фамилии способом перебора (Фамилия набирается в Edit2)
2. Для выполнения в таблице Stud Точного поиска и Поиска по символам необходимо:
• Установить значения свойства Active=False у всех таблиц
• Запустить DBD и создать вторичный индекс (inFIO) табл. Stud по полю St_FIO
• Вернуться в Приложение к табл. Stud и установить значение свойства Active=True (у таблиц Faculty и Group свойство Active=False)
• Запустить Приложение и проверить оба варианта поиска.

Лабораторная работа № 5
Тема: Базы данных.

ЗАДАНИЕ 1: Динамическое изменение SQL-запросов.
1. Разместите на форме компонент Query (закладка Data Access на панели компонентов) и определите для него следующие свойства:
• DatabaseName: DBDEMOS (выберите из списка)
• SQL (выбрать все поля из таблицы Country);
• Active.
2. Разместите на форме компонент DataSourse (определите для него свойство DataSet), DbGrid (определите для него свойство DataSourse).
3. Разместите на форме четыре метки для полей, по которым будет формироваться запрос, шесть кнопок для выполнения запросов по условиям, наложенным на поля таблицы Country и компонент TabControl (из закладки Win32).
4. Щелчки по кнопкам должны выполнять выполнение следующих запросов:
• для кнопки All отображается все поля и записи из таблицы Country;
• для кнопки C.. отображаются те записи таблицы, у которых поле Name начинается с буквы ‘C’;
• для кнопки ..C.. отображаются те записи таблицы, у которых поле Name содержит букву ‘C’;
• для кнопки South America отображаются те записи таблицы, у которых поле Continent принимает значение ‘South America’;
• для кнопки North America отображаются те записи таблицы, у которых поле Continent принимает значение ‘North America’;
• для кнопки Sort таблица отображается в отсортированном по полю Population виде.
Обработчики событий OnClick для всех кнопок должны содержать следующие действия:
• закрыть текущий запрос (метод Close объекта Query1);
• очистить список строк запроса (метод Clear свойства SQL);
• добавить новую строку в запрос (метод Add свойства SQL);
• обработать новый запрос (метод Open объекта Query1).
5. Названия закладок компонента TabControl1 определяются в обработчике OnCreate формы с помощью метода Add свойства Tabs объекта TabControl1.
6. С помощью обработчика событий OnChange объекта TabControl1 определите отображаемую информацию из таблицы (значения поля Capital должны начинаться на выбранную из закладки букву) при помощи параметризованного запроса, параметр которого будет определяться из названия закладки. В этом обработчике необходимо выполнить следующее:
• закрыть текущий запрос (метод Close объекта Query1);
• очистить список строк запроса (метод Clear свойства SQL);
• добавить новую строку параметризованного запроса (метод Add свойства SQL);
• определить с помощью метода ParamByName значение параметра с указанным именем:
ParamByName(‘<имя параметра>’).Value:=<значение закладки>+’%’
• обработать новый запрос (метод Open объекта Query1).
7. Определите порядок табуляции объектов, имеющих фокус с помощью команды Edit-Tab Order.
8. Для объекта DbGrid установите свойство TabStop равным False, свойство ReadOnly равным ReadOnly.
9. Запустите приложение. Проверьте работу всех кнопок и закладок.

ЗАДАНИЕ 2: Связывание и объединение таблиц (таблицы Orders.db и Items.db из базы данных, имеющей псевдоним DBDEMOS, связываются и объединяются по полю OrderNo).
1. Поместите на форму три метки, три компонента Query, три компонента DataSourse, три компонента DbGrid.
2. Свяжите соответствующие объекты Query, DataSourse, DbGrid между собой.
3. Для компонента Query1 (таблица Orders) определите SQL-запрос:
выбрать все записи с полями OrderNo, CustNo и SaleDate из таблицы Orders.
4. Для компонента Query2 (таблица Items) определите SQL-запрос:
выбрать те записи с полями OrderNo, PartNo и Qty из таблицы Items, в которых поле Orders принимает значение некоторого параметра. Значение этого параметра должно определяться набором данных, используемых объектом Query1, поэтому установите свойство DataSourse для объекта Query2 равным DataSourse1.
5. Для компонента Query3 (таблица Join) определите SQL-запрос:
выбрать те записи с полями OrderNo, CustNo, SaleDate из таблицы Orders и PartNo, Qty из таблицы Items, у которых совпадают значения полей OrderNo и упорядочить их по полю OrderNo.
6. Установите свойство Active для всех объектов класса TQuery равным True.
7. Запустите приложение