Заключение

Результатом созданной информационной системы на производстве стал единый программный комплекс, связывающий работу разных специалистов на различных рабочих местах в единую технологическую и информационную цепочку.

Основные итоги проделанной работы по внедрению информационной системы «Пандарен»:

• повысилась производительность труда и устойчивость бизнеса;

• время, затрачиваемое на составление плана, значительно сократилось;

• стало проще следить за складами, отгрузками и поставками;

• у руководства предприятия появилась эффективная система отчетности;

• появилась возможность быстро сформировать необходимые документы;

Во время курсового проектирования были закреплены навыки работы в Microsoft Access, также получены навыки работы с объектно-ориентированным языком Microsoft Visual Basic For Application.

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

Мы видим, что основным итогом стала функциональная модель с четкой слаженной работой всех подразделений предприятия и качественным улучшением работы всего предприятия в целом.

Список используемой литературы

1. Буч, Г. Язык UML.Руководство пользователя [Текст] / Г. Буч, Дж. Рамбо, И.

2. Якобсон. – М: ДМК пресс, 2007. – 496 с.

3. Вендров, А.М. Проектирование программного обеспечения экономических информационных систем [Текст]: учебник-М.: Финансы и статистика, 2005.-544с.

4. Елиферов, В. Г. Бизнес-процессы. Регламентация и управление [Текст] / В. Г. Елиферов, В. В. Репин. – М.: Инфра-М, 2006. – 320 с.

5. Золотухина Е.Б. Основы бизнес моделирования: Методическая разработка. – М., 2005.: ил.

6. Леоненков, А. В. Объектно-ориентированный анализ и проектирование с использованием UML [Текст] / А. В. Леоненков. – М.: Бином, 2006. – 320 с.

7. Принципы проектирования и разработки программного обеспечения: Учебный курс MCSD / пер. с англ. – 2-е изд., испр. – М: ИТД "Русская Редакция", 2002. – 736 с.

8. Смирнова, Г.Н. Проектирование информационных систем [Текст]/Г.Н.Смирнова, А.А. Сорокин, Ю.Ф.Тельнов - М.: Финансы и статистика, 2001.-512с.

Приложение а

Imports System.Configuration

Public Class Form7

Dim nconnect As New OleDb.OleDbConnection

Dim ncom As New OleDb.OleDbCommand

Private Sub ПродукцияBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ПродукцияBindingNavigatorSaveItem.Click

'Сохранение изменений в базу данных

Me.Validate()

Me.ПродукцияBindingSource.EndEdit()

Me.TableAdapterManager.UpdateAll(Me.База_данных11DataSet)

End Sub

Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'TODO: данная строка кода позволяет загрузить данные в таблицу "База_данных11DataSet.Продукция". При необходимости она может быть перемещена или удалена.

Me.ПродукцияTableAdapter.Fill(Me.База_данных11DataSet.Продукция)

'Сортировка данных таблицы по столбцу Код продукции

Me.ПродукцияDataGridView.Sort(DataGridViewTextBoxColumn1, System.ComponentModel.ListSortDirection.Ascending)

End Sub

Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

Dim res As MsgBoxResult

'Вывод сообщение на подтверждение удаления выбранной строки

res = MsgBox("Вы уверены, что хотите удалить выбранную строку?", MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, "Удаление продукции")

'Если было нажато Yes

If res = MsgBoxResult.Yes Then

'Задание имени массива первичных ключей

Dim kk(0) As DataColumn

'Задание в качестве первичного ключа столбца Код продукции

kk(0) = База_данных11DataSet.Tables("Продукция").Columns("КодП")

База_данных11DataSet.Tables("Продукция").PrimaryKey = kk

'Определение значения ячейки из строки, которая содержит выделенную ячейку и столбца с кодом продукции

Dim curcel As String = ПродукцияDataGridView.CurrentRow.Cells("DataGridViewTextBoxColumn1").Value.ToString

'Определение строки по содержимому ключевого столбца код продукции

Dim currow As DataRow = База_данных11DataSet.Tables("Продукция").Rows.Find(curcel)

'удаление строки, которая содержит выделенную ячейку

currow.Delete()

'Сохранение изменений в базу данных

Me.Validate()

Me.ПродукцияBindingSource.EndEdit()

Me.TableAdapterManager.UpdateAll(Me.База_данных11DataSet)

Me.ПродукцияDataGridView.Sort(DataGridViewTextBoxColumn1, System.ComponentModel.ListSortDirection.Ascending)

End If

End Sub

Private Sub PictureBox1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseEnter

PictureBox1.Image = My.Resources.у2

End Sub

Private Sub PictureBox1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseLeave

PictureBox1.Image = My.Resources.у1

End Sub

Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click

'Если поле заблокировано

If НаименованиеTextBox.Enabled = False Then

'Если поле заблокировано =>

'кнопка меняется на "добавить запись в таблицу", разблокировать все поля,

'добавляется автоматически код в КодП

PictureBox2.Image = My.Resources.двт1

'Все поля становятся доступными

НаименованиеTextBox.Enabled = True

НаименованиеTextBox.ReadOnly = False

ВыходГрTextBox.Enabled = True

ВыходГрTextBox.ReadOnly = False

КалорийностьTextBox.Enabled = True

