Створення програми "Кулінарна книга"
Опис: Представники школи наукового менеджменту ще на самому початку XX століття, усвідомили порочність системи оплати праці на рівні заробітків, що дозволяють лише подолати почуття голоду та холоду, визначили поняття достатнього денного вироблення та запропонували оплачувати працю працівників пропорційно їх вкладу.
Дата завантаження: 2014-06-23
Розмір файлу: 556.03 KB
Роботу завантажили: 190 чол.
Якщо ця робота Вам не підійшла внизу сторінки, є список схожих робіт. Також Ви можете скористатися кнопкою пошук
Сучасний комп'ютер – це цілий світ. Використання комп'ютера в банках, офісах, видавництвах, будинках стало вже звичною справою. Але це дуже маленька частина із можливих сфер його застосування. Без автоматизації не можна уявити сучасне виробництво. Інформаційні технології відкривають кожному, хто навчається, доступ до практично необмеженого обсягу інформації та її аналітичної розробки, забезпечує «безпосередню включеність» до інформаційних потоків суспільства. p align="justify"> Характерною рисою сучасного етапу розвитку суспільства є швидке проникнення інформаційних технологій у всі сфери суспільного життя, що викликає необхідність оцінки існуючих підходів до освітнього процесу з точки зору їх адекватності новим життєвим реаліям.
Метою даної курсової роботи є створення програми «Кулінарна книга», інтерфейс якої близький до списку рецептів на сайті millionmenu.ru.
Реалізація дипломної роботи проводиться в системі програмування Delphi 7, яка має широкі можливості щодо створення додатків баз даних, необхідним набором драйверів для доступу до найвідоміших форматів баз даних, зручними та розвиненими засобами для доступу до інформації. Розроблена система використовуєбазу даних у форматі MDB.
Система візуального програмування Delphi користується великою популярністю серед широкого кола користувачів: від програмістів-початківців до досвідчених розробників складних додатків, що займаються створенням великих інформаційних систем. Delphi дозволяє швидко та ефективно розробляти різноманітні програми. Вона має розвинені можливості щодо створення інтерфейсу користувача, широкий набір функцій, методів і властивостей для вирішення прикладних розрахунково-обчислювальних завдань.
1. Опис таблиць та структури БД.
База даних представлена у форматі MDB і складається з 8 взаємопов'язаних таблиць. Структура зв'язків представлена наступному малюнку.
Рис.1 Структура зв'язків між таблицями бази даних
Розглянемо структуру полів використовуваних таблиць.
Мал. 2 Таблиця «Види кухні»
Мал. 3 Таблиця «Національні кухні»
Мал. 4 Таблиця «Рецепт»
Мал. 5 Таблиця «Довідник страв»
Мал. 6 Таблиця «Довідник інгредієнтів»
Мал. 7 Таблиця "Технології приготування"
Мал. 8 Таблиця «Типи страв»
Мал. 9 Таблиця «Етапи приготування»
2. Опис інтерфейсу.
Під час запуску з'являється головне вікно програми.
Мал. 10 Головне вікно програми
Меню програми дозволяє відображати та редагувати відредагувати довідники. Після вибору пункту меню на екрані з'являються наступні вікна.
Мал. 11 Вікно довідника «Національні кухні»
Мал. 12 Вікно довідника «Види кухні»
Мал. 13 Вікно довідника «Технології»
У розробленій програмі були використані рецепти длям'ясорубки.
Мал. 14 Вікно довідника «Типи страви»
Мал. 15 Вікно довідника «Інгредієнти»
У головному вікні системи ми можемо фільтрувати список страв з усіх цих ознак. Тобто. вибираємо, наприклад, національна кухня в лівій частині вікна відображається список, далі вибираємо необхідну національну кухню і натискаємо кнопку «Пошук».
На рис. 16 представлений результат запиту «Вірменська кухня».
Мал. 16 Головне вікно програми після виконання запиту «По національній кухні»
Аналогічно реалізовані запити «Види кухні», «Технологія» та «Тип страви».
При виконанні запиту "За часом приготування" інтерфейс програми трохи відрізняється. Ми маємо можливість вибрати зі списку умову (більше, менше або рівно) та ввести кількість хвилин.
Мал. 17 Головне вікно програми після виконання запиту «За часом приготування»
Перемикач «Показати все» дозволяє зняти фільтрацію
Якщо натиснути кнопку «Додати страву», на екрані з'явиться порожня картка, де ми вносимо всі необхідні дані.
Мал. 18 Вікно «Картка страви»
Тут ми запроваджуємо найменування страви. Національну кухню, вид кухні, технологію та тип страви вибираємо зі списків, що формуються на основі довідників. Якщо їх немає у списку, натискаємо на кнопку «..» і додаємо їх у довідник. Кнопка «Завантажити» дозволяє зберігати у базі даних зображення у форматі bmp.
Також ми вибираємо зі списку калорійність (висока, середня, низька), вводимо кількість порцій та час приготування. Після цього натискаємо кнопку «Зберегти»
Далі приступаємо до формування рецепту приготування. Найменування інгредієнта вибираємо зі списку, причому одиницявимірювання заноситься до таблиці автоматично. Якщо інгредієнт відсутній у довіднику, натискаємо кнопку «Додати інгредієнт у довідник», з'являється вікно довідника, де ми вводимо інформацію про інгредієнт.
Після натискання кнопки "Опис приготування" на екрані з'явиться наступне вікно:
Мал. 19 Вікно «Опис приготування»
Тут ми вводимо текст опису та за потреби завантажуємо фотографію. Якщо натиснути кнопку «Показати рецепт вибраної страви», на екрані з'явиться картка з введеними раніше даними
3. Програмна реалізація.
Розглянемо фрагменти вихідного коду, з якого була реалізована програма. Опишемо процедури та функції модуля, який відповідає головному вікну програми.
Процедура вибору критерію фільтрації має такий вигляд.
procedure Tmain.ListBox1Click(Sender: TObject);
CheckListBox 1. Items. Clear; // Очищаємо список
ComboBox1.Visible:=false; Edit1.Visible:=false; // робимо невидимими компоненти, що застосовуються при виборі часу приготування
case ListBox 1. ItemIndex of // якщо вибрано
0: // національна кухня
with DataModule2 do
nat_kuh.First; // Перехід до першого запису
while not nat_kuh.Eof do // перебираємо всі записи таблиці, що містить інформацію про національну кухню
CheckListBox1.Items.Add(nat_kuhn_nk.AsString); // Додаємо значення поля "назва" до списку
nat_kuh.Next // перехід до наступного запису
Аналогічно формуємо інші списки. Реалізація запитів відбувається в такий спосіб.
procedure Tmain.BitBtn1Click(Sender: TObject);
CheckBox2.Checked:= not CheckBox2.Checked; // скидаємо прапорець " Показати все "
case ListBox1.ItemIndex of // залежно від того, який критерій вибрано
if CheckListBox1.ItemIndex=-1 then exit; // якщо не вибрано значення зі списку, завершуємо процедуру
with DataModule2 do
nat_kuh.Locate('n_nk',CheckListBox1.Items[CheckListBox1.ItemIndex],[]); // у таблиці, яка містить список національних кухонь поточної стає запис, обраний користувачем у списку
ADOQuery1.SQL.Clear; // Очищаємо властивість SQL компонента
// формуємо текст SQL-запиту
ADOQuery1.SQL.Add('select * from sp_bluda where kod_nk='+IntToStr(nat_kuhkod_nk.AsInteger)); // вибираємо з таблиці довідника страв усі записи, де код національної кухні відповідає обраному пункту
ADOQuery1.Active:=true; // виконуємо запит
if CheckListBox1.ItemIndex=-1 then exit;
Аналогічно виконуємо запити за іншими критеріями. Особливості має запит за часом приготування. Розглянемо його.
4: with DataModule2 do // запит на час приготування
if ComboBox1.ItemIndex=-1 then exit; // якщо не вибрано зі списку значення "Більше", "Менше" або "Рівне"
if Edit1.Text='' then exit; // якщо не введено час
if ComboBox1.ItemIndex=0 then st:='>' else // заносимо в рядкову змінну знак