СПИСОК ИСПОЛЬЗОВАНН ЫХ ИСТОЧНИКОВ
1. Общие сведения о компании «Минтком» [Электронный ресурс] // Сетевой портал компании «Минтком». – 2011: http://www.mintcom.ru.
2. Устав компании «Минтком» от 12.03.2003.
3. Райзберг, Б.А., Лозовский, Л.Ш., Стародубцева, Е.Б. Современный экономический словарь. [Текст] / Б.А. Райзберг – М., 2006
4. Бессонова, В.Е. Что за метод такой «Дерево целей»? [Электронный ресурс] // Сетевой портал «Школа жизни». – 2011 http://shkolazhizni.ru/archive/0/n-12838/
5. Светаев, И.В. Лекции по менеджменту [Электронный ресурс] // Сетевой портал «Infomanagement». – 2011 http://infomanagement.ru/lekciya/meneg
6. Рекомендации по использованию организационно-функциональной модели в управлении предприятием [Электронный ресурс] // Сетевой портал «ISO-9001». – 2011 http://www.iso-9001.ru/index.php3?mode=&id=516
7. Вендров, А.М. Проектирование программного обеспечения экономических информационных систем: Учебник. [Текст] / А.М. Вендров, –М.: Финансы и статистика, 2000. – 352c.:ил.
8. Калянов, Г.Н. CASE-технологии. Консалтинг в автоматизации бизнес-процессов. 3-е изд. [Текст] / Г.Н. Калянов – М.: Горячая линия, 2002. – 320 c.: ил.
9. Федотова, Д.Э., Семенов, Ю.Д., Чижик, К.Н. CASE–технологии: Практикум. [Текст] / Д.Э. Федотова – М.: Горячая линия, 2003. – 160с.: ил.
10. Маклаков, С.В. Bpwin и Erwin. CASE-средства разработки информационных систем. [Текст] / С.В. Маклаков – М.: Диалог-МИФИ, 1999.
11. Гаджинский, А.М. Практикум по логистике [Текст] / А. М. Гаджинский – М.: ИКЦ Маркетинг, 2005. – 84 с.
12. Грекул, В.И., Данищенко, Г.Н. Проектирование информационных систем [Tекст] / В.И. Грекул – М.: Горячая линия, 2003.
|
|
|
13. Змитрович, А.И. Базы данных. [Текст] / А.И. Змитрович – Минск.: Университетское, 1991.- 271 с.
14. Диго, С.М. Проектирование и использование баз данных. [Текст] / С. М. Диго – М.: Финансы и статистика, 1995. - 208 с.
15. Бойко, В.В., Савинков, В.М. Проектирование баз данных информационных систем [Текст] / В.В. Бойко – М.: Финансы и статистика, 1999. - 351 с.
16. Хабаров, С.П. Информатика, программирование и ЭВМ: Задания к лабораторным работам по базам данных [Текст] / С.П. Хабаров – ЛТА, СПб., 1998. - 37 с.
17. Горбачев, В.А., Михайлов, А.А. Организация данных в ЭВМ: Методические указания [Текст] / В.А. Горбачев – ЛТА, Л., 2000. - 39 с.
18. Панфилов, И.В. Вычислительная техника и программирование. Персональные ЭВМ: Методические указания [Текст] / И.В. Панфилов – ЛТА, Л., 2001. - 34 с.
19. Шубинский, И.Б. Основы алгоритмизации инженерных задач: Учебное пособие [Текст] / И.Б. Шубинский – ЛТА, СПб., 2004. - 96 с.
20. Переверзев, В.Н. Логистика. Справочная книга по логике. [Текст] / В.Н. Переверзев – М.: Мысль,1995.- 221 с.
21. Хомоненко, А.В., Цыганков, В.П., Мальцев, М.И. Базы данных: учебное пособие. [Текст] / А.В. Хомоненко – Спб: Корона, 2003, 665 с.
22. Ширяев, В.И., Баев, И.А., Ширяев, Е.В. Управление предприятием. Моделирование, анализ, управление [Текст] / В.И. Ширяев – М.: Либроком, 2010. - 272с.
|
|
|
23. Дыбская, В.В. Управление складом в логистической системе. [Текст] / В.В. Дыбская – М.: 2005. – 172 с.
24. Николайчук, В.Е. Логистика: учебное пособие. [Текст] / В.Е. Нико-лайчук – СПб.: «Питер», 2002. – 46с.
25. Дюбуа, П.В. MySQL. [Текст] / П.В. Дюбуа – М.: «Вильямс», 2007. - 1168 с.
26. Берков, М.В. Информационные технологии в логистике [Текст] / М.В. Берков – 120 с. - 2003
27. Бойко, В.В., Савинков, В.М. Проектирование баз данных информационных систем. [Текст] / В.В. Бойко – М.: Финансы и статистика, 2007. - 68с.
28. Дыбская, В.В., Зайцев, Е.И. 300 ответов на вопросы профессионалов. [Текст] / В.В. Дыбская – М.: МТН, 2007. - 68с
29. Гаджинский, А.М. Логистика на производстве. [Текст] / А.М. Гаджинский – СПб.: «Питер», 2002. – 64с.
30. Хетагуров, Я.А. Проектирование автоматизированных систем обработки информации и управления (АСОИУ). [Текст] / Я.А. Хетагуров – М.: Высшая школа, 2006. – 244с.
31. Астахова, И.Ф., Мельников, В.М., Толстобров, А.П., В.В. Фертиков СУБД. Язык SQL в примерах и задачах. [Текст] / И.Ф. Астахова – М.: ФИЗМАТЛИТ, 2007. – 168с.
32. Дубровин, И.А. Организация и планирование производства на предприятиях. [Текст] / И.А. Дубровин – М.: КолосС, 2008. – 360с.
|
|
|
33. Краснянский, М.Е. Утилизация и рекуперация отходов. [Текст] / М.Е. Краснянский – Спб.: БУРУН и К, 2007. – 288с.
34. СанПиН 2.2.2/2.4.1340-03 «Гигиенические требования к персональным электронно-вычислительным машинам и организации работы».
35. ГОСТ 34.201-89 «Виды, комплектность и обозначение документов при создании автоматизированных систем».
36. ГОСТ 24.103-84 «Автоматизированные системы управления. Общие положения».
ПРИЛОЖЕНИЕ А
Листинг программы (фрагмент)
Public Class Form_Главная
#Region "Определение функций"
Function Добавить()
'добавляет запись с указанными атрибутами в таблицу "Товары"
If CheckBox_Склад.Checked Then
'проверяет выбран ли флажок "на складе"
Сотрудник = "Товар на складе"
Else
Сотрудник = ComboBox_Сотрудник.Text
End If
Me.ТоварыTableAdapter.Insert(ComboBox_Класс.Text, ComboBox_Тип.Text, TextBox_Наимен.Text, ComboBox_Производ.Text, TextBox_Покупка.Text, Сотрудник, ComboBox_Поставщик.Text)
ТоварыTableAdapter.Fill(InfoBaseDataSet.Товары)
Return ""
End Function
Function Удалить()
'удалить выделенную запись из таблицы "Товары"
ТоварыBindingSource.Remove(ТоварыBindingSource.Current)
Me.Validate()
Me.ТоварыBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.InfoBaseDataSet)
ТоварыTableAdapter.Fill(InfoBaseDataSet.Товары)
Return ""
End Function
|
|
|
Function Очистить()
'Очистить поля ввода информации
TextBox_Покупка.Text= ""
ComboBox_Сотрудник.Text = ""
Numeric_Колличество.Value= 1
CheckBox_Склад.Checked = True
Return ""
End Function
#End Region
#Region "Переменные главной формы"
Dim Права As String
'определяет права пользователя системы (пользователь или администратор)
Dim Сотрудник As String
#End Region
#Region "Текст Studio"
Private Sub Form_Главная_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Me.ПоставщикиTableAdapter.Fill(Me.InfoBaseDataSet.Поставщики)
Me.СотрудникиTableAdapter.Fill(Me.InfoBaseDataSet.Сотрудники)
Me.СП_ТипыTableAdapter.Fill(Me.InfoBaseDataSet.СП_Типы)
Me.СП_КлассыTableAdapter.Fill(Me.InfoBaseDataSet.СП_Классы)
Me.ТоварыTableAdapter.Fill(Me.InfoBaseDataSet.Товары)
Me.СП_ПроизводителиTableAdapter.Fill(Me.InfoBaseDataSet.СП_Производители)
Me.СП_ДолжностиTableAdapter.Fill(Me.InfoBaseDataSet.СП_Должности)
End Sub
Private Sub Form_Главная_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.ПоставщикиTableAdapter.Fill(Me.InfoBaseDataSet.Поставщики)
Me.СотрудникиTableAdapter.Fill(Me.InfoBaseDataSet.Сотрудники)
Me.СП_ТипыTableAdapter.Fill(Me.InfoBaseDataSet.СП_Типы)
Me.СП_КлассыTableAdapter.Fill(Me.InfoBaseDataSet.СП_Классы)
Me.ТоварыTableAdapter.Fill(Me.InfoBaseDataSet.Товары)
Me.СП_ПроизводителиTableAdapter.Fill(Me.InfoBaseDataSet.СП_Производители)
Me.СП_ДолжностиTableAdapter.Fill(Me.InfoBaseDataSet.СП_Должности)
End Sub
#End Region
#Region "Главное меню"
Private Sub ОПрограммеToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОПрограммеToolStripMenuItem.Click
Form_О_программе.ShowDialog()
End Sub
Private Sub КлассыТоваровToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles КлассыТоваровToolStripMenuItem.Click
Label_Передача.Text = "Товары"
Form_Справочники.ShowDialog()
End Sub
Private Sub ПроизводителиToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ПроизводителиToolStripMenuItem.Click
Label_Передача.Text = "Производители"
Form_Справочники.ShowDialog()
End Sub
Private Sub ДолжностиToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ДолжностиToolStripMenuItem.Click
Label_Передача.Text = "Должности"
Form_Справочники.ShowDialog()
End Sub
Private Sub ВыходToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВыходToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub СотрудникиToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СотрудникиToolStripMenuItem.Click
Form_Сотрудники.ShowDialog()
End Sub
Private Sub ПоставщикиToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ПоставщикиToolStripMenuItem.Click
Form_Поставщики.ShowDialog()
End Sub
Private Sub ПользователиToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ПользователиToolStripMenuItem.Click
If Label_Права.Text = "Администратор" Then
Form_Пользователи.ShowDialog()
Else
MessageBox.Show("Недостаточный уровень доступа! Отказано в доступе.", "Внимание!")
End If
End Sub
#End Region
#Region "Вкладка ПРОСМОТР"
Private Sub CheckBox_Класс_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox_Класс.CheckedChanged
СП_КлассыComboBox.Enabled = CheckBox_Класс.Checked
End Sub
Private Sub CheckBox_Тип_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox_Тип.CheckedChanged
СП_ТипыComboBox.Enabled = CheckBox_Тип.Checked
End Sub
Private Sub CheckBox_Производитель_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox_Производитель.CheckedChanged
СП_ПроизводителиComboBox.Enabled = CheckBox_Производитель.Checked
End Sub
Private Sub RadioButton_Фамилия_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton_Фамилия.CheckedChanged
ФамилияComboBox.Enabled = RadioButton_Фамилия.Checked
End Sub
Private Sub Button_Фильтр_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Фильтр.Click
'фильтрация объектов по заданным критериям
Dim Условия_фильтра As String = ""
Dim Фамилия As String= ""
If RadioButton_Фамилия.Checked Then
Фамилия = ФамилияComboBox.Text
ElseIf RadioButton_Свободные.Checked Then
Фамилия = "Товар на складе"
Else
Фамилия = ""
End If
If Фамилия <> "" Then
Условия_фильтра = "Сотрудник" + " LIKE '%" + Фамилия + "%'"
If CheckBox_Класс.Checked Or CheckBox_Тип.Checked Or CheckBox_Производитель.Checked Then
Условия_фильтра = Условия_фильтра + " AND "
End If
End If
If CheckBox_Класс.Checked Then
Условия_фильтра = Условия_фильтра + "Класс" + " LIKE '%" + СП_КлассыComboBox.Text + "%'"
If CheckBox_Тип.Checked Or CheckBox_Производитель.Checked Then
Условия_фильтра = Условия_фильтра + " AND "
End If
End If
If CheckBox_Тип.Checked Then
Условия_фильтра = Условия_фильтра + "Тип" + " LIKE '%" + СП_ТипыComboBox.Text + "%'"
If CheckBox_Производитель.Checked Then
Условия_фильтра = Условия_фильтра + " AND "
End If
End If
If CheckBox_Производитель.Checked Then
Условия_фильтра = Условия_фильтра + "Производитель" + " LIKE '%" + СП_ПроизводителиComboBox.Text + "%'"
End If
ТоварыBindingSource.Filter() = Условия_фильтра
End Sub
Private Sub Button_Отобразить_все_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Отобразить_все.Click
ТоварыBindingSource.Filter() = ""
CheckBox_Класс.Checked = False
CheckBox_Тип.Checked = False
CheckBox_Производитель.Checked = False
RadioButton_Показать_все.Checked = True
End Sub
Private Sub Button_Отчет_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Отчет.Click
Dim КолСтрок As Int16 = 1
Dim Колличество As Int16 = 1
Dim Поз_результата As Int16 = 0
Dim Совпадение As Byte = False
КолСтрок = ТоварыDataGridView.RowCount - 1
ТоварыBindingSource.Sort = "Наименование"
Form_Отчеты.Show()
'Добавить первую запись из таблицы в список
Form_Отчеты.ListBox1.Items.Insert(0, ТоварыDataGridView.Item(2, 0).Value())
For index = 1 To КолСтрок - 1
'перебор всех строк таблицы
Совпадение = False
For Ном_лист = 0 To Form_Отчеты.ListBox1.Items.Count - 1
'перебор всех строк списка, подсчет совпадений
If Form_Отчеты.ListBox1.Items.Item(Ном_лист) = ТоварыDataGridView.Item(2, index).Value() Then
Совпадение = True
Колличество = Колличество + 1
End If
Next
If index = КолСтрок - 1 Then
'просматривается последний элемент списка
Form_Отчеты.ListBox1.Items.Insert(0, ТоварыDataGridView.Item(2, index).Value())
Поз_результата = Form_Отчеты.ListBox1.Items.Count - 2
Form_Отчеты.DataGridView_Результат.RowCount = Form_Отчеты.DataGridView_Результат.RowCount + 1
Form_Отчеты.DataGridView_Результат.Item(0, Поз_результата).Value = ТоварыDataGridView.Item(0, index).Value()
Form_Отчеты.DataGridView_Результат.Item(1, Поз_результата).Value = ТоварыDataGridView.Item(1, index).Value()
Form_Отчеты.DataGridView_Результат.Item(2, Поз_результата).Value = ТоварыDataGridView.Item(2, index).Value()
Form_Отчеты.DataGridView_Результат.Item(3, Поз_результата).Value = ТоварыDataGridView.Item(3, index).Value()
Form_Отчеты.DataGridView_Результат.Item(4, Поз_результата).Value = Колличество
Form_Отчеты.DataGridView_Результат.EndEdit()
Колличество = 1
End If
If Совпадение = False Then
Form_Отчеты.ListBox1.Items.Insert(0, ТоварыDataGridView.Item(2, index).Value())
Поз_результата = Form_Отчеты.ListBox1.Items.Count - 2
Form_Отчеты.DataGridView_Результат.RowCount = Form_Отчеты.DataGridView_Результат.RowCount + 1
Form_Отчеты.DataGridView_Результат.Item(0, Поз_результата).Value = ТоварыDataGridView.Item(0, index - 1).Value()
Form_Отчеты.DataGridView_Результат.Item(1, Поз_результата).Value = ТоварыDataGridView.Item(1, index - 1).Value()
Form_Отчеты.DataGridView_Результат.Item(2, Поз_результата).Value = ТоварыDataGridView.Item(2, index - 1).Value()
Form_Отчеты.DataGridView_Результат.Item(3, Поз_результата).Value = ТоварыDataGridView.Item(3, index - 1).Value()
Form_Отчеты.DataGridView_Результат.Item(4, Поз_результата).Value = Колличество
Form_Отчеты.DataGridView_Результат.EndEdit()
Колличество = 1
End If
Next
End Sub
#End Region
#Region "Вкладка УПРАВЛЕНИЕ"
Private Sub СменитьПользователяToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СменитьПользователяToolStripMenuItem.Click
Form_Вход.Show()
Me.Close()
End Sub
Private Sub Button_Закрыть_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Close()
End Sub
Private Sub Button_Справочники_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Form_Справочники.ShowDialog()
End Sub
Private Sub Button_Сотрудники_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Form_Сотрудники.ShowDialog()
End Sub
#End Region
#Region "Вкладка ДОБАВИТЬ"
Private Sub Button_Товар_добавить_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Добавить.Click
For index = 1 To Numeric_Колличество.Value
Добавить()
Next
Очистить()
End Sub
Private Sub Button_Удалить_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Удалить.Click
If MessageBox.Show("Вы действительно хотите удалить запись?", "Внимание!", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = vbYes Then
Удалить()
End If
End Sub
Private Sub Button_Сохранить_изменения_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Сохранить_изменения.Click
If MessageBox.Show("Заменить текущую запись?", "Внимание!", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = vbYes Then
Удалить()
Добавить()
Очистить()
End If
End Sub
Private Sub CheckBox_Склад_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox_Склад.CheckedChanged
ComboBox_Сотрудник.Enabled = Not CheckBox_Склад.Checked
End Sub
Private Sub Button_Изменить_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Изменить.Click
ComboBox_Класс.Text = ТоварыDataGridView.Item(0, ТоварыBindingSource.Position).Value()
ComboBox_Тип.Text = ТоварыDataGridView.Item(1, ТоварыBindingSource.Position).Value()
TextBox_Наимен.Text = ТоварыDataGridView.Item(2, ТоварыBindingSource.Position).Value()
ComboBox_Производ.Text = ТоварыDataGridView.Item(3, ТоварыBindingSource.Position).Value()
ComboBox_Поставщик.Text = ТоварыDataGridView.Item(4, ТоварыBindingSource.Position).Value()
TextBox_Покупка.Text = ТоварыDataGridView.Item(5, ТоварыBindingSource.Position).Value()
ComboBox_Сотрудник.Text = ТоварыDataGridView.Item(6, ТоварыBindingSource.Position).Value()
End Sub
#End Region
End Class
Размещено на Allbest.ru
Дата добавления: 2018-10-25; просмотров: 262; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!