Лабораторная работа "Автоматизация проектов с помощью пользовательских форм"


1. Задание кафедры

Обучаемому необходимо усовершенствовать интерфейс информационной системы, разработанной при выполнении лабораторной работы №1, сделать его более «дружественным» и удобным для конечного пользователя. Для этого необходимо добавить пользовательскую форму с необходимыми элементами управления. Форму можно использовать для ввода и коррекции исходных данных, сложного поиска по нескольким критериям, фильтрации исходных данных, оптимальной группировки различных управляющих элементов и т.д.

Элементы управления выбираются из списка, приведенного в лабораторной работе №2 в соответствие с целесообразностью их использования в конкретной информационной системе.

8 вариант

Книжная карточка в библиотеке.

2. Цель работы

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

3. Программа

'Лист1

'добавить запись

Private Sub CommandButton3_Click()

UserForm1. Show

End Sub

'редактировать запись

Private Sub CommandButton7_Click()

UserForm6. Show

End Sub

'Форма Добавление

Private Sub CommandButton1_Click()

Dim i As Integer

i = 4

Do Until Лист1. Cells(i, 1) = ""

i = i + 1

Loop

Лист1. Cells(i, 1) = i - 3

Лист1. Cells(i, 2) = TextBox2. Value

Лист1. Cells(i, 3) = TextBox3. Value

Лист1. Cells(i, 4) = TextBox4. Value

Лист1. Cells(i, 5) = TextBox5. Value

Лист1. Cells(i, 6) = TextBox6. Value

Лист1. Cells(i, 7) = TextBox7. Value

Лист1. Cells(i, 8) = TextBox8. Value

Лист1. Cells(i, 9) = TextBox9. Value

Лист1. Cells(i, 10) = TextBox10. Value

Лист1. Cells(i, 11) = TextBox11. Value

Rows(i). EntireRow. AutoFit

TextBox2. Value = ""

TextBox3. Value = ""

TextBox4. Value = ""

TextBox5. Value = ""

TextBox6. Value = ""

TextBox7. Value = ""

TextBox8. Value = ""

TextBox9. Value = ""

TextBox10. Value = ""

TextBox11. Value = ""

MsgBox ("Запись добавлена")

End Sub

Private Sub CommandButton2_Click()

End

End Sub

'Форма Редактирование

Private Sub CommandButton1_Click()

If (ActiveCell. Value <> "" And ActiveCell. Row > 3) Then

i = ActiveCell. Row

Лист1. Cells(i, 1) = i - 3

Лист1. Cells(i, 2) = TextBox2. Value

Лист1. Cells(i, 3) = TextBox3. Value

Лист1. Cells(i, 4) = TextBox4. Value

Лист1. Cells(i, 5) = TextBox5. Value

Лист1. Cells(i, 6) = TextBox6. Value

Лист1. Cells(i, 7) = TextBox7. Value

Лист1. Cells(i, 8) = TextBox8. Value

Лист1. Cells(i, 9) = TextBox9. Value

Лист1. Cells(i, 10) = TextBox10. Value

Лист1. Cells(i, 11) = TextBox11. Value

Rows(i). EntireRow. AutoFit

TextBox2. Value = ""

TextBox3. Value = ""

TextBox4. Value = ""

TextBox5. Value = ""

TextBox6. Value = ""

TextBox7. Value = ""

TextBox8. Value = ""

TextBox9. Value = ""

TextBox10. Value = ""

TextBox11. Value = ""

End

Else

MsgBox("Выберите ячейку и нажмите кнопку ")

End If

Cancel = True

End Sub

Private Sub CommandButton2_Click()

End

End Sub

Private Sub UserForm_Activate()

If (ActiveCell. Value <> "" And ActiveCell. Row > 3) Then

i = ActiveCell. Row

TextBox2. Value = Лист1. Cells(i, 2)

TextBox3. Value = Лист1. Cells(i, 3)

TextBox4. Value = Лист1. Cells(i, 4)

TextBox5. Value = Лист1. Cells(i, 5)

TextBox6. Value = Лист1. Cells(i, 6)

TextBox7. Value = Лист1. Cells(i, 7)

TextBox8. Value = Лист1. Cells(i, 8)

TextBox9. Value = Лист1. Cells(i, 9)

TextBox10. Value = Лист1. Cells(i, 10)

TextBox11. Value = Лист1. Cells(i, 11)

Else

MsgBox("Выберите ячейку и нажмите кнопку")

End If

Cancel = True

End Sub

 
Оригинал текста доступен для загрузки на странице содержания