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

Работа с таблицами в интегрированной среде Delphi

План работы:

Проект «Фильмотека»

Разработайте проект, который позволяет вносить данные о видеокассетах.

1) Разместите на форме компонент PageControl (вкладка Win32). С помощью контекстного меню компонента добавьте две страницы «Ввод данных» и «Поиск данных».

2) На первой странице разместите компонент StringGrid (таблица для занесения сведений о фильмах). Установите количество столбцов таблицы – 4, строк – 10. Свойство Options.goEditing установите в состояние true (разрешить редактировать таблицу).

3) Сохраните проект

4) Обработайте событие OnCreate формы, подписав фиксированную строку таблицы «Название фильма», «Режиссер», «Жанр» и фиксированный столбец (пронумеровать строки). Используйте свойство Cells компонента StringGrid. Обратите внимание: Вначале указывается номер столба, затем номер строки. А нумерация идёт с нуля.

Пример,

StringGrid1.Cells[3, 0]: ='жанр';

Номера строк заполняйте в цикле.

Для i от 0 до StringGrid1. «Количество рядов» - 1 делай

Проверьте работу проекта.

5) Опишите в модуле тип запись (сведения о фильме) и файл типа эта запись.

6) По нажатию на кнопку «В файл», сохраните сведения, занесенные в таблицу, в файл. При сохранение указывайте расширение например, flm, чтобы отделять ваши файлы.

Для этого добавьте диалог сохранения TSaveDialog. Какая структура вызывает диалог?

Откройте выбранный файл для записи.

В цикле переберите все строки, сформируйте из столбцов переменную и запишите её в файл.

7) Аналогично обработайте кнопку из файла. Вызовите диалог TOpenDialog , откройте файл для чтения, количество строк в StringGrid (StringGrid1.RowCount) укажите столько сколько элементов в файле+1 (FileSize(f)).

8) Настроим диалоги так, чтобы они показывали нам только файлы нашим расширением. Для этого выделите диалоги (можно оба сразу). Найдите свойство Filter. Откроется окно. Укажите имя фильтра и маску.

Задайте расширение по умолчанию, чтобы не писать его при сохранение.

Запустите проект посмотрите результат.

9) Добавьте фильтр, показывающий все файлы.

10) Посмотрите проект.

11) Оформите согласно примеру вторую вкладку.

12) Обработайте событие на кнопку. Поиск по условию в StringGrid.

13) Добавьте меню

14) Добавьте на форму 2 диалога шрифта FontDialog и цвета ColorDialog. . Для соответствующих пунктов меню укажите вызов диалогов и сменю соответствующего свойства формы, на значение выбранные в диалогах.

15) Что из пункта язык можно было выбрать только 1 из них, укажите для этих пунктов свойства RadioItem в True.

16) Для пункта меню Английский обработчик события выглядит так:

17) Самостоятельно опишите вызов формы AboutBox на меню Помощь