Пример: Заполнение таблицы базы данных
ПРАКТИЧЕСКОЕ ЗАДАНИЕ №8. ЭЛЕМЕНТЫ УПРАВЛЕНИЯ. Элемент управления Поле со списком. Поле со списком применяется для хранения списка значений и сочетает в себе функциональные возможности списка и поля ввода. В отличие от списка, в нем отображаются только один элемент списка, а режим выделения нескольких элементов отсутствует. Свойства аналогичны свойствам элемента Список. Дополнительные свойства:
Пример: Заполнение таблицы базы данных . В Excel существует встроенное средство – форма, диалоговое окно, с помощью которого можно заполнять и редактировать записи в таблице базы данных. Большим неудобством средства меню Данные/Форма является то, что каждому полю записи в нем соответствует только одно поле ввода. Но чаще при заполнении баз данных часто значения некоторых полей выбираются из некоторого списка. Лучше при наличии альтернативных значений использовать списки, переключатели, флажки, а не ограничиваться полями для ввода, как этот имеется в средстве Форма. Это во первых, позволит ускорить процесс заполнения таблицы, а во-вторых, избавит от опечаток. Создадим свою пользовательскую форму для заполнения базы данных некоторой туристической фирмы. Сначала создайте новую рабочую книгу, и на первом листе введите заголовки столбцов для базы данных.
Затем посмотрите форму, которую создает MS Excel для заполнения, для этого нажмите Данные/Форма. Нас не устраивает данная форма, создаем свою. Зайдите в VBA и создайте новую форму и вставляем элементы управления в соответствии с рис. Используя свойства настройте следующие значения свойств Name элементов управления :
Надписи и названия кнопок дайте самостоятельно согласно приведенному рис. c помощью свойства Caption . Введите следующий код в модуле формы:
' описание типа клиент , в который будет входить следующая информация: ' фамилия, имя, и т.д. Private Type klient familiya As String imy As String pol As String tur As String oplacheno As String foto As String pasport As String srok As String End Type
Private Sub UserForm_Initialize() ' задание параметров раскрывающегося списка With tour .List = Array("Лондон", "Париж", "Берлин", "Карибы", "Малибу", "Мадрид") .ListIndex = 0 End With End Sub
Private Sub cmdok_Click() ' процедура считывания информации из диалогового окна и ее записи в базу данных Dim newklient As klient Dim stroca As Integer ' строка- номер первой строки из диалогового окна в переменную stroca = WorksheetFunction.CountA(Range("A:A")) + 1 'считывание информации из диалоговго окна в переменную With newklient .familiya = Textsurname.Text .imy = Textname.Text .srok = Textdays.Text .tur = tour.Text
If male.Value = True Then .pol = "Муж" If female.Value = True Then .pol = "Жен" If payment.Value = True Then .oplacheno = "Да" Else .oplacheno = "Нет" If photo.Value = True Then .foto = "Да" Else .foto = "Нет" If passport.Value = True Then .pasport = "Да" Else .pasport = "Нет"
End With ' ввод данных в строку с номером строка рабочего листа With newklient Cells(stroca, 1).Value = .familiya Cells(stroca, 2).Value = .imy Cells(stroca, 3).Value = .pol Cells(stroca, 4).Value = .tur Cells(stroca, 5).Value = .oplacheno Cells(stroca, 6).Value = .foto Cells(stroca, 7).Value = .pasport Cells(stroca, 8).Value = .srok
End With
End Sub
Private Sub cmdcansel_Click() 'процедура закрытия окна Unload Me End Sub
Private Sub Spindays_Change() 'процедура ввода числа со счетчика в поле ввода Textdays.Text = CStr(Spindays.Value) End Sub
Private Sub Textdays_Change() ' процедура установки значения счетчика из поля ввода If Not IsNumeric(Textdays.Text) Then Exit Sub Spindays.Value = CInt(Textdays.Text) End Sub
Теперь запустите модуль на выполнение и введите 5 записей.
Популярное: Как выбрать специалиста по управлению гостиницей: Понятно, что управление гостиницей невозможно без специальных знаний. Соответственно, важна квалификация... Как построить свою речь (словесное оформление):
При подготовке публичного выступления перед оратором возникает вопрос, как лучше словесно оформить свою... ©2015-2024 megaobuchalka.ru Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. (919)
|
Почему 1285321 студент выбрали МегаОбучалку... Система поиска информации Мобильная версия сайта Удобная навигация Нет шокирующей рекламы |