Разработка информационной системы оценки квалификационных показателей сотрудников компании
Основные задачи кадрового учета. Преимущества и методы оценки персонала предприятия. Назначение, виды и характеристика автоматизированных систем управления персоналом. Этапы и средства разработки информационной системы оценки квалификации сотрудников.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | дипломная работа |
| Язык | русский |
| Дата добавления | 13.05.2013 |
| Размер файла | 3,4 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
End Function
ПРИЛОЖЕНИЕ Г
Код функции СуммаБаллов_Click
Private Sub CуммаБаллов_Click()
Dim ix As Integer
ix = 0
Set db = CurrentDb
Set rc1 = db.OpenRecordset("t2002_ПоказателиППС1") 'Открытие таблицы
Do While Not rc1.EOF
'Если бал указан - суммируем
If Not IsNull(rc1![Бал]) Then ix = ix + rc1![Бал]
rc1.MoveNext
Loop
Me.СуммаБалловЗн = ix 'Обновляем значение формы
rc1.Close
db.Close
Me.Refresh
End Sub
ПРИЛОЖЕНИЕ Д
Код функции КдАтт_AfterUpdate
Private Sub КдАтт_AfterUpdate()
Me.Аттестуемый = ""
'Если
If Not IsNull(Me.КдАтт) Then
Me.Аттестуемый = DLookup("[Ф]", "[t0002_Сотрудники_00]", "[КдСтр] = " & Me.КдАтт)
Me.Аттестуемый = Me.Аттестуемый & " " & DLookup("[И]", "[t0002_Сотрудники_00]", "[КдСтр] = " & Me.КдАтт)
Me.Аттестуемый = Me.Аттестуемый & " " & DLookup("[О]", "[t0002_Сотрудники_00]", "[КдСтр] = " & Me.КдАтт)
'поиск подразделения
Me.КдПд = DLookup("[КдПд]", "[t0002_Сотрудники_00]", "[КдСтр] = " & Me.КдАтт)
Call КдПд_AfterUpdate
'есть сведения о аттестуемом?
Set db = CurrentDb
Set rc1 = db.OpenRecordset("SELECT КдАтт, Count([КдАтт]) AS КлЗап "
& "FROM t2004_ДанныеЭкспертов1 " _
& "GROUP BY КдАтт " _
& "HAVING (КдАтт=" & Me.КдАтт & ");")
If (rc1.RecordCount > 0) Then
'сведения есть
Me.КлЗапП.Visible = True
Me.КлЗапИ.Visible = True
Me.КлЗапИ = rc1.RecordCount
Else
'сведений нет
Me.КлЗапП.Visible = False
Me.КлЗапИ.Visible = False
End If
rc1.Close
db.Close
End If
If (Me.ВводРедактирование = 1) Then
'ввод данных
DatePositionNull 'обнуление баллов в исходной таблице
Else
'редактирование данных
If (Not IsNull(Me.КдДт) And Not IsNull(Me.КдАтт)) Then
'начальное обнуление показателей для будущей записи
Set db = CurrentDb
Set rc1 = db.OpenRecordset("t2002_ПоказателиППС1")
Do While Not rc1.EOF
rc1.Edit
rc1![Бал] = Null
rc1![ОписаниеПоказателя] = Null
rc1.Update
rc1.MoveNext
Loop
'сведения о данных аттестуемого
Set rc2 = db.OpenRecordset("SELECT КдПк, КдАтт, Бал, ОписаниеПоказателя, КдДт " _
& "FROM t2004_ДанныеЭкспертов1 " _
& "WHERE ((КдАтт=" & Me.КдАтт & ") AND " _
& "(КдДт=" & Me.КдДт & "));")
Do While Not rc2.EOF
rc1.MoveFirst
Do While Not rc1.EOF
If (rc1![КдПк] = rc2![КдПк]) Then
rc1.Edit
rc1![Бал] = rc2![Бал]
rc1![Описание Показателя] = rc2![Описание Показателя]
rc1.Update
Exit Do
End If
rc1.MoveNext
Loop
rc2.MoveNext
Loop
rc2.Close
rc1.Close
db.Close
Else
MsgBox ("Не задан код даты или код аттестуемого")
End If
End If
Me.СуммаБалловЗн = Null
Me.Refresh
Me.f2001_ПоказателиППС1.SetFocus
Forms!f2002_АттестацияППС1.f2001_ПоказателиППС1.Form!Бал.SetFocus
End Sub
ПРИЛОЖЕНИЕ Е
Код функции ЗаписьДанных_Click
Private Sub ЗаписьДанных_Click()
Dim Response As Integer
Set db = CurrentDb
'есть уже эти даты в таблице?
Set rc3 = db.OpenRecordset("t2005_Даты1")
Do While Not rc3.EOF
If (rc3![ДатаС] = Me.ДатаС And rc3![ДатаПО] = Me.ДатаПО And rc3![ДатаЗаписи] = Me.ДатаЗаписи) Then
Response = rc3![КдДт]
Exit Do
End If
rc3.MoveNext
Loop
If (Response = 0) Then
rc3.AddNew
rc3![ДатаС] = Me.ДатаС
rc3![ДатаПО] = Me.ДатаПО
rc3![ДатаЗаписи] = Me.ДатаЗаписи
rc3.Update
rc3.MoveLast
Response = rc3![КдДт]
End If
Set rc1 = db.OpenRecordset("t2002_ПоказателиППС1")
Set rc2 = db.OpenRecordset("t2004_ДанныеЭкспертов1")
Do While Not rc1.EOF
If (rc1![Бал] <> 0) Then
rc2.AddNew
rc2![КдЭкс] = Me.КдЭкс
rc2![КдАтт] = Me.КдАтт
rc2![КдПк] = rc1![КдПк]
rc2![Бал] = rc1![Бал]
rc2![ОписаниеПоказателя] = rc1![ОписаниеПоказателя]
rc2![КдДт] = Response
rc2.Update
End If
rc1.MoveNext
Loop
rc1.Close
rc2.Close
rc3.Close
db.Close
Response = MsgBox("Выполнено", vbInformation, "Запись данных")
End Sub
Размещено на Allbest.ru
...Подобные документы
Виды и организационные формы лизинга. Преимущества автоматизированных систем 1С:Архив, Naumen DMS, UMS Docs. Инфологический и даталогический этапы проектирования информационной системы. Ее программная реализация: выбор базы данных, формирование отчетов.
дипломная работа [2,7 M], добавлен 24.10.2010Наличие экономической информационной системы. Матрица организационных проекций. Разработка системы базы данных. Современные CASE-средства. Основные этапы разработки информационных систем. Абсолютный показатель и индекс снижения стоимостных затрат.
курсовая работа [1,1 M], добавлен 14.03.2011Назначение и принцип работы информационной системы управления на предприятии. Структура и применение информационной системы управления персоналом для координации действий различных департаментов, порядок и основные этапы ее практической разработки.
курсовая работа [453,5 K], добавлен 29.07.2009Требования к структуре и функционированию информационной системы. Входная и выходная информация подсистемы управления проектами. Описание "TheSystem", предназначенной для обеспечения процесса учета кадров, контроля работы сотрудников предприятия.
дипломная работа [3,1 M], добавлен 07.03.2012Развитие информационных систем. Современный рынок финансово-экономического прикладного программного обеспечения. Преимущества и недостатки внедрения автоматизированных информационных систем. Методы проектирования автоматизированных информационных систем.
дипломная работа [1,5 M], добавлен 22.11.2015Разработка методов дихотомической оценки нечетких моделей знаний операторов информационной системы о государственных и муниципальных платежах. Механизмы и принципы управления базами нечетких моделей знаний операторов, методика и этапы их идентификации.
диссертация [2,0 M], добавлен 30.01.2014Понятие информационной системы, виды информационных систем. Анализ инструментальных средств для разработки автоматизированных информационных систем. Требования к программе и программному изделию. Разработка форм графического интерфейса и баз данных.
дипломная работа [1,4 M], добавлен 23.06.2015Понятие автоматизированных информационных систем, средства их разработки. Последовательность проектирования и разработки автоматизированной информационной системы "Туристическое агентство". Разработка ядра системы, создание интерфейса, внедрение.
курсовая работа [464,9 K], добавлен 22.04.2015Технические средства обеспечения функционирования информационной системы. Проектирование базы данных информационной системы. Разработка веб-приложения – справочно-информационной системы для предприятия. Организация записи информации в базу данных.
дипломная работа [4,4 M], добавлен 16.05.2022Совершенствование информационной базы подбора персонала на основе концепции баз данных резюме. Недостатки и достоинства существующей системы, предложения по ее улучшению. Разработка модуля корпоративной информационной системы управления предприятием.
курсовая работа [1,0 M], добавлен 11.11.2013Организация, архитектура и структура информационной системы. Показатели эффективности ее работы. Цели и задачи анализа АСУ. Компоненты автоматизированных систем. Описание предметной области, входных и выходных данных. Построение диаграммы прецедентов.
курсовая работа [231,0 K], добавлен 11.04.2014Анализ и реинжиниринг бизнес-процессов ООО ЧЭЦ "Промышленная Безопасность" для повышения эффективности управления. Проектирование информационной системы "Оказания услуг", разработка алгоритма решения задачи их учета средствами информационной системы 1С.
дипломная работа [1,9 M], добавлен 30.04.2011Комплексный анализ структуры информационной системы управления персоналом на предприятии. Моделирование информационной системы и расчет задержек запроса менеджера из филиала в области к центральному серверу. Модель оптимизации информационной системы.
курсовая работа [2,1 M], добавлен 18.09.2014Создание информационной системы автоматизации процесса управления базами данных компании ООО "Роснефть". Требования к характеристикам технических средств. Обоснование выбора CASE-средства. Разработка программного обеспечения, расчет затрат цены и прибыли.
дипломная работа [3,9 M], добавлен 24.03.2012Рассмотрение структуры предприятия, обзор современного программного обеспечения. Описание информационной системы учета кадров. Создание информационной системы для работы с персоналом на основе выполненного анализа программных продуктов этого направления.
дипломная работа [3,7 M], добавлен 03.07.2015Анализ угроз конфиденциальной информации корпоративной автоматизированной системы Internet Scanner. Расчет амортизационных отчислений, стоимости технических средств и программного обеспечения. Договорная цена разработки процедур оценки защищенности КАС.
дипломная работа [1,2 M], добавлен 01.07.2011Предпроектное обследование предприятия ООО "Уралэнергоцентр". Расчет текущих затрат пользователя. Разработка автоматизированной информационной системы управления ООО "Уралэнергоцентр". Автоматизация информационной системы товарооборота предприятия.
дипломная работа [1,5 M], добавлен 27.12.2009Анализ и разработка информационной системы, структура сети предприятия. Описание процесса разработки конфигураций и выявление потребностей в автоматизации функций. Средства разработки проектирования и архитектура базы данных. Разработка модели угроз.
дипломная работа [1,4 M], добавлен 13.07.2011Характеристика существующих технологий для разработки информационной системы. Проектирование реляционной базы данных информационной системы учета научных публикаций в среде Adobe Dreamweaver. Оценка функциональных возможностей системы учета публикаций.
дипломная работа [2,0 M], добавлен 12.08.2015Выработка практических навыков по разработке информационной системы предприятия на основе процессного подхода. Основные термины, применяемые при реализации процессного подхода. Структура управления компании ООО "Грин", состояние информатизации компании.
контрольная работа [38,3 K], добавлен 20.02.2012
