РЮАКХЖЮ"
рЮАКХЖЮ"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = _
"Продолжительность оплаченных/неоплаченных поездок"
End With
'
End Sub
'
Sub СохранитьКак()
'
' Процедура активизирует встроенное окно Сохранение документа
'
Application.Dialogs(xlDialogSaveAs).Show
End Sub
'
Sub Закрыть()
'
' Процедура закрытия приложения
'
Application,Quit
End Sub
Модуль UserForml |
Программа считывает информацию с диалогового окна Регистрация туристов фирмы "С нами не соскучишься" (Рисунок У 10.3) и обеспечивает ввод набранных в нем данных в рабочий лист БазаДанных.
|
||
Private Sub CommandButtonl_Click()
' В переменную НомерСтроки вводится номер первой пустой строки
' рабочего листа БазаДанных
НомерСтроки = Application.CountA(Sheets("БазаДанных").Range("A:A")) + I
'
' Считывание информации в переменные из диалогового окна
With UserForml
Фамилия = .TextBoxl.Text Имя = .TextBox2.Text
Продолжительность = .TextBox3.Text
If .OptionButtonl.Value = True Then
Пол = "Муж"
Else
Пол = "Жен"
End If
If ..CheckBoxl.Value = True Then
Оплачено = "Да"
Else
Оплачено = "Нет"
End If
If .CheckBox2.Value = True Then
Фото'= "Да"
Else
Фото = "Нет"
End If
If .CheckBoxS = xlOn Then
Паспорт = "Да"
Else
Паспорт = "Нет"
End If
ВыбранныйТур = .ComboBoxl.Text
End With
'
' Запись данных на рабочий лист БазаДанных
'
With Sheets("БазаДанных")
.Cells(НомерСтроки, 1).Value = Фамилия
.Cells(НомерСтроки, 2).Value = Имя
.Cells(НомерСтроки, 3).Value = Пол
.Cells(НомерСтроки, 4).Value = ВыбранныйТур
.Cells(НомерСтроки, 5).Value = Оплачено
.Cells(НомерСтроки, 6).Value = Фото
.Cells(НомерСтроки, 7).Value = Паспорт
.Cells(НомерСтроки, 8).Value = Продолжительность
End With
End Sub
'
Private Sub CommandButton2_Click()
'
' Процедура закрытия диалогового окна UserForml.Hide
End Sub
Private Sub SpinButtonl_Change()
'
' Процедура .ввода числа со счетчика в поле ввода
'
With UserForml
.TextBoxS.Text = CStr(.SpinButtonl.Value)
End With
End Sub
Private Sub TextBox3_Change()
'
' Процедура установки значения счетчика из поля ввода
With UserForml
.SpinButtonl.Value = CInt(.TextBox3.Text)
End With
'
End Sub
Модуль UserForm3 |
Программа ищет по фамилии, введенной в поле Фамилия диалогового окна поиск (Рисунок У10.4), подходящих клиентов в базе данных. Если такие имеются, то список вариантов найденных клиентов в базе данных с указанием фамилий, имен и номеров записей, отображается в раскрывающемся списке Найденные варианты. В противном случае выдается сообщение о неудачном поиске (Рисунок У10.8).
|
||