Разработка приложения "Автоматизация рабочего места сотрудника отдела кадров Московского РУВД г. Минска"
Анализ и проектирование системы: сущность задачи, проектирование модели. Требования к аппаратным и операционным ресурсам. Проектирование справочной системы приложения. Назначение программы "программное средство для автоматизации рабочего места".
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | дипломная работа |
| Язык | русский |
| Дата добавления | 13.02.2016 |
| Размер файла | 2,0 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Me.СотрудникTableAdapter.Fill(Me.KadriDataSet.Сотрудник)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
//ДОБАВЛЕНИЕ
СотрудникBindingSource.AddNew()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
//СОХРАНЕНИЕ
Me.Validate()
Me.СотрудникBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.KadriDataSet)
End Sub
Private Sub СотрудникDataGridView_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Select Case ComboBox1.SelectedIndex
Case 0
Код_должностиTextBox.Text = "1"
Case 1
Код_должностиTextBox.Text = "2"
Case 2
Код_должностиTextBox.Text = "3"
Case 3
Код_должностиTextBox.Text = "4"
Case 4
Код_должностиTextBox.Text = "5"
Case 5
Код_должностиTextBox.Text = "6"
Case 6
Код_должностиTextBox.Text = "7"
Case 7
Код_должностиTextBox.Text = "8"
Case 8
Код_должностиTextBox.Text = "9"
Case 9
Код_должностиTextBox.Text = "10"
End Select
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
//ПЕРЕХОД НА НОВУЮ ФОРМУ
Form7.Show()
End Sub
Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
Select Case ComboBox2.SelectedIndex
Case 0
Код_отделаTextBox.Text = "1"
Case 1
Код_отделаTextBox.Text = "2"
Case 2
Код_отделаTextBox.Text = "3"
Case 3
Код_отделаTextBox.Text = "4"
Case 4
Код_отделаTextBox.Text = "5"
Case 5
Код_отделаTextBox.Text = "6"
Case 6
Код_отделаTextBox.Text = "7"
Case 7
Код_отделаTextBox.Text = "8"
Case 8
Код_отделаTextBox.Text = "9"
Case 9
Код_отделаTextBox.Text = "10"
Case 10
Код_отделаTextBox.Text = "11"
Case 11
Код_отделаTextBox.Text = "12"
Case 12
Код_отделаTextBox.Text = "13"
Case 13
Код_отделаTextBox.Text = "14"
Case 14
Код_отделаTextBox.Text = "15"
End Select
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
//ПРЕДЫДУЩАЯ
СотрудникBindingSource.MovePrevious()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
//СЛЕДУЮЩАЯ
СотрудникBindingSource.MoveNext()
End Sub
End Class
Public Class Form5
Private Sub ПриказBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
//СОХРАНИТЬ
Me.Validate()
Me.ПриказBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.KadriDataSet)
End Sub
Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'KadriDataSet.Сотрудник' table. You can move, or remove it, as needed.
Me.СотрудникTableAdapter.Fill(Me.KadriDataSet.Сотрудник)
'TODO: This line of code loads data into the 'KadriDataSet.Приказ' table. You can move, or remove it, as needed.
Me.ПриказTableAdapter.Fill(Me.KadriDataSet.Приказ)
ФИОTextBox.Text = ""
ПриказBindingSource.AddNew()
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
TextBox1.Text = ФИОTextBox.Text
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
//ДОБАВЛЕНИЕ
ПриказBindingSource.AddNew()
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Select Case ComboBox1.SelectedIndex
Case 0
ТипTextBox1.Text = "о приеме"
Case 1
ТипTextBox1.Text = "о переводе"
Case 2
ТипTextBox1.Text = "о предоставлении отпуска"
Case 3
ТипTextBox1.Text = "о дисциплинарных взысканиях"
Case 4
ТипTextBox1.Text = "о поощрении"
Case 5
ТипTextBox1.Text = "об изменении персо"
Case 6
ТипTextBox1.Text = "о присвоении звания"
Case 7
ТипTextBox1.Text = "о командировках"
Case 8
ТипTextBox1.Text = "об увольнении"
Case 9
ТипTextBox1.Text = "аттестации персонала"
End Select
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
//ПОИСК
СотрудникBindingSource.Filter = "ФИО like '%" & TextBox2.Text & "%'"
Код_сотрудникаTextBox.Text = Код_сотрудникаTextBox1.Text
End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
//ДОБАВЛЕНИЕ
ПриказBindingSource.AddNew()
End Sub
Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
//СОХРАНИТЬ
Me.Validate()
Me.ПриказBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.KadriDataSet)
ПриказTableAdapter.Fill(KadriDataSet.Приказ)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
//ПЕРЕХОД НА НОВУЮ ФОРМУ
Form9.Show()
End Sub
End Class
Public Class Form6
Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'KadriDataSet.arhiv' table. You can move, or remove it, as needed.
Me.ArhivTableAdapter.Fill(Me.KadriDataSet.arhiv)
ArhivTableAdapter.Fill(KadriDataSet.arhiv)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
//ПЕРЕХОД НА НОВУЮ ФОРМУ
Form7.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ArhivTableAdapter.Fill(KadriDataSet.arhiv)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
//ПОИСК
ArhivBindingSource.Filter = "ФИО like '%" & TextBox1.Text & "%'"
End Sub
End Class
Public Class Form7
Private Sub ДеятельностьBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
//СОХРАНИТЬ
Me.Validate()
Me.ДеятельностьBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.KadriDataSet)
End Sub
Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'KadriDataSet.Сотрудник' table. You can move, or remove it, as needed.
Me.СотрудникTableAdapter.Fill(Me.KadriDataSet.Сотрудник)
'TODO: This line of code loads data into the 'KadriDataSet.Деятельность' table. You can move, or remove it, as needed.
Me.ДеятельностьTableAdapter.Fill(Me.KadriDataSet.Деятельность)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
//СОХРАНИТЬ
Код_сотрудникаTextBox1.Text = Код_сотрудникаTextBox.Text
Me.Validate()
Me.ДеятельностьBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.KadriDataSet)
Me.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
//ДОБАВЛЕНИЕ
ДеятельностьBindingSource.AddNew()
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
//ПОИСК
СотрудникBindingSource.Filter = "ФИО like '%" & TextBox1.Text & "%'"
Код_сотрудникаTextBox1.Text = Код_сотрудникаTextBox.Text
End Sub
End Class
Public Class Form8
Private Sub СотрудникBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
//СОХРАНИТЬ
Me.Validate()
Me.СотрудникBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.KadriDataSet)
End Sub
Private Sub Form8_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'KadriDataSet.Сотрудник' table. You can move, or remove it, as needed.
Me.СотрудникTableAdapter.Fill(Me.KadriDataSet.Сотрудник)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
//ПОИСК
СотрудникBindingSource.Filter = "ФИО like '%" & TextBox1.Text & "%'"
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
//СОХРАНИТЬ
Me.Validate()
Me.СотрудникBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.KadriDataSet)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
//УДАЛИТЬ
СотрудникBindingSource.RemoveCurrent()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
//ПЕРЕХОД НА НОВУЮ ФОРМУ
Form4.Show()
End Sub
End Class
Public Class Form9
Private Sub ПриказBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
//СОХРАНИТЬ
Me.Validate()
Me.ПриказBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.KadriDataSet)
End Sub
Private Sub Form9_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'KadriDataSet.Сотрудник' table. You can move, or remove it, as needed.
Me.СотрудникTableAdapter.Fill(Me.KadriDataSet.Сотрудник)
'TODO: This line of code loads data into the 'KadriDataSet.Приказ' table. You can move, or remove it, as needed.
Me.ПриказTableAdapter.Fill(Me.KadriDataSet.Приказ)
RadioButton1.Checked = True
Button3.Visible = False
End Sub
Private Sub ПриказDataGridView_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles ПриказDataGridView.CellContentClick
СотрудникBindingSource.Filter = "Код_сотрудника'" & Код_сотрудникаTextBox.Text & "'"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
СотрудникBindingSource.Filter = "Код_сотрудника'" & Код_сотрудникаTextBox.Text & "'"
End Sub
Private Sub СотрудникDataGridView_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles СотрудникDataGridView.CellContentClick
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
//ПОИСК
If RadioButton1.Checked = True Then
ПриказBindingSource.Filter = "Тип like '%" & TextBox1.Text & "%'"
ElseIf RadioButton2.Checked = True Then
ПриказBindingSource.Filter = "Дата_приказа='" & TextBox1.Text & "'"
ElseIf TextBox1.Text = "" Then
MessageBox.Show("Пустое поле")
End If
Button3.Visible = True
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
//ПОКАЗАТЬ ВСЕ
Button3.Visible = False
ПриказBindingSource.Filter = ""
End Sub
End Class
Приложение Б (справочное)
Выходные документы
Рисунок Б.1 - Фрагмент отчета
Рисунок Б.2 - Фрагмент анкеты для приема на работу
Рисунок Б.3 - Личная карточка
Размещено на Allbest.ru
...Подобные документы
Создание автоматизированного рабочего места сотрудника отдела кадров администрации Петровского муниципального района г. Светлоград. Задачи проектирования: реализация информационной подсистемы "Отдел кадров". Информационное и программное обеспечение.
дипломная работа [7,7 M], добавлен 24.06.2011Содержание и требования, предъявляемые к информации. Требования к аппаратным и операционным ресурсам. Проектирование справочной системы приложения. Входные и выходные данные. Описание программного средства. Проведение функционального тестирования.
курсовая работа [814,5 K], добавлен 24.01.2016Разработка программного приложения для автоматизации рабочего места кладовщика на центральном складе предприятия. Решение задачи создания клиент-серверной архитектуры базы данных в среде программирования Delphi 7 и Interbase для "Windows 9X(NT)".
дипломная работа [1,8 M], добавлен 19.06.2012Разработка программного продукта для автоматизации рабочего места менеджера в агентстве недвижимости. Проектирование информационной системы для отдела работы с клиентами с возможностью обработки данных о квартирах, услугах, учете заказов и учете сделок.
курсовая работа [3,1 M], добавлен 13.02.2012Требования к аппаратным и операционным ресурсам. Логическая и физическая организация. Состав основных классов проекта. Технико-экономическое обоснование разработки программного средства. Задержки при обработке данных. Разработка интерфейса приложения.
дипломная работа [4,4 M], добавлен 16.06.2017Анализ аналогов-ресурсов системы "Бюро регистрации несчастных случаев", критерии выбор задач, подлежащих автоматизации. Проектирование автоматизированного рабочего места сотрудника оперативного учета. Разработка модели базы с использованием CASE-средств.
дипломная работа [7,8 M], добавлен 21.01.2012Функциональные и обеспечивающие части автоматизированных систем управления. Задачи отдела продаж компании. Техническое обеспечение проектируемого рабочего места. Используемые операционные системы и прикладные программы. Конфигуратор "1С:Предприятие".
курсовая работа [1,6 M], добавлен 03.10.2013Разработка программы для автоматизации рабочего места сотрудника кадровой службы, реализующей ввод, корректировку, хранение информации о работниках, званиях, должностях, окладе, а также вывод отчетов о сотрудниках. Проектирование модели базы данных.
отчет по практике [1,5 M], добавлен 07.08.2013Проектирование информационных систем. Разработка информационной системы в 1С. Создание справочников и документов, регистров накопления и регистров сведений. Пропускная способность системы. Автоматизация рабочего места оператора телефонной компании.
курсовая работа [1,6 M], добавлен 29.07.2013Разработка приложения для работы с базой данных, с использованием объектно-ориентированного и визуального программирования. Проектирование физической структуры базы данных. Программная реализация, процесс взаимодействия пользователя с приложениями.
курсовая работа [1,5 M], добавлен 31.01.2016Понятие и структура информационного портала для автоматизации рабочего места. Описание методологий моделирования бизнес-процессов, системы электронного документооборота DIRECTUM. Система информационного обеспечения в Министерстве сельского хозяйства.
дипломная работа [1,3 M], добавлен 18.12.2013Требования к программному обеспечению и надежности разрабатываемой автоматизированной системы. Словарь предметной области. Схема состава вычислительной системы. Диаграмма объектов и классов. Анализ общих затрат на разработку автоматизации рабочего места.
курсовая работа [1,4 M], добавлен 30.06.2013Понятие информации, информационных технологий и их виды. Анализ основных положений по автоматизации рабочего места оператора автотранспортного предприятия. Разработка модели автоматизированного рабочего места начальника отдела. Применение модели АРМ.
дипломная работа [4,0 M], добавлен 18.09.2010Разработка автоматизированного рабочего места в виде Web-приложения "Платные образовательные услуги" для отделения дополнительного образования строительного техникума. Технология создания макета. Разработка программного кода, функции интерфейса.
дипломная работа [1,8 M], добавлен 10.06.2013Создание автоматизированного рабочего места заместителя заведующего складом. Проектирование базы данных. Разработка программно-информационного ядра системы. Методика разработки клиентского приложения. Разработка организационного компонента системы.
курсовая работа [1,1 M], добавлен 05.06.2015Краткий обзор технических средств для промышленной автоматизации. Концепция построения информационной системы производства на базе Proficy. Анализ разработки автоматизации узлов учета нефти автоматизированного рабочего места оператора нефтебазы.
дипломная работа [5,2 M], добавлен 19.03.2015Технологический процесс сбора, передачи, обработки и выдачи информации. Назначение программного продукта. Анализ экономических показателей внедрения автоматизированного рабочего места кассира-операциониста. Организация рабочего места оператора ЭВМ.
дипломная работа [2,6 M], добавлен 08.12.2014Использование информационных технологий с целью автоматизации рабочего места коменданта образовательного учреждения. Программные и аппаратные средства. Архитектура программного обеспечения. Описание пользовательских интерфейсов. Анализ предметной области.
курсовая работа [1,0 M], добавлен 06.06.2015Автоматизация учета рабочего времени сотрудников войсковой части №63180. Проектирование баз данных, алгоритм решения задачи, описание архитектуры программы и реализация функционального назначения программы. Расчет себестоимости программного продукта.
дипломная работа [1,7 M], добавлен 12.09.2016Цели и задачи автоматизированной системы. Разработка автоматизированного рабочего места в виде мобильного приложения "Учета финансов" для отделения дополнительного образования. Экономический расчет разработки автоматизированного рабочего места.
дипломная работа [1,7 M], добавлен 06.06.2023
