Описание применения (общая характеристика программы с указанием сферы и особенностей ее применения)

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

· Интерфейс, состоящий из множества форм;

· Легко изменяемый код программы;

· Удобные в освоении интерфейс и управление;

· Совместимость с различными ОС семейства Windows;

· Перед началом работы не нужна дополнительная подготовка.

6.2. Руководство пользователя:

6.2.1. детальное описание работы с программой (функциональные возможности и технология использования компонентов)

Следует заметить, что программа не является самостоятельным структурным элементом в иерархии объектов языка VBA, и поэтому редактор VBA распознаёт по именам не программы, а процедуры, модули и проекты. Любая VBA-программа обязательно содержит хотя бы одну процедуру, потому что компилятор языка VBA может выполнять только операторы, помещённые в процедуру. Однако выполняемая программа-процедура может, в свою очередь, обращаться к одной или нескольким другим процедурам, помещённым в один или несколько модулей, входящих в состав одного или проектов. Другими словами в VBA строки программного кода организованы в процедуры, которые размещаются в модулях, а модули размещаются в проектах.

В программе организован удобный интерфейс.

При запуске приложения запускается главная форма «Меню». На данной форме находятся три кнопки: «Регистрация», «Прайс-лист», «Статистика», «О программе», «Выход». При нажатии на кнопку «Выход» происходит закрытие ИАС, кнопка «О программе» открывает форму «О программе», в которой содержатся данные о разработчике, а кнопки «Регистрация», «Прайс-лист» и «Статистика» открывают одноименные формы. На данных формах содержатся следующие элементы

· Текстовые поля для заполнения;

· Список с данными;

· Кнопки для выполнения перечисленных выше операций;

· На форме «Регистрация» содержатся переключатели для выбора параметра сортировки;

· Формы «Покупатель» и «Оплата» содержат поля с раскрывающимся списком.

Созданную ИАС систему можно просматривать и редактировать как в режиме формы, так и в режиме таблицы.

 

6.2.2. Графический интерфейс (описание форм, состава используемых объектов, их свойств, методов и событий – на примере форм для работы с главным файлом)

Главное окно программы

При запуске программы открывается главная форма:

Рис. 1. Главное окно

Форма «Регистрация поставок»

Рис.2 «Регистрация поставок»

Форма «Регистрация поставок», содержащаяся на одноименном листе рабочей книги, содержит список автомобилей с указанием их кода, страны-импортера и объема поставок.

Форма «Прайс-лист»

Рис. 3 «Прайс-лист»

Форма «Прайс-лист» имеет структуру схожую с формой «Покупатель» и также служит для работы с данными с одноименного листа. Но на данной форме нет элемента поля с раскрывающимся списком.

Форма «Статистика»

Форма «Ведомость» предназначена для просмотра списка задолжников по оплате:

Рис. 4 «Статистика»

 

Руководство программиста (особенности внутренней структуры программы, правила эксплуатации и обеспечения надежной и качественной работы)

Данная ИАС была написана на языке VBA. Для того чтобы каждая из перечисленных выше процедур выполнялась был написан соответствующий программный код. Примеры программных кодов можно рассмотреть на примере формы «Регистрация поставок».

Автозаполнение

ListBox заполняется автоматически с листа «Регистрация поставок» при помощи кода:

Private Sub UserForm_Initialize()

Worksheets("Регистрация поставок").Activate

Dim i As Integer

Dim j As Integer

'Заполнение ListBox

ListBox1.Clear

i = 1

Do

i = i + 1

ListBox1.AddItem Cells(i, 1)

For j = 1 To 4

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

Next j

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

Private Sub ListBox1_Click()

Worksheets("Регистрация поставок").Activate

ComboBox1.Text = Cells(ListBox1.ListIndex + 2, 1)

TextBox2.Text = Cells(ListBox1.ListIndex + 2, 2)

TextBox1.Text = Cells(ListBox1.ListIndex + 2, 3)

