Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
lab_rab_pascal_delphi.doc
Скачиваний:
1
Добавлен:
01.05.2025
Размер:
6 Мб
Скачать
☆
  1. Запрограмуйте кнопку переходу на попередній запис «Попередній».

procedure TpagesDlg.Button1Click(Sender: Tobject);

begin

if ComboBox1.ItemIndex = 0 then {Зациклюємо список}

ComboBox1.ItemIndex := N-1

Else {У середині списку показник зменшується на одиницю}

ComboBox1.ItemIndex := ComboBox1.ItemIndex - 1;

NewEdit(ComboBox1); { Оновлюємо панель «Знайдений запис»}

end;

  1. Аналогічно запрограмуйте кнопку «Наступний».

Програмний код створеної процедури запишіть в звіт.

  1. Збережіть програму і переконайтеся в правильності її роботи.

  2. Запустіть програму, прочитайте з диска файл телефонного довідника, виберіть будь-яке прізвище в комбінованому списку і поміняйте його в полі редагування «Прізвище». Переконайтеся в тому, що синхронні зміни відбуваються і в комбінованому списку. Збережіть зміни і використовуйте кнопки «Попередній» і «Наступний» для навігації по записах, переконайтеся в зацикленні списку. Відредагуйте дані в таблиці, збережіть довідник у файлі на диску, прогляньте вікно «Про програму», закінчите роботу з програмою.

  3. Створіть ехе-файл програми.

  4. Закрийте Delphi, запустіть створену програму .

  5. Продемонструйте створену форму викладачеві.

  6. Виконайте додаткові завдання .

№

п/п

Завдання

Запрограмуйте кнопку «Видалити» так, щоб після натиснення на ній видалялися дані з панелі «Знайдений запис» і з комбінованого списку

Запрограмуйте кнопку «Знайти» так, щоб на панелі «Знайдений запис» відображалася інформація про особу, прізвище якої вказане в полі редагування Edit5 «Введіть прізвище». Якщо такого прізвища немає, то виведіть повідомлення про це в окремому вікні.

Запрограмуйте команди підміню «А—>Я» і «Я—>А» пункту головного меню «Сортувати» так, щоб прізвища в таблиці і комбінованому списку були відсортовані в алфавітному або зворотному порядку.

Видаліть команду «Зберегти зміни в списку записів» з головного меню і забезпечте збереження змін у момент редагування таблиці і полів на панелі «Знайдений запис».

У разі спроби відкрити неіснуючий файл телефонного довідника забезпечте появу вікна з відповідним повідомленням.

У момент виходу з програми забезпечте появу вікна для збереження файлу телефонного довідника у випадку, якщо в нім були зроблені зміни

  1. Оформити звіт про лабораторну роботу, в якому записати: тема і мета роботи; послідовність виконання роботи, тексти задач і програм, створених на лабораторній роботі.

Лабораторна робота №6 Тема: Створення програми: текстовий редактор «Блокнот».

Мета: Навчитись використовувати компоненти: MainMenu, панель інструментів (ToolBar), ImageList, RichEdit, OpenDialog, SaveDialog, FontDialog.

Хід роботи.

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]