Розробка програмного забезпечення для автоматизованого робочого місця соціального працівника на мові програмування Delphi 7

Размещено на http://www.allbest.ru

Размещено на http://www.allbest.ru

Вступ

Сучасні умови для роботи по обслуговуванню клієнтів на підприємствах та фірмах досягли того рівня, коли обслуговуюча система оброблює дані з дуже великою швидкістю. Всі документи зберігаються на комп'ютері, а вся необхідна інформація заноситься до спеціальних баз даних.

Нажаль, до нашого часу, існують організації які всі обрахунки ведуть на папері. Це є великим недоліком, адже набагато знижується швидкість обробки даних та розрахунків. Тому виникає необхідність в написанні програм, які можуть вирішити ці проблеми.

Дана програма призначена для полегшення роботи соціальних працівників.

Програма має декілька баз даних, в яких зберігаються всі дані. Ця програма допоможе при нарахуванні субсидій. Вона автоматично буде виводити прізвища тих людей, яким потрібно нараховувати субсидію. Тобто тим, які сплачують за комунальні послуги більше десяти відсотків від прибутку за місяць. Соціальні працівники зможуть занести до програми всі необхідні дані про людей похилого віку: ПІБ, адресу, дату народження, телефон, номер пенсійного посвідчення. У програмі буде пошук людей по певним даним. Вибравши відповідне поле, за яким буде відбуватися пошук, та ввівши потрібні дані автоматично знаходиться потрібна особа.

Дана програма буде дуже легкою у користуванні. Її використовувати зможе кожен, хто має хоч найменші навички користування комп'ютером.

1. Розробка інтерфейсу користувача

1.1 Загальні рекомендації

Загальні рекомендації по розробці графічного інтерфейсу були використані:

Головне меню. Реалізується компонентою MainMenu.

Панель інструментів швидких клавіш, дублюючих основні розділи меню.

Контекстне меню (реалізується компонентою PopupMenu), випливає при клацанні користувача правою кнопкою миші на вікні програми або компоненті.

Ярлики підказок, випливаючи при піднесені курсору миші на компоненти.

Кольори, що використовувались у програмі є легкими для сприйняття, тому сприйняття програми не втомлює користувача.

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

1.2 Багатовіконні та багатосторінкові додатки

Опис всіх вікон програми можна розглянути в таблиці 1.1

Таблиця 1.1. Опис вікон програми

№ п/п	Назва	Призначення	Примітка (якщо використовується компонента палітри Dialogs чи інше стандартне вікно)
1.	Головна форма (Form1)	Служить головною формою програми. На ній ми можемо розділ, з яким будемо далі працювати(здійснює перхід до вікон Form2, Form4).
2.	На платній основі (Form2)	Для переглядання детальної інформації про осіб, які знаходяться на платній основі(ПІБ, дата народження, адреса проживання, категорія, номер пенсійного посвідчення, номер особової справи).	OpenDialog1 (використовується для завантаження RTF фалів). SaveDialog1 (для збереження текстових файлів)
3.	На безплатній основі (Form4)	Для переглядання детальної інформації про осіб, які знаходяться на платній основі (ПІБ, дата народження, адреса проживання, категорія, номер пенсійного посвідчення, номер особової справи).	OpenDialog1 (використовується для завантаження RTF фалів). SaveDialog1 (для збереження текстових файлів)
4.	Текстовий редактор (Form5 )	Для редагування текстової інформації.	FontDialog1 (використовується для редагування матеріалу)

1.3 Проектування екрану

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

Компоненти розташовані на «Головна форма»(Form1):

Зверху розташоване MainManu1. В ньому знаходяться команди для переходу до Form2 та Form4.

Button1 та Button2 - зліва внизу, для переходу на Form2 та Form4.

MonthCalendar1 - в правій частині форми.

GradText1 - вверху форми. Він слугує для відображення назви центру.

Компоненти розташовані на «На платній основі»(Form2):

Вверху форми розташоване MainManu1.

Під ним знаходиться Panel1, на якій розташовані кнопки редагування таблиці (SpeedButton1, SpeedButton2, SpeedButton3, SpeedButton18).

PageControl1 - призначена для розміщення на формі закладок, на яких знаходяться інші компоненти.

На закладці TabSheet1(головна) розташовані DBGrid1 та DBGrid2. Вони слугують для виводу інформації про осіб похилого віку.

DBNavigator1 та DBNavigator2 - роблять зручним перегляд даних в DBGrid1 та DBGrid2. Також використовуються для редагування даних таблиць.

DBText1 - виводить на форму поле ПІБ з DBGrid1.

На закладці TabSheet2 (субсидії) розташовані DBGrid3 та DBGrid4. Вони слугують для виводу інформації про осіб , які отримують субсидію.

RichEdit1 - слугує для виводу поля ПІБ з DBGrid1 для тих осіб, яким потрібно нараховувати субсидію.

Над RichEdit1 розташована Panel2 - на якій знаходяться SpeedButton8, SpeedButton9, SpeedButton10, SpeedButton11 та SpeedButton12(кнопки для редагування тексту). Та SpeedButton6, SpeedButton7, SpeedButton15, які відповідають за збереження, відкривання та друк текстової інформації.

Внизу форми розташовані Button1(вивести - слугує для виведення поля ПІБ з таблиці в RichEdit1) та Button2 (відкрити - відкриває Form5).

На закладці TabSheet3 (пошук) розташовані: ComboBox1 - для вибору поля пошуку та Edit1 - для введення тексту, який потрібно знайти.

SpeedButton4 - почати пошук.

Label3 (оберіть поле) та Label4 (введіть текст).

На закладці TabSheet4 (заяви) розташовані:

RichEdit2 - призначений для виведення тексту заяви.

Edit2, Edit3, Edit4 - для введення необхідних даних.

SpeedButton13, Button4, Button5 - призначені для відкривання, виведення та збереження текстової інформації.

Компоненти розташовані на «На безплатній основі» (Form4):

Вверху форми розташоване MainManu1.

Під ним знаходиться Panel1, на якій розташовані кнопки редагування таблиці (SpeedButton1, SpeedButton2, SpeedButton3, SpeedButton18).

PageControl1 - призначена для розміщення на формі закладок, на яких знаходяться інші компоненти.

На закладці TabSheet1(головна) розташовані DBGrid1 та DBGrid2. Вони слугують для виводу інформації про осіб похилого віку.

DBNavigator1 та DBNavigator2 - роблять зручним перегляд даних в DBGrid1 та DBGrid2. Також використовуються для редагування даних таблиць.

DBText1 - виводить на форму поле ПІБ з DBGrid1.

На закладці TabSheet2 (субсидії) розташовані DBGrid3 та DBGrid4. . Вони слугують для виводу інформації про осіб , які отримують субсидію.

