Банк рефератов содержит более 364 тысяч рефератов, курсовых и дипломных работ, шпаргалок и докладов по различным дисциплинам: истории, психологии, экономике, менеджменту, философии, праву, экологии. А также изложения, сочинения по литературе, отчеты по практике, топики по английскому.
Полнотекстовый поиск
Всего работ:
364139
Теги названий
Разделы
Авиация и космонавтика (304)
Административное право (123)
Арбитражный процесс (23)
Архитектура (113)
Астрология (4)
Астрономия (4814)
Банковское дело (5227)
Безопасность жизнедеятельности (2616)
Биографии (3423)
Биология (4214)
Биология и химия (1518)
Биржевое дело (68)
Ботаника и сельское хоз-во (2836)
Бухгалтерский учет и аудит (8269)
Валютные отношения (50)
Ветеринария (50)
Военная кафедра (762)
ГДЗ (2)
География (5275)
Геодезия (30)
Геология (1222)
Геополитика (43)
Государство и право (20403)
Гражданское право и процесс (465)
Делопроизводство (19)
Деньги и кредит (108)
ЕГЭ (173)
Естествознание (96)
Журналистика (899)
ЗНО (54)
Зоология (34)
Издательское дело и полиграфия (476)
Инвестиции (106)
Иностранный язык (62791)
Информатика (3562)
Информатика, программирование (6444)
Исторические личности (2165)
История (21319)
История техники (766)
Кибернетика (64)
Коммуникации и связь (3145)
Компьютерные науки (60)
Косметология (17)
Краеведение и этнография (588)
Краткое содержание произведений (1000)
Криминалистика (106)
Криминология (48)
Криптология (3)
Кулинария (1167)
Культура и искусство (8485)
Культурология (537)
Литература : зарубежная (2044)
Литература и русский язык (11657)
Логика (532)
Логистика (21)
Маркетинг (7985)
Математика (3721)
Медицина, здоровье (10549)
Медицинские науки (88)
Международное публичное право (58)
Международное частное право (36)
Международные отношения (2257)
Менеджмент (12491)
Металлургия (91)
Москвоведение (797)
Музыка (1338)
Муниципальное право (24)
Налоги, налогообложение (214)
Наука и техника (1141)
Начертательная геометрия (3)
Оккультизм и уфология (8)
Остальные рефераты (21692)
Педагогика (7850)
Политология (3801)
Право (682)
Право, юриспруденция (2881)
Предпринимательство (475)
Прикладные науки (1)
Промышленность, производство (7100)
Психология (8692)
психология, педагогика (4121)
Радиоэлектроника (443)
Реклама (952)
Религия и мифология (2967)
Риторика (23)
Сексология (748)
Социология (4876)
Статистика (95)
Страхование (107)
Строительные науки (7)
Строительство (2004)
Схемотехника (15)
Таможенная система (663)
Теория государства и права (240)
Теория организации (39)
Теплотехника (25)
Технология (624)
Товароведение (16)
Транспорт (2652)
Трудовое право (136)
Туризм (90)
Уголовное право и процесс (406)
Управление (95)
Управленческие науки (24)
Физика (3462)
Физкультура и спорт (4482)
Философия (7216)
Финансовые науки (4592)
Финансы (5386)
Фотография (3)
Химия (2244)
Хозяйственное право (23)
Цифровые устройства (29)
Экологическое право (35)
Экология (4517)
Экономика (20644)
Экономико-математическое моделирование (666)
Экономическая география (119)
Экономическая теория (2573)
Этика (889)
Юриспруденция (288)
Языковедение (148)
Языкознание, филология (1140)

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

Название: Автоматизация заказа блюд в ресторане
Раздел: Рефераты по информатике, программированию
Тип: курсовая работа Добавлен 00:16:42 23 ноября 2009 Похожие работы
Просмотров: 664 Комментариев: 20 Оценило: 3 человек Средний балл: 5 Оценка: неизвестно     Скачать

Волжский университет имени В.Н. Татищева

Факультет “Информатика и телекоммуникации”

Кафедра “Информатика и системы управления”

КУРСОВАЯ РАБОТА

по дисциплине: “Базы данных и знаний”

Тема: “Автоматизация заказа блюд в ресторане ”

