Создание базы данных учета оплаты дополнительных услуг и учета успеваемости учеников МБОУ ДОД "ДХШ" НГО
Оптимизация работы административного отдела художественной школы путем автоматизации учета оплаты за обучение и учета успеваемости учеников. Создание запросов, макросов и отчетов. Описание даталогической модели на SQL. Проведение нормализации таблиц.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | дипломная работа |
| Язык | русский |
| Дата добавления | 19.09.2014 |
| Размер файла | 2,8 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
If Not Me.Дан_ученик Then
DoCmd.OpenReport stDocName, acPreview, , "[Код_ ученика]=" & Me.Дан_ ученик
Else
MsgBox "Ученик не выбран. Будут показаны данные обо всех учениках", vbInformation
DoCmd.OpenReport stDocName, acPreview
End If
Exit_Кнопка10_Click:
Exit Sub
Err_Кнопка10_Click:
MsgBox Err.Description
Resume Exit_Кнопка10_Click
End Sub
Private Sub Кнопка24_Click()
On Error GoTo Err_Кнопка24_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1054) & ChrW(1087) & ChrW(1083) & ChrW(1072) & ChrW(1090) & ChrW(1072) & ChrW(32) & ChrW(1086) & ChrW(1073) & ChrW(1091) & ChrW(1095) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1103)
If Not Me.Дан_ученик Then
DoCmd.OpenForm stDocName, , , "[Код_ ученика]=" & Me.Дан_ученик
Else
MsgBox "Ученик не выбран. Будет выведена информация по всем ученикам", vbInformation
DoCmd.OpenForm stDocName
End If
Exit_Кнопка24_Click:
Exit Sub
Err_Кнопка24_Click:
MsgBox Err.Description
Resume Exit_Кнопка24_Click
End Sub
Private Sub Кнопка46_Click()
On Error GoTo Err_Кнопка46_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1057) & ChrW(1087) & ChrW(1088) & ChrW(1072) & ChrW(1074) & ChrW(1086) & ChrW(1095) & ChrW(1085) & ChrW(1080) & ChrW(1082) & ChrW(1080)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка46_Click:
Exit Sub
Err_Кнопка46_Click:
MsgBox Err.Description
Resume Exit_Кнопка46_Click
End Sub
Option Compare Database
Private Sub Кнопка0_Click()
On Error GoTo Err_Кнопка0_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1044) & ChrW(1080) & ChrW(1089) & ChrW(1094) & ChrW(1080) & ChrW(1087) & ChrW(1083) & ChrW(1080) & ChrW(1085) & ChrW(1072)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка0_Click:
Exit Sub
Err_Кнопка0_Click:
MsgBox Err.Description
Resume Exit_Кнопка0_Click
End Sub
Private Sub Кнопка1_Click()
On Error GoTo Err_Кнопка1_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1057) & ChrW(1087) & ChrW(1077) & ChrW(1094) & ChrW(1080) & ChrW(1072) & ChrW(1083) & ChrW(1100) & ChrW(1085) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1100)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка1_Click:
Exit Sub
Err_Кнопка1_Click:
MsgBox Err.Description
Resume Exit_Кнопка1_Click
End Sub
Private Sub Кнопка2_Click()
On Error GoTo Err_Кнопка2_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1060) & ChrW(1072) & ChrW(1082) & ChrW(1091) & ChrW(1083) & ChrW(1100) & ChrW(1090) & ChrW(1077) & ChrW(1090)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка2_Click:
Exit Sub
Err_Кнопка2_Click:
MsgBox Err.Description
Resume Exit_Кнопка2_Click
End Sub
Private Sub Кнопка3_Click()
On Error GoTo Err_Кнопка3_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1057) & ChrW(1090) & ChrW(1091) & ChrW(1076) & ChrW(1077) & ChrW(1085) & ChrW(1090)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка3_Click:
Exit Sub
Err_Кнопка3_Click:
MsgBox Err.Description
Resume Exit_Кнопка3_Click
End Sub
Private Sub Кнопка4_Click()
On Error GoTo Err_Кнопка4_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1059) & ChrW(1095) & ChrW(1077) & ChrW(1073) & ChrW(1085) & ChrW(1099) & ChrW(1081) & ChrW(32) & ChrW(1087) & ChrW(1083) & ChrW(1072) & ChrW(1085)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка4_Click:
Exit Sub
Err_Кнопка4_Click:
MsgBox Err.Description
Resume Exit_Кнопка4_Click
End Sub
Private Sub Кнопка5_Click()
On Error GoTo Err_Кнопка5_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1043) & ChrW(1086) & ChrW(1088) & ChrW(1086) & ChrW(1076)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка5_Click:
Exit Sub
Err_Кнопка5_Click:
MsgBox Err.Description
Resume Exit_Кнопка5_Click
End Sub
Private Sub Кнопка6_Click()
On Error GoTo Err_Кнопка6_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1059) & ChrW(1083) & ChrW(1080) & ChrW(1094) & ChrW(1072)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка6_Click:
Exit Sub
Err_Кнопка6_Click:
MsgBox Err.Description
Resume Exit_Кнопка6_Click
End Sub
Private Sub Кнопка8_Click()
End Sub
Private Sub Кнопка9_Click()
On Error GoTo Err_Кнопка9_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1059) & ChrW(1095) & ChrW(1077) & ChrW(1073) & ChrW(1085) & ChrW(1099) & ChrW(1081) & ChrW(32) & ChrW(1087) & ChrW(1083) & ChrW(1072) & ChrW(1085) & ChrW(32) & ChrW(45) & ChrW(32) & ChrW(1075) & ChrW(1088) & ChrW(1091) & ChrW(1087) & ChrW(1087) & ChrW(1080) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1082) & ChrW(1072) & ChrW(32) & ChrW(1087) & ChrW(1086) & ChrW(32) & ChrW(1089) & ChrW(1087) & ChrW(1077) & ChrW(1094) & ChrW(1080) & ChrW(1072) & ChrW(1083) & ChrW(1100) & ChrW(1085) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1103) & ChrW(1084)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка9_Click:
Exit Sub
Err_Кнопка9_Click:
MsgBox Err.Description
Resume Exit_Кнопка9_Click
End Sub
Option Compare Database
Private Sub Кнопка13_Click()
On Error GoTo Err_Кнопка13_Click
Dim stDocName As String
stDocName = ChrW(1069) & ChrW(1082) & ChrW(1079) & ChrW(1072) & ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1072) & ChrW(1094) & ChrW(1080) & ChrW(1086) & ChrW(1085) & ChrW(1085) & ChrW(1072) & ChrW(1103) & ChrW(32) & ChrW(1074) & ChrW(1077) & ChrW(1076) & ChrW(1086) & ChrW(1084) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1100)
DoCmd.OpenReport stDocName, acPreview, , "[Номер_экз_вед]=" & Me.Номер_экз_вед
Exit_Кнопка13_Click:
Exit Sub
Err_Кнопка13_Click:
MsgBox Err.Description
Resume Exit_Кнопка13_Click
End Sub
Option Compare Database
Private Sub Кнопка15_Click()
On Error GoTo Err_Кнопка15_Click
Dim stDocName As String
stDocName = ChrW(1055) & ChrW(1088) & ChrW(1080) & ChrW(1082) & ChrW(1072) & ChrW(1079) & ChrW(32) & ChrW(1086) & ChrW(32) & ChrW(1089) & ChrW(1090) & ChrW(1086) & ChrW(1080) & ChrW(1084) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1080)
DoCmd.OpenReport stDocName, acPreview, , "[Номер_приказа_стоимости]=" & Me.Номер_приказа_стоимости
Exit_Кнопка15_Click:
Exit Sub
Err_Кнопка15_Click:
MsgBox Err.Description
Resume Exit_Кнопка15_Click
End Sub
Option Compare Database
Private Sub Кнопка6_Click()
End Sub
Private Sub Кнопка6_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error GoTo Err_Кнопка6_Click
Dim stDocName As String
Dim S1 As String, S2 As String, S3 As String
If Not Me.ПолеСоСписком2 Then S1 = "[Код_формы_обучения]=" & Me.ПолеСоСписком2
If Not Me.ПолеСоСписком4 Then S2 = "[Учебный план_Код_группы]=" & Me.ПолеСоСписком4
If Not Me.ПолеСоСписком8 Then S3 = "[Семестр]=" & Me.ПолеСоСписком8
If S1 <> "" And S2 <> "" Then S1 = S1 & " And "
If S2 <> "" And S3 <> "" Then S2 = S2 & " And "
If S2 = "" And S1 <> "" And S3 <> "" Then S1 = S1 & " And "
stDocName = ChrW(1059) & ChrW(1095) & ChrW(1077) & ChrW(1073) & ChrW(1085) & ChrW(1099) & ChrW(1081) & ChrW(32) & ChrW(1087) & ChrW(1083) & ChrW(1072) & ChrW(1085)
DoCmd.OpenReport stDocName, acViewPreview, , S1 & S2 & S3
Exit_Кнопка6_Click:
Exit Sub
Err_Кнопка6_Click:
MsgBox Err.Description
Resume Exit_Кнопка6_Click
End Sub
Option Compare Database
Private Sub Form_Open(Cancel As Integer)
If CInt(Left$(Me.Application.Version, InStr(1, Me.Application.Version, ".") - 1)) >= 12 Then
Me.ПолеСоСписком12.Visible = False
Me.Дисциплина_подпись.Visible = False
Else
Me.ПолеСоСписком12.Visible = True
Me.Дисциплина_подпись.Visible = True
End If
End Sub
Private Sub Кнопка6_Click()
End Sub
Private Sub Кнопка6_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error GoTo Err_Кнопка6_Click
Dim stDocName As String
Dim S1 As String, S2 As String, S3 As String, S4 As String, S As String
If Not Me.ПолеСоСписком2 Then S1 = "[Код_формы_обучения]=" & Me.ПолеСоСписком2
If Not Me.ПолеСоСписком4 Then S2 = "[Учебный план_Код_группы]=" & Me.ПолеСоСписком4
If Not Me.ПолеСоСписком8 Then S3 = "[Семестр]=" & Me.ПолеСоСписком8
If Not Me.ПолеСоСписком12 Then S4 = "[Код_дисциплины]=" & Me.ПолеСоСписком12
If S1 <> "" Then S = S1
If S <> "" And S2 <> "" Then S = S & " And " & S2
If S = "" And S2 <> "" Then S = S2
If S <> "" And S3 <> "" Then S = S & " And " & S3
If S = "" And S3 <> "" Then S = S3
If S <> "" And S4 <> "" Then S = S & " And " & S4
If S = "" And S4 <> "" Then S = S4
If S = "" And (S2 <> "" Or S3 <> "" Or S4 <> "") Then S = S2 & S3 & S4
If CInt(Left$(Me.Application.Version, InStr(1, Me.Application.Version, ".") - 1)) < 12 Then
stDocName = "Экзаменационная ведомость - подготовка"
DoCmd.OpenReport stDocName, acViewPreview, , S
Else
stDocName = "Учебный план с печатью ведомости"
DoCmd.OpenReport stDocName, acViewReport, , S
End If
Exit_Кнопка6_Click:
Exit Sub
Err_Кнопка6_Click:
MsgBox Err.Description
Resume Exit_Кнопка6_Click
End Sub
Размещено на Allbest.ru
Подобные документы
Рассмотрение этапов автоматизации процесса информирования родителей об успеваемости учеников: реализация преобразования школьного журнала в электронный вид, формирование и администрирование баз данных школьников, создание множества SMS сообщений.
дипломная работа [572,7 K], добавлен 12.05.2010Разработка автоматизированной системы учета заявок и предоставление туров при помощи MS Access. Построение реляционной схемы базы данных. Создание таблиц и схем данных БД, запросов и отчетов. Использование интернет-маркетинга туристической фирме.
курсовая работа [5,2 M], добавлен 05.12.2014Построение концептуальной модели. Создание таблиц, входящих в состав базы данных. Разработка основных запросов, отчетов о количестве учеников в данном классе и работе школы; форм для просмотра и редактирования данных в программе Microsoft Access.
курсовая работа [2,7 M], добавлен 08.05.2015Создание информационной системы учета стран, поставляющих продукты в крупные фирмы. Схема данных и ее описание. Создание таблиц программы. Проектирование базы данных. Главная кнопочная форма. Рисунки структур запросов для отчетов в режиме конструктора.
курсовая работа [2,9 M], добавлен 04.02.2013Сущность и виды СУБД Microsoft Access. Алгоритм создания базы данных сессионной успеваемости студентов ВУЗа. Проектирование форм для сводных таблиц с помощью конструктора окон. Разработка отчетов и запросов на выборку данных. Создание кнопочной формы.
курсовая работа [5,4 M], добавлен 09.05.2011Разработка базы данных для автоматизации учета и хранения сведений о заявках от работодателей. Проектирование приложения в СУБД Access. Описание запросов, отчетов и представлений данных. Интерфейс, условия выполнения и тестирование программного продукта.
курсовая работа [3,7 M], добавлен 05.04.2012Система учета успеваемости студентов Байкальского государственного университета экономики и права. Действующая Информационная система, организация и требования к подсистеме учета успеваемости БГУЭП. Конструирование подсистемы, построение модели функций.
дипломная работа [2,2 M], добавлен 20.11.2010Анализ и описание данных, метода нормальных форм, нормализации отношений. Определение зависимостей атрибутов отношения. Создание и общая характеристика, внутренняя структура проектируемой базы данных, требования к ней. Разработка руководства оператора.
курсовая работа [2,6 M], добавлен 16.06.2014Методы проектирования базы данных по заданной предметной области с использованием CASE-средств ER/Studio и СУБД MS Access. Формирование и связывание таблиц, ввод данных. Создание экранных форм, запросов, отчетов, меню приложения. Генерация приложения.
курсовая работа [884,0 K], добавлен 08.09.2010Разработка программы для автоматизации складского учета. Описание предметной области и технологии функционирования информационной системы. Физическое проектирование базы данных. Создание экранных форм ввода-вывода, отчетов, модулей для прикладных решений.
курсовая работа [3,6 M], добавлен 08.12.2013