RichEdit1 - слугує для виводу поля ПІБ з DBGrid1 для тих осіб, яким потрібно нараховувати субсидію.

Над RichEdit1 розташована Panel2 - на якій знаходяться SpeedButton8, SpeedButton9, SpeedButton10, SpeedButton11 та SpeedButton12 (кнопки для редагування тексту). Та SpeedButton6, SpeedButton7, SpeedButton15, які відповідають за збереження, відкривання та друк текстової інформації.

Внизу форми розташовані Button1 (вивести - слугує для виведення поля ПІБ з таблиці в RichEdit1) та Button2 (відкрити - відкриває Form5).

На закладці TabSheet3 (пошук) розташовані: ComboBox1 - для вибору поля пошуку та Edit1 - для введення тексту, який потрібно знайти.

SpeedButton4 - почати пошук.

Label3 (оберіть поле) та Label4 (введіть текст).

На закладці TabSheet4 (заяви) розташовані:

RichEdit2 - призначений для виведення тексту заяви.

Edit2, Edit3, Edit4 - для введення необхідних даних.

SpeedButton13, Button4, Button5 - призначені для відкривання, виведення та збереження текстової інформації.

Компоненти розташовані на «Текстовий редактор»(Form5):

Зверху на формі розташовано MainMenu1, яке відразу потрапляє в поле зору користувача. В ньому знаходяться такі команди, які потрібні для роботи з текстовою інформацією.

Під MainMenu1 розміщено Panel1 та Panel2 на яких знаходяться:

Button1 (вивести) - виводить текст в RichEdit1.

SpeedButton1 (відкрити), SpeedButton2 (зберегти), SpeedButton3 (друкувати) - відповідають за відкривання, збереження та друк текстової інформації.

SpeedButton13(вирізати), SpeedButton15 (копіювати), SpeedButton19 (вставити) - для роботи з текстом.

SpeedButton16 (вставити дату), SpeedButton17 (вставити час) - вставляють в текст дату та час.

ComboBox1 - змінює розмір шрифту.

ColorBox1 - дозволяє обрати колір шрифту.

SpeedButton4, SpeedButton5, SpeedButton6, SpeedButton7, SpeeButton8, SpeedButton9, SpeedButton10, SpeedButton11, SpeedButton12 - для редагування тексту.

SpinEdit1 - дозволяє обрати відступ для абзацу.

DateTimePicker1 - виводить дату. DateTimePicker2 - виводить час. Під ними розташована RichEdit1 - для виводу текстової інформації.

1.4 Підказки і контекстно-залежні довідки

Опис всіх випливаючи підказок розміщених на компонентах в програмі можна розглянути в таблиці 1.2.

Таблиця 1.2. Опис підказок

№ п/п	Назва вікна	Назва компоненти	Підказка
1.	Головна форма (Form1)	Button1	Відкриється форма "На платній основі"
2.		Button2	Відкриється форма "На безплатній основі"
№ п/п	Назва вікна	Назва компоненти	Підказка
3.	На платній основі (Form2)	SpeedButton1	Видалити запис з таблиці
4.		SpeedButton2	Додати запис до таблиці
5.		SpeedButton3	Зберегти запис в таблиці
6.		SpeedButton4	Розпочати пошук
7.		SpeedButton6	Зберегти
8.		SpeedButton7	Друк
9.		SpeedButton8	Вирівняти текст по лівому краю
10.		SpeedButton9	Вирівняти текст по правому краю
11.		SpeedButton10	Курсив
12.		SpeedButton11	Жирний
13.		SpeedButton12	Вирівняти текст по центру
14.		SpeedButton13	Вивести дані
15.		SpeedButton15	Відкрити
16.		SpeedButton18	Обновити дані таблиці
17.		Button1	Вивести дані
18.		Button2	Відкрити редактор
19.		Button4	Зберегти
20		Button5	Відкрити
21.	На безплатній основі (Form4)	SpeedButton1	Розпочати пошук
22.		SpeedButton2	Додати запис до таблиці
23.		SpeedButton3	Зберегти запис таблиці
24.		SpeedButton4	Видалити запис із таблиці
25.		SpeedButton6	Зберегти
26.		SpeedButton7	Друк
27.		SpeedButton8	Вирівнювання по лівому краю
28.		SpeedButton9	Вирівнювання по правому краю
29.		SpeedButton10	Курсив
30.		SpeedButton11	Жирний
31.		SpeedButton12	Вирівнювання по центру
32.		SpeedButton13	Вивести дані
33.		SpeedButton15	Відкрити
34.		SpeedButton18	Обновити дані у таблиці
35.	Текстовий редактор (Form5)	SpeedButton1	Відкрити
36.		SpeedButton2	Зберегти
37.		SpeedButton3	Друк
38.		SpeedButton4	Маркований список
39.		SpeedButton5	Не маркований список
40.		SpeedButton6	Курсивом
41.		SpeedButton7	Жирний шрифт
42.		SpeedButton8	Вирівнювання тексту по лівому краю
43.		SpeedButton9	Вирівнювання тексту по центру
44.		SpeedButton10	Вирівнювання тексту по правому краю
45.		SpeedButton11	Шрифт
46.		SpeedButton12	Колір шрифта
47.		SpeedButton13	Вирізати
48.		SpeedButton15	Копіювати
49.		SpeedButton16	Вставити дату
50.		SpeedButton17	Вставити час
51.		SpeedButton18	Абзац
52.		SpeedButton19	Вставити
53.		ComboBox1	Розмір шрифта
54.		ColorBox1	Колір шрифту

1.5 Обробка подій клавіатури і миші

Опис обробки подій клавіатури і миші міститься в таблиці 1.3.

Таблиця 1.3. Опис подій миші та клавіатури

