перейти к полному списку дипломных проектов
Ссылка на скачивания файла в формате .doc находится в конце странички
Show (0)
End Sub
5
Hide
SelectForm.Show (0)
End Sub
Кнопка “Допуски”:
Private Sub bt_waydata_Click()
ClientForm.Hide
WayForm.Show (0)
End Sub
Завершение работы формы:
Private Sub UserForm_Terminate()
MainForm.Show (0)
End Sub
5.6 Форма “Добавление клиента”
Кнопка “Внести в базу данных!”:
Private Sub bt_add_Click()
On Error GoTo erin:
If ed_surname.Text <> "" And ed_name.Text <> "" And ed_patron.Text <> "" And ed_birth.Text <> "" And ed_str.Text <> "" And ed_home.Text <> "" And ed_room.Text <> "" And ed_who.Text <> "" And ed_date.Text <> "" And ed_ser.Text <> "" And ed_num.Text <> "" And Val(ed_home.Text) <> 0 And Val(ed_room.Text) <> 0 And Val(ed_ser.Text) <> 0 And Val(ed_num.Text) <> 0 And Val(ed_birth.Text) <> 0 And Val(ed_date.Text) <> 0 And ed_birth.Text = CDate(ed_birth.Text) And ed_date.Text = CDate(ed_date.Text) Then
Dim all As Integer
Sheets("База").Activate
Sheets("База").Cells(1, 1).Select
Selection.
скачать бесплатно средства Microsoft Office Excel
Содержание дипломной работы
Благодаря этому языку появляется возможность значительно расширить набор функций в Excel, а также создавать функции, значения которых зависят от некоторых условий и событий
Кнопка “Статистика инструкторов” на главной форме – ткрывает окно позволяющее формировать отчеты о сдаче экзаменов учениками, обучающимися у конкретных мастеров
Рисунок 22 - Рамка "Паспортные данные"
Рамка “Адрес” – предназначена для ввода такой информации, как “Улица”, “Дом”, “Квартира”, “Домашний телефон”, “Сотовый телефон”
Левый выпадающий список содержит тип клиента (“Окончил”, “Обучаемый”, “Ожидает”), а второй список посредством анализа первого списка заполняется клиентами выбранной категории
3 Статистика инструкторов
Рисунок 39 - Статистика инструкторов
Отчет “Статистика инструкторов” – отображает все данные по результатам сдачи экзаменов у конкретных инструкторов
Кнопка “Печать” – открывает диалог отправления этого отчета на печать, а кнопка “Вернуться” – скрывает этот лист и возвращает на форму построения отчета
Save
Workbooks("cursed2ex
Show (0)
End Sub
Завершение работы формы:
Private Sub UserForm_Terminate()
MainForm
Activate
Sheets("База")
CurrentRegion
AddItem ListBox2
Show (0)
End Sub
5
Count
Sheets("База")
Text
Sheets("База")
Text)
End Sub
Поле “Номер”:
Private Sub ed_num_Change()
ed_num
7 Форма “Формирование бланка оплаты”
Кнопка “Закрыть”:
Private Sub bt_exit_Click()
PayForm
Count
For i = 2 To all
If Sheets("База")
Enabled = True
If cb_able
Cells(i, 17) = "Нет"
If cb_pdd
CurrentRegion
Value = True
If Sheets("База")
Count
For i = 2 To all
If Sheets("База")
Show (0)
End If
End Sub
Завершение работы формы:
Private Sub UserForm_Terminate()
ClientForm
Range("B7") = Sheets("База")
Range("C14") = Sheets("База")
Select
Selection
AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("База")
Rows
Text Else y = "Любой"
Sheets("База")
Range("D5") = gai2
Sheets("Отчет")
AddItem ("Любой")
For i = 2 To alld
cb_car
CurrentRegion
Range("B2") = cb_car
