Задание5_Записная_книжка (1076702)
Текст из файла
Задание 5
Записная книжка
Разработать приложение «Записная книжка» (см. Рис. 1,2).
Рис. 1. Основная форма (Form1).
Рис.2. Дополнительные формы (Form2 и Form3).
Рекомендации по разработке программы «Записная книжка».
Шаг 1. Создайте основную форму в соответствии с рисунком1, напишите процедуру для события OnClick кнопки «Завершение работы», сохраните проект и запустите его на выполнение. Проверьте правильность выполненной работы.
Шаг 2. Создайте дополнительные формы в соответствии с рисунком 2. При создании форм свойству Visible присвойте значение False. Отладьте вызов дополнительных форм с помощью кнопок «Ввод/добавление записей» и «Поиск по фамилии» и возврат в основную форму с закрытием этих форм при нажатии кнопки «Конец». Для открытия и закрытия форм используйте методы Show и Hide класса TForm. Добавьте модули используемых форм в список uses использующей их формы. Сохраните проект и запустите его на выполнение. Проверьте правильность выполненной работы.
Шаг 3. По событию TForm1.FormActivate организуйте проверку наличия файла с записями, и если его нет, то создайте его. Это событие происходит один раз при открытии основной формы. Информация о вводе и выводе записей в файл приведена в Приложении 1.
Шаг 4. По кнопке «Ввод/добавление записей» откройте файл БД на добавление и откройте форму 2. По кнопке «Записать» организуйте заполнение записи rec из полей ввода и запись rec в файл. Сохраните проект и запустите его на выполнение. Проверьте правильность выполненной работы.
Шаг 5. По кнопке «Поиск по фамилии» откройте файл БД на чтение и откройте форму 3. По кнопке «Найти» организуйте в цикле while not EOF(F) чтение записей из файла в rec и сравнение поля rec.f_name c введенной фамилией. При совпадении выведите остальные поля записи rec на форму, а если запись не найдена, то соответствующее сообщение. Сохраните проект и запустите его на выполнение. Проверьте правильность выполненной работы.
Шаг 6. Доработайте программу для случая, когда фамилии в записной книжке могут совпадать.
Приложение 1.
Ввод и вывод записей в файл
Записи можно хранить в файле. Для того чтобы программа могла сохранить значение
переменной-записи в файле или ввести его из файла, необходимо объявить файл,
указав в качестве типа его компонентов тип "запись". Например, инструкции
type
TPerson = record
f_name: string[20];
l_name: string[20];
address: string[50];
end;
var
f: file of TPerson;
объявляют файл, компонентами которого являются записи типа TPerson.
Процесс работы с файлом записей практически ничем не отличается от процесса работы с обычным файлом. Сначала надо объявить файловую переменную и с помощью процедуры AssignFile связать эту переменную с конкретным файлом. Затем нужно открыть файл (для чтения, записи или обновления). После этого можно прочитать запись из файла или записать запись в файл.
//активизация формы
procedure TForm1.FormActivate(Sender: TObj ect);
var
resp : word; // ответ пользователя
begin
AssignFile(f, 'note.txt');
{$I-}
Reset(f); // открыть файл
Seek(f, FileSize(f)); // указатель записи в конец файла
{$I+}
if IOResult = 0
then button1.enabled:=TRUE // теперь кнопка Добавить доступна
else
begin
resp:=MessageDlg('Файл базы данных не найден.'+
'Создать новую БД?',
mtInformation, [mbYes,mbNo] ,0) ;
if resp = mrYes then
begin
{$I-}
rewrite(f);
{$I+}
if IOResult = 0
then button1.enabled:=TRUE
else ShowMessage('Ошибка создания файла ');
end;
end;
end;
Характеристики
Тип файла документ
Документы такого типа открываются такими программами, как Microsoft Office Word на компьютерах Windows, Apple Pages на компьютерах Mac, Open Office - бесплатная альтернатива на различных платформах, в том числе Linux. Наиболее простым и современным решением будут Google документы, так как открываются онлайн без скачивания прямо в браузере на любой платформе. Существуют российские качественные аналоги, например от Яндекса.
Будьте внимательны на мобильных устройствах, так как там используются упрощённый функционал даже в официальном приложении от Microsoft, поэтому для просмотра скачивайте PDF-версию. А если нужно редактировать файл, то используйте оригинальный файл.
Файлы такого типа обычно разбиты на страницы, а текст может быть форматированным (жирный, курсив, выбор шрифта, таблицы и т.п.), а также в него можно добавлять изображения. Формат идеально подходит для рефератов, докладов и РПЗ курсовых проектов, которые необходимо распечатать. Кстати перед печатью также сохраняйте файл в PDF, так как принтер может начудить со шрифтами.














