Мегаобучалка Главная | О нас | Обратная связь  


Пример: Заполнение таблицы базы данных




Поможем в ✍️ написании учебной работы
Поможем с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой

ПРАКТИЧЕСКОЕ ЗАДАНИЕ №8. ЭЛЕМЕНТЫ УПРАВЛЕНИЯ.

Элемент управления Поле со списком. Поле со списком применяется для хранения списка значений и сочетает в себе функциональные возможности списка и поля ввода. В отличие от списка, в нем отображаются только один элемент списка, а режим выделения нескольких элементов отсутствует. Свойства аналогичны свойствам элемента Список. Дополнительные свойства:

Свойство Описание
DropButtonStyle Устанавливает вид поля со списком. Допустимые значения: FmdropButtonStylePlain – кнопка без символов FmdropButtonStyleArrowdisplays – кнопка со стрелкой FmdropButtonStyleReduce – кнопка с линией FmdropButtonStyleEllipsis – кнопка с линией
ListRows Устанавливает число элементов , отображаемых в поле со списком
MatchRequired Лог.свойство – true – в поле ввода нельзя ввести значения, отличные от перечисленных в списке, false – иначе.
MatchFound Лог.свойство – true – среди элементов поля со списком имеется элемент, который совпадает с элементам в поле ввода, false – иначе.

Пример: Заполнение таблицы базы данных .

В Excel существует встроенное средство – форма, диалоговое окно, с помощью которого можно заполнять и редактировать записи в таблице базы данных. Большим неудобством средства меню Данные/Форма является то, что каждому полю записи в нем соответствует только одно поле ввода. Но чаще при заполнении баз данных часто значения некоторых полей выбираются из некоторого списка. Лучше при наличии альтернативных значений использовать списки, переключатели, флажки, а не ограничиваться полями для ввода, как этот имеется в средстве Форма. Это во первых, позволит ускорить процесс заполнения таблицы, а во-вторых, избавит от опечаток.



Создадим свою пользовательскую форму для заполнения базы данных некоторой туристической фирмы.

Сначала создайте новую рабочую книгу, и на первом листе введите заголовки столбцов для базы данных.

Фамилия Имя Пол Выбранный тур оплачено фото паспорт срок
               

Затем посмотрите форму, которую создает MS Excel для заполнения, для этого нажмите Данные/Форма.

Нас не устраивает данная форма, создаем свою. Зайдите в VBA и создайте новую форму и вставляем элементы управления в соответствии с рис.

Используя свойства настройте следующие значения свойств Name элементов управления :

Элемент управления Свойство Name Предназначение
Поле ввода Textsurname Ввод фамилии клиента
Поле ввода Textname Ввод имени клиента
Поле ввода Textdays Продолжительность тура можно вводить либо с клавиатуры либо с помощью счетчика
Счетчик SpinDays Вводит продолжительность тура
Поле со списком Tour Выбор из предложенных туров
Переключатели Male Female Выбор пола
Флажки Payment Photo Passport Флажки : оплата Фото Паспорт
Кнопка Cmdok Ввод записи
Кнопка Cmdcancel Закрытие окна

Надписи и названия кнопок дайте самостоятельно согласно приведенному рис. 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-2020 megaobuchalka.ru Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. (831)

Почему 1285321 студент выбрали МегаОбучалку...

Система поиска информации

Мобильная версия сайта

Удобная навигация

Нет шокирующей рекламы



(0.013 сек.)
Поможем в написании
> Курсовые, контрольные, дипломные и другие работы со скидкой до 25%
3 569 лучших специалисов, готовы оказать помощь 24/7