Решение задач на тему: Автоматизация заказа блюд в ресторане

Введение

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

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

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

В целом автоматизация задачи выгодна для предприятия, из-за очевидного удобства и выгодности последующей работы.

Оглавление

- Введение

- Общий раздел

- Описание предметной области рассматриваемого объекта

- Постановка задачи

- Организационно-экономическая сущность задачи

- Описание выходной информации

- Описание входной информации

- Разработка информационного обеспечения задачи

- Структурный анализ с помощью диаграмм SADT

- Определение информационных объектов и связей между ними

- Структурный анализ с помощью диаграмм сущность - связь

- Специальный раздел

- Конфигурация системы с помощью утилиты BDE ADMINISTRATOR или средств связи приложения и БД DELPHI

- Создание таблиц базы данных с помощью утилиты DATABASE DESKTOP или ACCESS

- Организация пользовательского интерфейса

- Создание меню, реализующего основные функции информационной системы

- Проектирование форм для работы с базой данных ЗАКЛЮЧЕНИЕ

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

- Приложение А Листинг программы

Список литературы

1. Вендров А.М. Case - технологии. Современные методы и средства проектирования информационных систем. - Internet, http/www.citforum.ru/case....-158 с., ил.

2. Марка Д., МакГоуэн К. Методология структурного анализа и проектирования: Пер. с англ. - М.: 1999.- 240 с., ил.

3. Шумаков П.В. Delphi 5 и разработка приложений баз данных. - М.: "Нолидж", 2001. - 704 с., ил.

4. Грабер М. Введение в SQL: Пер. с англ. - М.: "ЛОРИ", 1996.- 341с., ил.

5. Дейт К. Дж. Введение в системы баз данных: Пер. с англ. - 6-е изд. - К.: Диалектика, 1998. - 784с., ил.

6. Калянов Г.Н. Case-средства. Структурный и системный анализ (автоматизация и применение). - М.: "ЛОРИ", 1999. - 249 с., ил.

7. Хендерсон Кен Delphi 5 и системы клиент/сервер. Руководство разработчика. : Пер. с англ. - К.: Диалектика, 2000. - 736 с., ил.

Приложение А

Листинг программы

DВ, AppEvnts, Buttons, jpeg;

{Подсчет стоимости блюда}

If not(strtoInt(Text) in [1..50]) then ZakazForm.memo1.Lines.Text:='Количество блюд превзошло разумные пределы!'

T_spisokB.locate('IDB',T_zakazIDB.value,[]); {Нашли блюдо}

{Оценивающий цикл}

{} While not(T_ProdinRec.Eof) and flag dо begin {Ищем запись продукта}

{Сравниваем заказанное и наличествующее}

{Проверка}

{Редактирующий цикл}

{} While not(T_ProdinRec.Eof) dо begin {Ищем запись продукта}

ZakazForm.memo1.Lines.Text:='Заказ превысил количество продуктов! Пожалуйста, повторите ввод';

T_spisokB.locate('IDB',T_zakazIDB.value,[]); {Нашли блюдо}

if sum>money then ZakazForm.memo1.Lines.Text:='Заказ превысил денежный предел!'

memo1.Text:='Добро пожаловать в программу "Ресторан"';

{определение текущей выделеннки}

memo1.Text:='Ведение заказов';

memo1.Text:='Ведение справочников';

memo1.Text:='Определение меню, заполение списка блюд';

memo1.Text:='Ведение состояния продуктов';

memo1.Text:='Дополнительные справочники, типы ед. измерения, типы блюд';

memo1.Text:='Отчеты';

memo1.Text:='Просмотр меню, печать';

memo1.Text:='Просмотр меню';

memo1.Text:='Печать меню';

memo1.Text:='Настройка шрифта меню';

Dialogs, StdCtrls, QuickRpt, QRCtrls, ExtCtrls, DВ, DBTables;