- •32 Содержание
- •Задание
- •Инструкция пользователю
- •2.1 Программа «Данные о больничных листах» в Microsoft Excel на языке Visual Basic For Application
- •2.2 Программа «Данные о больничных листах» на языке Delphi 7
- •Описание процесса разработки программы
- •3.1 Процесс разработки приложения в рабочей книге Microsoft Excel на языке Visual Basic for Application
- •3.2 Процесс разработки приложения для работы с файлом Microsoft Excel на языке Delphi 7
- •Библиографический список
- •Приложение Приложение а Листинг программы с комментариями
Описание процесса разработки программы
3.1 Процесс разработки приложения в рабочей книге Microsoft Excel на языке Visual Basic for Application
Разработанная программа состоит из следующих модулей:
Лист1 («Таблица») – лист для хранения основных данных
Лист2 («Результаты поиска») – лист для вывода результатов поиска
AddForm1 – форма для добавления данных
FindForm – форма для организации поиска
SortForm – aформа для организации сортировки
Размещение в основных модулях визуальных компонентов и их начальные значения приведены в таблице 1.
Таблица 1 - Изменение стандартных значений компонентов
Название компонента |
Имя компонента |
Свойство |
Значение свойства | |||||
1 |
2 |
3 |
4 | |||||
Лист 1: «Основное окно» | ||||||||
CommandButton |
AddButon1 |
Caption |
Добавить запись | |||||
EditButon |
Caption |
Редактировать | ||||||
SortButon |
Caption |
Сортировать | ||||||
DelButon |
Caption |
Удалить запись | ||||||
FindButon |
Caption |
Поиск | ||||||
FindForm | ||||||||
TextBox |
TextBox1 |
Caption |
| |||||
OptionButton |
OptionButton2 |
Caption |
Ф.И.О. | |||||
OptionButton4 |
Caption |
Диагноз | ||||||
OptionButton5 |
Caption |
Номер больничного листа | ||||||
OptionButton6 |
Caption |
Фамилия врача | ||||||
Продолжение таблицы 1 | ||||||||
1 |
2 |
3 |
4 | |||||
|
OptionButton7 |
Caption |
Срок (дней) | |||||
OptionButton8 |
Caption |
Начало болезни | ||||||
|
OptionButton9 |
Caption |
Дата выздоровления | |||||
|
OptionButton10 |
Caption |
Место работы | |||||
TextBox |
TextBox1 |
Caption |
| |||||
CommandButton
|
CommandButton1 |
Caption |
Найти! | |||||
CommandButton2 |
Caption |
Отмена | ||||||
AddForm | ||||||||
Label |
Label1 |
Caption |
Фамилия | |||||
Label2 |
Caption |
Диагноз | ||||||
Label3 |
Caption |
Номер больничного листа | ||||||
Label4 |
Caption |
Фамилия врача | ||||||
Label5 |
Caption |
Срок (дней) | ||||||
Label7 |
Caption |
Начало болезни | ||||||
|
Label10 |
Caption |
Дата выздоровления | |||||
|
Label9 |
Caption |
Место работы | |||||
TextBox |
TextBox1 |
Text |
| |||||
TextBox2 |
Text |
| ||||||
TextBox3 |
Text |
| ||||||
TextBox4 |
Text |
| ||||||
TextBox5 |
Text |
| ||||||
|
TextBox7 |
Text |
| |||||
|
TextBox8 |
Text |
| |||||
|
TextBox9 |
Text |
| |||||
CommandButton |
CommandButton3 |
Caption |
Добавить | |||||
|
CommandButton2 |
Caption |
Закрыть | |||||
SorForm | ||||||||
OptionButton |
OB1 |
Caption |
По возростанию | |||||
OB2 |
Caption |
По убыванию | ||||||
ComandButton |
ComandButton1 |
Caption |
Сортировать | |||||
ComandButton1 |
Caption |
Закрыть | ||||||
1 |
2 |
3 |
4 | |||||
TextBox |
TB1 |
Caption |
| |||||
SB |
SB1 |
Caption |
|
Продолжение таблицы 1 |
Пользовательские функции и процедуры, использованные в программе.
Colorize() – данная процедура отвечает за прорисовку ячеек и их окраску.
Смотри примечание 1
Обработка события нажатия на кнопку «Добавить» на рабочем листе.
Смотри примечание 2
После нажатия на кнопку ‘Добавить’ открывается форма ‘AddForm1’.
Обработка события нажатия на кнопку «Редактировать» на рабочем листе.
Смотри примечание 3
После нажатия на кнопку ‘Редактировать’ открывается форма ‘AddForm1’, поля Label 1-10 заполняются данными из выбранной строки.
Обработка события по нажатии на кнопку «Добавить» на AddForm1.
Смотри примечание 4
После нажатия на кнопку ‘Добавить’ все заполненные поля очищаются, а введённые данные добавляются в таблицу с данными.
Обработка события по нажатии на кнопку «Редактировать» на AddForm1
Смотри примечание 5
После нажатия на кнопку ‘Редактировать’ все заполненные поля отчищаются, а введённые данные заменяют отредактированные данные в основной таблице.
Обработка события при нажатии на кнопку «Найти» на FindForm.
Смотри примечание 6
При нажатии на кнопку ‘Найти’ на FindForm, при условие что один из столбцов поиска отмечен с помощью OptionButton просматривается весь список и найденные данные находятся, если таковых нет то выводится контекстное сообщение.
Обработка события при нажатии на кнопку «Сортировать» на FindForm.
Смотри примечание 7
При нажатии на кнопку ‘Сортировать’ на SortForm все данные в основной таблице сортируются по выбранным критериям