Проектирование информационной системы «Заказ »

Автор работы: Пользователь скрыл имя, 13 Июня 2013 в 18:34, курсовая работа

Краткое описание

Система – это совокупность элементов, взаимосвязанных друг с другом, образующих определённую целостность.
Проектирование информационных систем всегда начинается с определения цели проекта и охватывает три основные области:
проектирование объектов данных, которые будут реализованы в базе данных;
проектирование программ, экранных форм, отчетов, которые будут обеспечивать выполнение запросов к данным;
учет конкретной среды или технологии, а именно: топологии сети, конфигурации аппаратных средств, используемой архитектуры (файл-сервер или клиент-сервер), параллельной обработки, распределенной
обработки данных и т.п.

Скачать в ZIP архиве (177.05 Кб) Сколько стоит заказать работу?
Вложенные файлы: 1 файл

Проектирование информационной системы Заказ.doc

— 294.50 Кб (Скачать файл)

 

Оформление заказа представлено на рисунке 10.

Рисунок 10 – Оформленный заказ

 

 

 

 

 

ЗАКЛЮЧЕНИЕ

 

В данной работе применены  методологии: функционального моделирования IDEF0; диаграммы потоков данных DFD; В результате было описана предметная область,  определены основные требования к проектируемой системе. Построена функциональная модель информационной системы, модель информационных потоков, сгенерирована база данных, спроектирован пользовательский интерфейс информационной системы.

Для проектирования БД использованы CASE-средства  ERWin и построена концептуальная модель (на физическом и логическом уровнях), которая сгенерирована в СУБД  Access, где она хранится.

Затем, подключив базу данных к Visual Basic, разработан интерфейс информационной системы. Посредством этой оболочки возможно без затруднений заказывать блюда.

 

 

 

 

 

 

 

 

 

 

 

 

 

СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ И ЛИТЕРАТУРЫ

  1. Диго, С.М. Проектирование и использование БД: Учебник для студентов вузов [Текст]. М.: Финансы и статистика, 1995. – 364 с.
  2. Маклаков, С.В. Bpwin и Erwin. CASE- средства разработки информационных систем [Текст]. – М.: "ДИАЛОГ - МИФИ ", 1999. - 256с.
  3. Бойко В.В., Савинков М.В. Проектирование БД информационных систем/ В.В. Бойко, М.В.  Савинков - М: «Финансовая статистика»,1989г. – 351с.
  4. Гофман В.Э., Хомоненко А.Д. Работа с БД в Delphi/ В.Э. Гофман, А.Д. Хомоненко – спб.:,БХВ - Петербург,2001. 656с.
  5. Маклаков С.В., BPwin и Erwin,CASE – средства разработки информационных систем./ С.В. Маклаков– М.: «ДИАЛОГ - МИФИ»,1999. – 256с.
  6. Смирнов Г.Н. и др. Проектирование экономических информационных систем./ Г.Н.  Смирнов – М.: финансы и статистика,2003.-512с.

 

 

 

 

 

 

 

 

 

 

 

Приложение

Программный код

Public Class Form1

 

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

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

        DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells

        DataGridView1.Columns(0).SortMode = DataGridViewColumnSortMode.NotSortable

        DataGridView1.Columns(1).SortMode = DataGridViewColumnSortMode.NotSortable

        DataGridView1.Columns(2).SortMode = DataGridViewColumnSortMode.NotSortable

        DataGridView1.Columns(3).SortMode = DataGridViewColumnSortMode.NotSortable

        DataGridView1.Columns(4).SortMode = DataGridViewColumnSortMode.NotSortable

        Me.БлюдаTableAdapter.Fill(Me.Аттестация_Microsoft_Office_AccessDataSet.Блюда)

        Dim n, i As Integer

        n = 100

        For i = 1 To n

            If DataGridView1.Rows(i).Cells(1).Value = скрыт.Text Then

                GoTo 1

            End If

        Next

