Разработка АРМ сотрудника НОЧУ ДПО ЦПК Учебный центр ИнфоТеКС (1089310), страница 13
Текст из файла (страница 13)
Рассмотрим поподробнее переработку серебросодержащих отходов, так как в системном блоке ЭВМ содержится, приблизительно, 5 грамм серебра.
Переработку серебросодержащего сырья осуществляют путем использования пиро- и гидрометаллургических процессов, обеспечивающих глубокое и комплексное извлечение всех присутствующих в материале благородных металлов с получением товарной продукции (Рисунок 4.1).
Эта технология обеспечивает извлечение серебра на 99-99,5 %. Содержание примесей в нерастворимом осадке хлористого серебра не превышает 0,3-0,7 % [4.7].
Рисунок 4.1―Структурная схема переработки серебросодержащих отходов
Немаловажные проблемы по охране окружающей среды возникают и при производстве отдельных элементов, деталей и узлов, где загрязнение окружающей среды идет по нескольким направлениям:
-
загрязнение воздушной среды. При изготовлении и переработке печатных плат и микросхем выделяется большое количество мелкодисперсной пыли. При травлении печатных плат и окисления подложек микросхем воздух загрязняется туманами кислот и щелочей. Все это вызывает необходимость применения различных пыле- и туманоуловителей;
-
загрязнение водной среды. При изготовлении микросхем и печатных плат используется вода, которая в процессе производства загрязняется различными вредными и ядовитыми веществами (мышьяком, различными металлами и их солями, кислотами и щелочами).
Для защиты водных бассейнов, перед сбросом сточных вод необходимо применять химические методы нейтрализации и очистку вод от механических примесей [4.8].
ЗАКЛЮЧЕНИЕ
По итогам выполненной работы можно сделать вывод, что АРМ сотрудника НОЧУ ДПО ЦПК «Учебный центр «ИнфоТеКС» стало незаменимым инструментом в работе сотрудников учебного центра, отвечающих за организацию учебного процесса. Так же АРМ помогло повысить общий уровень оказания образовательных услуг в учебном центре.
Внедрение АРМ позволило:
-
упростить процесс организации учебного процесса;
-
сократить время на подготовку отчетной документации и личных карточек;
-
обеспечить возможность расчета оптимальной численности групп.
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ
-
ИССЛЕДОВАТЕЛЬСКИЙ РАЗДЕЛ
-
Официальная страница учебного центра «ИнфоТеКС»http://infotecs.ru/learning/
-
Смолин О.Н. Российская образовательная система на пороге пятикратного кризиса — http://smolin.ru/odv/reference-source/28.01.2008.htm.
-
Вендров А.М. Проектирование программного обеспечения экономических информационных систем 2006.
-
Хорнген Ч. Управленческий учет, 10 изд./пер.с англ. —2007. —1008 с.
-
«1С: Образование» http://www.edu.1c.ru.
-
АИС «Университет» http://ais.stavsu.ru.
-
«1С: Битрикс. Внутренний портал учебного заведения» http://www.1c-bitrix.ru/solutions/edu.
-
КИС «УЗ Модус» http://yarinsi.ru/products/detail.php?ID=1966.
-
СПЕЦИАЛЬНЫЙ РАЗДЕЛ
-
Воробович Н.П. Проектирование информационных систем http://www.kgau.ru/istiki/umk/pis/pis.htm#l3.htm.
-
Смирнова Г. Н. Проектирование экономических информационных систем: Учеб. для вузов. — М.:Финансы и статистика. — 2002. — 512 с.
-
Грекулов В.И. Курс лекция по проектированию информационных систем. — http://www.intuit.ru/department/se/devis
-
Калянов Г. Н. Теория и практика реорганизации бизнес-процессов. — М.: СИНТЕГ, 2000. — 317с.
-
Вендров А. М. Проектирование программного обеспечения экономических информационных систем. — М.:Финансы и статистика, 2000. — 350 с.
-
Миндалёв И.В. Теория экономических информационных систем http://www.kgau.ru/istiki/teis/index.html.
-
Классификаторы http://www.licencing.ru/class/classall.shtml.
-
Хорнген Ч. Управленческий учет, 10 изд./пер.с англ. — СПб.:Питер, 2007. —1008 с.
-
Липаев В.В. Проектирование программных средств: Учебное пособие для вузов. — М.:Высшая школа, 2006.
-
Постановление правительства рф от 01.01.2002г. №1 О классификации основных средств, включаемых в амортизационные группы (в редакции от 24.02.2009г. №165).
-
ТЕХНОЛОГИЧЕСКИЙ РАЗДЕЛ
-
-
С. Д. Кузнецов. Проектирование и разработка корпоративных информационных систем
-
MS Access 2013 http://www.datbases.net/access.html.
-
Колесов А.О. Программирование в Microsoft Visual Basic http://www.microsoft.com/Rus/Msdn/Activ/MSVB/Default.mspx.
-
С. Трофимов. На чем писать программы? http://www.caseclub.ru/articles/whatprog.html
-
ДамлерМ. Microsoft SQL Server 2012. Обзор продукта 2012 http://www.realcoding.net/articles/microsoft-sql-server-2012-obzor-produkta.html
-
MS SQL Server 2012 http://www.microsoft.com/sqlserver/2012/ru/ru/compare-oracle.aspx
-
Смирнова Г.Н. Проектирование экономических информационных систем. М.: Финансы и статистика,2008.
-
UML упрощает описание проектов http://www.osp.ru/cw/2000/16-17/4602.
-
Целостность данных http://msdn.microsoft.com/ru-ru/library/ms184276.aspx.
-
Структурные карты http://www.case.nnov.ru/site.aspx.
-
-
БЕЗОПАСНОСТЬ ЖИЗНЕДЕЯТЕЛЬНОСТИ
-
ГОСТ 12.0.003-74 ССБТ «Опасные и вредные производственные факторы. Классификация».
-
ГОСТ 12.2.032-78 (2001) «Рабочее место при выполнении работ сидя. Общие эргономические требования».
-
Рабочее место оператора http://www.certline.ru/library/doc_19.htm.
-
Эргономика работы на компьютере http://eruditus.name/teorija/ergonomika.html.
-
СанПиН 2.2.2/2.4.1340-03 «Гигиенические требования к персональным электронно-вычислительным машинам и организации работы».
-
Эргономика http://okamura.su/voprosy_i_otvety/ergonomika.
-
Окружающая среда и торговля — www.ecoaccord.org/doc/hb5.ru.
ПРИЛОЖЕНИЯ
Приложение А Графический материал
Приложение Б Листинг программы
Приложение А
Графический материал
Приложение Б
Текст программы
Листинг Б.1 Модуль формы «Учебный процесс»
Private Sub Form_Activate()
Dim rst As DAO.Recordset
If Len(Me.OpenArgs) > 0 Then
Me!ГруппаДляСвязи = Me.OpenArgs
Set rst = Me!ГруппаСуб.Form.RecordsetClone
rst.MoveNext
rst.FindFirst "[№Группа]='" & Me!ГруппаДляСвязи & "'"
If Not rst.NoMatch Then
Me!ГруппаСуб.Form.Bookmark = rst.Bookmark
End If
rst.Close
End If
End Sub
Private Sub АктивностьГруппа_AfterUpdate()
If Me!АктивностьГруппа = 1 Then
Me!ГруппаСуб.Form.RecordSource = "УчебныйПроцессГруппа"
End If
If Me!АктивностьГруппа = 2 Then
Me!ГруппаСуб.Form.RecordSource = "УчебныйПроцессГруппа_открытые"
End If
If Me!АктивностьГруппа = 3 Then
Me!ГруппаСуб.Form.RecordSource = "УчебныйПроцессГруппа_закрытые"
End If
'MsgBox Me!ГруппаСуб.Form.RecordSource
Me!ГруппаСуб.Requery
End Sub
Private Sub Карт_Click()
On Error GoTo Err_Карт_Click
Dim pathBase As String
Dim pathDot As String
Dim pathDoc As String
Dim WordObj As Word.Application
Dim rst As DAO.Recordset
Dim str As String
pathBase = CurrentProject.Path
pathDot = pathBase& "\Шаблоны\" &Nz(DLookup("ИмяШаблон", "ШаблоныДок", "КодШаблон=5"), "")
IfDir(pathDot) = "" Then
MsgBox "Шаблон документа не найден"
ExitSub
EndIf
pathDoc = pathBase& "\" &Nz(DLookup("ИмяФайлаДок", "ШаблоныДок", "КодШаблон=5"), "")
If Dir(pathDoc) <> "" ThenKill pathDoc
End If
FileCopy pathDot, pathDoc
Set WordObj = CreateObject("Word.Application")
WordObj.Visible = True
WordObj.Documents.Open pathDoc
Set rst = CurrentDb.OpenRecordset("СоздКарт")
With WordObj.ActiveDocument.Bookmarks
Продолжение Листинга Б.1
.Item("ОбрУч").Range.Text = Nz(DLookup("Вставка1", "ШаблоныДок", "КодШаблон=5"), " ")
.Item("ФамУч").Range.Text = Nz(DLookup("ФамилияУчащийся", "СоздКарт", "[№Учащийся]=" & Forms!УчебныйПроцесс!ГруппаУчащийсяСуб.Form!№Учащийся), " ")
.Item("ИмяУч").Range.Text = Nz(DLookup("ИмяУчащийся", "СоздКарт", "[№Учащийся]=" & Forms!УчебныйПроцесс!ГруппаУчащийсяСуб.Form!№Учащийся), " ")
.Item("ОтчУч").Range.Text = Nz(DLookup("ОтчествоУчащийся", "СоздКарт", "[№Учащийся]=" & Forms!УчебныйПроцесс!ГруппаУчащийсяСуб.Form!№Учащийся), " ")
End With
WordObj.Activate
Set WordObj = Nothing
Exit_Карт_Click:
Exit Sub
Err_Карт_Click:
MsgBox Err.Description
Resume Exit_Карт_Click
End Sub
Private Sub ГрафикЗанятий_Click()
Dim rst As DAO.Recordset2
Dim ЧасДень As Integer
Dim ДатаЗанятий As Date