TextBox3.Text = Cells(ListBox1.ListIndex + 2, 4)

End Sub

 

ComboBox заполняется с листа «Регистрация поставок» при помощи следующего кода:

i = 1

Do Until Worksheets("Регистрация поставок").Cells(i, 1) = Empty

ComboBox1.AddItem

ComboBox1.List(i - 1, 0) = Worksheets("Регистрация поставок").Cells(i + 1, 1)

ComboBox1.List(i - 1, 1) = Worksheets("Регистрация поставок").Cells(i + 1, 2)

Loop

Добавление

Private Sub CommandButton2_Click()

Worksheets("Регистрация поставок").Activate

Dim i As Integer

Dim j As Integer

i = 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) = ComboBox1.Text

ListBox1.Clear

i = 1

Do

i = i + 1

ListBox1.AddItem Cells(i, 1)

For j = 1 To 4

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

Next j

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

End Sub

Изменение

Private Sub CommandButton3_Click()

Worksheets("Регистрация поставок").Activate

Dim i As Integer

Dim j As Integer

Cells(ListBox1.ListIndex + 2, 1) = ComboBox1.Text

Cells(ListBox1.ListIndex + 2, 2) = TextBox2.Text

Cells(ListBox1.ListIndex + 2, 4) = TextBox3.Text

Cells(ListBox1.ListIndex + 2, 3) = TextBox1.Text

ListBox1.Clear

i = 1

Do

i = i + 1

ListBox1.AddItem Worksheets("Регистрация поставок").Cells(i, 1)

For j = 1 To 4

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

Next j

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

End Sub

Удаление

Private Sub CommandButton5_Click()

Worksheets("Регистрация поставок").Activate

Dim i As Integer

Dim j As Integer

i = ListBox1.ListIndex

'Каскадное удаление

j = 0

Call MsgBox("Будет выполнено удаление записей!")

Do

j = j + 1

If Worksheets("Регистрация поставок").Cells(i + 1, 3) = Worksheets("Прейскурант цен").Cells(j, 1) Then

Worksheets("Прейскурант цен").Rows(j).Delete

j = j - 1

End If

Loop While Worksheets("Регистрация поставок").Cells(j + 1, 1) <> ""

ActiveSheet.Rows(i + 1).Delete

ListBox1.Clear

i = 1

Do

i = i + 1

ListBox1.AddItem Cells(i, 1)

For j = 1 To 4

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

Next j

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

TextBox1.Text = ""

TextBox2.Text = ""

ComboBox1.Text = ""

TextBox3.Text = ""

End Sub

 

Т.к. в таблице «Регистрация поставок» содержится исходная информация для таблицы «Прейскурант цен» и из неё заполняется элемент ComboBox в форме «Прейскурант цен», поэтому в коде используется каскадное удаление, т.е. автоматическое удаление информации не только из таблицы «Регистрация поставок», но и из таблицы «Прейскурант цен».

Очистка

Private Sub CommandButton4_Click()

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

ComboBox1.Text = ""

End Sub

 

Поиск

Private Sub CommandButton1_Click()

Dim i As Integer, j As Integer, n As Integer, irow As Integer

Dim stest As String

Worksheets("Регистрация поставок").Activate

ListBox1.Clear

irow = Application.WorksheetFunction.CountA(Columns(2))

If TextBox7.Text = "" Then

MsgBox "Введите параметр для поиска"

Exit Sub

Else

i = 1

j = 0

Do While i <= irow + 1

stest = Cells(i, 2).Text

If IsNumeric(Application.Search(TextBox7.Text, stest)) Then

ListBox1.AddItem stest

ListBox1.List(j, 1) = Cells(i, 2).Text

ListBox1.List(j, 2) = Cells(i, 3).Text

ListBox1.List(j, 3) = Cells(i, 4).Text

End If

i = i + 1

Loop

 