Выполнил: студент гр. ИТЗ-312

Бондарев А.А.

Преподаватель: Горбачевская Е.В

Тольятти

2004

СОДЕРЖАНИЕ

ВВЕДЕНИЕ

1 ОБЩИЙ РАЗДЕЛ

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

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

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

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

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

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

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

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

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

2 СПЕЦИАЛЬНЫЙ РАЗДЕЛ.

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

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

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

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

2.3.2 Проектирование форм для работы с базой данных

ЗАКЛЮЧЕНИЕ

СПИСОК ИСПОЛЬЗУЕМОЙ ЛИТЕРАТУРЫ

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


ВВЕДЕНИЕ

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

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

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

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

1 ОБЩИЙ РАЗДЕЛ

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

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

К функциям, реализуемым в данной задаче, относятся:

- учет и регистрация количества продуктов на складе;

- выборка блюд по наименованию и цене.

- регистрация новых рецептов для использования в кулинарии и внесения их в меню;

- выдача отчетов по заданным параметрам;

- сортировка блюд по типу (закуска, горячее, салаты….).

Отчетность, реализуемая при автоматизации процесса:

- формирование меню ресторана;

- составление бланка заказанных блюд, передаваемого на кухню.

Из всего вышесказанного вытекает несколько ограничений предметной области:

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

- ограниченность продуктов на складе;

- цена продукции измеряется в рублях.

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

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

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

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

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

Вся информация необходимая для решения задачи «Автоматизация заказа блюд в ресторане» хранится в файлах баз данных на магнитном носителе.

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

Условием прекращения использования задачи «Автоматизация заказа блюд в ресторане» является прекращение деятельности предприятия.

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

В процессе решения задачи могут быть получены следующие выходные документы:

«Меню ресторана», которое отражает информацию о блюдах, которые может заказать клиент;

«Заказ», содержащий информацию о заказанных блюдах, передаваемый на кухню;

Перечень и описание выходных документов показаны в таблице 1.1. Описание их реквизитов приведено в таблице 1.2. Формы документов представлены на рисунках 1.1-1.2

Таблица – 1.1

Перечень и описание выходных документов

Название документа Идентификатор документа

Форма

представления

Период

выдачи

Срок

выдачи

Получатель

информации

1 2 3 4 5 6
Меню ресторана D01 Документ ежедневно немедленно предприятие
Заказ D02 Документ по требованию немедленно предприятие
D01
(Ресторан)______ (Дата)_________

МЕНЮ

_____( Наименование типа блюда)____
Наименование Цена приготовления
Продукт Кол-во Стоимость
(ед. изм)
Сумма:________

Рисунок 1.1 – Форма выходного документа «Меню ресторана»


D02
(Ресторан)______ (Дата)_________
ЗАКАЗ
Блюдо Количество

Рисунок 1.2 – Форма выходного документа «Отчёт за период»

Таблица 1.2

Перечень и описание реквизитов выходных сообщений

Наименование

реквизита

Идентификаторы

выходных документов

Условное

обозначение

Характеристика

реквизитов

1 2 3 4
Единица измерения D01 NAME_EI A(5)
Ресторан D01, D02 ORG A(25)
Текущая дата D01, D02 NOW 9(2).9(2).9(4)
Наименование типа блюда D01 NAME_TYPE_B A(25)
Наименование блюда D01, D02 NAME_B A(25)
Цена приготовления D01 CENA_B 9(6),9(2)
Наименование продукта D01 NAME_PROD A(25)
Количество продукта D01 KOL_VO_IN_B 9(5)
Стоимость продукта D01 STOIM_P 9(6),9(2)
Стоимость рецепта D01 ALL_B_STOI 9(6),9(2)
Количество блюд D02 KOL_VO_B 9(6)

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

Входные документы задачи «Автоматизация заказа блюд в ресторане» подразделяются на оперативно-учетную, условно-постоянную и нормативно справочную информацию.

Для решения задачи оперативно-учётной информацией используется документ «перечень блюд на текущий день» (форма входного документа представлена на рисунке 1.3), в котором указаны тип блюда и его наименование.

Перечень входных документов представлен в таблице 1.3, описание реквизитов в таблице 1.4.

Таблица 1.3

Перечень и описание входных документов

