- •Введение
- •1 Общая характеристика компании ооо «Триумф»
- •1.1 Описание компании
- •1.2 Описание структурных подразделений компании
- •1.3 Оценка степени автоматизации в компании
- •1.4 Бизнес – процессы компании
- •2. Проектные решения и их обоснование
- •2.1 Постановка задачи на разработку подсистемы
- •2.2 Организационно - экономическая сущность
- •2.3 Требования к подсистеме
- •2.3.1 Требования к функциям, выполняемым подсистемой
- •2.3.2 Требования к численности пользователей
- •2.3.3 Требования к аппаратно-программной части
- •2.4 Методы и обоснование проектных решений по автоматизации процесса «Учета компьютерного оборудования it - отдела»
- •2.4.1 Выбор и обоснование средств разработки
- •2.4.2 Методы проектирования
- •2.5 Перспективы развития и модернизации подсистемы
- •3 Проектная часть разработки подсистемы
- •3.1 Проектирование информационного обеспечения подсистемы
- •3.1.1 Построение модели процессов «Учет компьютерного оборудования it - отдела»
- •3.1.2 Логическая структура базы данных
- •3.1.3 Разработка физической модели данных
- •3.2 Руководство пользователя
- •3.2.1 Работа со справочниками
- •Заключение
- •Приложение
Приложение
Public Class GLF
Private Sub GLF_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub КОМПЛЕКТУЮЩИЕToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles КОМПЛЕКТУЮЩИЕToolStripMenuItem.Click
KOMPLETUYSCHIE.Show()
End Sub
Private Sub ОБОРУДОВАНИЕToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ОБОРУДОВАНИЕToolStripMenuItem.Click
OBORUDOVANIE.Show()
End Sub
Private Sub ПОСТАВЩИКИToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ПОСТАВЩИКИToolStripMenuItem.Click
POSTAVSCHIKI.Show()
End Sub
Private Sub СОТРУДНИКИToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles СОТРУДНИКИToolStripMenuItem.Click
SOTRUDNIKI.Show()
End Sub
Private Sub ОТДЕЛЫToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ОТДЕЛЫToolStripMenuItem.Click
SPR_OTDELOV.Show()
End Sub
Private Sub ТипыОборудованияToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ТипыОборудованияToolStripMenuItem.Click
SPR_TIPOV_OBORUDOVANIA.Show()
End Sub
Private Sub ВыходToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ВыходToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub ОПрограммеToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ОПрограммеToolStripMenuItem.Click
Form4.Show()
End Sub
End Class
Public Class KOMPLETUYSCHIE
Private Sub KomplektuyschieBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
Me.Validate()
Me.KomplektuyschieBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Database2DataSet)
End Sub
Private Sub KOMPLETUYSCHIE_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу "Database2DataSet.komplektuyschie". При необходимости она может быть перемещена или удалена.
Me.KomplektuyschieTableAdapter.Fill(Me.Database2DataSet.komplektuyschie)
End Sub
Private Sub KomplektuyschieDataGridView_CellContentClick(sender As Object, e As DataGridViewCellEventArgs)
Me.Validate()
Me.KomplektuyschieBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Database2DataSet)
End Sub
Private Sub BindingNavigatorAddNewItem_Click(sender As Object, e As EventArgs)
Form2.Show()
End Sub