If ListBox1.ListCount = 0 Then

MsgBox "не найдено"

ifound = 0

Exit Sub

End If

End If

End Sub

Отмена поиска

Private Sub CommandButton8_Click()

Worksheets("Регистрация поставок").Activate

Dim i As Integer

Dim j As Integer

'Заполнение ListBox

ListBox1.Clear

i = 1

Do

i = i + 1

ListBox1.AddItem Cells(i, 1)

For j = 1 To 4

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

Next j

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

TextBox7.Text = ""

End Sub

Сортировка

Private Sub CommandButton6_Click()

Worksheets("Регистрация поставок").Activate

i = 1

If OptionButton1.Value = True Then k = "B"

If OptionButton2.Value = True Then k = "C"

While Not Cells(i, 1) = ""

i = i + 1

Wend

s = LTrim(Str(i - 1))

Range("A2:F" + s).Sort key1:=Columns(k), Order1:=xlAscending

ListBox1.Clear

i = 1

Do

i = i + 1

ListBox1.AddItem Worksheets("Регистрация поставок").Cells(i, 1)

For j = 1 To 4

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

Next j

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

End Sub

Закрыть

Private Sub CommandButton7_Click()

Unload Uchet

End Sub

Форма «Статистика»

Кнопка «Статистика» (рис.1) запускает одноименную форму. В ней производится подсчет наиболее популярного автомобиля и страны, импортирующую автомобили на наибольшую сумму. На данной форме есть 2 вкладки и на каждой из них находятся кнопки «Показать» и «Очистить». Но сначала выполняется инициализация формы:

Private Sub UserForm_Initialize()

Worksheets("Регистрация поставок").Activate

OptionButton1.Value = True

i = 1

If OptionButton1.Value = True Then k = "D"

While Not Cells(i, 1) = ""

i = i + 1

Wend

s = LTrim(Str(i - 1))

Range("A2:F" + s).Sort key1:=Columns(k), Order1:=xlAscending

End Sub

Показать

Private Sub CommandButton1_Click()

Worksheets("Регистрация поставок").Activate

a = Worksheets("Регистрация поставок").Cells(2, 4)

i = 1

While Worksheets("Регистрация поставок").Cells(i, 1) <> ""

If Worksheets("Регистрация поставок").Cells(i, 4) > a Then

Label3.Caption = Sheets(1).Cells(i, 3)

Label4.Caption = Sheets(1).Cells(i, 4)

Rows(i).Select

End If

i = i + 1

Wend

End Sub

Ввод в эксплуатацию

Для того чтобы завершить создание работоспособной ИАС необходимо установить его в локальной сети пользователя. Обычно для этого используются специальные программы, вроде Setup.exe. В начале процесса установки предлагается выбрать каталог, в который будет размещена программа. После подтверждения выбора будет выполнена установка.

Этапы введения программного продукта в эксплуатацию:

· Подготовка и сдача информационно-аналитической системы в опытную эксплуатацию

· Проведение опытной эксплуатации

· Сдача программы в промышленную эксплуатацию

Опытная эксплуатация позволяет провести проверку ИАС, исправить выявленные ошибки и подготовить персонал фирмы к использованию продукта.

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

 

Список литературы

1. А. Гарнаев «Самоучитель VBA». – СПб.: БХВ-Петербург, 2004. С. – 542.
2. С.Каммингс «VBA для чайников». – М.: Вильямс, 2003. С. – 448.
3. Стив Каммингс «VBA и макросы в Microsoft Office Excel 2007»;
4. Кен Гетц, Майк Гилберт «Программирование на Visual Basic 6 и VBA. Руководство разработчика».­ – М.: Аквамарин, 2009. С. – 160.
5. Антон Орлов «VBA: для тех, кто любит думать». – М.: Перо, 2008. С. – 240.
6. Г. Петровский «VBA: от А до Я». – М.: Аквамарин, 2010. С. – 316.