Висновки

Опис процесу діяльності Ведення списку матеріалів Рішення з інформаційного забезпечення Опис інформаційного забезпечення Рішення з технічного забезпечення Рішення з математичного забезпечення Метод північно-західного кута Тепер серед елементів, що залишилися, мінімальна вартість відповідає X23. Отримуємо X23=10. Викреслюємо 3-й стовпець Форми та модулі програми Головна форма Пункт меню "Печать" Вихідні дані для розрахунку Розрахунок витрат на розробку програми Економія у споживача програмного продукту Висновки

111819

знаков

таблицы

изображений

Економія у споживача програмного продукту

3.8 Висновки

Розробкою даного проекту займеться один виконавець.

Розробка буде вестися впродовж 120 днів.

Сумарні витрати на виконання проекту складають 24039,77 грн.

Вартість виставленого на ринок ПЗ складає 6000 грн.

Сума прибутку від кожної установки ПЗ складає 1932.04 грн.

Висновки

В наш час навіть зовсім маленькі організації потребують використання комп'ютеризованих систем автоматизації, що дозволяють ефективно управляти виробничим процесом. У будь-якій організації, як великій, так і маленькій, виникає проблема такої організації управління даними, яка забезпечила б найбільш ефективну роботу.

У даному проекті розроблена автоматизована підсистема управління замовленнями у малому бізнесі для приватного підприємства. Розроблені база даних та програма дозволяють зручно та швидко формувати документи для обслуговання замовлень клієнтів. Функції підсистеми орієнтовані на конкретну організацію і задовольняють поставленим вимогам.

Основні характеристики розробленого автоматизованої підсистеми:

– система дозволяє значно скоротити терміни виконання операцій обслуговання покупців;

– програма значно зменшила кількість помилок при обслугованні клієнтів;

– програма не вимагає від користувача ніяких специфічних знань з області комп'ютерів;

– програма, розроблена в дипломному проекті, використовує СУБД MS Access і працює в операційній системі Windows XP, при її реалізації використовувалося візуальне середовище розробки Borland Delphi 7.

В результат виконаної роботи було автоматизовано деякі операціїї відділу ремонтних робіт. Стало можливим зниження навантаження на службовців, зайнятих в роботі по формуванню замовлень. Також завдяки зниженню навантаження на службовців в них з'явився час для обслуговування додаткових клієнтів. Значно зменшилася кількість помилок, що припускалися, при проведенні стандартних операцій оперативного обліку.

Даний продукт є засобом поліпшення економічної ефективності підприємства, оскільки його впровадження приведе до швидкої окупності витрат на розробку програмного продукту. Програмне забезпечення, розроблене в рамках даного проекту може буде дороблене і використоватися в інших відділах підприємства, а також впроваджено в подібні приватні підприємства.

Перелік посилань

1. Вильям Дж. Стивенсон. Управление производством / Пер. с англ.- М.: ООО "Издательство "Лаборатория базовых знаний", ЗАО "Издательство Бином", 1998. – 928 с.

2. Цыгичко В.Н. Руководителю – о принятии решений. – 2-е изд, испр. И доп. – М.: ИНФРАб 1996. – 272 с.

3. Системный анализ и структуры управления (Книга восьмая). Под общей редакцией проф. В.Г.Шорина. М.: Знание, 1975.-290с.

4. Гиг Дж., ван. Прикладная общая теория систем. Пер. с англ. – М.: Мир, 1981.- 336с.

5. Лямец В.И., Тевяшев А.Д. Системный анализ. Вводный курс.: Уч. Пособие. – Харьков: ХТУРЭ, 1998.-252 с.

6. Береза А. М. Основи створення інформаційних систем : [Навчальний посібник] / A. М. Береза. – Київ : Видавництво КНЕУ, 1998. – 205 с.

7. Курс экономической теории : [Учебное пособие / под общ. ред. М. Н. Чепурина]. – Киров, 1995. – 566с.

8. Системный анализ и структуры управления : [Под общей редакцией проф. В.Г.Шорина]. – М. : Знание, 1975. – 290с.

