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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "Населенные пункты"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка27_Click:

Exit Sub

Err_Кнопка27_Click:

MsgBox Err.Description

Resume Exit_Кнопка27_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "Область"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка28_Click:

Exit Sub

Err_Кнопка28_Click:

MsgBox Err.Description

Resume Exit_Кнопка28_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "Улицы"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка29_Click:

Exit Sub

Err_Кнопка29_Click:

MsgBox Err.Description

Resume Exit_Кнопка29_Click

End Sub

В форме Передача дела была создана кнопка Бланк при помощи макроса было задано действие Открыть отчет. В результате запуска созданного макроса на экран выводится отчет Определение о передачи дела об административной ответственности.

Кроме того, для упрощения работы пользователя с базой данных создана Главная кнопочная форма. Данная форма позволяет сотруднику отделения найти информацию из форм Протокол, Передача дела, Граждане, Сотрудники, а также вывести на экран отчеты Вып-ные протоколы за месяц, Вып-ные протоколы по типам, Переданные дела и сформировать диаграмму Диаграмма по правонарушителям. Действия кнопок в форме осуществляется с помощью созданных процедур обработки событий. Их описание приведено в приложении работы.

4. ТЕСТИРОВАНИЕ АРМ



ЗАКЛЮЧЕНИЕ

В разработанном курсовом проекте было автоматизировано рабочее место сотрудника подразделения по исполнению административного законодательства отделения ГИБДД г. Москва и Московского района.

В процессе описания экономической сущности задачи производства дел по административным правонарушениям дается понятие об объекте управления и ее характеристика. Далее были выявлены внешние и внутренние информационные потоки подразделения по исполнению административного законодательства отделения ГИБДД г. Москва и Московского района. В результате изучения информационных потоков подразделения были выявлены операции, которые необходимо автоматизировать.

Далее проведено обоснование использования вычислительной техники для решения поставленных задач. В этой части подробно описано, какие проблемы позволит решить автоматизация работы сотрудника подразделения по исполнению административного законодательства. Здесь сформулированы цели использования вычислительной техники для рассматриваемого комплекса задач. Рассмотрено преимущество внедрения автоматизированной системы над ручным трудом.

На следующем этапе проведена характеристика организации обработки информации. Здесь дается описание, как будут реализованы решаемые задачи в проектируемой системе.

Затем дается обоснование использования информационного обеспечения. В этом разделе рассмотрены основные принципы проектирования информационного обеспечения, дается обоснование методов организации информационной базы в памяти ЭВМ.

Далее в результате курсового проектирования дано обоснование разработок по программному обеспечению, выбранному пакету прикладных программ. В ходе проектирования автоматизации комплекса задач построена инфологическая модель и дано ее описание. В работе дана характеристика и описание входной и оперативной информации, а также описана их структура.

Затем приводится описание структуры диалога и его содержания.

СПИСОК ИСПОЛЬЗУЕМОЙ ЛИТЕРАТУРЫ

1. Microsoft Access, User'Guide. Microsoft Corporation, 1994.

2. Microsoft Access, Getting Started. Microsoft Corporation, 1994.

3. Андрейченков А.В., Андрейченкова О.Н. «Интеллектуальные информационные системы». Учебник. - М.: Финансы и статистика, 2004

4. Барановская Т.П. и др. «Архитектура компьютерных систем и сетей». Учеб. пособие. - М.: Финансы и статистика, 2003

5. Бемер С., Фратер Г.: Microsoft Access для пользователя. Микап, Москва 1994.

6. Вейскас Д. Эффективная работа с Microsoft Access 2. С.- Петербург: «Питер Пресс», 1996. - 856 стр.

7. Годин В.В., Корнеев И.К. «Управление информационными ресурсами», М.: ИНФРА - М, 1999

8. Данелян Т.Я. Юридические информационные системы: Учебно-практическое пособие / Московский государственный университет экономики, статистики и информатики. - М.: МЭСИ, 2002. - 202 с.

9. Зеленков Ю.А. Введение в базы данных. Центр Интернет ЯрГУ, 1997.

10. Золотова С.И. «Практикум по ACCESS». - М.: Финансы и статистика, 2004

11. Информационные технологии управления: Учеб. Пособие для вузов / Под ред. Проф. Г.А. Титоренко. - 2-е изд., доп. - М.: ЮНИТИ-ДАНА, 2003. - 439 с.

12. Кантарь И. Л. “Автоматизированные рабочие места управленческого аппарата”, 1999.

13. Керри Н. Праг, Майкл Р. Ирвин, Access 2000 - Библия пользователя, Диалектика, 2000.

14. Крис Дейт. Введение в базы данных, 6-е изд. Киев, Диалектика, 1998.

15. Майкл Маккелви. Visual Basic 4 без проблем \ Под редакцией О. Рякина\. М.: Восточная Книжная Компания, 1997 - 576 стр.

16. Марков А.С., Лисовский К.Ю. «Базы данных. Введение в теорию и методологию». Учебник. - М.: Финансы и статистика, 2004

17. Мартин Дж. Организация баз данных в вычислительных системах., 2001

18. Назаров С.В. «Пакеты программ офисного назначения» Учебное пособие. - М.: Финансы и статистика, 1997

19. Назаров С.В., Мельников П.П. «Программирование на MS Visual Basic» Учебное пособие. - М.: Финансы и статистика, 2003

20. Назаров С.В. «Администрирование локальных сетей Windows NT/2000//NET» Учеб. пособие - 2-е изд., перераб. и доп. - М.: Финансы и статистика, 2003

21. Печникова Т.В., Печникова А.В. «Документационное обеспечение организации», М., 1998