Наименование документа Идентификатор входных сообщений Форма представления Частота поступления
1 2 3 4
Перечень блюд на текущий день Spisok Первичный документ Ежедневно

Таблица 1.4

Перечень и описание реквизитов входных сообщений

Наименование реквизита Идентификатор реквизита Характеристика реквизита Источник информации Идентификатор источника
1 2 3 4 5
Дата CURDATA 9(2).9(2).9(4) Первичный документ Spisok
Наименование типа блюда NAME_TYPE_B A(25) Первичный документ Spisok
Наименование блюда NAME_B A(25) Первичный документ Spisok
Spisok
(Ресторан)______ (Дата)_________

Перечень блюд на текущий день

_____( Наименование типа блюда)____
Наименование

Рисунок 1.3 – Форма входного документа «Перечень блюд на текущий день»


Условно-постоянной информацией для решения задачи являются справочники блюд и продуктов, в которых отражена информация о блюдах и продуктах соответственно. Также используется справочник продуктов в блюде. Документы условно-постоянной информации представлены в таблице 1.4, а их реквизиты в таблице 1.5.

Таблица 1.4

Перечень и описание условно-постоянной информации

Наименование

документа

Идентификатор входных

сообщений

Форма представления
1 2 3
Справочник блюд SpisokB

Массив данных

на магнитном диске

Справочник продуктов Products

Массив данных

на магнитном диске

Справочник продуктов в блюде ProdInRec

Массив данных

на магнитном диске

Таблица 1.5

Перечень и описание реквизитов условно-постоянной информации

Наименование реквизита

Условное

обозначение

Идентификатор источника

Характеристика

реквизитов

1 2 3 4
Код блюда IdB SpisokB, ProdInRec 9(4)
Наименование блюда NAME_B SpisokB A(30)
Цена приготовления CENA_B SpisokB 9(5),9(2)
Код типа блюда IdTB SpisokB 9(2)
Код продукта IdP Products 9(4)
Количество продукта KOL_VO Products 9(5),9(3)
Стоимость продукта STOIM_P Products 9(5),9(2)
Наименование продукта NAME_PROD Products, ProdInRec A(30)
Код единицы измерения IdEI Products 9(2)
Количество продукта в блюде KOL_VOPvB ProdInRec 9(5),9(3)

Нормативно-справочной информацией являются справочники единиц измерения и типов блюд. В нём находится вся информация о единицах измерения и типах блюд соответственно. Документы нормативно-справочной информации представлены в таблице 1.6, а их реквизиты в таблице 1.7.

Таблица 1.6

Перечень и описание нормативно-справочной информации.

Наименование

документа

Идентификатор входных

сообщений

Форма представления
1 2 3
Справочник единиц измерения EI

Массив данных

на магнитном диске

Справочник типов блюд TypeB

Массив данных

на магнитном диске

Таблица 1.7

Перечень и описание реквизитов нормативно-справочной информации

Наименование реквизита

Условное

обозначение

Идентификатор источника

Характеристика

реквизитов

1 2 3 4
Код типа блюда IdTB TypeB 9(2)
Наименование типа блюда NameTB TypeB A(30)
Код единицы измерения IdEI EI 9(2)
Наименование единицы измерения NameEI EI A(30)

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

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

Рисунок 1.4 – 0 уровень диаграммы IDEF0

Рисунок 1.5 – 1 уровень диаграммы IDEF0

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

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

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

Рисунок 1.6 – Информационно-логическая модель данных



Рисунок 1.7 –диаграмма «сущность – связь» созданная в ErWin

2 СПЕЦИАЛЬНЫЙ РАЗДЕЛ

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

Для работы приложения необходимо используемую им базу данных подключить через соответствующий системный драйвер. В Windows это реализуется через ODBC (Open DataBase Connectivity) открытый интерфейс доступа к базам данных, определяющий набор функций, которые можно использовать для доступа к любой реляционной СУБД. Пользователь программы, которая не предусматривает автоматическое подключение к алиасам ODBC, может вручную прописать местонахождение базы данных. Это делается либо через Администратор источников данных ODBC, либо через BDEAdministrator, как функциональное расширение администратора. Так как BDEAdministrator требует своей предустановки, а администратор ODBC наличествует на всех компьютерах с установленной ОС Windows, то подключение базы данных программы будет идти через«Администратор ODBC».

