Приложение А

Листинг прикладной программы системы управления базой данных самостоятельной работы студентов специальности УИТ

Форма “Главная”

Option Compare Database

Option Explicit

Private Sub Кнопка3_Click()

On Error GoTo Err_Кнопка3_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "Данные"

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 = "План"

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 = "Предметы"

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 = "Студенты"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка6_Click:

Exit Sub

Err_Кнопка6_Click:

MsgBox Err.Description

Resume Exit_Кнопка6_Click

End Sub

Private Sub Кнопка7_Click()

On Error GoTo Err_Кнопка7_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "Диаграмма"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка7_Click:

Exit Sub

Err_Кнопка7_Click:

MsgBox Err.Description

Resume Exit_Кнопка7_Click

End Sub

Private Sub Кнопка8_Click()

On Error GoTo Err_Кнопка8_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "Диаграмма"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка8_Click:

Exit Sub

Err_Кнопка8_Click:

MsgBox Err.Description

Resume Exit_Кнопка8_Click

End Sub

Форма «Данные»

Option Compare Database

Option Explicit

Private Sub Кнопка9_Click()

On Error GoTo Err_Кнопка9_Click

DoCmd.Close

Exit_Кнопка9_Click:

Exit Sub

Err_Кнопка9_Click:

MsgBox Err.Description

Resume Exit_Кнопка9_Click

End Sub

Private Sub ФильтрКурс_AfterUpdate()

Me.Requery

ФильтрСтудент.Requery

ФильтрПредметы.Requery

End Sub

Private Sub ФильтрНеделя_AfterUpdate()

Me.Requery

End Sub

Private Sub ФильтрСтудент_AfterUpdate()

Me.Requery

End Sub

Форма «Диаграмма»

Option Compare Database

Option Explicit

Private Sub ВсеПредметы_AfterUpdate()

Me.Requery

End Sub

Private Sub Кнопка11_Click()

On Error GoTo Err_Кнопка11_Click

DoCmd.Close

Exit_Кнопка11_Click:

Exit Sub

Err_Кнопка11_Click:

MsgBox Err.Description

Resume Exit_Кнопка11_Click

End Sub

Private Sub СписокПредметов_AfterUpdate()

Me.Requery

End Sub

Private Sub ФильтрКурс_AfterUpdate()

Me.Requery

СписокПредметов.Requery

End Sub

Private Sub Кнопка24_Click()

On Error GoTo Err_Кнопка24_Click

Dim stDocName As String

stDocName = "Загрузка студентов"

DoCmd.OpenReport stDocName, acPreview

Exit_Кнопка24_Click:

Exit Sub

Err_Кнопка24_Click:

MsgBox Err.Description

Resume Exit_Кнопка24_Click

End Sub

Private Sub ФильтрСтатус_AfterUpdate()

Me.Requery

End Sub

Private Sub ФильтрФормы_AfterUpdate()

Me.Requery

End Sub

Форма «План»

Option Compare Database

Option Explicit

Private Sub ФильтрКурс_AfterUpdate()

Me.Requery

ФильтрПредмет.Requery

End Sub

Private Sub ФильтрНеделя_AfterUpdate()

Me.Requery

End Sub

Private Sub Кнопка10_Click()

On Error GoTo Err_Кнопка10_Click

DoCmd.Close

Exit_Кнопка10_Click:

Exit Sub

Err_Кнопка10_Click:

MsgBox Err.Description

Resume Exit_Кнопка10_Click

End Sub

Форма «Предметы»

Option Compare Database

Option Explicit

Private Sub ФильтрКурс_AfterUpdate()

Me.Requery

End Sub

Private Sub Кнопка7_Click()

On Error GoTo Err_Кнопка7_Click

DoCmd.Close

Exit_Кнопка7_Click:

Exit Sub

Err_Кнопка7_Click:

MsgBox Err.Description

Resume Exit_Кнопка7_Click

End Sub

Форма «Студенты»

Option Compare Database

Option Explicit

Private Sub ФильтрКурс_AfterUpdate()

---

Me.Requery

End Sub

Private Sub Кнопка11_Click()

On Error GoTo Err_Кнопка11_Click

DoCmd.Close

Exit_Кнопка11_Click:

Exit Sub

Err_Кнопка11_Click:

MsgBox Err.Description

Resume Exit_Кнопка11_Click

End Sub

---

Смотрите также файлы

• srp_plak.doc

• приложение а.doc

• содержание.docx

• список.doc

• заключение.doc