№ п/п	Подія	Компонента	Опис
Головна форма (Form1)
1.	OnClick	Button1	Перехід до вікна «На платній основі»
2.	OnClick	Button2	Перехід до вікна «На безплатній основі»
На платній основі(Form2)
1.	OnClick	SpeedButton1	Видалити запис з таблиці
2.	OnClick	SpeedButton2	Додати запис до таблиці
3.	OnClick	SpeedButton3	Зберегти запис в таблиці
4.	OnClick	SpeedButton4	Розпочати пошук
5.	OnClick	SpeedButton6	Зберегти
6.	OnClick	SpeedButton7	Друк
7.	OnClick	SpeedButton8	Вирівняти текст по лівому краю
8.	OnClick	SpeedButton9	Вирівняти текст по правому краю
9.	OnClick	SpeedButton10	Курсив
10.	OnClick	SpeedButton11	Жирний
11.	OnClick	SpeedButton12	Вирівняти текст по центру
12.	OnClick	SpeedButton13	Вивести дані
13.	OnClick	SpeedButton15	Відкрити
14.	OnClick	SpeedButton18	Обновити дані таблиці
15.	OnClick	Button1	Вивести дані
16.	OnClick	Button2	Відкрити редактор
17.	OnClick	Button4	Зберегти
18.	OnClick	Button5	Відкрити
На безплатній основі (Form4)
1.	OnClick	SpeedButton1	Розпочати пошук
2.	OnClick	SpeedButton2	Додати запис до таблиці
3.	OnClick	SpeedButton3	Зберегти запис таблиці
4.	OnClick	SpeedButton4	Видалити запис із таблиці
5.	OnClick	SpeedButton6	Зберегти
6.	OnClick	SpeedButton7	Друк
7.	OnClick	SpeedButton8	Вирівнювання по лівому краю
8.	OnClick	SpeedButton9	Вирівнювання по правому краю
9.	OnClick	SpeedButton10	Курсив
10.	OnClick	SpeedButton11	Жирний
11.	OnClick	SpeedButton12	Вирівнювання по центру
12.	OnClick	SpeedButton13	Вивести дані
13.	OnClick	SpeedButton15	Відкрити
14.	OnClick	SpeedButton18	Обновити дані у таблиці
Текстовий редактор(Form5)
1.	OnClick	SpeedButton1	Відкрити
2.	OnClick	SpeedButton2	Зберегти
3.	OnClick	SpeedButton3	Друк
4.	OnClick	SpeedButton4	Маркований список
5.	OnClick	SpeedButton5	Не маркований список
6.	OnClick	SpeedButton6	Курсивом
7.	OnClick	SpeedButton7	Жирний шрифт
8.	OnClick	SpeedButton8	Вирівнювання тексту по лівому краю
9.	OnClick	SpeedButton9	Вирівнювання тексту по центру
10.	OnClick	SpeedButton10	Вирівнювання тексту по правому краю
11.	OnClick	SpeedButton11	Шрифт
12.	OnClick	SpeedButton12	Колір шрифта
13.	OnClick	SpeedButton13	Вирізати
14.	OnClick	SpeedButton15	Копіювати
15.	OnClick	SpeedButton16	Вставити дату
16.	OnClick	SpeedButton17	Вставити час
17.	OnClick	SpeedButton18	Абзац

1.6 Проектування віконного та контекстного меню

Опис проектування віконного та контекстного меню міститься в таблиці 1.4.

Таблиця 1.4. Опис віконного та контекстного меню

№ п/п	Назва	Призначення	Назва компоненти
Головна форма (Form1)
1.	N2	Закриває форму	MainMenu1
2.	N3	Показує Form2
3.	N4	Показує Form4
На платній основі (Form2)
4.	N3	Закриває форму	MainMenu1
На безплатній основі (Form4)
5.	N4	Закриває форму	MainMenu1
Текстовий редактор(Form5)
6.	N2	Відкрити текстовий файл	MainMenu1 PopupMenu1
7.	N3	Зберегти текстовий файл
8.	N4	Друкувати текстовий файл
9.	N5	Закриває форму
10.	N7	Вирізати текст
11.	N8	Копіювати текст
12.	N10	Скрити/Показати панель інструментів(Panel1)
13.	N11	Скрити/Показати панель форматування (Panel2)
14.	N13	Вивести дату
15.	N14	Вивести час
16.	N16	Обрати шрифт тексту
17.	N23	Вставити текст
18.	N24	Виділити весь текст
19.	N19	Копіювати текст
20.	N20	Вирізати текст
21.	N26	Вставити текст
22.	N28	Виділити весь текст

2. Опис використаних компонентів

Опис використаних компонентів в програмі міститься в таблиці 2.1.

програмний графічний інтерфейс клавіатура

Таблиця 2.1. Опис використаних компонентів

№ п/п	Компонента	Призначення	Змінені властивість	Значення
Form1
1.	Button1	Відкриває Form2	Caption	На платній основі
2.	Button2	Відкриває Form4	Caption	На безплатній основі
3.	GradText1	Виводить текст	Lines	Територіальний центр соціальго обслуговування
4.	MonthCalendar1	Виводить на форму календар
Form2
1.	Panel1	Використовується для розміщення на ній інших компонент	Align	alTop
2.	SpeedButton1	Видаляє запис із таблиці	Caption	Видалити
3.	SpeedButton2	Додає запис до таблиці	Caption	Додати
4.	SpeedButton2	Зберегти запис в таблиці	Caption	Зберегти
5.	SpeedButton18	Обновити дані в таблиці	Caption	Обновити
6.	Label1	Виводить назву форми	Caption	На платній основі
7.	DBText1	Виводить поле ПІБ з таблиці	DataSource	DataSource1
			Font->Size	12
			DataField	PIB
8.	DBGrid1	Підключається до DataSource1 і виводить базу даних підключену до Table1.	DataSource	DataSource1
№ п/п	Компо-нента	Призначення	Змінені властивість	Значення
9.	DBGrid2	Підключається до DataSource2 і виводить базу даних підключену до Table2.	DataSource	DataSource2
10.	DBGrid3	Підключається до DataSource3 і виводить базу даних підключену до Table3.	DataSource	DataSource3
11.	DBGrid4	Підключається до DataSource4 і виводить базу даних підключену до Query1.	DataSource	DataSource4
12.	DBNavigator1	Виконує дії додавання, видалення полів, переходу на наступний, попередній, перший, останній запис в DBGrid1.	DataSource	DataSource1
13.	DBNavigator2	Виконує дії додавання, видалення полів, переходу на наступний, попередній, перший, останній запис в DBGrid2.	DataSource	DataSource2
14.	DBNavigator3	Виконує дії додавання, видалення полів, переходу на наступний, попередній, перший, останній запис в DBGrid3.	DataSource	DataSource3
15.	Table1	Підключає базу даних в якій містяться детальна інформація про всіх осіб.	DatabaseName	kyrsova
			TableName	Загальна1.dbf
			IndexName	N
			Active	True
16.	Table2	Підключає базу даних в якій містяться інформація про всі послуги.	DatabaseName	kyrsova
			TableName	Парехмак.dbf
			IndexName	N
			Active	True
17.	Table3	Підключає базу даних в якій містяться інформація про субсидії.	DatabaseName	kyrsova
			TableName	субсидии.DBF
18.	Query1	Відсортовує дані	DatabaseName	kyrsova
			DataSource	DataSource3
