1. Таблицы

После заполнения данными таблицы БД выглядят следующим образом (рисунок 7, рисунок 8). 

Рисунок 7 - Блюда 

Рисунок 8 – Меню

3 Создание клиентской оболочки в Visual Basic

 

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

     Для разработки пользовательского интерфейса информационной системы была использована среда программирования Visual Basic 2008 Professional.

     Предоставляемые Visual Basic средства обеспечивают создание и ведение локальных и клиент-серверных БД, а также разработку приложений для работы практически с любыми БД [5].

     Приведем  некоторые функции, которые должен выполнять пользовательский интерфейс. Такой интерфейс должен:

• позволять открывать БД удобным способом;
• обеспечить быстрый доступ к таблицам для их просмотра;
• предоставлять возможность выбора блюд;
• предоставлять возможность экспорта данных из базы данных в табличный и текстовый процессор, для осуществления последующей обработки количественных данных (эта функция разрабатывается для сотрудников кафе).

      Пользовательский  интерфейс проектируемой системы  представлен на рисунке 9. Исходный код программы приведен в приложении.

Рисунок 9 – Главное окно информационной системы «Заказ»  

    Оформление  заказа представлено на рисунке 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