1:      скрыт.Text = i - 1

    End Sub

 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        DataGridView1.Rows(0).Cells(1).Value = Label3.Text

        DataGridView1.Rows(0).Cells(2).Value = Label4.Text

        DataGridView1.Rows(0).Cells(3).Value = Label5.Text

        DataGridView1.Rows(0).Cells(4).Value = Label6.Text

        DataGridView1.CurrentCell = DataGridView1.Rows(0).Cells(0)

        Label2.Text = 1

        Dim i As Integer

        For i = 1 To скрыт.Text

            If DataGridView1.Rows(i).Cells(4).Value = Label2.Text Then

                DataGridView1.Rows(i).Visible = True

            Else

                DataGridView1.Rows(i).Visible = False

            End If

        Next

    End Sub

 

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        DataGridView1.Rows(0).Cells(1).Value = "-"

        DataGridView1.Rows(0).Cells(2).Value = "-"

        DataGridView1.Rows(0).Cells(3).Value = "0"

        DataGridView1.Rows(0).Cells(4).Value = "0"

        DataGridView1.CurrentCell = DataGridView1.Rows(0).Cells(0)

        Label2.Text = 2

        Dim i As Integer

        For i = 1 To скрыт.Text

            If DataGridView1.Rows(i).Cells(4).Value = Label2.Text Then

                DataGridView1.Rows(i).Visible = True

            Else

                DataGridView1.Rows(i).Visible = False

            End If

        Next

    End Sub

 

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        DataGridView1.Rows(0).Cells(1).Value = "-"

        DataGridView1.Rows(0).Cells(2).Value = "-"

        DataGridView1.Rows(0).Cells(3).Value = "0"

        DataGridView1.Rows(0).Cells(4).Value = "0"

        DataGridView1.CurrentCell = DataGridView1.Rows(0).Cells(0)

        Label2.Text = 3

        Dim i As Integer

        For i = 1 To скрыт.Text

            If DataGridView1.Rows(i).Cells(4).Value = Label2.Text Then

                DataGridView1.Rows(i).Visible = True

            Else

                DataGridView1.Rows(i).Visible = False

            End If

        Next

    End Sub

 

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

        End

    End Sub

 

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        DataGridView1.Rows(0).Cells(1).Value = "-"

        DataGridView1.Rows(0).Cells(2).Value = "-"

        DataGridView1.Rows(0).Cells(3).Value = "0"

        DataGridView1.Rows(0).Cells(4).Value = "0"

        DataGridView1.CurrentCell = DataGridView1.Rows(0).Cells(0)

        Label2.Text = 4

        Dim i As Integer

        For i = 1 To скрыт.Text

            If DataGridView1.Rows(i).Cells(4).Value = Label2.Text Then

                DataGridView1.Rows(i).Visible = True

            Else

                DataGridView1.Rows(i).Visible = False

            End If

        Next

    End Sub

 

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        DataGridView1.Rows(0).Cells(1).Value = "-"

        DataGridView1.Rows(0).Cells(2).Value = "-"

        DataGridView1.Rows(0).Cells(3).Value = "0"

        DataGridView1.Rows(0).Cells(4).Value = "0"

        DataGridView1.CurrentCell = DataGridView1.Rows(0).Cells(0)

        Label2.Text = 5

        Dim i As Integer

        For i = 1 To скрыт.Text

            If DataGridView1.Rows(i).Cells(4).Value = Label2.Text Then

                DataGridView1.Rows(i).Visible = True

            Else

                DataGridView1.Rows(i).Visible = False

            End If

        Next

    End Sub

 

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        DataGridView1.Rows(0).Cells(1).Value = "-"

        DataGridView1.Rows(0).Cells(2).Value = "-"

        DataGridView1.Rows(0).Cells(3).Value = "0"

        DataGridView1.Rows(0).Cells(4).Value = "0"

        DataGridView1.CurrentCell = DataGridView1.Rows(0).Cells(0)

        Label2.Text = 6

        Dim i As Integer

        For i = 1 To скрыт.Text

            If DataGridView1.Rows(i).Cells(4).Value = Label2.Text Then

                DataGridView1.Rows(i).Visible = True

            Else

                DataGridView1.Rows(i).Visible = False

            End If

        Next

    End Sub

 

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        DataGridView1.Rows(0).Cells(1).Value = "-"

        DataGridView1.Rows(0).Cells(2).Value = "-"

        DataGridView1.Rows(0).Cells(3).Value = "0"

        DataGridView1.Rows(0).Cells(4).Value = "0"

        DataGridView1.CurrentCell = DataGridView1.Rows(0).Cells(0)

        Label2.Text = 7

        Dim i As Integer

        For i = 1 To скрыт.Text

            If DataGridView1.Rows(i).Cells(4).Value = Label2.Text Then

                DataGridView1.Rows(i).Visible = True

            Else

                DataGridView1.Rows(i).Visible = False

            End If

        Next

    End Sub

 

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

        DataGridView1.Rows(0).Cells(1).Value = Label3.Text

        DataGridView1.Rows(0).Cells(2).Value = Label4.Text

        DataGridView1.Rows(0).Cells(3).Value = Label5.Text

        DataGridView1.Rows(0).Cells(4).Value = Label6.Text

        Dim i As Integer

        For i = 1 To скрыт.Text

            DataGridView1.Rows(i).Visible = True

        Next

    End Sub

    Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

        TextBox1.Text = DataGridView1.CurrentCell.RowIndex

        TextBox2.Text = DataGridView1.Rows(TextBox1.Text).Cells(1).Value

        TextBox5.Text = DataGridView1.Rows(TextBox1.Text).Cells(2).Value

        TextBox4.Text = DataGridView1.Rows(TextBox1.Text).Cells(3).Value

        TextBox1.Text = TextBox1.Text + 1

        If TextBox2.Text <> "" Then

            Button10.Enabled = True

        End If

    End Sub

 

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

        Button12.Enabled = True

        Button11.Enabled = True

        ListBox1.Items.Add(TextBox2.Text)

        ListBox2.Items.Add(TextBox4.Text)

       Dim n, s, sum As Integer

        n = ListBox2.Items.Count

        For i = 0 To n - 1

            s = ListBox2.Items(i)

            sum = sum + s

        Next i

        Label10.Text = sum

    End Sub

 

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click

        Form2.Show()

        Dim n, s, sum As Integer

        n = ListBox2.Items.Count

        For i = 0 To n - 1

            s = ListBox2.Items(i)

            sum = sum + s

            Form2.ListBox1.Items.Add(ListBox1.Items(i))

            Form2.ListBox2.Items.Add(ListBox2.Items(i))

        Next i

        Form2.Label5.Text = sum

        ListBox1.Items.Clear()

        ListBox2.Items.Clear()

        Button12.Enabled = False

        Button11.Enabled = False

        Button10.Enabled = False

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

        Label10.Text = ""

 

    End Sub

 

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click

        Button12.Enabled = False

        Button11.Enabled = False

        ListBox1.Items.Clear()

        ListBox2.Items.Clear()

        Label10.Text = ""

 

    End Sub

End Class


Информация о работе Проектирование информационной системы «Заказ »