22. Под ред. Н.Л. Прохорова «Управляющие вычислительные комплексы» Учеб. пособие. - 3-е изд., перераб. и доп. - М.: Финансы и статистика, 2003

23. Рожнов В.С. АСОЭИ., М., Финансы и статистика., 1990.

24. Серова Г.А. «Учимся работать с офисными программами». - М.: Финансы и статистика, 2003

ПРИЛОЖЕНИЕ

Private Sub Form_Open(Cancel As Integer)

' Свертывание окна базы данных,

' инициализация формы.

' Переход на страницу кнопочной формы, отмеченную для использования по умолчанию.

Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'по умолчанию' "

Me.FilterOn = True

End Sub

Private Sub Form_Current()

' Обновление заголовка и заполнение

' списка команд.

Me.Caption = Nz(Me![ItemText], "")

FillOptions

End Sub

Private Sub FillOptions()

' Заполнение команд для страницы

' кнопочной формы.

' Число кнопок в форме.

Const conNumButtons = 8

Dim dbs As Database

Dim rst As Recordset

Dim strSQL As String

Dim intOption As Integer

' Установка фокуса на первую кнопку формы,

' скрытие всех кнопок формы, кроме первой.

' Поле с фокусом скрыть нельзя.

Me![Option1].SetFocus

For intOption = 2 To conNumButtons

Me("Option" & intOption).Visible = False

Me("OptionLabel" & intOption).Visible = False

Next intOption

' Открытие таблицы элементов кнопочной формы,

' поиск первого элемента текущей страницы формы.

Set dbs = CurrentDb()

strSQL = "SELECT * FROM [Элементы кнопочной формы]"

strSQL = strSQL & " WHERE [ItemNumber] > 0 AND [SwitchboardID]=" & Me![SwitchboardID]

strSQL = strSQL & " ORDER BY [ItemNumber];"

Set rst = dbs.OpenRecordset(strSQL)

' Вывод сообщения при отсутствии элементов

' на странице кнопочной формы. В остальных

' случаях - заполнение страницы элементами.

If (rst.EOF) Then

Me![OptionLabel1].Caption = "Элементы кнопочной формы отсутствуют"

Else

While (Not (rst.EOF))

Me("Option" & rst![ItemNumber]).Visible = True

Me("OptionLabel" & rst![ItemNumber]).Visible = True

Me("OptionLabel" & rst![ItemNumber]).Caption = rst![ItemText]

rst.MoveNext

Wend

End If

' Закрытие набора записей и базы данных.

rst.Close

dbs.Close

End Sub

Private Function HandleButtonClick(intBtn As Integer)

' Эта функция вызывается при нажатии кнопки.

' Аргумент intBtn указывает, какая кнопка была нажата.

' Константы для выполняемых команд.

Const conCmdGotoSwitchboard = 1

Const conCmdOpenFormAdd = 2

Const conCmdOpenFormBrowse = 3

Const conCmdOpenReport = 4

Const conCmdCustomizeSwitchboard = 5

Const conCmdExitApplication = 6

Const conCmdRunMacro = 7

Const conCmdRunCode = 8

' Особая ошибка.

Const conErrDoCmdCancelled = 2501

Dim dbs As Database

Dim rst As Recordset

On Error GoTo HandleButtonClick_Err

' Поиск записи, соответствующей нажатой кнопке,

' в таблице элементов кнопочной формы.

Set dbs = CurrentDb()

Set rst = dbs.OpenRecordset("Элементы кнопочной формы", dbOpenDynaset)

rst.FindFirst "[SwitchboardID]=" & Me![SwitchboardID] & " AND [ItemNumber]=" & intBtn

' Если нужная запись не найдена, вывод

' сообщения об ошибке и выход из функции.

If (rst.NoMatch) Then

MsgBox "Ошибка при чтении таблицы элементов кнопочной формы."

rst.Close

dbs.Close

Exit Function

End If

Select Case rst![Command]

' Переход к другой кнопочной форме.

Case conCmdGotoSwitchboard

Me.Filter = "[ItemNumber] = 0 AND [SwitchboardID]=" & rst![Argument]

' Открытие формы в режиме добавления записей.

Case conCmdOpenFormAdd

DoCmd.OpenForm rst![Argument], , , , acAdd

' Открытие формы.

Case conCmdOpenFormBrowse

DoCmd.OpenForm rst![Argument]

' Открытие отчета.

Case conCmdOpenReport

DoCmd.OpenReport rst![Argument], acPreview

' Настройка кнопочной формы.

Case conCmdCustomizeSwitchboard

' Обработка ситуации, когда диспетчер

' кнопочных форм не установлен

' (например, при сокращенной установке).

On Error Resume Next

Application.Run "WZMAIN80.sbm_Entry"

If (Err <> 0) Then MsgBox "Команда недоступна."

On Error GoTo 0

' Обновление формы.

Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'по умолчанию' "

Me.Caption = Nz(Me![ItemText], "")

FillOptions

' Выход из приложения.

Case conCmdExitApplication

CloseCurrentDatabase

' Запуск макроса.

Case conCmdRunMacro

DoCmd.RunMacro rst![Argument]

' Выполнение программы.

Case conCmdRunCode

Application.Run rst![Argument]

' Другие команды не поддерживаются.

Case Else

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

End Select

' Закрытие набора записей и базы данных.

rst.Close

dbs.Close

HandleButtonClick_Exit:

Exit Function

HandleButtonClick_Err:

' Если выполнение прервано пользователем,

' сообщение об ошибке не выводится. Вместо этого

' выполнение продолжается со следующей строки.

If (Err = conErrDoCmdCancelled) Then

Resume Next

Else

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

Resume HandleButtonClick_Exit

End If

End Function

Размещено на Allbest.ru