Очистка

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

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

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

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

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

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

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

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

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