Сотрудники

UserForm1.Hide

End If

IsNumeric(TextBox4.Text) Then

Дни = TextBox2.Text

Суточные = TextBox3.Text

Билеты = TextBox4.Text

Label8.Caption = Дни * Суточные + Билеты

4. Скопируйте введенный текст программы в буфер обмена

5. В ПФ вызовите контекстное меню для поля Суточные, выберите команду View Code и вставьте фрагмент из буфера обмена (пересчет суммы будет производиться при каждом изменении содержимого поля).

6. В ПФ вызовите контекстное меню для поля Стоимость билетов, выберите команду View Code и вставьте фрагмент из буфера обмена (пересчет суммы будет производиться при каждом изменении содержимого поля)

Подзадача 3.4 – Работа кнопки Ок в ПФ

В ПФ вызовите контекстное меню для кнопки ОК, выберите команду View Code и введите текст программы (комментарии набирать не обязательно):

' Найдем на листе "Командировки" первую пустую строку

' и номер ее запишем в переменную Строка

Строка = Application.CountA(Sheets("Командировки").Range("A:A")) + 1

' Работаем с листом "Командировки"

Sheets("Командировки").Select

' в строке номер Строка запишем:

' в столбце А – содержимое поля TextBox1.

.Cells(Строка, 1) = TextBox1.Text

' в столбце В – содержимое поля со списком ComboBox1.

.Cells(Строка, 2) = ComboBox1.Text

' в столбце С – содержимое поля со списком ComboBox2.

.Cells(Строка, 3) = ComboBox2.Text

' в столбце D – содержимое поля TextBox2.

.Cells(Строка, 4) = TextBox2.Text

' в столбце E – содержимое поля TextBox3

.Cells(Строка, 5) = TextBox3.Text

' в столбце F – содержимое поля TextBox4

.Cells(Строка, 6) = TextBox4.Text

' в столбце G – содержимое надписи Label8

.Cells(Строка, 7) = Label8.Caption

' удалим с экрана ПФ

Подзадача 3.5 – Работа кнопки Отмена в ПФ

*Выполните следующие действия.

В ПФ вызовите контекстное меню для кнопки ОК, выберите команду View Code и введите текст программы:

‘текст программы, выполняемой при нажатии

‘ на кнопку Отмена

UserForm1.Hide

Пятый этап – Отладка

Для проверки работы приложения подготовим контрольные примеры.

Данные для ввода информации приведены в таблицах 5-7.

Перейдите на лист Меню, нажмите на кнопку Новый сотрудник и введите подготовленные данные о сотрудниках в базу данных Сотрудники.

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

Таблица 5

Фамилия	Должность	Отдел	Телефон
Иванов А.В.	менеджер	маркетинговый отдел	234-34-65
Князев С.Р.	начальник отдела	отдел продаж	234-45-23
Петров И.П.	коммерческий директор	администрация	234-65-12
Романов Н.П.	менеджер	отдел продаж	234-14-56
Сидоров П.Л.	начальник отдела	маркетинговый отдел	234-34-67
Смирнова Л.П.	менеджер	дилерский отдел	234-89-04

Дата добавления: 2014-12-08