«Администратор ODBC» открывается через «Панель управления» Windows.

Рисунок 2.1 –окно «Администратор ODBC»


Для добавления алиаса требуется нажать кнопку «Добавить…». Появляется окно добавления нового источника данных.


Рисунок 2.2 –окно создания нового источника данных

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


Рисунок 2.3 –Окно настройки драйвера

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

Таблицы задачи были созданы в СУБД ACCESS. Таблицы создаются с помощью конструктора.

Рисунок 2.4 – ACCESS с выведенным списком таблиц задачи

Рисунок 2.5 –Окно конструктора таблиц

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

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

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

Также в программе реализованы всплывающие подсказки, появляющиеся при наведении курсора на какой-либо объект и кнопки быстрого вызова, вынесенные на панель инструментов.

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

При работе с программой пользователь может пользоваться как клавиатурой, так и “мышью”.

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

Для решения задачи необходимо преждевременно ввести исходные данные в справочники. Формы для ввода этих данных, представленные в п.1.2, были изменены с помощью встроенных элементов языка программирования Delphi 6.0, таких как панель навигации и предварительный просмотр.

Формы, применяемые для ввода данных, снабжены как встроенной панелью навигации, которая представлена на рисунке 2.1, так и собственными элементами ввода и корректировки данных БД.


Рисунок 2.6 – Вид панели навигации

Форма для ввода и корректировки данных в справочнике номеров и настроек программы имеет табличную структуру. В таблице отражаются записи уже введенные в справочники. Форма для ввода и корректировки данных в справочниках представлена на рисунке 2.2.

На основе полученных требований задача была разделена на модули и показана в виде иерархической схемы на рисунке 2.3.


Рисунок 2.7 –Схема меню задачи

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

Рисунок 2.8 –Видеограмма меню

Формы вывода представляют собой стандартное окно предварительного просмотра отчета, встроенного в Delphi 6. Окно предварительного просмотра содержит панель инструментальных кнопок.

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

Кнопки масштабирования:

- Страница полностью показывается в окне;

- Страница в масштабе 1:1;

- Ширина страницы соответствует ширине окна.

Кнопки перемещения по страницам отчета:

- Показывает первую страницу отчета;

- Показывает последнюю страницу отчета;

- Показывает предыдущую страницу отчета;

- Показывает следующую страницу отчета.

Кнопки работы с принтером:

- Вызывает стандартное окно настройки принтера;

- Печатает отчет.

Дополнительные кнопки:

- Сохраняет отчет в файле;

- Загружает отчет из файла.

2.3.2 Проектирование форм для работы с базой данных

Проектировани форм программы происходило в среде визуального программирования Delphi. Некоторые результирующие формы показаны на рисунках.

Рисунок 2.9 – Главная форма

Рисунок 2.10 – Форма ввода и корректировки справочников

ЗАКЛЮЧЕНИЕ

В разработке программного продукта «Заказы» полностью выполнена поставленная задача. Программа имеет удобный для пользователя интерфейс, который позволяет легко работать с программой даже без специального обучения.

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

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

СПИСОК ИСПОЛЬЗУЕМОЙЛИТЕРАТУРЫ

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 с., ил.

Приложени е А

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

unitAbout;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

Buttons, ExtCtrls;

type

TAboutBox = class(TForm)

Panel1: TPanel;

ProductName: TLabel;

Version: TLabel;

Comments: TLabel;

OKButton: TButton;

Label1: TLabel;

procedure OKButtonClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

AboutBox: TAboutBox;

implementation

uses Main, InformUnit;

{$R *.dfm}

procedure TAboutBox.OKButtonClick(Sender: TObject);

begin

close;

MainForm.Show;

InformForm.Show;

end;

end.

unit InformUnit;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, Grids, DBGrids, StdCtrls, ExtCtrls, DBCtrls, Buttons;

type

TInformForm = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

GroupBox1: TGroupBox;

DBGrid2: TDBGrid;

GroupBox2: TGroupBox;

DBNavigator2: TDBNavigator;

DBGrid3: TDBGrid;

DBNavigator3: TDBNavigator;

GroupBox3: TGroupBox;

