Готовые ????????? ??????

Диплом  Разработка автоматизированной информационной системы для детского сада

Содержание:

Введение
Глава 1. Модельная характеристика проекта
1.1 Описание модели системы
1.2 Описание данных
1.3 Спецификация системы
1.4 Логическая структура базы данных
Глава 2. Техническая характеристика проекта
2.1 Выбор и обоснование языка программирования
2.2 Физическая структура программы
2.3 Физическая структура базы данных
Глава 3. Экономическое обоснование проекта
Глава 4. Операционная часть проекта
Глава 5. Безопасность жизнедеятельности
Заключение
Главным результатом дипломной работы является создание функциони-рующей системы управления базой данных - «Детский сад «Светлячок», вы-полняющая круг задач, с которыми ежедневно сталкиваются работники дет-ского сада. Справочно-информационная система реализована в среде Micro-soft Access 2002.
Спроектированная база данных «Детский сад «Светлячок» дает возмож-ность удобного ввода, редактирования, удаления и хранения данных. В ней полностью реализованы входные и выходные формы-отчеты, поиск по ним. Это позволяет облегчить работу при сборе и накоплении необходимых сведе-ний о сотрудниках, детях и родственниках. Так же автоматизировано создание статистических отчётов, карточек детей, родственников, сотрудников с воз-можностью быстрого вывода на печать. При запуске программы использовано разграничение прав доступа, путём ввода пароля, являющегося различным для заведующей и сотрудников.
Все функции выполняемые базой данных были тщательным образом проверены и протестированы в процессе разработки и отладки, их работа га-рантируется. Работа с базой данных «Детский сад «Светлячок» показала ее работоспособность, удобство и эффективность.
Произведён анализ опасных и вредных производственных факторов при работе на компьютере, даны рекомендации по созданию оптимальных усло-вий на рабочем месте оператора, разработаны мероприятия по пожарной безопасности.
В экономической части сделан расчёт полной стоимости программы и экономической эффективности от её внедрения.
Срок окупаемости программы составит 1,77 года.


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

1. Винтер Р. Microsoft Access 97: справочник – СПб: Питер, 1998
2. ГОСТ 22266-76 СЧМ. Рабочее место оператора. Взаимное расположение элементов рабочего места. Общие эргономические требования. - М.: Изда-тельство стандартов, 1997.
3. Гультяев А.К., Машин В.А. Проектирование и дизайн пользовательского интерфейса. - СПб.: КОРОНА принт, 2000. - 347 с.
4. Карпова Т.С. Базы данных: модели, разработка, реализация. – СПб.: Питер, 2002.
5. Кудрявцев В.А. и др. Организация работы с документами: учебник. - М.:ИНФРА-М, 1998. - 352 с.
6. Маклаков С.В. Моделирование бизнес-процессов. – М.: ДИАЛОГ-МИФИ, 2002. - 224с.
7. Мамиконов А.Г. Проектирование АСУ: Учебник для специальности АСУ вузов. – М.: Высшая школа, 1997.
8. Парамонов Ф. И., Колесниченко О. В. Основы проектирования АСУП: Учебное пособие. - М.: Изд-во МАИ, 1995. - 92с.
9. Попов А. А. «Программирование в среде СУБД FoxPro 2.0.», М. изд. Радио и связь, 1993 г.
10. Проектирование баз данных: Учебник / Диго С.М.  Москва: Финансы и статистика, 1988. - 216 с.
11. Проектирование экономических информационных систем: Учебник / Смирнова Г.Н., Сорокин А.А., Тельнов Ю.Ф; Под ред. Ю.Ф. Тельнова. - Москва: Финансы и Статистика, 2001.  512 с.
12. Самгин Э. Б. «Освещение рабочих мест», изд. МИРЭА, 1989 г.
13. Сибаров Ю. Б. «Охрана труда в вычислительных центрах» и др., М. Маши-ностроение, 1990 г.
14. Смилянский Г.Л. Какая АСУ эффективна?: Экономические проблемы ав-томатизации управления: Руководителю об автоматизированных системах управления. -М.: Экономика, 1988. - 304 с.
15. Федоров А., Елманова Н. Введение в базы данных. Средства разработки. Компьютер пресс №4, 2000.
16. Хомоненко А.Д., Гридин В.В. Microsoft Access. Экспресс-курс. – СПб.: БХВ-Петербург, 2005
17. Шумаков П.В. Delphi: создание приложений баз данных. - М.: Нолидж, 1999. - 705 с.
18. Экономика, разработка и использование программного обеспечения ЭВМ : Учебник / Благодатских В.А, Енгибарян М.А., Ковалевская Е.В. и др. Москва: Финансы и статистика, 1995.-288 стр.: ил.

