перейти к полному списку дипломных проектов

Ссылка на скачивания файла в формате .doc находится в конце странички

Кнопка “Печать” – открывает диалог отправления этого отчета на печать, а кнопка “Вернуться” – скрывает этот лист и возвращает на форму построения отчета

Графа “Кол-во” записанных учеников – отображает количественную информацию об учениках, обучавшихся у данного инструктора. В расчет принимаются только те, кто уже окончил обучение.

Ниже идет подробная информация по каждому экзамену.

Самая нижняя графа – “Процент полностью сдавших экзамены в ГАИ”, отображает процентную информацию о тех, кто сдал все экзамены в гаи, и получил возможность получить права.

Кнопка “Печать” – открывает диалог отправления этого отчета на печать, а кнопка “Вернуться” – скрывает этот лист и возвращает на форму построения отчета.

3. Заключение

Сегодня, существует множество задач, которые возможно автоматизировать в той или иной степени. Умение автоматизировать задачи позволяет в значительной мере экономить время и избегать ошибок.

В ходе выполнения курсовой работы была подробно изучена среда разработки VBA и закреплены следующие навыки:

Создание пользовательского интерфейса.

Создание алгоритмов автоматизирующих процесс работы с базой данных.

Занесение новых значений в базу данных.

Обработка ошибочных данных.

Алгоритмы создания отчетной информации.

В дальнейшем возможна доработка этого приложения, в качестве примеров можно привести следующие доработки:

Добавление новых видов отчетов.

Добавление интерфейсной части по редактированию исходной базы данных (устройство на работу новых сотрудников, расширение автопарка).

Добавление учета посещаемости занятий.

Анализ сдачи экзаменов по сезонам.

4. Литература

Горных Е. Н. Программирование на VBA.: Учебное пособие - Челябинск: Изд. ЮУрГУ, 2003.-76 с.

Уокенбах Джон. Профессиональное программирование на VBA в Excel 2002.:Пер. с англ. – М.: Издательский дом «Вильямс», 2003. – 784 с.

5. Приложения

Здесь содержатся некоторые листинги кода.

5.1 Главная форма

Кнопка “Клиенты”:

Private Sub bt_client_Click()

MainForm.Hide

ClientForm.Show (0)

End Sub

Кнопка “Выход”:

Private Sub bt_exit_Click()

MainForm.Hide

Application.DisplayFormulaBar = True

Application.CommandBars("Standard").

скачать бесплатно средства Microsoft Office Excel

Содержание дипломной работы

Благодаря этому языку появляется возможность значительно расширить набор функций в Excel, а также создавать функции, значения которых зависят от некоторых условий и событий
Кнопка “Статистика инструкторов” на главной форме – ткрывает окно позволяющее формировать отчеты о сдаче экзаменов учениками, обучающимися у конкретных мастеров

Рисунок 22 - Рамка "Паспортные данные" Рамка “Адрес” – предназначена для ввода такой информации, как “Улица”, “Дом”, “Квартира”, “Домашний телефон”, “Сотовый телефон”
Левый выпадающий список содержит тип клиента (“Окончил”, “Обучаемый”, “Ожидает”), а второй список посредством анализа первого списка заполняется клиентами выбранной категории
3 Статистика инструкторов
Рисунок 39 - Статистика инструкторов Отчет “Статистика инструкторов” – отображает все данные по результатам сдачи экзаменов у конкретных инструкторов
Кнопка “Печать” – открывает диалог отправления этого отчета на печать, а кнопка “Вернуться” – скрывает этот лист и возвращает на форму построения отчета
Save Workbooks("cursed2ex
Show (0) End Sub Завершение работы формы: Private Sub UserForm_Terminate() MainForm
Activate Sheets("База")
CurrentRegion
AddItem ListBox2
Show (0) End Sub 5
Count Sheets("База")
Text Sheets("База")
Text) End Sub Поле “Номер”: Private Sub ed_num_Change() ed_num
7 Форма “Формирование бланка оплаты” Кнопка “Закрыть”: Private Sub bt_exit_Click() PayForm
Count For i = 2 To all If Sheets("База")
Enabled = True If cb_able
Cells(i, 17) = "Нет" If cb_pdd
CurrentRegion
Value = True If Sheets("База")
Count For i = 2 To all If Sheets("База")
Show (0) End If End Sub Завершение работы формы: Private Sub UserForm_Terminate() ClientForm
Range("B7") = Sheets("База")
Range("C14") = Sheets("База")
Select Selection
AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("База")
Rows
Text Else y = "Любой" Sheets("База")
Range("D5") = gai2 Sheets("Отчет")
AddItem ("Любой") For i = 2 To alld cb_car
CurrentRegion
Range("B2") = cb_car