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

 

В этой главе будет рассматриваться разработка алгоритмов и программных кодов для различных элементов пользовательских форм информационно-аналитической системы.

 

2.1 Главная форма – начало работы с программой

Главная форма этой системы открывается автоматически с открытием книги Excel. Так же главная форма содержит три кнопки. Кнопка «Начать работу»открывает вторую форму и имеет следующий код:

 

Private Sub CommandButton1_Click()

Unload UserForm1

UserForm2.Show

End Sub

 

Кнопка «О программе» выводит форму содержащую информацию о программе и её создателе, имей такой код:

 

Private Sub CommandButton3_Click()

UserForm7.Show

End Sub

 

Кнопка «Выход» закрывает данную форму:

Private Sub CommandButton2_Click()

End

End Sub

 

Как было сказано ранее, нажатием на кнопку «Начать работу» осуществляется вызов второй пользовательской формы. Эта форма позволяет непосредственно вызывать формы «Список сотрудников», «Телефоны» и «Назад», нажимая на одноименные кнопки. Кнопка «Назад» служит для закрытия второй формы и возврата на главную, используя код:

Private Sub CommandButton2_Click()

Unload UserForm2

UserForm1.Show

End Sub

2.2 Форма «Список сотрудников»

 

 

Эта форма содержит в себе ListBox, в который выводится список сотрудников с одноименного листа рабочей книги. Позволяет добавлять, удалять, изменять список. А так же перейти к оформлению продажи или вернуться на прошлую форму. Все эти действия выполняются одноименными кнопками «Добавить сотрудника», «Удалить», «Оформить продажу».

Информация о сотрудниках, содержащаяся на первом листе рабочей книги, выводится в Listbox, находящийся на форме. Его заполнение и сортировка списка по фамилии происходят автоматически. Используется следующий код:

 

Private Sub UserForm_Initialize()

Sheets("Сотрудники").Activate

ListBox1.ColumnWidths = "200;90"

ListBox1.Clear

i = 0

Do

i = i + 1

ListBox1.AddItem Cells(i, 1)

For j = 1 To 2

ListBox1.List(i - 1, j - 1) = Cells(i, j)

Next j

Loop While Cells(i + 1, 1) <> ""

End Sub

 

Рассмотрим коды следующих кнопок и действий.