9. Фаулер М. UML. Основы. Второе издание / М.Фаулер, К.Скотт. – М. : Изд-во МАИ, 2002. – 712 с.

10. Кватрани Т. Rational Rose 2000 и UML. Визуальное моделирование / Т. Кватрани. – М. : ДМК Пресс, 2001. – 176 с.

11. Оптнер С. Л. Системный анализ для решения деловых и промышленных проблем / С. Л. Оптнер : пер. с англ. – М.: "Советское радио", 1969. – 216 с.

12. Громова Н. Б. Методы исследования операций в моделировании организационно-экономических задач / Н. Б. Громова, Э. В. Минько, В. И. Прохоров. – М. : Изд-во МАИ, 1992. – 239 с.

13. Кремер, Н. Ш. Исследование операций в экономике : [Учебное пособие для вузов] / Н.Ш. Кремер, Б.А. Путко, И.М. Тришин, М.Н. Фридман; под ред. проф. Н.Ш. Кремера. – М.: Банки и биржи, ЮНИТИ, 1997. – 538 с.

14. Таха Х. Введение в исследование операций / Х. Таха. – М. : Мир, 1985. – 264 с.

15. Экономико-математические методы и прикладные модели : [Учеб. пособие для вузов / под ред. В. В. Федосеева]. – М. : ЮНИТИ, 2000. – 652 с.

16. Ермаков С.М. Статистическое моделирование / С. М. Ермаков, Г. А. Михайлов: – М. : Наука, 1982. – 381 с.

17. Документация. Отчеты в сфере науки и техники. Структура и правила оформления : ДСТУ 3008–95. – Киев: Госстандарт Украины, 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"

БД.ВыполнитьЗапросВ_Таблицу()

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)

t = New DataTable

t.Columns.Add(New DataColumn("ФИО", "".GetType))

For Each Строка As DataRow In ТаблицаЗаказчиков.Rows

t.Rows.Add(New Object() {Строка("ФИО")})

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

If Активный > ТаблицаЗаказчиков.Rows.Count - 1 And Активный > 0 Then Активный = 0

dtgЗаказчики.Select(Активный)

dtgЗаказчики.CurrentRowIndex = Активный

Catch ex As Exception

Err.Raise(Err.Number, ex.Source, ex.ToString, Err.HelpFile, Err.HelpContext)

End Try

End Sub

Private Sub УстановитьСтиль()

Try

Стиль = New Ultrik.DGStyle.СтильТаблицы(dtgЗаказчики)

Стиль.Стиль_Установить(Ultrik.DGStyle.СтильТаблицы.ТипСтиля.Label, "ФИО")

Стиль.Стиль_Ширина(grpButton.Width - 10, "ФИО")

Стиль.TableStyle.RowHeadersVisible = False

Стиль.TableStyle.AlternatingBackColor = Color.Gainsboro

Стиль.TableStyle.LinkColor = Color.DarkSlateBlue

Стиль.TableStyle.BackColor = Color.Silver

Catch ex As Exception

Err.Raise(Err.Number, ex.Source, ex.ToString, Err.HelpFile, Err.HelpContext)

End Try

End Sub

Private Sub ПоказатьЗаказчика(ByVal пТипОткрытия As _ТипОткрытия)

Dim f As frmЗаказчик

Try

Select Case пТипОткрытия

Case _ТипОткрытия.Добавить

f = New frmЗаказчик

f.ФИО = ""

f.Адресс = ""

f.Телефон = ""

f.ТипОткрытия = пТипОткрытия

Case _ТипОткрытия.Изменить

БД.SQLЗапрос = "select * from Справочник_заказчиков where Код_покупателя = " & КлючЗаказчика

БД.ВыполнитьЗапросВ_Таблицу()

Dim t As DataTable = БД.Таблица

f = New frmЗаказчик

f.ТипОткрытия = пТипОткрытия

f.ФИО = t.Rows(0)("ФИО").ToString

f.Адресс = t.Rows(0)("Адресс").ToString

f.Телефон = t.Rows(0)("Телефон").ToString

f.ТипОткрытия = пТипОткрытия

f.КодЗаказчика = КлючЗаказчика

End Select

f.ShowDialog()

ОбновитьСписок()

Catch ex As Exception

Err.Raise(Err.Number, ex.Source, ex.ToString, Err.HelpFile, Err.HelpContext)

End Try

End Sub

Private Function УстановитьКлюч() As Integer

Dim Cell As DataGridCell

Try

Cell.ColumnNumber = 0

Cell.RowNumber = dtgЗаказчики.CurrentRowIndex

КлючЗаказчика = CInt(ТаблицаЗаказчиков.Select("ФИО = '" & dtgЗаказчики.Item(Cell).ToString & "'")(0)("Код_покупателя"))

If КликПоЯчейке And Готов Then Активный = dtgЗаказчики.CurrentRowIndex

КликПоЯчейке = False

Catch ex As Exception

Err.Raise(Err.Number, ex.Source, ex.ToString, Err.HelpFile, Err.HelpContext)

End Try

End Function

Private Sub ПоказатьЗаказы()

Try

If ТаблицаЗаказчиков.Rows.Count > 0 Then

fЗаказы = New frmЗаказы

fЗаказы.MdiParent = Me

fЗаказы.Show()

End If

Catch ex As Exception

Err.Raise(Err.Number, ex.Source, ex.ToString, Err.HelpFile, Err.HelpContext)

End Try

End Sub

Private Sub Найти()

Dim ФИО As String

Dim r As DataRow()

Try

r = ТаблицаЗаказчиков.Select("ФИО like '*" & txtЗаказчик.Text & "*'")

If r.Length <> 0 Then ФИО = r(0)("ФИО").ToString

For i As Integer = 0 To ТаблицаЗаказчиков.Rows.Count - 1

If ФИО = ТаблицаЗаказчиков.Rows(i)("ФИО").ToString Then

Активный = i

ОбновитьСписок()

Exit For

End If

Catch ex As Exception

Err.Raise(Err.Number, ex.Source, ex.ToString, Err.HelpFile, Err.HelpContext)

End Try

End Sub

Private Sub mmnuFileExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mmnuFileExit.Click

Close()

End Sub

Private Sub mmnuСправочникТовара_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mmnuСправочникТовара.Click

Try

ПоказатьСправочник(_Форма.Уценка)

Catch ex As Exception

Err.Raise(Err.Number, ex.Source, ex.ToString, Err.HelpFile, Err.HelpContext)

End Try

End Sub

Private Sub ПоказатьСправочник(ByVal пФорма As _Форма, Optional ByVal пТипЗаказчика As _ТипЗаказчика = _ТипЗаказчика.Все)

Try

fОбщий = New frmОбщий(True)

fОбщий.Форма = пФорма

fОбщий.ТипЗаказчика = пТипЗаказчика

fОбщий.MdiParent = Me

fОбщий.Show()

Catch ex As Exception

Err.Raise(Err.Number, ex.Source, ex.ToString, Err.HelpFile, Err.HelpContext)

End Try

End Sub

Private Sub mmnuСправочникИзмерений_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mmnuСправочникИзмерений.Click

Try

ПоказатьСправочник(_Форма.Измерение)

Catch ex As Exception

Err.Raise(Err.Number, ex.Source, ex.ToString, Err.HelpFile, Err.HelpContext)

End Try

End Sub

Private Sub mmnuСправочникПоставщиков_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mmnuСправочникПоставщиков.Click

Try

ПоказатьСправочник(_Форма.Поставщик)

Catch ex As Exception

Err.Raise(Err.Number, ex.Source, ex.ToString, Err.HelpFile, Err.HelpContext)

End Try

End Sub

Private Sub mmnuСправочникЗаказчков_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mmnuСправочникЗаказчков.Click

Try

ПоказатьСправочник(_Форма.Заказчик)

Catch ex As Exception

Err.Raise(Err.Number, ex.Source, ex.ToString, Err.HelpFile, Err.HelpContext)

End Try

End Sub

Private Sub mmnuСписокЗаказа_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mmnuСписокЗаказа.Click

Try

ПоказатьЗаказы()

Catch ex As Exception

Err.Raise(Err.Number, ex.Source, ex.ToString, Err.HelpFile, Err.HelpContext)

End Try

End Sub

Private Sub mmnuСписокЗаказа_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles mmnuСписокЗаказа.DrawItem

' Dim TempIcon As New Icon(Application.StartupPath & "\IconMenu\Список заказов.ico")

Dim Ic As New Icon(Сервис.ВзятьStreamИзРесурса(_Рисунок.МенюСписокЗаказов), 20, 20)

Try

Меню.DrawItems(e, mmnuСписокЗаказа, Ic)

Catch ex As Exception

Err.Raise(Err.Number, ex.Source, ex.ToString, Err.HelpFile, Err.HelpContext)

End Try

End Sub

Private Sub mmnuСписокЗаказа_MeasureItem(ByVal sender As Object, ByVal e As System.Windows.Forms.MeasureItemEventArgs) Handles mmnuСписокЗаказа.MeasureItem

Try

Меню.MeasureItems(e, mmnuСписокЗаказа)

Catch ex As Exception

Err.Raise(Err.Number, ex.Source, ex.ToString, Err.HelpFile, Err.HelpContext)

End Try

End Sub

Private Sub mmnuFileExit_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles mmnuFileExit.DrawItem

' Dim TempIcon As New Icon(Application.StartupPath & "\IconMenu\Выход.ico")

Dim Ic As New Icon(Сервис.ВзятьStreamИзРесурса(_Рисунок.МенюВыход), 20, 20)

Try

Меню.DrawItems(e, mmnuFileExit, Ic)

Catch ex As Exception

Err.Raise(Err.Number, ex.Source, ex.ToString, Err.HelpFile, Err.HelpContext)

End Try

End Sub

Private Sub mmnuFileExit_MeasureItem(ByVal sender As Object, ByVal e As System.Windows.Forms.MeasureItemEventArgs) Handles mmnuFileExit.MeasureItem

Try

Меню.MeasureItems(e, mmnuFileExit)

Catch ex As Exception

Err.Raise(Err.Number, ex.Source, ex.ToString, Err.HelpFile, Err.HelpContext)

End Try

End Sub

Private Sub mmnuСправочникЗаказчков_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles mmnuСправочникЗаказчков.DrawItem

' Dim TempIcon As New Icon(Application.StartupPath & "\IconMenu\Список заказчиков.ico")

Dim Ic As New Icon(Сервис.ВзятьStreamИзРесурса(_Рисунок.МенюСписокЗаказчиков), 20, 20)

Try

Меню.DrawItems(e, mmnuСправочникЗаказчков, Ic)

Catch ex As Exception

Err.Raise(Err.Number, ex.Source, ex.ToString, Err.HelpFile, Err.HelpContext)

End Try

End Sub

Private Sub mmnuСправочникЗаказчков_MeasureItem(ByVal sender As Object, ByVal e As System.Windows.Forms.MeasureItemEventArgs) Handles mmnuСправочникЗаказчков.MeasureItem

Try

Меню.MeasureItems(e, mmnuСправочникЗаказчков)

Catch ex As Exception

Err.Raise(Err.Number, ex.Source, ex.ToString, Err.HelpFile, Err.HelpContext)

End Try

End Sub

Private Sub mmnuСправочникТовара_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles mmnuСправочникТовара.DrawItem

' Dim TempIcon As New Icon(Application.StartupPath & "\IconMenu\Товар.ico")

Dim Ic As New Icon(Сервис.ВзятьStreamИзРесурса(_Рисунок.МенюТовар), 20, 20)

Try

Меню.DrawItems(e, mmnuСправочникТовара, Ic)

Catch ex As Exception

Err.Raise(Err.Number, ex.Source, ex.ToString, Err.HelpFile, Err.HelpContext)

End Try

End Sub

Private Sub mmnuСправочникТовара_MeasureItem(ByVal sender As Object, ByVal e As System.Windows.Forms.MeasureItemEventArgs) Handles mmnuСправочникТовара.MeasureItem

Try

Меню.MeasureItems(e, mmnuСправочникТовара)