19.	DataSource1	Підключається до Table1.	DataSet	Table1
20.	DataSource2	Підключається до Table2.	DataSet	Table2
21.	DataSource3	Підключається до Table3.	DataSet	Table3
22.	DataSource4	Підключається до Query1.	DataSet	Query1
23.	Button1	Виводить поле ПІБ з DBGrid4 в RichEdit1.	Caption	Вивести
24.	Button2	Відкриває Form5	Caption	Відкрити
25.	SpeedButton6	Зберігає текстовий файл	Hint	Зберегти
			ShowHint	True
26.	SpeedButton7	Друкує текстовий файл	Hint	Друк
			ShowHint	True
27.	SpeedButton8	Вирівнює текст по лівому краю	Hint	Вирівняти текст по лівому краю
			ShowHint	True
28.	SpeedButton9	Вирівнює текст по правому краю	Hint	Вирівняти текст по правому краю
			ShowHint	True
29.	SpeedButton10	Текст курсивом	Hint	Курсив
			ShowHint	True
30.	SpeedButton11	Жирний текст	Hint	Жирний
			ShowHint	True
31.	SpeedButton12	Вирівнює текст по центру	Hint	Вирівняти текст по центру
			ShowHint	True
32.	SpeedButton15	Відкриває текстовий файл	Hint	Відкрити
			ShowHint	True
33.	Label2	Вказує на інформацію, яка виводиться в RichEdit1.	Caption	Особи, яким нараховується субсидія
34.	ComboBox1	Дає можливість обрати потрібне поле.	Text	Оберіть поле
35.	Edit1	Є одним із параметрів для пошуку.	Text
36.	SpeedButton4	Здійснює пошук.	Caption	ОК
37.	Label3	Вказує на інформацію з ComboBox1	Caption	Оберіть поле для пошуку
38.	Label4	Вказує на інформацію, яку потрібно ввести в Edit1.	Caption	Відкрити
39.	RichEdit2	Використовується для виведення тексту заяви.	Lines
40.	Button4	Зберігає текстовий файл	Caption	Зберегти
41.	Button5	Відкриває текстовий файл	Caption	Відкрити
42.	SpeedButton13	Виводить текст заяви	Caption	Вивести
43.	Edit2	В ньому вказується ПІБ	Text
44.	Edit3	В ньому вказується рік народження	Text
45.	Edit4	В ньому вказується основ	Text
46.	Label5	Вказує на інформацію, яку потрібно ввести в Edit1.	Caption	ПІБ
47.	Label6	Вказує на інформацію, яку потрібно ввести в Edit3.	Caption	РН
48.	Label7	Вказує на інформацію, яку потрібно ввести в Edit2.	Caption	На
49.	Label8	Вказує на інформацію, яку потрібно ввести в Edit2.	Caption	основі
Form4
1.	Panel1	Використовується для розміщення на ній інших компонент	Align	alTop
2.	SpeedButton1	Видаляє запис із таблиці	Caption	Видалити
3.	SpeedButton2	Додає запис до таблиці	Caption	Додати
4.	SpeedButton2	Зберегти запис в таблиці	Caption	Зберегти
5.	SpeedButton18	Обновити дані в таблиці	Caption	Обновити
6.	Label1	Виводить назву форми	Caption	На безплатній основі
7.	DBText1	Виводить поле ПІБ з таблиці	DataSource	DataSource1
			Font->Size	12
			DataField	PIB
8.	DBGrid1	Підключається до DataSource1 і виводить базу даних підключену до Table1.	DataSource	DataSource1
9.	DBGrid2	Підключається до DataSource2 і виводить базу даних підключену до Table2.	DataSource	DataSource2
10.	DBGrid3	Підключається до DataSource3 і виводить базу даних підключену до Table3.	DataSource	DataSource3
11.	DBGrid4	Підключається до DataSource4 і виводить базу даних підключену до Query1.	DataSource	DataSource4
12.	DBNavigator1	Виконує дії додавання, видалення полів, переходу на наступний, попередній, перший, останній запис в DBGrid1.	DataSource	DataSource1
13.	DBNavigator2	Виконує дії додавання, видалення полів, переходу на наступний, попередній, перший, останній запис в DBGrid2.	DataSource	DataSource2
14.	DBNavigator3	Виконує дії додавання, видалення полів, переходу на наступний, попередній, перший, останній запис в DBGrid3.	DataSource	DataSource3
15.	Table1	Підключає базу даних в якій містяться детальна інформація про всіх осіб.	DatabaseName	kyrsova
			TableName	Загальна1.dbf
			IndexName	N
			Active	True
16.	Table2	Підключає базу даних в якій містяться інформація про всі послуги.	DatabaseName	kyrsova
			TableName	Парехмак.dbf
			IndexName	N
			Active	True
17.	Table3	Підключає базу даних в якій містяться інформація про субсидії.	DatabaseName	kyrsovа
			TableName	субсидии.DBF
			Active	True
18.	Query1	Відсортовує дані	DatabaseName	kyrsova
			DataSource	DataSource3
№ п/п	Компо-нента	Призначення	Змінені властивість	Значення
19.	DataSource1	Підключається до Table1.	DataSet	Table1
20.	DataSource2	Підключається до Table2.	DataSet	Table2
21.	DataSource3	Підключається до Table3.	DataSet	Table3
22.	DataSource4	Підключається до Query1.	DataSet	Query1
23.	Button1	Виводить поле ПІБ з DBGrid4 в RichEdit1.	Caption	Вивести
24.	Button2	Відкриває Form5	Caption	Відкрити
25.	SpeedButton6	Зберігає текстовий файл	Hint	Зберегти
26.			ShowHint	True
27.	SpeedButton7	Друкує текстовий файл	Hint	Друк
28.			ShowHint	True
29.	SpeedButton8	Вирівнює текст по лівому краю	Hint	Вирівняти текст по лівому краю
30.			ShowHint	True
31.	SpeedButton9	Вирівнює текст по правому краю	Hint	Вирівняти текст по правому краю
32.			ShowHint	True
33.	SpeedButton10	Текст курсивом	Hint	Курсив
34.			ShowHint	True
35.	SpeedButton11	Жирний текст	Hint	Жирний
36.			ShowHint	True
37.	SpeedButton12	Вирівнює текст по центру	Hint	Вирівняти текст по центру
38.			ShowHint	True
39.	Label7	Вказує на інформацію, яку потрібно ввести в Edit2.	Caption	На
40.	SpeedButton15	Відкриває текстовий файл	Hint	Відкрити
			ShowHint	True
