Курсовая работа: Разработка прикладного программного обеспечения деятельности отдела аренды ЗАО "Сириус"

//передача параметра s в качестве переменной запроса

.Source = "Select * from Rooms where CustomerID =" & s

.Open

End With

//Далее идут запросы

//Обновление формы

print_i

i = i + 1

End If

End Sub

По большому счёту весь код данных форм практически идентичен предыдущему в силу того, что используются запросы с другими параметрами и из других таблиц, вот и все отличия.

Форма управления слоями

Для того, чтобы в объекте ListBox1 появился список слоёв, необходимо методе инициализации формы прописать следующие строки:

Private Sub UserForm_Initialize()

//Данный цикл выводит существующие слои в ListBox

For I = 2 To ThisDrawing.Layers.Count - 1

ListBox1.AddItem (ThisDrawing.Layers.Item(I).Name)

Next I

End Sub

В результате выполнения данного кода объект ListBox1 будет заполняться названиями существующих слоёв.

В обработчике кнопки «Отключить слой» пропишем следующие строки:

Private Sub CommandButton1_Click()

//проверка условия выбранного поля

If ListBox1.ListIndex = -1 Then

MsgBox "Выберите слой"

Else