Розробка автоматизованого робочого місця управління замовленнями у малому бізнесі (ПП "Сігма")
Розробка інформаційних моделей та програмного забезпечення автоматизованого робочого місця управління замовленнями малого підприємства. Трудомісткість та тривалість написання програми, розрахунок поточних витрат її реалізації та мінімальної ціни продажу.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | дипломная работа |
| Язык | украинский |
| Дата добавления | 19.11.2010 |
| Размер файла | 2,0 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
УстановитьСтиль()
УстановитьКлюч()
Выделить()
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 & "\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
Подобные документы
Мета, задачі та принципи створення інформаційних систем. Бібліотечні системи на Україні. Перелік вхідних та вихідних даних, вибір СУБД, структура програмного забезпечення АРМ. Визначення трудомісткості, тривалості та витрат на розробку програми.
дипломная работа [2,1 M], добавлен 19.11.2010Сутність автоматизованого робочого місця фахівця з розрахунку заробітної платні у медичному закладi. Розробка діаграми класів для програмного комплексу. Опис взаємодії між структурними елементами програмного комплексу. Показники якості аналогічних систем.
курсовая работа [2,2 M], добавлен 03.06.2019Розробка системи, що дозволяє оптимізувати управління запасами продукції на складі. Характеристика двох модулів програми: реалізація першого модуля в середовищі Delphi, реалізація другого модуля на основі матричної ігрової моделі управління запасами.
дипломная работа [2,0 M], добавлен 22.10.2012Аналіз існуючих автоматизованих систем управління тестуванням. Розробка алгоритму автоматизованого управління системою тестування працездатності радіоелектронних приладів. Аналіз стенда для тестування та розробка автоматизованого робочого місця.
дипломная работа [1,9 M], добавлен 08.05.2012Програмне забезпечення та шляхи автоматизації інформаційної системи управління школи. Побудова імітаційної моделі управлінських процесів за допомогою ППЗ MS Project. Розробка бази даних "Школа". Дослідження автоматизованого робочого місця секретаря.
курсовая работа [210,9 K], добавлен 10.11.2012Розробка автоматизованого робочого місця начальника курсу ВВНЗ в програмному середовищі Borland Delphi. Реалізація головного меню програми та додаткової панелі управління. Таблиця з інформацією про спортсмена. Алгоритм роботи інформаційної системи.
курсовая работа [777,6 K], добавлен 19.05.2014Програмні засоби автоматизації планування та обліку робіт поїзних бригад нарядчиком пасажирської вагонної дільниці. Загальна характеристика мобільного робочого місця. Програмна реалізація структурних елементів. Система управління реляційними базами даних.
дипломная работа [1,5 M], добавлен 15.10.2013Аналіз методів і засобів вирішення задачі автоматизації робочого місця працівника бібліотеки. Розробка логічної моделі бази даних "Бібліотека", інтерфейсу програми. Створення візуального додатку, що дозволяє переглядати, додавати інформацію в базу даних.
курсовая работа [2,8 M], добавлен 06.02.2013Розробка програми для автоматизованого розрахунку продажів у крамниці спорттоварів. Розробка концептуальної та логічної моделей бази даних. Автоматизація обробки інформації. Ядро програмного прикладного забезпечення. Розробка візуального інтерфейсу.
курсовая работа [2,3 M], добавлен 26.12.2014Розробка програмного забезпечення для управління транспортними платформами на базі програмованого логічного контролера S7-300 в Simatic STEP-7. Аналіз програмного забезпечення, розрахунок показників його надійності. Опис алгоритму функціонування системи.
дипломная работа [2,1 M], добавлен 17.05.2012