Приложение

Option Compare Database

Private Sub Form_Open(Cancel As Integer)
' Minimize the database window and initialize the form.

' Move to the switchboard page that is marked as the default.
Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'По умолчанию' "
Me.FilterOn = True

End Sub

Private Sub Form_Current()
' Update the caption and fill in the list of options.

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

End Sub

Private Sub FillOptions()
' Fill in the options for this switchboard page.

' The number of buttons on the form.
Const conNumButtons = 8






Dim con As Object
Dim rs As Object
Dim stSql As String
Dim intOption As Integer

' Set the focus to the first button on the form,
' and then hide all of the buttons on the form
' but the first. You can't hide the field with the focus.

' Open the table of Switchboard Items, and find
' the first item for this Switchboard Page.
Set con = Application.CurrentProject.Connection
stSql = "SELECT * FROM [Switchboard Items]"
stSql = stSql & " WHERE [ItemNumber] > 0 AND [SwitchboardID]=" & Me![SwitchboardID]
stSql = stSql & " ORDER BY [ItemNumber];"
Set rs = CreateObject("ADODB.Recordset")
rs.Open stSql, con, 1 ' 1 = adOpenKeyset

' If there are no options for this Switchboard Page,
' display a message. Otherwise, fill the page with the items.

Set rs = Nothing
Set con = Nothing

End Sub






Private Function HandleButtonClick(intBtn As Integer)
' This function is called when a button is clicked.
' intBtn indicates which button was clicked.

' Constants for the commands that can be executed.
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 conCmdOpenPage = 9

' An error that is special cased.
Const conErrDoCmdCancelled = 2501

Dim con As Object
Dim rs As Object
Dim stSql As String

On Error GoTo HandleButtonClick_Err







' Find the item in the Switchboard Items table
' that corresponds to the button that was clicked.
Set con = Application.CurrentProject.Connection
Set rs = CreateObject("ADODB.Recordset")
stSql = "SELECT * FROM [Switchboard Items] "
stSql = stSql & "WHERE [SwitchboardID]=" & Me![SwitchboardID] & " AND [ItemNumber]=" & intBtn
rs.Open stSql, con, 1 ' 1 = adOpenKeyset

' If no item matches, report the error and exit the function.
If (rs.EOF) Then
MsgBox "Ошибка при чтении таблицы Switchboard Items."
rs.Close
Set rs = Nothing
Set con = Nothing
Exit Function
End If
Select Case rs![Command]

' Go to another switchboard.
Case conCmdGotoSwitchboard
Me.Filter = "[ItemNumber] = 0 AND [SwitchboardID]=" & rs![Argument]


' Open a form in Add mode.
Case conCmdOpenFormAdd
DoCmd.OpenForm rs![Argument], , , , acAdd

' Open a form.



Case conCmdOpenFormBrowse
DoCmd.OpenForm rs![Argument]

' Open a report.
Case conCmdOpenReport
DoCmd.OpenReport rs![Argument], acPreview

' Customize the Switchboard.
Case conCmdCustomizeSwitchboard
' Handle the case where the Switchboard Manager
' is not installed (e.g. Minimal Install).
On Error Resume Next
Application.Run "ACWZMAIN.sbm_Entry"
If (Err 0) Then MsgBox "Команда недоступна."
On Error GoTo 0
' Update the form.
Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'По умолчанию' "
Me.Caption = Nz(Me![ItemText], "")
FillOptions

' Exit the application.
Case conCmdExitApplication
CloseCurrentDatabase

' Run a macro.
Case conCmdRunMacro
DoCmd.RunMacro rs![Argument]





' Run code.
Case conCmdRunCode
Application.Run rs![Argument]

' 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

Private Sub Label1_Click()

End Sub

Private Sub Option1_Click()

End Sub

Private Sub Кнопка22_Click()
DoCmd.Close
End Sub
Private Sub Кнопка32_Click()
On Error GoTo Err_Кнопка32_Click

Dim stDocName As String

stDocName = ChrW(1056) & ChrW(1086) & ChrW(1076) & ChrW(1089) & ChrW(1090) & ChrW(1074) & ChrW(1077) & ChrW(1085) & ChrW(1085) & ChrW(1080) & ChrW(1082) & ChrW(1080)
DoCmd.OpenReport stDocName, acPreview





Exit_Кнопка32_Click:
Exit Sub

Err_Кнопка32_Click:
MsgBox Err.Description
Resume Exit_Кнопка32_Click

End Sub
Private Sub Кнопка33_Click()
On Error GoTo Err_Кнопка33_Click


Dim stDocName

Диплом  Разработка автоматизированной информационной системы для детского сада