41.	Label2	Вказує на інформацію, яка виводиться в RichEdit1.	Caption	Особи, яким нараховується субсидія
42.	ComboBox1	Дає можливість обрати потрібне поле.	Text	Оберіть поле
43.	Edit1	Є одним із параметрів для пошуку.	Text
44.	SpeedButton4	Здійснює пошук.	Caption	ОК
45.	Label3	Вказує на інформацію з ComboBox1	Caption	Оберіть поле для пошуку
46.	Label4	Вказує на інформацію, яку потрібно ввести в Edit1.	Caption	Відкрити
47.	RichEdit2	Використовується для виведення тексту заяви.	Lines
48.	Button4	Зберігає текстовий файл	Caption	Зберегти
49.	Button5	Відкриває текстовий файл	Caption	Відкрити
50.	SpeedButton13	Виводить текст заяви	Caption	Вивести
51.	Edit2	В ньому вказується ПІБ	Text
52.	Edit3	В ньому вказується рік народження	Text
53.	Edit4	В ньому вказується основ	Text
54.	Label5	Вказує на інформацію, яку потрібно ввести в Edit1.	Caption	ПІБ
55.	Label6	Вказує на інформацію, яку потрібно ввести в Edit3.	Caption	РН
Текстовий редактор(Form5)
1.	Button1	Виводить прізвища в RichEdit1	Caption	Вивести
2.	SpeedButton1	Відкриває текстовий файл	Hint	Відкрити
			ShowHint	True
3.	SpeedButton2	Зберігає текстовий файл	Hint	Зберегти
			ShowHint	True
4.	SpeedButton3	Друкує текстовий файл	Hint	Друк
			ShowHint	True
5.	SpeedButton4	Маркований список	Hint	Маркований список
			ShowHint	True
6.	SpeedButton5	Не маркований список	Hint	Не маркований список
			ShowHint	True
7.	SpeedButton6	Курсивний шрифт	Hint	Курсивом
			ShowHint	True
8.	SpeedButton7	Жирний шрифт	Hint	Жирний шрифт
			ShowHint	True
9.	SpeedButton8	Вирівнює текст по лівому краю	Hint	Вирівнювання тексту по лівому краю
			ShowHint	True
10.	SpeedButton9	Вирівнює текст по центру	Hint	Вирівнювання тексту по центру
			ShowHint	True
11.	SpeedButton10	Вирівнює текст по правому краю	Hint	Вирівнювання тексту по правому краю
			ShowHint	True
12.	SpeedButton11	Дозволяє обрати Шрифт	Hint	Шрифт
			ShowHint	True
13.	SpeedButton12	Дозволяє обрати Колір шрифта	Hint	Колір шрифта
			ShowHint	True
14.	SpeedButton13	Вирізає текст	Hint	Вирізати
			ShowHint	True
№ п/п	Компо-нента	Призначення	Змінені властивість	Значення
Текстовий редактор(Form5)
15.	SpeedButton15	Копіює текст	Hint	Копіювати
			ShowHint	True
16.	SpeedButton16	Вставляє в текст дату	Hint	Вставити дату
			ShowHint	True
17.	SpeedButton17	Вставляє в текст час	Hint	Вставити час
			ShowHint	True
18.	SpeedButton18	Дозволяє обрати відступ для абзацу	Hint	Абзац
			ShowHint	True
19.	SpeedButton19	Вставляє текст	Hint	Вставити
			ShowHint	True
20.	ComboBox1	Дозволяє обрати розмір шрифту	Hint	Розмір шрифту
			ShowHint	True
21.	ColorBox1	Змінює колір виділеного шрифту	Hint	Колір шрифту
			ShowHint	True

3. Тестування

Тестування програми показану на рисунках 3.1 - 3.5:

Рис. 3.1 - Головна форма

Рис. 3.2 - На платній основі

Рис. 3.3 - На платній основі

Рис. 3.4 - На платній основі



Рис. 3.5 - На платній основі

4. Лістинг

Form1

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls, Menus, ExtCtrls,

ComCtrls, GradText, Buttons;

type

TForm1 = class(TForm)

Button1: TButton;

MainMenu1: TMainMenu;

N1: TMenuItem;

Button2: TButton;

MonthCalendar1: TMonthCalendar;

GradText1: TGradText;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

procedure Button1Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit4;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

form2.ShowModal;

end;

procedure TForm1.N1Click(Sender: TObject);

begin

Close();

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

form4.ShowModal;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

Close();

end;

procedure TForm1.N3Click(Sender: TObject);

begin

Form2.ShowModal;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

Form4.ShowModal;

end;

end.

Form2

unit Unit2 ;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids, ExtCtrls, DBCtrls,

ComCtrls, ExtDlgs, Buttons, Menus, RpCon, RpConDS, RpDefine, RpRave;

type

TForm2 = class(TForm)

DataSource1: TDataSource;

Table1: TTable;

Table2: TTable;

DataSource2: TDataSource;

Panel1: TPanel;

MainMenu1: TMainMenu;

N1: TMenuItem;

N3: TMenuItem;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

Label1: TLabel;

DataSource3: TDataSource;

Table3: TTable;

Table3N: TFloatField;

Table3PIB: TStringField;

Table3DATA_NARAH: TDateField;

Table3PENSIA: TFloatField;

Table3KOM_POSL: TFloatField;

Table3VIDSOTOK: TFloatField;

Table3vids: TFloatField;

SaveDialog1: TSaveDialog;

Query1: TQuery;

DataSource4: TDataSource;

SpeedButton18: TSpeedButton;

PageControl1: TPageControl;

TabSheet1: TTabSheet;

DBText1: TDBText;

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

DBNavigator1: TDBNavigator;

DBNavigator2: TDBNavigator;

TabSheet2: TTabSheet;

Label2: TLabel;

DBNavigator3: TDBNavigator;

Button1: TButton;

RichEdit1: TRichEdit;

DBGrid3: TDBGrid;

Panel2: TPanel;

SpeedButton6: TSpeedButton;

SpeedButton8: TSpeedButton;

SpeedButton9: TSpeedButton;

SpeedButton10: TSpeedButton;

SpeedButton11: TSpeedButton;

SpeedButton7: TSpeedButton;

SpeedButton12: TSpeedButton;

SpeedButton15: TSpeedButton;

DBGrid4: TDBGrid;

TabSheet3: TTabSheet;

Label3: TLabel;

Label4: TLabel;

SpeedButton4: TSpeedButton;

ComboBox1: TComboBox;

Edit1: TEdit;

Button2: TButton;

OpenDialog1: TOpenDialog;

TabSheet4: TTabSheet;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

RichEdit2: TRichEdit;

SpeedButton13: TSpeedButton;

DBGrid5: TDBGrid;

DataSource5: TDataSource;

Table4: TTable;

DBRichEdit1: TDBRichEdit;

SpeedButton14: TSpeedButton;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Button4: TButton;

Button5: TButton;

procedure SpeedButton4Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure SpeedButton6Click(Sender: TObject);

