Розробка автоматизованого робочого місця управління замовленнями у малому бізнесі (ПП "Сігма")
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
ння навантаження на службовців, зайнятих в роботі по формуванню замовлень. Також завдяки зниженню навантаження на службовців в них зявився час для обслуговування додаткових клієнтів. Значно зменшилася кількість помилок, що припускалися, при проведенні стандартних операцій оперативного обліку.
Даний продукт є засобом поліпшення економічної ефективності підприємства, оскільки його впровадження приведе до швидкої окупності витрат на розробку програмного продукту. Програмне забезпечення, розроблене в рамках даного проекту може буде дороблене і використоватися в інших відділах підприємства, а також впроваджено в подібні приватні підприємства.
Перелік посилань
- Вильям Дж. Стивенсон. Управление производством / Пер. с англ.- М.: ООО "Издательство "Лаборатория базовых знаний", ЗАО "Издательство Бином", 1998. 928 с.
- Цыгичко В.Н. Руководителю о принятии решений. 2-е изд, испр. И доп. М.: ИНФРАб 1996. 272 с.
- Системный анализ и структуры управления (Книга восьмая). Под общей редакцией проф. В.Г.Шорина. М.: Знание, 1975.-290с.
- Гиг Дж., ван. Прикладная общая теория систем. Пер. с англ. М.: Мир, 1981.- 336с.
- Лямец В.И., Тевяшев А.Д. Системный анализ. Вводный курс.: Уч. Пособие. Харьков: ХТУРЭ, 1998.-252 с.
- Береза А. М. Основи створення інформаційних систем : [Навчальний посібник] / A. М. Береза. Київ : Видавництво КНЕУ, 1998. 205 с.
- Курс экономической теории : [Учебное пособие / под общ. ред. М. Н. Чепурина]. Киров, 1995. 566с.
- Системный анализ и структуры управления : [Под общей редакцией проф. В.Г.Шорина]. М. : Знание, 1975. 290с.
- Фаулер М. UML. Основы. Второе издание / М.Фаулер, К.Скотт. М. : Изд-во МАИ, 2002. 712 с.
- Кватрани Т. Rational Rose 2000 и UML. Визуальное моделирование / Т. Кватрани. М. : ДМК Пресс, 2001. 176 с.
- Оптнер С. Л. Системный анализ для решения деловых и промышленных проблем / С. Л. Оптнер : пер. с англ. М.: "Советское радио", 1969. 216 с.
- Громова Н. Б. Методы исследования операций в моделировании организационно-экономических задач / Н. Б. Громова, Э. В. Минько, В. И. Прохоров. М. : Изд-во МАИ, 1992. 239 с.
- Кремер, Н. Ш. Исследование операций в экономике : [Учебное пособие для вузов] / Н.Ш. Кремер, Б.А. Путко, И.М. Тришин, М.Н. Фридман; под ред. проф. Н.Ш. Кремера. М.: Банки и биржи, ЮНИТИ, 1997. 538 с.
- Таха Х. Введение в исследование операций / Х. Таха. М. : Мир, 1985. 264 с.
- Экономико-математические методы и прикладные модели : [Учеб. пособие для вузов / под ред. В. В. Федосеева]. М. : ЮНИТИ, 2000. 652 с.
- Ермаков С.М. Статистическое моделирование / С. М. Ермаков, Г. А. Михайлов: М. : Наука, 1982. 381 с.
- Документация. Отчеты в сфере науки и техники. Структура и правила оформления : ДСТУ 300895. Киев: Госстандарт Украины, 1995. 38 с. (Государственный стандарт Украины).
Додаток
До пояснювальної записки дипломного проекту "Розробка автоматизованого робочого місця управління замовленнями у малому бізнесі (ПП "Сігма")"
Вихідний код програми
Public Class frmГлавная
Inherits System.Windows.Forms.Form
Private Готов As Boolean = False
Private ТаблицаЗаказчиков As DataTable
Private КликПоЯчейке As Boolean
Private Активный As Integer
Private Меню As Ultrik.MenuStyle.AMenu
Private imПросрочен, imНеПросрочен As Image
Private ТекстАнализа As String
Private Sub frmГлавная_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
РазукраситьИнтерфейс()
БД.Подключение = ПодключениеБД
БД.Подключение.Open()
Me.IsMdiContainer = True
Reload()
Анализировать()
tmrАнализ.Start()
pic.Image = Сервис.ВзятьРисунокИзРесурса(_Рисунок.Главная)
Catch ex As Exception
Err.Raise(Err.Number, ex.Source, ex.ToString, Err.HelpFile, Err.HelpContext)
End Try
End Sub
Public Function Анализировать() As Integer
Try
БД.SQLЗапрос = "select * from Справочник_заказа where Дата_поставки < " & Сервис.ФорматДата(Now.Date) & " and Выполнен = False"
БД.ВыполнитьЗапросВ_Таблицу()
0Then">If БД.Таблица.Rows.Count > 0 Then
picПросрочен.Image = Сервис.ВзятьРисунокИзРесурса(_Рисунок.ГлавнаяДоставкаПросрочена)
ТекстАнализа = "Просрочена доставка заказа"
Else
picПросрочен.Image = Сервис.ВзятьРисунокИзРесурса(_Рисунок.ГлавнаяДоставкаНеПросрочена)
ТекстАнализа = "Нет просроченных заказов"
End If
Return БД.Таблица.Rows.Count
Catch ex As Exception
Err.Raise(Err.Number, ex.Source, ex.ToString, Err.HelpFile, Err.HelpContext)
End Try
End Function
Private Sub РазукраситьИнтерфейс()
Try
УстановитьЦветВыделения(Me)
Catch ex As Exception
Err.Raise(Err.Number, ex.Source, ex.ToString, Err.HelpFile, Err.HelpContext)
End Try
End Sub
Public Sub Reload()
Try
ОбновитьСписок()
Catch ex As Exception
Err.Raise(Err.Number, ex.Source, ex.ToString, Err.HelpFile, Err.HelpContext)
End Try
End Sub
Private Sub ОбновитьСписок()
Dim t As DataTable
Dim Данные As DataRow()
Try
t = New DataTable
ТаблицаЗаказчиков = New DataTable
t.Columns.Add(New DataColumn("ФИО", "".GetType))
БД.SQLЗапрос = "select Код_покупателя, ФИО from Справочник_заказчиков"
БД.ВыполнитьЗапросВ_Таблицу()
t = БД.Таблица
ТаблицаЗаказчиков = t.Clone
Данные = t.Select("", "ФИО ASC")
For Each r As DataRow In Данные
ТаблицаЗаказчиков.ImportRow(r)
Next
t = New DataTable
t.Columns.Add(New DataColumn("ФИО", "".GetType))
For Each Строка As DataRow In ТаблицаЗаказчиков.Rows
t.Rows.Add(New Object() {Строка("ФИО")})
Next
dtgЗаказчики.DataSource = t
If ТаблицаЗаказчиков.Rows.Count = 0 Then
Готов = False
Exit Sub
End If
УстановитьСтиль()
УстановитьКлюч()
Выделить()
Catch ex As Exception
Err.Raise(Err.Number, ex.Source, ex.ToString, Err.HelpFile, Err.HelpContext)
End Try
End Sub
Private Sub Выделить()
Try
.Rows.Count-1And>0Then=0">If ?/p>