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

2.2. Алгоритмы добавления данных

Private Sub CommandButton1_Click()

Worksheets(1).Activate i = 1

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

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

3. ПРОЕКТИРОВАНИЕ ПОЛЬЗОВАТЕЛЬСКОГО ИНТЕРФЕЙСА

3.1. Главное меню программы

3. ПРОЕКТИРОВАНИЕ ПОЛЬЗОВАТЕЛЬСКОГО ИНТЕРФЕЙСА

3.2. Основные формы программы

Форма «Рейсы»

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

предусмотрена кнопка «Отмена».