procedure SpeedButton7Click(Sender: TObject);

procedure SpeedButton9Click(Sender: TObject);

procedure SpeedButton8Click(Sender: TObject);

procedure SpeedButton12Click(Sender: TObject);

procedure SpeedButton16Click(Sender: TObject);

procedure SpeedButton17Click(Sender: TObject);

procedure SpeedButton11Click(Sender: TObject);

procedure SpeedButton10Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton18Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure SpeedButton15Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure SpeedButton13Click(Sender: TObject);

procedure SpeedButton14Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

i, k, b:integer;

prib:array[0..100] of real;

sum:real;

j,v:integer;

s:string;

implementation

uses Unit5, Unit7, Unit4;

{$R *.dfm}

procedure TForm2.SpeedButton4Click(Sender: TObject);

begin

Table1.First;

b:=ComboBox1.ItemIndex;

for i:=0 To Table1.RecordCount do

begin

if Edit1.text=Table1.Fields.Fields[b].Value then k:=i;

Table1.Next;

end;

Table1.First;

for i:=0 to k do

Table1.Next;

PageControl1.ActivePage:=TabSheet1;

end;

procedure TForm2.N3Click(Sender: TObject);

begin

Close();

end

procedure TForm2.SpeedButton6Click(Sender: TObject);

begin

if SaveDialog1.Execute then RichEdit1.Lines.SaveToFile(SaveDialog1.FileName+'.rtf');

end;

procedure TForm2.SpeedButton7Click(Sender: TObject);

begin

RichEdit1.Print('Печать RichEdit1');

end;

procedure TForm2.SpeedButton9Click(Sender: TObject);

begin

RichEdit1.Paragraph.Alignment:=taRightJustify;

end;

procedure TForm2.SpeedButton8Click(Sender: TObject);

begin

RichEdit1.Paragraph.Alignment:=taLeftJustify;

end;

procedure TForm2.SpeedButton12Click(Sender: TObject);

begin

RichEdit1.Paragraph.Alignment:=taCenter;

end;

procedure TForm2.SpeedButton16Click(Sender: TObject);

begin

Form4.ShowModal;

end;

procedure TForm2.SpeedButton17Click(Sender: TObject);

begin

RichEdit1.Paragraph.Numbering:=nsNone;

end;

procedure TForm2.SpeedButton11Click(Sender: TObject);

begin

RichEdit1.SelAttributes.Style:=[fsBold];

end;

procedure TForm2.SpeedButton10Click(Sender: TObject);

begin

RichEdit1.SelAttributes.Style:=[fsItalic];

end;

procedure TForm2.SpeedButton1Click(Sender: TObject);

begin

Table1.Delete();

end;

procedure TForm2.SpeedButton2Click(Sender: TObject);

begin

Table1.Insert;

end;

procedure TForm2.SpeedButton3Click(Sender: TObject);

begin

Table1.Post;

end;

procedure TForm2.SpeedButton18Click(Sender: TObject);

begin

Query1.Active:=False;

Query1.Active:=True;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

Form5.ShowModal;

end;

procedure TForm2.SpeedButton15Click(Sender: TObject);

begin

if (OpenDialog1.Execute()) then

RichEdit1.Lines.LoadFromFile((OpenDialog1.FileName));

end;

procedure TForm2.Button1Click(Sender: TObject);

begin

RichEdit1.Text:=Query1.Fields.Fields[1].Value;

Query1.Next;

end;

procedure TForm2.Button3Click(Sender: TObject);

begin

Form7.ShowModal;

end;

procedure TForm2.Button4Click(Sender: TObject);

begin

if SaveDialog1.Execute then

RichEdit2.Lines.SaveToFile(SaveDialog1.FileName+'.rtf');

end;

procedure TForm2.SpeedButton13Click(Sender: TObject);

begin

RichEdit2.Clear;

RichEdit2.Lines.Add(Table4.Fields.Fields[0].Value+' '+Edit2.Text+'.'+Edit3.Text+' '+Table4.Fields.Fields[1].Value+' '+Edit4.Text+' '+Table4.Fields.Fields[2].Value);

end;

procedure TForm2.SpeedButton14Click(Sender: TObject);

begin

Table4.Post;

Table4.Refresh;

end;

procedure TForm2.Button5Click(Sender: TObject);

begin

if (OpenDialog1.Execute()) then

RichEdit2.Lines.LoadFromFile((OpenDialog1.FileName));

end;

end.

Form4

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, DBTables, ComCtrls,

Buttons, Menus, StdCtrls;

type

TForm4 = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

Table1: TTable;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DBNavigator2: TDBNavigator;

DBGrid2: TDBGrid;

Table2: TTable;

DataSource2: TDataSource;

Panel1: TPanel;

MainMenu1: TMainMenu;

N1: TMenuItem;

N4: TMenuItem;

SpeedButton4: TSpeedButton;

SpeedButton3: TSpeedButton;

SpeedButton2: TSpeedButton;

Label1: TLabel;

DBGrid3: TDBGrid;

DBNavigator3: TDBNavigator;

Table3: TTable;

DataSource3: TDataSource;

RichEdit1: TRichEdit;

Button1: TButton;

TabSheet3: TTabSheet;

Edit1: TEdit;

Label2: TLabel;

Label3: TLabel;

SpeedButton1: TSpeedButton;

ComboBox1: TComboBox;

Panel2: TPanel;

SpeedButton6: TSpeedButton;

SpeedButton8: TSpeedButton;

SpeedButton9: TSpeedButton;

SpeedButton10: TSpeedButton;

SpeedButton11: TSpeedButton;

SpeedButton7: TSpeedButton;

SpeedButton12: TSpeedButton;

SpeedButton15: TSpeedButton;

Label4: TLabel;

FontDialog1: TFontDialog;

SaveDialog1: TSaveDialog;

OpenDialog1: TOpenDialog;

DBText1: TDBText;

DBGrid4: TDBGrid;

Query1: TQuery;

DataSource4: TDataSource;

SpeedButton18: TSpeedButton;

TabSheet4: TTabSheet;

Label5: TLabel;

Label7: TLabel;

Label6: TLabel;

Edit2: TEdit;

Edit4: TEdit;

Edit3: TEdit;

Label8: TLabel;

RichEdit2: TRichEdit;

Button5: TButton;

Button4: TButton;

SpeedButton13: TSpeedButton;

DBGrid5: TDBGrid;

DBRichEdit1: TDBRichEdit;

Table4: TTable;

DataSource5: TDataSource;

Button2: TButton;

procedure SpeedButton1Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

procedure SpeedButton6Click(Sender: TObject);

procedure SpeedButton7Click(Sender: TObject);

procedure SpeedButton16Click(Sender: TObject);

