Порядок создания приложения.

1. Создать новый проект и сохранить его в своем каталоге
2. Создать основное меню с командами Файл (Открыть, Сохранить), Таблица (Добавить строку, Удалить строку, Очистить строку), Поиск (По фамилии, По названию), Обработка (Выдать, Вернуть), Выход. Для каждой команды задать клавиши быстрого доступа
3. Разместить на форме компонент для панели инструментов и наполнить ее необходимыми кнопками, добавить редактор для ввода фамилии или названия при поиске в таблице
4. Разместить на форме компонент StringGrid и задать для него:

· выравнивание по всей клиентской области

· число фиксированных столбцов = 0

· число фиксированных строк = 1 (шапка таблицы)

· число столбцов = 4

· подобрать для столбцов подходящие размеры по ширине

· с помощью свойства Options установить возможность редактирования текста непосредственно в клетках таблицы (goEditing = true), возможность изменения мышью ширины столбцов при выполнении программы (goColSizing = true), возможность перехода между клетками таблицы с помощью клавиши Tab (goTabs = true)

1. Разместить на форме стандартные диалоги открытия файла и сохранения в файле и настроить их стандартным образом на работу с текстовыми файлами
2. Создать обработчик события формы OnCreate, в котором присвоить клеткам нулевой (фиксированной) строки таблицы текстовые значения – заголовки столбцов. Для этого используется свойство Cells, представляющее собой двухмерный массив клеток с нумерацией строк и столбцов с нуля, причем первый индекс – номер столбца
3. Создать обработчик для заполнения ячеек таблицы записями из текстового файла. В простейшем случае каждое поле таблицы можно сохранить как отдельную строку текстового файла. Для этого:

· в разделе реализации модуля объявить файловую переменную с помощью встроенного типа TextFile, который используется вместо обычного типа Text

· вызвать стандартный диалог открытия файла с помощью метода Execute

· связать файловую переменную и выбранный в диалоге файл (свойство FileName) с помощью стандартной функции AssignFile, которая используется вместо обычной функции Assign

· открыть файл для чтения с помощью функции Reset

· обычным образом организовать цикл по условию достижения конца файла

· внутри организовать вложенный цикл для чтения с помощью ReadLn очередных четырех строк текстового файла с присвоением прочитанных значений соответствующим клеткам таблицы, что в итоге сформирует одну строку таблицы

· после завершения внешнего цикла установить свойство таблицы RowCount в число прочитанных строк

· закрыть файл с помощью функции CloseFile

1. Создать обработчик для сохранения введенной в таблице информации в текстовом файле. Для этого:

· вызвать стандартный диалог сохранения файла с помощью метода Execute

· связать файловую переменную и выбранный в диалоге файл (свойство FileName) с помощью стандартной функции AssignFile

· открыть файл для записи с помощью функции Rewrite

· вложенными циклами записать в текстовый файл строки из ячеек таблицы, используя для этого свойства RowCount, ColCount и свойство-массив Cells (нулевую строку с шапкой таблицы записывать в файл не надо)

· закрыть файл

1. Создать обработчик для добавления в таблицу новой строки после текущей (выделенной, активной). Для этого:

· увеличить на 1 число строк в таблице (свойство RowCount)

· циклически сдвинуть все строки, расположенные ЗА текущей (номер текущей строки хранится в свойстве Row) на одну строку вниз, используя для этого свойство-массив строк Rows и цикл типа For - Downto

· очистить строку Row +1 c помощью метода Clear свойства-массива Rows

1. Создать обработчик для удаления из таблицы текущей строки (ее номер хранится в свойстве Row). Для этого:

· циклически все строки, начиная с Row +1 сдвигаются на 1 вверх

· счетчик числа строк уменьшается на 1

1. Создать обработчик для очистки текущей строки
2. Создать обработчик для поиска в таблице записи с заданной фамилией. Для этого можно использовать метод IndexOf (строка) свойства-массива столбцов Cols [1], если фамилия задана во втором столбце. Метод возвращает номер первой записи, где найдена заданная строка или значение –1 при отсутствии этой строки. Основные шаги:

· проверить значение в строке ввода и при ее пустоте вывести сообщение

· сохранить во вспомогательной переменной значение, возвращенное функцией IndexOf

· если это значение равно -1, вывести предупреждающее сообщение

· иначе – присвоить это значение свойству Row таблицы для активизации соответствующей записи

1. Аналогично создать обработчик для поиска в таблице записи с заданным названием книги
2. Создать обработчик команды выдачи книги, который должен:

· проверить текущее количество книг и при необходимости вывести сообщение о невозможности выдачи

· уменьшить на 1 значение числа экземпляров выданной книги с изменением значения в соответствующей клетке таблицы (преобразовать текст в число, уменьшить на 1 и выполнить обратное преобразование)

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

16. Проверить работу приложения для достаточно большого числа книг (20-25 наименований)

Не нашли, что искали? Воспользуйтесь поиском: