Розробка автоматизованого робочого місця управління замовленнями у малому бізнесі (ПП "Сігма") (стр. 13 из 13)

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) 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 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 Next 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 & "&bsol;IconMenu&bsol;Список заказов.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 & "&bsol;IconMenu&bsol;Выход.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 & "&bsol;IconMenu&bsol;Список заказчиков.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 & "&bsol;IconMenu&bsol;Товар.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 & "&bsol;IconMenu&bsol;Единицы измерения.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 & "&bsol;IconMenu&bsol;Поставщики.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 & "&bsol;IconMenu&bsol;О программе.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