Автошкола "Кадиллак" - Дипломная работа

4 2. Основная часть 6 2.1 Постановка задачи 6 2.2 Исходные данные 7 2.3 Описание структуры приложения 9 2.4 Описание форм 10 2.4.1 Главная форма 10 2.4.2 Форма “Справка” 12 2.4.3 Форма “Группы” 14 2.4.4 Форма “Формирование группы” 16 2.4.5 Форма “Клиенты” 18 2.4.6 Форма “Добавление клиента” 19 2.4.7 Форма “Формирование бланка оплаты” 22 2.4.8 Форма “Допуски” 23 2.4.9 Форма “Информация о клиенте” 25 2.4.10 Форма “Статистика сдачи” 25 2.4.11 Форма “Статистика инструкторов” 27 2.5 Отчёты 28 2.5.1 Информация о клиенте 28 2.5.2 Результаты учебы 29 2.5.3 Статистика инструкторов 30 3. VBA сочетает в себе практически неограниченные возможности с простотой изучения и использования. Основная часть 2.1 Постановка задачи Используя средства Microsoft Office Excel и средство разработки программных продуктов VBA создать приложение, автоматизирующее оперирование информацией предприятия типа “Автошкола”. 9) Справка по программе. 2.2 Исходные данные Исходная таблица данных хранится на листе “Данные” (по умолчанию скрыт). Рисунок 4 - Условия обучения Главная база данных же, формируется на листе “База”, который также по умолчанию скрыт. 2.3 Описание структуры приложения 2.4 Описание форм 2.4.1 Главная форма При открытии рабочей книги проекта, автоматически запускается главная форма приложения. , vbCritical vbOKOnly, Автошкола) Else GroupForm.Hide CreateGroupForm.Show (0) End If End Sub Кнопка “Выпустить группу”: Private Sub bt_unform_Click() If CDate(Sheets(Данные).Range(J2)) 0 Then x = MsgBox(Вы подтверждаете окончание обучения группы?, vbQuestion vbYesNo, Автошкола) If x = 6 Then Sheets(База).Activate Sheets(База).Cells(1, 1).Select all = Selection.CurrentRegion.Rows.Count For i = 2 To all If Sheets(База).Cells(i, 29) = Обучаемый Then Cells(i, 29) = Окончил Next i lb_cur.Clear Sheets(Данные).Activate Sheets(Данные).Range(H2) = Sheets(Данные).Range(I2) = Sheets(Данные).Range(J2) = End If Else If lb_cur.ListCount > 0 Then x = MsgBox(Программа обучения еще не пройдена!, vbCritical vbOKOnly, Автошкола) Else x = MsgBox(Группа не набрана!, vbCritical vbOKOnly, Автошкола) End If End If End Sub Активация формы: Private Sub UserForm_Activate() lb_cur.Clear lb_next.Clear Sheets(База).Activate Sheets(База).Cells(1, 1).Select all = Selection.CurrentRegion.Rows.Count For i = 2 To all If Sheets(База).Cells(i, 29) = Обучаемый Then lb_cur.AddItem (Sheets(База).Cells(i, 2) & & Sheets(База).Cells(i, 3) & & Sheets(База).Cells(i, 4)) Next i For i = 2 To all If Sheets(База).Cells(i, 29) = Ожидает Then lb_next.AddItem (Sheets(База).Cells(i, 2) & & Sheets(База).Cells(i, 3) & & Sheets(База).Cells(i, 4)) Next i End Sub Завершение работы формы: Private Sub UserForm_Terminate() MainForm.Show (0) End Sub 5.4 Форма “Формирование группы” Кнопка “Закрыть”: Private Sub bt_exit_Click() CreateGroupForm.Hide GroupForm.Show (0) End Sub Кнопка “Сформировать”: Private Sub bt_save_Click() On Error GoTo erin: If ed_date.Text = CDate(ed_date.Text) And ed_enddate.Text = CDate(ed_enddate.Text) And CDate(ed_enddate.Text) > CDate(ed_date.Text) And ListBox1.ListCount