3.3 Опис процедур – обробників подій

При запусканні проекту вилучаються всі видимі компоненти, крім малюнків, і забезпечується доступ лише до пунктів меню «Файл» і «Вихід». Ця операція виконується у відгуку на подію для форми OnActivate і реалізується процедурою:

procedure TForml.FormActivate(Sender: TObject);

Після запускання проекту на виконання необхідно або створити новий файл, або відкрити вже існуючий. Для виконання однієї з цих операцій використовується підпункт меню «Файл» і далі – або «Створити файл», або «Відкрити файл». Відповідні процедури цих подій:

procedure TForm1.N3Click(Sender: TObject);

procedure TForm1.N4Click(Sender: TObject);

Після того, як буде введене ім’я файла у вікно Edit5, активізується кнопка Button2 («Прийнято») процедурою:

procedure TForm1.Edit5Change(Sender: TObject);

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

procedure TForm1.Button2Click(Sender: TObject);

Після натиснення на кнопку «Прийнято» також з’являються і подекуди активізуються компоненти на всіх вкладках і активізується пункт головного меню «Очистити».

Доступ до кнопки Button1 («Додати») забезпечується після введення даних у вікна Edit1-Edit4, ComboBox1, CheckBox1, CheckBox2. При введенні даних доступ до цих компонентів забезпечується послідовно за допомогою процедур обробки подій OnChange:

Підпрограма забезпечення доступу до компонента ComboBox1:

procedure TForm1.Edit1Change(Sender: TObject);

Підпрограма забезпечення доступу до компонента Edit2:

procedure TForm1.ComboBox1Change(Sender: TObject);

Підпрограма забезпечення доступу до компонента Edit3:

procedure TForm1.Edit2Change(Sender: TObject);

Підпрограма забезпечення доступу до компонента Edit4:

procedure TForm1.Edit3Change(Sender: TObject);

Підпрограма забезпечення доступу до компонентів CheckBox1, CheckBox2 і кнопки Button1:

procedure TForm1.Edit4Change(Sender: TObject);

Для запису у файл введених даних застосовують подію OnClick для кнопки Button1 («Додати»). Підпрограма обробки цієї події:

procedure TForm1.Button1Click(Sender: TObject);

Якщо файл містить дані, то можна переглянути його вміст, перейшовши на вкладку «Перегляд даних» і натиснувши на кнопку «Переглядання усіх записів» (Button3). Підпрограма обробки події OnClick для кнопки Button3:

procedure TForm1.Button3Click(Sender: TObject);

Якщо виконується перегляд усіх записів, тоді з’являється кнопка “Завершити переглядання даних”, підпрограма якої:

procedure TForm1.Button4Click(Sender: TObject);

Після введення даних та їхнього переглядання можна приступити до розв’язання поставлених задач, а саме, можна переходити на закладки «Запит1», «Запит2», «Запит3».

Закладка «Запит1». Дані про працівників вводиться в компонент Edit6 і Edit7. Спочатку активізований лише компонент Edit6. Edit7 активізується процедурою:

procedure TForm1.Edit6Change(Sender: TObject);

Після занесення даних в Edit7 активізується кнопка «Пошук» (Button5) процедурою: ComboBox3

procedure TForm1.Edit7Change(Sender: TObject);

При натисненні на кнопку «Пошук» інформація по запиту «Працівники певної посади з найбільшим заробітком» з’являється в компоненті Memo1 і після цього з’являється кнопка «Завершити перегляд» (Button6). Відповідна процедура:

procedure TForm1.Button5Click(Sender: TObject);

При натисненні на кнопку «Завершити перегляд» зникає інформація по запиту на закладці «Запит1». Відповідна процедура:

procedure TForm1.Button6Click(Sender: TObject);

Закладка «Запит2». Середній розмір премії вибирається в компоненті ComboBox4, що активізує кнопку «Пошук» (Button7) процедурою:

procedure TForm1.Edit8Change(Sender: TObject);

При натисненні на кнопку «Пошук» інформація по запиту «Середній розмір премії» з’являється в компоненті Memo2 і після цього з’являється кнопка «Завершити перегляд» (Button8). Відповідна процедура:

procedure TForm1.Button7Click(Sender: TObject);

При натисненні на кнопку «Завершити перегляд» зникає інформація по запиту на закладці «Запит2». Відповідна процедура:

procedure TForm1.Button8Click(Sender: TObject);

Закладка «Запит3». При натисненні на кнопку «Працівники підприємства, які не отримали премії» (Button9) інформація з’являється у таблиці (компонент StringGrid2) і також з’являється кнопка «Завершити перегляд» (Button10). Відповідна процедура:

procedure TForm1.Button9Click(Sender: TObject);

При натисненні на кнопку «Завершити перегляд» зникає інформація по запиту на закладці «Запит3». Відповідна процедура:

procedure TForm1.Button10Click(Sender: TObject);

Щоб очистити поля на всіх закладках форми, виконують пункт головного меню «Очистити», а потім «Очистити поля». Відповідна процедура:

procedure TForm1.N5Click(Sender: TObject);

Щоб очистити файл від даних, виконують пункт головного меню «Очистити», а потім «Очистити файл». Відповідна процедура:

procedure TForm1.N6Click(Sender: TObject);

Завершити роботу можна, скориставшись пунктом головного меню «Вихід». Відповідна процедура:

procedure TForm1.N7Click(Sender: TObject);