МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РФ ФИЛИАЛ ФЕДЕРАЛЬНОГО ГОСУДАРСТВЕННОГО

ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ
«КАЗАНСКИЙ (ПРИВОЛЖСКИЙ) ФЕДЕРАЛЬНЫЙ УНИВЕРСИТЕТ» в г. НАБЕРЕЖНЫЕ ЧЕЛНЫ

Кафедра «Сервис

транспортных систем»




Курсовая работа

по дисциплине «Информатика»
на тему:
«Информационно-аналитическая система …»



Выполнил: студент группы 4168-с
Иванов И.И.
Проверил: доцент каф. СТС, к.т.н., доцент Маврин В.Г.





Набережные Челны
2013

полей данных
1.3. Организация связей между таблицами

2. ПРОЕКТИРОВАНИЕ И РАЗРАБОТКА АЛГОРИТМОВ
2.1.

Начало работы с программой
2.2. Алгоритмы добавления данных
2.3. Алгоритмы изменения данных
2.4. Алгоритмы удаления данных
2.5. Алгоритмы поиска
2.6. Алгоритмы сортировки

3. ПРОЕКТИРОВАНИЕ ПОЛЬЗОВАТЕЛЬСКОГО ИНТЕРФЕЙСА
3.1. Главное меню программы
3.2. Основные формы программы
3.3. Этапы загрузки данных
3.4. Справочная система

ЗАКЛЮЧЕНИЕ

СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

методами программирования
Обоснование выбора VBA в Excel в качестве инструмента программирования

содержит в себе информацию о номере рейса, дате выезда, пункте

назначения, время выезда время прибытия, количество мест в автобусе и стоимости билета

Рис. 1.1. Таблица «Рейсы»

данных:

на первые 3 кнопки открываются одноименные пользовательские формы.

вызывает вторую форму «Начало работы». Алгоритм работы данной кнопки в

конструкции VBA:
Private Sub CommandButton1_Click()
Beginning.Show
End Sub
Кнопка «Выход» позволяет завершить работу с программой, скрывая пользовательскую форму. Алгоритм работы данной кнопки в конструкции VBA:
Private Sub CommandButton2_Click()
Unload General
End Sub
Последняя кнопка «О программе» вызывает форму, содержащую справочные данные. Алгоритм работы данной кнопки в конструкции VBA:
Private Sub CommandButton3_Click()
AboutProgramm.Show
End Sub

CommandButton1_Click()
Reis.Show
End Sub
Private Sub CommandButton2_Click()
Sells.Show
End Sub
Private Sub

CommandButton3_Click()
Drivers.Show
End Sub

Private Sub CommandButton4_Click()
Unload Beginning
End Sub

служит для добавления в таблицу новой записи со значениями полей,

указанными в элемента TextBox1, ComboBox1 и т.д.

= 1
Do
i = i + 1
Loop Until Cells(i, 2) =

Empty
Cells(i, 1) = TextBox1.Text
Cells(i, 2) = TextBox2.Text
Cells(i, 3) = TextBox3.Text
Cells(i, 4) = TextBox4.Text
Cells(i, 5) = TextBox5.Text
Cells(i, 6) = TextBox6.Text
Cells(i, 7) = TextBox7.Text
ListBox1.Clear
i = 1
Do
i = i + 1
ListBox1.AddItem Cells(i, 1)
For j = 1 To 7
ListBox1.List(i - 2, j - 1) = Cells(i, j)
ListBox1.List(i - 2, 3) = Format(Cells(i, 4), "h:m")
ListBox1.List(i - 2, 4) = Format(Cells(i, 5), "h:m")
Next j
Loop While Cells(i + 1, 1) <> ""
End Sub

пользовательских форм информационно-аналитической системы, позволяющая работать с исходной информацией, содержащейся

на одноименном листе «Рейсы» рабочей книги, а также вносить изменения в данные, добавлять и удалять их. Для всех этих функций предусмотрены определенные кнопки: «Добавить», «Изменить», и «Удалить». Для отмены последнего действия предусмотрена кнопка «Отмена».