Автоматический учет средств вычислительной техники

Разработка информационно-аналитической системы анализа и оптимизации конфигурации вычислительной техники. Структура автоматизированного управления средствами вычислительной техники. Программное обеспечение, обоснование экономической эффективности проекта.

Рубрика Программирование, компьютеры и кибернетика
Вид дипломная работа
Язык русский
Дата добавления 20.05.2013
Размер файла 831,1 K

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

- для 1 категории работ через 1.5-2 часа от начала рабочей и через 1.5-2 часа после обеденного перерыва продолжительностью 20 минут каждый или через каждый час работы продолжительностью 15 минут каждый.

При работе с ПЭВМ в ночную смену (с 22 до 6 часов) независимо от вида и категории трудовой деятельности, продолжительность регламентированных перерывов увеличивается на 60 минут.

При 12-часовой рабочей смене регламентированные перерывы рекомендуется установить в первые 8 часов работы аналогично перерывам при 8-часовой рабочей смене, а в течение последних 4 часов, независимо от вида и категории трудовой деятельности, каждый час работы продолжительностью 15 минут.

Во время регламентированных перерывов целесообразно выполнять комплексы упражнений для снижения нервно-эмоционального напряжения, утомления зрительного анализатора, устранения влияния гиподинамии и сипокинезии, развития познотонического утомления. Комплексы рекомендуется менять один раз в 2-3 недели.

С целью уменьшения отрицательного влияния монотонности работы целесообразно изменять ее содержание.

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

4.4 Экологичность проекта

Человек оказался в ловушке противоречия между своей консервативной биологической сущностью и нарастающим отчуждением от природы. Используя изобретенные им технологии и средства жизнеобеспечения, человек в большей мере освободился от давления естественного отбора и межвидовой конкуренции. Он на несколько порядков превысил биологическую видовую численность и еще в десятки раз - объем использования веществ и энергии для удовлетворения надбиологических потребностей [12].

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

- проявления деградации фонда наследственной информации у значительной части населения, что выражается в росте числа наследственных заболеваний;

- заболевания и хронизация, потери трудоспособности и сокращение продолжительности жизни, обусловленные плохими экологическими и гигиеническими условиями проживания и труда, а также курением, алкоголизмом и наркоманией;

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

- большая частота нарушений беременности и родов, тератогенных эффектов - дефектов развития новорожденных, высокая детская заболеваемость и смертность.

Экологические проблемы человечества тесно сопряжены с экономическими и социальными проблемами. Региональные экологические проблемы часто становятся прямым источником имущественного неравенства, социальных и геополитических коллизий [13].

Перечень проблем, рассмотренные выше, позволяют понять многообразие задач экологии. Важнейшие общие задачи современной экологии в ее широком понимании это:

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

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

- Отказ от природопокорительной идеологии; формирование новой идеологии и методологии экоцентризма, связанной с переходом к постиндустриальной цивилизации и направленной на экологизацию экономики, производства, политики, образования.

- Выработка критериев оптимизации - выбора наиболее согласованного с экологическим императивом и экологически ориентированного социально - экономического развития общества - экоразвития.

Формирование такой стратегии поведения человеческого общества, такой экономики и таких технологий, которые приведут масштабы и характер хозяйственной деятельности в соответствие с экологической выносливостью природы и остановят глобальный экологический кризис [13].

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

Охрана окружающей природной среды складывается из:

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

- материального стимулирования природоохранной деятельности, стремящегося сделать её экономически выгодной для предприятий;

- инженерной охраны, разрабатывающей природоохранную и ресурсосберегающую технологию и технику.

Охране подлежат следующие объекты:

- естественные экологические системы, озоновый слой атмосферы;

- земля, ее недра, поверхностные и подземные воды, атмосферный воздух, леса и иная растительность, животный мир, микроорганизмы, генетический фонд, природные ландшафты.

Основными принципами охраны окружающей среды являются: приоритет обеспечения благоприятных экологических условий для жизни, труда и отдыха населения; научно обоснованное сочетание экологических и экономических интересов общества; учет законов природы и возможностей самовосстановления и самоочищения ее ресурсов.

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

- ингредиентное (ингредиент - составная часть сложного соединения или смеси) загрязнение как совокупность веществ, количественно или качественно чуждых естественным биогеоценозам;

- параметрическое загрязнение (параметр окружающей среды - одно из ее свойств, например уровень шума, освещенности, радиации и т.д.), связанное с изменением качественных параметров окружающей среды;

- биоценотическое загрязнение, заключающееся в воздействии на состав и структуру популяции живых организмов;

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

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

Существует два основных направления природоохранной деятельности предприятий. Первое - очистка вредных выбросов.

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

Заключение

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

Разработанное программное средство позволит:

хранить, обрабатывать и анализировать хранимую информацию о вычислительной технике;

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

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

После аналитического исследования предметной области и информационных объектов была создана база данных в СУБД Access.

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

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

Спроектированная система позволила: увеличить производительность труда обслуживающего персонала за счет уменьшения объема промежуточных документов; сократить время, затрачиваемое на процесс принятия решений по оптимизации распределения при помощи быстрого просмотра информации и разработанного алгоритма приложения.

Это позволяет добиться прямого экономического эффекта за счет снижения трудовых и стоимостных показателей.

Список литературы

1. Автоматизированное рабочее место в системе управления предприятием”, Сборник научных трудов, Ленинград, 1989г.

2. В.В. Шураков. "Автоматизированное рабочее место для статической обработки данных”, 1990г.

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

4. Джулия Келли. Access 97. Самоучитель - СПб: Питер. - 1999. - 336с.

5. Дженнингс Р. Microsoft Access 97. - СПб.: BHV - Санкт-Петербург. - 1999. - 1270с.