DBGrid4: TDBGrid;

DBNavigator4: TDBNavigator;

GroupBox4: TGroupBox;

GroupBox5: TGroupBox;

DBGrid5: TDBGrid;

DBNavigator5: TDBNavigator;

BitBtn1: TBitBtn;

Panel1: TPanel;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

InformForm: TInformForm;

implementation

uses Main;

{$R *.dfm}

procedure TInformForm.BitBtn1Click(Sender: TObject);

begin

informform.Hide;

end;

end.

unit Main;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, StdCtrls, ExtCtrls, ToolWin, ActnMan,

ActnCtrls, Menus, Grids, DBGrids, DBCtrls, QuickRpt, QRCtrls, DBTables,

DB, AppEvnts, Buttons, jpeg;

type

TMainForm = class(TForm)

TreeView1: TTreeView;

WorkArea: TPanel;

Panel2: TPanel;

GroupBox1: TGroupBox;

Memo1: TMemo;

DS_spisokB: TDataSource;

T_typeB: TTable;

T_products: TTable;

T_EI: TTable;

T_ProdinRec: TTable;

T_spisokB: TTable;

DS_EI: TDataSource;

Session1: TSession;

DS_ProdinRec: TDataSource;

DS_products: TDataSource;

DS_TypeB: TDataSource;

T_productsIdP: TIntegerField;

T_productsNameProduct: TStringField;

T_productsKol_vo: TFloatField;

T_productsCenaP: TFloatField;

T_productsIdEI: TIntegerField;

T_productsRelatEI: TStringField;

T_spisokBIDB: TIntegerField;

T_spisokBNameB: TStringField;

T_spisokBCenaB: TFloatField;

T_spisokBIdTB: TIntegerField;

T_spisokBFlagCur: TBooleanField;

T_spisokBRelatTypeB: TStringField;

T_ProdinRecIDB: TIntegerField;

T_ProdinRecIDP: TIntegerField;

T_ProdinRecKol_voPvB: TFloatField;

T_ProdinRecRelatEIonP: TStringField;

T_ProdinRecRelatP: TStringField;

T_spisokBStoim: TFloatField;

T_ProdinRecRelatPCena: TFloatField;

DS_Zakaz: TDataSource;

T_zakaz: TTable;

T_zakazIDB: TIntegerField;

T_zakazKol_voZ: TIntegerField;

T_zakazRelatNB: TStringField;

T_EIIdEI: TIntegerField;

T_EINameEI: TStringField;

T_typeBIdTB: TIntegerField;

T_typeBNameTB: TStringField;

BitBtn1: TBitBtn;

Image1: TImage;

BitBtn2: TBitBtn;

FontDialog1: TFontDialog;

T_zakazLU_CEnaB: TVariantField;

T_zakazCalc_stoim: TVariantField;

procedure T_spisokBFlagCurGetText(Sender: TField; var Text: String;

DisplayText: Boolean);

procedure T_spisokBFlagCurSetText(Sender: TField; const Text: String);

procedure T_spisokBCalcFields(DataSet: TDataSet);

procedure T_zakazRelatNBSetText(Sender: TField; const Text: String);

procedure T_zakazKol_voZSetText(Sender: TField; const Text: String);

procedure T_zakazAfterInsert(DataSet: TDataSet);

procedure T_zakazAfterPost(DataSet: TDataSet);

procedure T_spisokBAfterInsert(DataSet: TDataSet);

procedure T_spisokBBeforeInsert(DataSet: TDataSet);

procedure T_spisokBAfterPost(DataSet: TDataSet);

procedure T_productsBeforeInsert(DataSet: TDataSet);

procedure T_productsAfterInsert(DataSet: TDataSet);

procedure T_productsAfterPost(DataSet: TDataSet);

procedure T_EIBeforeInsert(DataSet: TDataSet);

procedure T_EIAfterInsert(DataSet: TDataSet);

procedure T_EIAfterPost(DataSet: TDataSet);

procedure T_typeBBeforeInsert(DataSet: TDataSet);

procedure T_typeBAfterInsert(DataSet: TDataSet);