Catch ex As Exception

Err.Raise(Err.Number, ex.Source, ex.ToString, Err.HelpFile, Err.HelpContext)

End Try

End Sub

Private Sub mmnuСправочникИзмерений_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles mmnuСправочникИзмерений.DrawItem

' Dim TempIcon As New Icon(Application.StartupPath & "\IconMenu\Единицы измерения.ico")

Dim Ic As New Icon(Сервис.ВзятьStreamИзРесурса(_Рисунок.МенюЕдиницыИзмерения), 20, 20)

Try

Меню.DrawItems(e, mmnuСправочникИзмерений, Ic)

Catch ex As Exception

Err.Raise(Err.Number, ex.Source, ex.ToString, Err.HelpFile, Err.HelpContext)

End Try

End Sub

Private Sub mmnuСправочникИзмерений_MeasureItem(ByVal sender As Object, ByVal e As System.Windows.Forms.MeasureItemEventArgs) Handles mmnuСправочникИзмерений.MeasureItem

Try

Меню.MeasureItems(e, mmnuСправочникИзмерений)

Catch ex As Exception

Err.Raise(Err.Number, ex.Source, ex.ToString, Err.HelpFile, Err.HelpContext)

End Try

End Sub

Private Sub mmnuСправочникПоставщиков_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles mmnuСправочникПоставщиков.DrawItem

' Dim TempIcon As New Icon(Application.StartupPath & "\IconMenu\Поставщики.ico")

Dim Ic As New Icon(Сервис.ВзятьStreamИзРесурса(_Рисунок.МенюПоставщики), 20, 20)

Try

Меню.DrawItems(e, mmnuСправочникПоставщиков, Ic)

Catch ex As Exception

Err.Raise(Err.Number, ex.Source, ex.ToString, Err.HelpFile, Err.HelpContext)

End Try

End Sub

Private Sub mmnuСправочникПоставщиков_MeasureItem(ByVal sender As Object, ByVal e As System.Windows.Forms.MeasureItemEventArgs) Handles mmnuСправочникПоставщиков.MeasureItem

Try

Меню.MeasureItems(e, mmnuСправочникПоставщиков)

Catch ex As Exception

Err.Raise(Err.Number, ex.Source, ex.ToString, Err.HelpFile, Err.HelpContext)

End Try

End Sub

Private Sub mmnuОПрограмме_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles mmnuОПрограмме.DrawItem

' Dim TempIcon As New Icon(Application.StartupPath & "\IconMenu\О программе.ico")

Dim Ic As New Icon(Сервис.ВзятьStreamИзРесурса(_Рисунок.МенюОпрограмме), 20, 20)

Try

Меню.DrawItems(e, mmnuОПрограмме, Ic)

Catch ex As Exception

Err.Raise(Err.Number, ex.Source, ex.ToString, Err.HelpFile, Err.HelpContext)

End Try

End Sub

Private Sub mmnuОПрограмме_MeasureItem(ByVal sender As Object, ByVal e As System.Windows.Forms.MeasureItemEventArgs) Handles mmnuОПрограмме.MeasureItem

Try

Меню.MeasureItems(e, mmnuОПрограмме)

Catch ex As Exception

Err.Raise(Err.Number, ex.Source, ex.ToString, Err.HelpFile, Err.HelpContext)

End Try

End Sub

Економія у споживача програмного продукту

Раздел: Информатика, программирование
Количество знаков с пробелами: 111819
Количество таблиц: 23
Количество изображений: 19

Скачать

... і у судовому порядку Наведені у таблиці 1.3. адміністративні санкції передбачені статтею 165 Кодексу про адміністративні правопорушення.Розділ ІІ. Економічний аналіз витрат на оплату праці в бюджетних установах 2.1. Теоретичні основи економічного аналізу витрат на оплату праці У сучасних умовах реформування бухгалтерського обліку аналіз фінансово-господарської ...

Главная Новости Рефераты Статьи Вузы

О проекте Соглашение

Наверх

Войти на сайт

Навигация

Похожие работы

0 комментариев

Разделы

Инфо

Следите за новостями