Опис процедур - обробників подій
При запусканні проекту компоненти на вкладках стають невидимими, крім фонових малюнків, і забезпечується доступ лише до пунктів меню «Файл», «Автор» і «Вихід». Ця операція виконується у відгуку на подію для форми 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, ComboBox 2, RadioGroup 1. При введенні даних доступ до цих компонентів забезпечується послідовно за допомогою процедур обробки подій OnChange:
Підпрограма забезпечення доступу до компонента ComboBox 1
procedure TForm1.Edit1Change(Sender: TObject);
Підпрограма забезпечення доступу до компонента RadioGroup1
|
|
|
procedure TForm1.ComboBox1Change(Sender: TObject);
Підпрограма забезпечення доступу до компонента ComboBox2
procedure TForm1.RadioGroup1Click(Sender: TObject);
Підпрограма забезпечення доступу до компонента Edit2
procedure TForm1.ComboBox2Change(Sender: TObject);
Підпрограма забезпечення доступу до компонента Edit3
procedure TForm1.Edit2Change(Sender: TObject);
Підпрограма забезпечення доступу до компонента Edit4
procedure TForm1.Edit3Change(Sender: TObject);
Підпрограма забезпечення доступу до кнопки Button 1
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);
Якщо в інформацію по конкретному працівнику необхідно ввести зміни, то потрібно перейти на вкладку «Редагування даних». Ввівши назву відділу у компонент Edit6, активізується кнопка Button5 процедурою:
procedure TForm1.Edit6Change(Sender: TObject);
|
|
|
При натисненні на кнопку «Пошук» інформація про працівника з ’ являється в компоненті StringGrid2. Після цього з ’ являються кнопки «Зберегти зміни» (Button6) і «З авершити редагування» (Button7). Відповідна процедура:
procedure TForm1.Button5Click(Sender: TObject);
Після внесення змін у дані таблиці натискують на кнопку «Зберегти зміни». Відредагована інформація записується у файл даних. Відповідна процедура:
procedure TForm1.Button6Click(Sender: TObject);
При натисненні на кнопку «Завершити редагування» на вкладці зникає інформація. Відповідна процедура:
procedure TForm1.Button7Click(Sender: TObject);
Після введення даних можна приступити до розв ’ язання поставлених задач , а саме , можна переходити на вкладки «Довідка 1» , «Довідка 2 » , «Довідка 3 » .
Вкладка «Довідка 1». Назва посади вводиться в компонент ComboBox3, що активізує кнопку «Пошук» (Button8) процедурою:
procedure TForm1. ComboBox3Change(Sender: TObject);
При натисненні на кнопку «Пошук» інформація по запиту «Нарахування заробітної плати працівників за посадою, визначення середнього окладу» з ’ являється в компоненті StringGrid3, а середній оклад підраховується та виводиться в компонент Edit7 і після цього з ’ являється кнопка «Завершити перегляд» (Button9). Відповідна процедура :
procedure TForm1.Button8Click(Sender: TObject);
|
|
|
При натисненні на кнопку «Завершити перегляд» зникає інформація по запиту на закладці «Довідка 1». Відповідна процедура:
procedure TForm1.Button9Click(Sender: TObject);
Вкладка «Довідка 2». Назва посади вводиться в компонент ComboBox4, що активізує кнопку «Пошук» (Button10) процедурою:
procedure TForm1.ComboBox4Change(Sender: TObject);
При натисненні на кнопку «Пошук» інформація по запиту «Визначення загальної суми відрахувань по заданому відділу» з ’ являється в компоненті StringGrid4, а загальна кількість відрахувань підраховується та виводиться в компонент Edit 8 і після цього з ’ являється кнопка «Завершити перегляд» (Button11). Відповідна процедура :
procedure TForm1.Button10Click(Sender: TObject);
При натисненні на кнопку «Завершити перегляд» зникає інформація по запиту на закладці «Довідка 2». Відповідна процедура:
procedure TForm1.Button11Click(Sender: TObject);
Вкладка «Довідка 3». Кнопка «Визначення премії»( Button 12) є активною.
При натисненні на кнопку «Визначення премії» інформація по запиту «Максимальна та мінімальна премія серед жінок та чоловіків» з ’ являється в компонентах StringGrid5 та StringGrid6. В StringGrid5 виводяться премії серед жінок, в StringGrid6 – премії серед чоловіків. А мінімальна та максимальна премія серед жінок та чоловіків підраховується та виводиться в компоненти Label 27, Label 31 (мінімальна) та в Label 28, Label 32 (максимальна). І після цього з ’ являється кнопка «Завершити перегляд» (Button13). Відповідна процедура :
|
|
|
procedure TForm1.Button12Click(Sender: TObject);
При натисненні на кнопку «Завершити перегляд» зникає інформація по запиту на вкладці «Довідка 3». Відповідна процедура:
procedure TForm1.Button13Click(Sender: TObject);
Щоб очистити поля на всіх вкладках форми, виконують пункт головного меню «Очистити», а потім «Очистити поля». Відповідна процедура:
procedure TForm1.N5Click(Sender: TObject);
Щоб очистити файл від даних, виконують пункт головного меню «Очистити», а потім «Очистити файл». Відповідна процедура:
procedure TForm1.N6Click(Sender: TObject);
Щоб отримати інформацію про автора, потрібно скористатись пунктом головного меню «Автор». Відповідна процедура:
procedure TForm1.N8Click(Sender: TObject);
Завершити роботу програми можна, скориставшись пунктом головного меню «Вихід». Відповідна процедура:
procedure TForm1.N7Click(Sender: TObject);
Опис модулів
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, Menus, StdCtrls, Grids, jpeg, ExtCtrls;
Тут описані стандартні модулі Delphi, необхідні для написання програми. Програма розробляється для операційної системи Windows, тому успадковує набір стандартних функцій.
Дата добавления: 2019-02-22; просмотров: 226; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!