procedure BitBtn2Click(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure TreeView1Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure T_zakazCalcFields(DataSet: TDataSet);

private

{ Private declarations }

public

{ Public declarations }

end;

var

MainForm: TMainForm;

flager:byte;

mkeyvalue:integer;

implementation

uses InformUnit, RepMenu, ZakazUnit, RepZakaz, About;

{$R *.dfm}

procedure TMainForm.T_spisokBFlagCurGetText(Sender: TField; var Text: String;

DisplayText: Boolean);

begin

If T_spisokBFlagCur.Value then text:='+'

else text:='-';

end;

procedure TMainForm.T_spisokBFlagCurSetText(Sender: TField;

const Text: String);

begin

T_spisokBFlagCur.Value:=false;

if text='+' then T_spisokBFlagCur.Value:=True;

if text='-' then T_spisokBFlagCur.Value:=False;

end;

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

procedure TMainForm.T_spisokBCalcFields(DataSet: TDataSet);

var s1:real;

begin

s1:=0;

While not (T_ProdinRec.Eof) do begin

S1:=S1+T_ProdinRecRelatPCena.value*T_ProdinRecKol_voPvB.Value;

T_ProdinRec.Next;

end;

T_spisokBStoim.value:=T_spisokBCenaB.value+S1;

end;

procedure TMainForm.T_zakazRelatNBSetText(Sender: TField; const Text: String);

begin

With T_spisokB do

if Locate('NameB',Text,[]) then begin

T_zakazIDB.value:=T_spisokBIDB.Value;

T_zakazIDB.RefreshLookupList;

end;

end;

{**********************************************************8}

procedure TMainForm.T_zakazKol_voZSetText(Sender: TField; const Text: String);

var number:integer;prodZak:real;flag:boolean;

begin

flag:=true;

number:=strtoint(Text);

ZakazForm.memo1.Clear;

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

else begin

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

T_ProdinRec.First;

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

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

if T_products.Locate('IDP',T_ProdinRecIDP.Value,[]) then

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

{} begin

ProdZak:=T_ProdinRecKol_voPvB.Value*number;

if ProdZak<T_productsKol_vo.Value then flag:=true

else flag:=false;

end;

T_ProdinRec.Next;

end;

{Проверка}

T_ProdinRec.First;

if flag then

{} begin

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

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

if T_products.Locate('IDP',T_ProdinRecIDP.Value,[]) then

{} begin

ProdZak:=T_ProdinRecKol_voPvB.Value*(number-T_zakazKol_voZ.Value);

T_products.Edit;

T_productsKol_vo.Value:=T_productsKol_vo.Value-ProdZak;

T_products.Post;

end;

T_ProdinRec.Next;

end;

T_zakazKol_voZ.Value:=number

end

else begin

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

T_zakazKol_voZ.Value:=1;

ZakazForm.DBGrid1.Refresh;

end;

end;

end;

procedure TMainForm.T_zakazAfterInsert(DataSet: TDataSet);

begin

T_zakazKol_voZ.Value:=1;

end;

procedure TMainForm.T_zakazAfterPost(DataSet: TDataSet);

var money,sum:real;MMark:TBookMark;

begin

try

money:=strtofloat(ZakazForm.MaskEdit1.Text);

except

ZakazForm.maskEdit1.Text:='';

ZakazForm.maskEdit1.ReadOnly:=True;

ZakazForm.maskEdit1.Color:=clBtnFace;

end;

sum:=0;

if money<>0 then begin

MMark:=T_zakaz.GetBookmark;

T_zakaz.First;

while not(T_zakaz.Eof) do begin

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

sum:=T_spisokBStoim.Value*T_zakazKol_voZ.value+sum;

T_zakaz.Next;

end;

if T_zakaz.BookmarkValid(mmark) then T_zakaz.GotoBookmark(mmark);

if T_zakaz.BookmarkValid(mmark) then T_zakaz.FreeBookmark(mmark);

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

else ZakazForm.memo1.Clear;

end;

end;

{****************************SpisokB**********************888}

procedure TMainForm.T_spisokBAfterInsert(DataSet: TDataSet);

begin

T_spisokB.edit;

T_spisokBIDB.Value:=MKeyvalue;

T_spisokBFlagCur.Value:=false;

T_spisokBIdTB.Value:=1;

T_spisokB.Post;

InformForm.DBGrid1.Refresh;

end;

procedure TMainForm.T_spisokBBeforeInsert(DataSet: TDataSet);

begin

MKeyvalue:=0;

repeat

MKeyvalue:=MKeyvalue+1;

until varType(T_spisokB.lookup('IDB',MKeyvalue,'IDB'))=varnull;

end;

procedure TMainForm.T_spisokBAfterPost(DataSet: TDataSet);

begin

T_spisokB.Refresh;

end;

{****************************Products********************888}

procedure TMainForm.T_productsBeforeInsert(DataSet: TDataSet);

begin

MKeyvalue:=0;

repeat

MKeyvalue:=MKeyvalue+1;

until varType(T_products.lookup('IDP',MKeyvalue,'IDP'))=varnull;

end;

procedure TMainForm.T_productsAfterInsert(DataSet: TDataSet);

begin

T_products.edit;

T_productsIDP.Value:=MKeyvalue;

T_productsIdEI.Value:=1;

T_products.Post;

InformForm.DBGrid3.Refresh;

end;

procedure TMainForm.T_productsAfterPost(DataSet: TDataSet);

begin

T_products.Refresh;

end;

{*********************TypeB****************************}

procedure TMainForm.T_EIBeforeInsert(DataSet: TDataSet);

begin

MKeyvalue:=0;

repeat

MKeyvalue:=MKeyvalue+1;

until varType(T_EI.lookup('IdEI',MKeyvalue,'IdEI'))=varnull;

end;

procedure TMainForm.T_EIAfterInsert(DataSet: TDataSet);

begin

T_EI.edit;

T_EIIdEI.Value:=MKeyvalue;

T_EINameEI.Value:=' ';

T_EI.Post;

InformForm.DBGrid5.Refresh;

end;

procedure TMainForm.T_EIAfterPost(DataSet: TDataSet);

begin

T_EI.Refresh;

end;

{*********************TypeB****************************}

procedure TMainForm.T_typeBBeforeInsert(DataSet: TDataSet);

begin

MKeyvalue:=0;

repeat

MKeyvalue:=MKeyvalue+1;

until varType(T_typeB.lookup('IdTB',MKeyvalue,'IdTB'))=varnull;

end;

procedure TMainForm.T_typeBAfterInsert(DataSet: TDataSet);

begin

T_typeB.edit;

T_typeBIdTB.Value:=MKeyvalue;

T_typeBNameTB.Value:=' ';

T_typeB.Post;

InformForm.DBGrid4.Refresh;

end;

procedure TMainForm.BitBtn2Click(Sender: TObject);

begin

AboutBox.showmodal;

end;

procedure TMainForm.FormShow(Sender: TObject);

begin

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

end;

{-------------------------------------------------}

procedure TMainForm.TreeView1Click(Sender: TObject);

var F:integer;

begin

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

for f:=0 to 15 do if TreeView1.Items[f].Selected then break;

memo1.Clear;

case f of

0:begin

ZakazForm.Show;

InformForm.Hide;

Aboutbox.Hide;

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

end;

1:begin

InformForm.Show;Aboutbox.Hide;

InformForm.PageControl1.ActivePageIndex:=0;

InformForm.SetFocus;

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

end;

2:begin

InformForm.PageControl1.ActivePageIndex:=0;

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

end;

3:begin //InformFrame1.PageControl1.ActivePageIndex:=1;

InformForm.PageControl1.ActivePageIndex:=1;

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

end;

4:begin

InformForm.PageControl1.ActivePageIndex:=2;

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

end;

{Reports}

5:begin

InformForm.Hide;

Aboutbox.Hide;

ZakazForm.Hide;

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

end;

{Menu} 6:begin

MenuForm.QuickRep1.Refresh;

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

end;

{Preview}7:begin

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

MenuForm.Query1.Close;

MenuForm.Query1.Open;

MenuForm.QuickRep1.Preview;

end;

{Print}8:begin

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

MenuForm.Query1.Close;

MenuForm.Query1.Open;

MenuForm.QuickRep1.Print;

end;

{Zakaz} 9:FRepZakaz.QuickRep1.Preview;

10: begin

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

FontDialog1.Font := MainForm.Font;

if FontDialog1.Execute then TreeView1.font:=FontDialog1.Font

end;

end;

end;

procedure TMainForm.FormActivate(Sender: TObject);

begin

T_EI.open;

T_Prodinrec.open;

T_products.open;

T_spisokB.open;

T_zakaz.open;

T_typeB.open;

end;

procedure TMainForm.T_zakazCalcFields(DataSet: TDataSet);

begin

T_zakazCalc_stoim.AsCurrency:=T_zakazKol_voZ.AsCurrency + T_zakazLU_CEnaB.AsCurrency

end;

end.

unit RepMenu;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, QuickRpt, QRCtrls, ExtCtrls, DB, DBTables;

type

TMenuForm = class(TForm)

QuickRep1: TQuickRep;

QRBand1: TQRBand;

QRLabel1: TQRLabel;

Query1: TQuery;

DataSource1: TDataSource;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRBand2: TQRBand;

QRDBText3: TQRDBText;

QRDBText4: TQRDBText;

QRDBText5: TQRDBText;

QRDBText6: TQRDBText;

QRBand3: TQRBand;

QRExpr1: TQRExpr;

QRDBText7: TQRDBText;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

QRLabel4: TQRLabel;

QRExpr2: TQRExpr;

QRLabel5: TQRLabel;

QRLabel6: TQRLabel;

QRShape2: TQRShape;

QRShape3: TQRShape;

QRShape4: TQRShape;

QRLabel7: TQRLabel;

QRShape5: TQRShape;

QRShape1: TQRShape;

QRShape6: TQRShape;

private

{ Private declarations }

public

{ Public declarations }

end;

var

MenuForm: TMenuForm;

implementation

{$R *.dfm}

end.

unit RepZakaz;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, QuickRpt, QRCtrls, ExtCtrls;

type

TFRepZakaz = class(TForm)

QuickRep1: TQuickRep;

QRBand1: TQRBand;

QRBand2: TQRBand;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRLabel1: TQRLabel;

QRBand3: TQRBand;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

QRShape1: TQRShape;

private

{ Private declarations }

public

{ Public declarations }

end;

var

FRepZakaz: TFRepZakaz;

implementation

uses Main;

{$R *.dfm}

end.

unit ZakazUnit;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Buttons, Mask;

type

TZakazForm = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

BitBtn1: TBitBtn;

Clear: TBitBtn;

Panel1: TPanel;

Preview: TBitBtn;

Print: TBitBtn;

Memo1: TMemo;

MaskEdit1: TEdit;

procedure ClearClick(Sender: TObject);

procedure PreviewClick(Sender: TObject);

procedure PrintClick(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

ZakazForm: TZakazForm;

implementation

uses Main, RepZakaz;

{$R *.dfm}

procedure TZakazForm.ClearClick(Sender: TObject);

begin

MainForm.T_zakaz.close;

MainForm.T_zakaz.EmptyTable;

MainForm.T_zakaz.Open;

end;

procedure TZakazForm.PreviewClick(Sender: TObject);

begin

FRepZakaz.QuickRep1.Preview;

end;

procedure TZakazForm.PrintClick(Sender: TObject);

begin

FRepZakaz.QuickRep1.Print;

end;

procedure TZakazForm.FormActivate(Sender: TObject);

begin

if not(MainForm.T_zakaz.Active) then MainForm.T_zakaz.Open;

end;

procedure TZakazForm.BitBtn1Click(Sender: TObject);

begin

ZakazForm.Hide;

end;

end.

Оценить/Добавить комментарий
Имя
Оценка
Комментарии:
Хватит париться. На сайте FAST-REFERAT.RU вам сделают любой реферат, курсовую или дипломную. Сам пользуюсь, и вам советую!
Никита07:57:32 02 ноября 2021
.
.07:57:30 02 ноября 2021
.
.07:57:30 02 ноября 2021
.
.07:57:29 02 ноября 2021
.
.07:57:29 02 ноября 2021

Смотреть все комментарии (20)
Работы, похожие на Курсовая работа: Автоматизация заказа блюд в ресторане

Назад
Меню
Главная
Рефераты
Благодарности
Опрос
Станете ли вы заказывать работу за деньги, если не найдете ее в Интернете?

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



Результаты(288192)
Комментарии (4159)
Copyright © 2005-2021 HEKIMA.RU [email protected] реклама на сайте