' Open a Data Access Page

        Case conCmdOpenPage

            DoCmd.OpenDataAccessPage rs![Argument] 

        ' Any other command is unrecognized.

        Case Else

            MsgBox "Неизвестная команда."

   

    End Select 

    ' Close the recordset and the database.

    rs.Close

   

HandleButtonClick_Exit:

On Error Resume Next

    Set rs = Nothing

    Set con = Nothing

    Exit Function 

HandleButtonClick_Err:

    ' If the action was cancelled by the user for

    ' some reason, don't display an error message.

    ' Instead, resume on the next line.

    If (Err = conErrDoCmdCancelled) Then

        Resume Next

    Else

        MsgBox "Ошибка при выполнении  команды.", vbCritical

        Resume HandleButtonClick_Exit

    End If

   

End Function 
 

13.10. Форма:  Договор.

Sub

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

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

Exit_Кнопка30_Click:

    Exit Sub

Err_Кнопка30_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка30_Click

    End Sub

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

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

Exit_Кнопка38_Click:

    Exit Sub

Err_Кнопка38_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка38_Click

    End Sub

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

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

     
 

Exit_Кнопка39_Click:

    Exit Sub 

Err_Кнопка39_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка39_Click

   

End Sub

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

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

Exit_Кнопка40_Click:

    Exit Sub 

Err_Кнопка40_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка40_Click

   

End Sub

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

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

     

Exit_Кнопка41_Click:

    Exit Sub 

Err_Кнопка41_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка41_Click

   

End Sub

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

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

    Dim stDocName As String 
 

Exit_Кнопка42_Click:

    Exit Sub 

Err_Кнопка42_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка42_Click

   

End Sub 

13.11. Форма: Клиент. 

Option Compare Database 

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

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

    DoCmd.RunCommand acCmdSelectRecord

    DoCmd.RunCommand acCmdDeleteRecord 

Exit_Кнопка4_Click: 

    Exit Sub

                                                                          

13.12. Форма: Агенты. 

Err_Кнопка4_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка4_Click

   

End Sub 

  Option Compare Database 

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

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

    DoCmd.RunCommand acCmdSelectRecord

    DoCmd.RunCommand acCmdDeleteRecord 

Exit_Кнопка3_Click:

    Exit Sub 

Err_Кнопка3_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка3_Click

   

End Sub 
 
 
 

13.13. Форма:  Страна.

    Option Compare Database 

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

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

    DoCmd.RunCommand acCmdSelectRecord

    DoCmd.RunCommand acCmdDeleteRecord 

Exit_Кнопка11_Click:

    Exit Sub

Err_Кнопка11_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка3_Click

End Sub 

13.14. Форма: Места прибытия 

Option Compare Database

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

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

Exit_Кнопка19_Click:

    Exit Sub

Err_Кнопка19_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка19_Click

   

End Sub

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

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

    DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Кнопка20_Click:

    Exit Sub

Err_Кнопка20_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка20_Click   

End Sub 
 
 
 
 
 
 
 
 
 
 

ТРЕБОВАНИЯ К  АППАРАТНОМУ И ПРОГРАММНОМУ ОБЕСПЕЧЕНИЮ  АИС. 

      Минимальные системные требования:

1. Операционная система Microsoft Windows 95/98/Me/2000/XP;
2. Процессор Pentium 200 МГц;
3. 128 Мб оперативной памяти;
4. Разрешение экрана 1024x768.

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Заключение 
Причиной создания БД явилась проблема систематизации большого объема данных в сфере хоккея. 
Данная база данных собирает специфическую информацию о командах и игроках, тренерах, входящих в состав Национальной хоккейной лиги, и арбитрах, что способствует учету и контролю информации об играх.  
База данных Национальной хоккейной лиги (приложение 2) создана с целью  закрепления теоретических знаний, полученных за время обучения, а также приобретения  навыков самостоятельной работы.  
В процессе работы нами было рассмотрено большое количество учебных материалов  в области программирования БД в SQL 2000 Server , а также информация о спорте,  в результате чего мы пришли к следующим выводам:  
- базы данных позволяют хранить, структурировать информацию и извлекать оптимальным для пользователя образом;  
- использование клиент/серверных технологий позволяет сберечь значительные средства, а главное и время для получения необходимой информации;  
-   доступ и введение информации упрощается; 
- ЭВМ позволяет хранить любые форматы данных, текст, чертежи, данные в рукописной форме, фотографии, записи голоса и т.д; 
- для использования столь огромных объемов хранимой информации, помимо развития системных устройств, средств передачи данных, памяти, необходимы средства обеспечения диалога человек - ЭВМ, которые позволяют пользователю вводить запросы, читать файлы, модифицировать хранимые данные, добавлять новые данные или принимать решения на основании хранимых данных. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

                             

Список  использованных источников

 

1.       Балтер Э. Microsoft Access 2007. Профессиональное программирование.

3.       Дубнов П.Ю. Access 2000. Проектирование баз данных.

4.       Холи Д., Холи Р. Excel 2007.

5. Джелен Б., Александер М. Сводные таблицы в Microsoft Office Excel 2007.
6. Карпов Б. Microsoft Access 2000: Справочник.
7. Хабракен Д. Microsoft Access 2000.
8. Грох М., Стокман Д., Пауэлл Г. Microsoft Office Access 2007. Библия пользователя.
9. Бекаревич Ю. Б., Пушкина Н. В. Microsoft Access 2003.
10. Леонтьев В. Microsoft Office.
11. Вейскас Дж. Эффективная работа с Microsoft Access 2000.
12. Дженнингс Использование Access 2000.