КалорийностьTextBox.ReadOnly = False

ОписаниеTextBox.Enabled = True

ОписаниеTextBox.ReadOnly = False

'Этот большой кусок кода задает значение кода продукции для новой записи

'при этом выбирает первый свободный код продукции из тех что уже есть в базе

Dim str3 As String

str3 = "Select КодП from продукция order by КодП asc"

Dim dset As New DataSet

Dim dadap As New OleDb.OleDbDataAdapter(str3, nconnect)

Dim sett As ConnectionStringSettings = ConfigurationManager.ConnectionStrings("WindowsApplication1.My.MySettings.База_данных11ConnectionString")

Dim row As DataRow

Dim kol As Integer

Dim nomerpor As Integer

nconnect.ConnectionString = sett.ConnectionString

ncom.Connection = nconnect

ncom.CommandType = CommandType.Text

dadap.Fill(dset, "Продукция")

nomerpor = 2001

kol = dadap.Fill(dset)

'Если нет записи

If kol = 0 Then

КодПTextBox.Text = nomerpor

End If

'Если есть записи

If kol > 0 Then

For Each row In dset.Tables("Продукция").Rows

'Вывод кода ингредиенты из таблицы

For i = nomerpor To 2999

If row("КодП") = i Then

'Если идет поп порядку

nomerpor = nomerpor + 1

Exit For

End If

If row("КодП") <> i Then

'Если есть пропуск в нумерации

КодПTextBox.Text = i

nomerpor = nomerpor + 1

Exit For

End If

Next

'Если где то был пропуск, то прерываем цикл

If КодПTextBox.Text <> "" Then

Exit For

End If

Next row

'Если все значения кодов идут по порядку без пропусков

If КодПTextBox.Text = "" Then

КодПTextBox.Text = nomerpor

End If

End If

Else

'Нажали на кнопку - "добавить запись в таблицу"

'Добавляем в таблицу, меняем надпись на "добавить новую строку", очищаем и блокируем все поля

'Добавление новой строки, в которую будут записываться данные из полей для ввода

Dim datarow1 As DataRow = База_данных11DataSet.Tables("Продукция").NewRow

'Запись данных из полей для ввода в новую созданную строку таблицы

datarow1.Item(0) = КодПTextBox.Text

'С учетом того, что некоторые поля могут быть не заполнены

If НаименованиеTextBox.Text = "" Then

datarow1.Item(1) = ""

Else

datarow1.Item(1) = НаименованиеTextBox.Text

End If

If ВыходГрTextBox.Text = "" Then

datarow1.Item(2) = База_данных11DataSet.Продукция.Columns("ВыходГр").DefaultValue

Else

datarow1.Item(2) = ВыходГрTextBox.Text

End If

If КалорийностьTextBox.Text = "" Then

datarow1.Item(3) = База_данных11DataSet.Продукция.Columns("Калорийность").DefaultValue

Else

datarow1.Item(3) = КалорийностьTextBox.Text

End If

If ОписаниеTextBox.Text = "" Then

datarow1.Item(4) = ""

Else

datarow1.Item(4) = ОписаниеTextBox.Text

End If

'В таблицу добавляется новая заполненная данными строка

База_данных11DataSet.Tables("Продукция").Rows.Add(datarow1)

PictureBox2.Image = My.Resources.днс1

'Все поля для ввода очищаются

КодПTextBox.Text = ""

НаименованиеTextBox.Text = ""

ВыходГрTextBox.Text = ""

КалорийностьTextBox.Text = ""

ОписаниеTextBox.Text = ""

'Все поля становятся недоступными для ввода

НаименованиеTextBox.Enabled = False

НаименованиеTextBox.ReadOnly = True

ВыходГрTextBox.Enabled = False

ВыходГрTextBox.ReadOnly = True

КалорийностьTextBox.Enabled = False

КалорийностьTextBox.ReadOnly = True

ОписаниеTextBox.Enabled = False

ОписаниеTextBox.ReadOnly = True

'Новая строка записывается в базу данных

Me.Validate()

Me.ПродукцияBindingSource.EndEdit()

Me.TableAdapterManager.UpdateAll(Me.База_данных11DataSet)

'Данные таблицы сортируются по значению кода продукции

Me.ПродукцияDataGridView.Sort(DataGridViewTextBoxColumn1, System.ComponentModel.ListSortDirection.Ascending)

End If

End Sub

Private Sub PictureBox2_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox2.MouseEnter

If НаименованиеTextBox.Enabled = False Then

PictureBox2.Image = My.Resources.днс2

Else

PictureBox2.Image = My.Resources.двт2

End If

End Sub

Private Sub PictureBox2_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox2.MouseLeave

If НаименованиеTextBox.Enabled = False Then

PictureBox2.Image = My.Resources.днс1

Else

PictureBox2.Image = My.Resources.двт1

End If

End Sub

Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click

'Закрытие формы

Me.Close()

End Sub

Private Sub PictureBox3_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox3.MouseEnter

PictureBox3.Image = My.Resources.з2

End Sub

Private Sub PictureBox3_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox3.MouseLeave

PictureBox3.Image = My.Resources.з1

End Sub

End Class

ВСЕ хорошо. Поработайте с оформлением !!!!!

68