procedure SpeedButton17Click(Sender: TObject);

procedure SpeedButton8Click(Sender: TObject);

procedure SpeedButton12Click(Sender: TObject);

procedure SpeedButton9Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure SpeedButton18Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure SpeedButton13Click(Sender: TObject);

procedure SpeedButton14Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

i,k,b:integer;

s:string;y,j:integer;

implementation

uses Unit6, Unit5, Unit2;

{$R *.dfm}

procedure TForm4.SpeedButton1Click(Sender: TObject);

begin

Table1.First;

b:=ComboBox1.ItemIndex;

for i:=0 To Table1.RecordCount do

begin

if Edit1.text=Table1.Fields.Fields[b].Value then k:=i;

Table1.Next;

end;

Table1.First;

for i:=0 to k do

Table1.Next;

PageControl1.ActivePage:=TabSheet1;

end;

procedure TForm4.N4Click(Sender: TObject);

begin

Close();

end;

procedure TForm4.SpeedButton5Click(Sender: TObject);

begin

if FontDialog1.Execute then

RichEdit1.SelAttributes.Assign(FontDialog1.Font);

end;

procedure TForm4.SpeedButton6Click(Sender: TObject);

begin

if SaveDialog1.Execute then RichEdit1.Lines.SaveToFile(SaveDialog1.FileName+'.rtf');

end;

procedure TForm4.SpeedButton7Click(Sender: TObject);

begin

RichEdit1.Print('Печать RichEdit1');

end;

procedure TForm4.SpeedButton16Click(Sender: TObject);

begin

RichEdit1.Paragraph.Numbering:=nsBullet;

end;

procedure TForm4.SpeedButton17Click(Sender: TObject);

begin

RichEdit1.Paragraph.Numbering:=nsNone;

end;

procedure TForm4.SpeedButton8Click(Sender: TObject);

begin

RichEdit1.Paragraph.Alignment:=taLeftJustify;

end;

procedure TForm4.SpeedButton12Click(Sender: TObject);

begin

RichEdit1.Paragraph.Alignment:=taCenter;

end;

procedure TForm4.SpeedButton9Click(Sender: TObject);

begin

RichEdit1.Paragraph.Alignment:=taRightJustify;

end;

procedure TForm4.Button1Click(Sender: TObject);

begin

RichEdit1.Text:=Query1.Fields.Fields[1].Value;

Query1.Next;

end;

procedure TForm4.SpeedButton18Click(Sender: TObject);

begin

Query1.Active:=False;

Query1.Active:=True;

end;

procedure TForm4.SpeedButton3Click(Sender: TObject);

begin

Table1.Post;

end;

procedure TForm4.SpeedButton2Click(Sender: TObject);

begin

Table1.Insert;

end;

procedure TForm4.SpeedButton4Click(Sender: TObject);

begin

Table1.Delete;

end;

procedure TForm4.Button5Click(Sender: TObject);

begin

if (OpenDialog1.Execute()) then

RichEdit2.Lines.LoadFromFile((OpenDialog1.FileName));

end;

procedure TForm4.Button4Click(Sender: TObject);

begin

if SaveDialog1.Execute then

RichEdit2.Lines.SaveToFile(SaveDialog1.FileName+'.rtf');

end;

procedure TForm4.SpeedButton13Click(Sender: TObject);

begin

RichEdit2.Clear;

RichEdit2.Lines.Add(Table4.Fields.Fields[0].Value+' '+Edit2.Text+'.'+Edit3.Text+' '+Table4.Fields.Fields[1].Value+' '+Edit4.Text+' '+Table4.Fields.Fields[2].Value);

end;

procedure TForm4.SpeedButton14Click(Sender: TObject);

begin

Form2.ShowModal;

end;

procedure TForm4.Button2Click(Sender: TObject);

begin

Form5.ShowModal;

end;

end.

Form5

unit Unit5;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Menus, ExtCtrls, StdCtrls, ComCtrls, Buttons, Spin;

type

TForm5 = class(TForm)

RichEdit1: TRichEdit;

Panel1: TPanel;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

Button1: TButton;

SpeedButton1: TSpeedButton;

SpeedButton3: TSpeedButton;

ColorDialog1: TColorDialog;

SpeedButton15: TSpeedButton;

Panel2: TPanel;

ComboBox1: TComboBox;

ColorBox1: TColorBox;

SpeedButton7: TSpeedButton;

SpeedButton6: TSpeedButton;

SpeedButton8: TSpeedButton;

SpeedButton9: TSpeedButton;

SpeedButton10: TSpeedButton;

SpeedButton4: TSpeedButton;

SpeedButton5: TSpeedButton;

SpeedButton11: TSpeedButton;

SpeedButton12: TSpeedButton;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

SpeedButton16: TSpeedButton;

DateTimePicker1: TDateTimePicker;

DateTimePicker2: TDateTimePicker;

SpeedButton17: TSpeedButton;

N12: TMenuItem;

N13: TMenuItem;

N14: TMenuItem;

N15: TMenuItem;

N16: TMenuItem;

PopupMenu1: TPopupMenu;

N19: TMenuItem;

N20: TMenuItem;

N21: TMenuItem;

N22: TMenuItem;

N23: TMenuItem;

N24: TMenuItem;

N25: TMenuItem;

OpenDialog1: TOpenDialog;

SaveDialog1: TSaveDialog;

FontDialog1: TFontDialog;

N26: TMenuItem;

N27: TMenuItem;

N28: TMenuItem;

SpeedButton18: TSpeedButton;

SpinEdit1: TSpinEdit;

SpeedButton19: TSpeedButton;

SpeedButton13: TSpeedButton;

SpeedButton2: TSpeedButton;

procedure Button1Click(Sender: TObject);

procedure SpeedButton12Click(Sender: TObject);

procedure ColorBox1Change(Sender: TObject);

procedure ComboBox1Change(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure SpeedButton16Click(Sender: TObject);

procedure SpeedButton17Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton15Click(Sender: TObject);

procedure SpeedButton7Click(Sender: TObject);

procedure SpeedButton6Click(Sender: TObject);

procedure SpeedButton8Click(Sender: TObject);

procedure SpeedButton9Click(Sender: TObject);

procedure SpeedButton10Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

procedure SpeedButton11Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N23Click(Sender: TObject);

procedure N24Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N14Click(Sender: TObject);

procedure N16Click(Sender: TObject);

procedure N19Click(Sender: TObject);

procedure N20Click(Sender: TObject);

procedure N26Click(Sender: TObject);

procedure N28Click(Sender: TObject);

procedure SpeedButton18Click(Sender: TObject);

procedure SpeedButton19Click(Sender: TObject);

procedure SpeedButton13Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

i:integer;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);

begin