6. Microsoft Access 97. Шаг за шагом: Практ. пособ. /Пер. с англ. - М.: Издательство ЭКОМ. - 1999. - 328с.

Приложения

Листинг кода

VERSION 1.0 CLASS

BEGIN

MultiUse = - 1 'True

END

Attribute VB_Name = "Form_Формирование комплекта модели"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = True

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Option Compare Database

Private Sub CD_ROM_AfterUpdate ()

Список66. Requery

End Sub

Private Sub CD_ROM_Change ()

Список66. Requery

End Sub

Private Sub CD_ROM_Dirty (Cancel As Integer)

Список66. Requery

End Sub

Private Sub акустическая_система_AfterUpdate ()

Список70. Requery

End Sub

Private Sub акустическая_система_Change ()

Список70. Requery

End Sub

Private Sub акустическая_система_Dirty (Cancel As Integer)

Список70. Requery

End Sub

Private Sub Видео_карта_AfterUpdate ()

Список54. Requery

End Sub

Private Sub Видео_карта_Change ()

Список54. Requery

End Sub

Private Sub Видео_карта_Dirty (Cancel As Integer)

Список54. Requery

End Sub

Private Sub дисковод_3_5__AfterUpdate ()

Список64. Requery

End Sub

Private Sub дисковод_3_5__Change ()

Список64. Requery

End Sub

Private Sub дисковод_3_5__Dirty (Cancel As Integer)

Список64. Requery

End Sub

Private Sub жесткий_диск_AfterUpdate ()

Список62. Requery

End Sub

Private Sub жесткий_диск_Change ()

Список62. Requery

End Sub

Private Sub жесткий_диск_Dirty (Cancel As Integer)

Список62. Requery

End Sub

Private Sub звуковая_карта_AfterUpdate ()

Список68. Requery

End Sub

Private Sub звуковая_карта_Change ()

Список68. Requery

End Sub

Private Sub звуковая_карта_Dirty (Cancel As Integer)

Список68. Requery

End Sub

Private Sub клавиатура_AfterUpdate ()

Список56. Requery

End Sub

Private Sub клавиатура_Change ()

Список56. Requery

End Sub

Private Sub клавиатура_Dirty (Cancel As Integer)

Список56. Requery

End Sub

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

Поле80. Text = Val (Список46. ItemData (0)) + Val (Список50. ItemData (0)) + Val (Список52. ItemData (0)) + Val (Список54. ItemData (0)) + Val (Список56. ItemData (0)) + Val (Список58. ItemData (0)) + Val (Список60. ItemData (0)) + Val (Список62. ItemData (0)) + Val (Список64. ItemData (0)) + Val (Список66. ItemData (0)) + Val (Список68. ItemData (0)) + Val (Список70. ItemData (0)) + Val (Список74. ItemData (0)) + Val (Список76. ItemData (0))

End Sub

Private Sub модем_AfterUpdate ()

Список76. Requery

End Sub

Private Sub модем_Change ()

Список76. Requery

End Sub

Private Sub модем_Dirty (Cancel As Integer)

Список76. Requery

End Sub

Private Sub монитор_AfterUpdate ()

Список60. Requery

End Sub

Private Sub монитор_Change ()

Список60. Requery

End Sub

Private Sub монитор_Dirty (Cancel As Integer)

Список60. Requery

End Sub

Private Sub мышь_AfterUpdate ()

Список58. Requery

End Sub

Private Sub мышь_Change ()

Список58. Requery

End Sub

Private Sub мышь_Dirty (Cancel As Integer)

Список58. Requery

End Sub

Private Sub Память_AfterUpdate ()

Список52. Requery

End Sub

Private Sub Память_Change ()

Список52. Requery

End Sub

Private Sub Память_Dirty (Cancel As Integer)

Список52. Requery

End Sub

Private Sub принтер_AfterUpdate ()

Список74. Requery

End Sub

Private Sub принтер_Change ()

Список74. Requery

End Sub

Private Sub принтер_Dirty (Cancel As Integer)

Список74. Requery

End Sub

Private Sub Процессор_AfterUpdate ()

Список50. Requery

End Sub

Private Sub Процессор_Change ()

Список50. Requery

End Sub

Private Sub Процессор_Dirty (Cancel As Integer)

Список50. Requery

End Sub

Private Sub Системная_плата_AfterUpdate ()

Список46. Requery

End Sub

Private Sub Системная_плата_Change ()

Список46. Requery

End Sub

Private Sub Системная_плата_Dirty (Cancel As Integer)

Список46. Requery

End Sub

VERSION 1.0 CLASS

BEGIN

MultiUse = - 1 'True

END

Attribute VB_Name = "Form_Остаточная стоимость Запрос"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = True

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Option Compare Database

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

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

DoCmd. DoMenuItem acFormBar, acRecordsMenu, acSaveRecord,, acMenuVer70

Exit_Кнопка34_Click:

Exit Sub

Err_Кнопка34_Click:

MsgBox Err. Description

Resume Exit_Кнопка34_Click

End Sub

VERSION 1.0 CLASS

BEGIN

MultiUse = - 1 'True

END

Attribute VB_Name = "Form_Кнопочная форма"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = True

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

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.

Me! [Option1]. SetFocus

For intOption = 2 To conNumButtons

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

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

Next intOption

' 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.

If (rs. EOF) Then

Me! [OptionLabel1]. Caption = "На странице кнопочной формы нет элементов"

Else

While (Not (rs. EOF))

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

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

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

rs. MoveNext

Wend

End If

' Close the recordset and the database.

rs. Close

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 HorizontalHeaderBox_Click ()

End Sub

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


Подобные документы

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.