RichEdit1.Text:=Form2.Query1.Fields.Fields[1].Value;

Form2.Query1.Next;

end;

procedure TForm5.SpeedButton12Click(Sender: TObject);

begin

if ColorDialog1.Execute then

RichEdit1.SelAttributes.Color:=ColorDialog1.Color;

end;

procedure TForm5.ColorBox1Change(Sender: TObject);

begin

RichEdit1.SelAttributes.Color:=ColorBox1.Selected;

end;

procedure TForm5.ComboBox1Change(Sender: TObject);

begin

RichEdit1.SelAttributes.Size:=StrToInt(ComboBox1.Text);

end;

procedure TForm5.N10Click(Sender: TObject);

begin

if N10.Checked=true then Panel1.Visible:=true else Panel1.Visible:=false;

end;

procedure TForm5.N11Click(Sender: TObject);

begin

if N11.Checked=true then Panel2.Visible:=true else Panel2.Visible:=false;

end;

procedure TForm5.SpeedButton16Click(Sender: TObject);

begin

RichEdit1.Lines.Add('Дата: ' +

DateToStr (DateTimePicker1.Date));

end;

procedure TForm5.SpeedButton17Click(Sender: TObject);

begin

RichEdit1.Lines.Add('Час: ' +

DateToStr (DateTimePicker2.Time));

end;

procedure TForm5.SpeedButton1Click(Sender: TObject);

begin

if (OpenDialog1.Execute()) then

RichEdit1.Lines.LoadFromFile((OpenDialog1.FileName));

end;

procedure TForm5.SpeedButton3Click(Sender: TObject);

begin

RichEdit1.Print('Печать RichEdit1');

end;

procedure TForm5.SpeedButton15Click(Sender: TObject);

begin

RichEdit1.CopyToClipboard();

end;

procedure TForm5.SpeedButton7Click(Sender: TObject);

begin

RichEdit1.SelAttributes.Style:=[fsBold];

end;

procedure TForm5.SpeedButton6Click(Sender: TObject);

begin

RichEdit1.SelAttributes.Style:=[fsItalic];

end;

procedure TForm5.SpeedButton8Click(Sender: TObject);

begin

RichEdit1.Paragraph.Alignment:=taLeftJustify;

end;

procedure TForm5.SpeedButton9Click(Sender: TObject);

begin

RichEdit1.Paragraph.Alignment:=taCenter;

end;

procedure TForm5.SpeedButton10Click(Sender: TObject);

begin

RichEdit1.Paragraph.Alignment:=taRightJustify;

end;

procedure TForm5.SpeedButton4Click(Sender: TObject);

begin

RichEdit1.Paragraph.Numbering:=nsBullet;

end;

procedure TForm5.SpeedButton5Click(Sender: TObject);

begin

RichEdit1.Paragraph.Numbering:=nsNone;

end;

procedure TForm5.SpeedButton11Click(Sender: TObject);

begin

if FontDialog1.Execute then

RichEdit1.SelAttributes.Assign(FontDialog1.Font);

end;

procedure TForm5.N2Click(Sender: TObject);

begin

if (OpenDialog1.Execute()) then

RichEdit1.Lines.LoadFromFile((OpenDialog1.FileName));

end;

procedure TForm5.N3Click(Sender: TObject);

begin

if SaveDialog1.Execute then

RichEdit1.Lines.SaveToFile(SaveDialog1.FileName+'.doc');

end;

procedure TForm5.N4Click(Sender: TObject);

begin

RichEdit1.Print('Печать RichEdit1');

end;

procedure TForm5.N5Click(Sender: TObject);

begin

Close();

end;

procedure TForm5.N7Click(Sender: TObject);

begin

RichEdit1.CutToClipboard();

end;

procedure TForm5.N8Click(Sender: TObject);

begin

RichEdit1.CopyToClipboard();

end;

procedure TForm5.N23Click(Sender: TObject);

begin

RichEdit1.PasteFromClipboard();

end;

procedure TForm5.N24Click(Sender: TObject);

begin

RichEdit1.SelectAll();

end;

procedure TForm5.N13Click(Sender: TObject);

begin

RichEdit1.Lines.Add('Дата: ' +

DateToStr (DateTimePicker1.Date));

end;

procedure TForm5.N14Click(Sender: TObject);

begin

RichEdit1.Lines.Add('Час: ' +

DateToStr (DateTimePicker2.Time));

end;

procedure TForm5.N16Click(Sender: TObject);

begin

if FontDialog1.Execute then

RichEdit1.SelAttributes.Assign(FontDialog1.Font);

end;

procedure TForm5.N19Click(Sender: TObject);

begin

RichEdit1.CopyToClipboard();

end;

procedure TForm5.N20Click(Sender: TObject);

begin

RichEdit1.CutToClipboard();

end;

procedure TForm5.N26Click(Sender: TObject);

begin

RichEdit1.PasteFromClipboard();

end;

procedure TForm5.N28Click(Sender: TObject);

begin

RichEdit1.SelectAll();

end;

procedure TForm5.SpeedButton18Click(Sender: TObject);

begin

RichEdit1.Paragraph.FirstIndent:=SpinEdit1.Value;

end;

procedure TForm5.SpeedButton19Click(Sender: TObject);

begin

RichEdit1.PasteFromClipboard;

end;

procedure TForm5.SpeedButton13Click(Sender: TObject);

begin

RichEdit1.CutToClipboard;

end;

procedure TForm5.SpeedButton2Click(Sender: TObject);

begin

if SaveDialog1.Execute then

RichEdit1.Lines.SaveToFile(SaveDialog1.FileName+'.doc');

end;

end.

Висновок

Дана програма набагато полегшить роботу соціальним працівникам. Всі розрахунки будуть робитися автоматично. Завдяки цьому набагато збільшиться швидкість роботи працівників. Всі дані про людей будуть зберігатися у базах даних. Знайти із списку будь-яку особу буде дуже легко, адже в програмі є можливість пошуку. Варто лише обрати поле, за яким буде здійснюватися пошук, та ввести потрібні дані.

Програма дуже легка у використанні, тому не вимагає особливих навичок користування комп'ютером.

Література

Культин Н. Б. Основы программирования в Delphi 7.

С. И. Бобровский. Delphi 7. Учебный курс.

А.Я. Архангельський. Програмування в C++Builder 6. - М.. БІНОМ.

В. Єрмолаєв, Т. Сорока. C++ Builder. Книга рецептів. - М.. КУДІЦ-ОБРАЗ, 2006. - 208с.

В. Пестриков А. Маслобоев - Delphi на примерах ГОСТ 19.105-75 ЕСКД Загальні потреби до текстових документів. - Введ. з 01.07.1996.

Размещено на Allbest.ru