Информационная система рецептов "Властелин вкуса"

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

Информационная система рецептов «Властелин вкуса»

Введение

информационный программа рецепт

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

Программа может выполнять следующие функции:

1) Добавлять рецепты;

2) Изменять(редактировать) рецепты;

3) Удалять ненужные рецепты;

4) Вставлять изображения готовых блюд;

Для того чтобы написать курсовую работу были поставлены задачи:

1. Создать приложение «Властелин вкуса»;

2. Разработать интерфейс будущего программного продукта;

3. Собрать информацию по лекциям;

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

5. Протестировать проект на существующих версиях Windows, выявить ошибки и исправить их;

6. Создать установочный файл программного продукта.

Для разработки программы была выбрана среда разработки программ Embarcadero RAD Studio 2010 Delphi.

1. Техническое задание

1.1 Основания для разработки

информационный программа рецепт

Заданием курсовой работы было разработать приложение «Кулинарные рецепты». Приложение должно предоставлять пользователю всю необходимую информацию о блюде которое он выберет. Создаются множество программ, которые служат для предоставления какой-либо информации о блюдах и в общем о кулинарии. Данная программа облегчает работу пользователю быстрым и удобным интерфейсом, а также предоставлением информации о кухне. Такая программа легка в использовании. Использование подобной программы с целью узнать новые разновидности блюд и национальной кухни народов, уметь и научиться вкусно, быстро готовить.

1.2 Назначение разработки

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

1.3 Требования к аппаратному и программному обеспечению

Для функционирования данного приложения необходимо выполнение минимальных системных требований для использования Delphi:

1. Процессор семейства x86, х64.

2.ОЗУ - 512 Мб.

3. Операционная система

4.500 свободного места на жестком диске.

1.4 Используемые средства разработки

Данный курсовой проект был разработан в среде Delphi 10. Для красоты оформления программы использовался компонент SkinManager. Заставка графическая, создавалась с помощью программы AdobePhotoshop CS6.

2. Описание программы

2.1 Средства разработки программы

Программа «Кулинарные рецепты» сделана на языке программирования. Само приложение разработано в среде Embarcadero RAD Studio 2010. Embarcadero RAD Studio 2010 - это комплексное решение для быстрой разработки приложений Windows.NET, веб-приложений и приложений баз данных. Оно включает в себя Delphi®, C++Builder® и Delphi ®Prism™, позволяя создавать приложения для различных платформ Windows и баз данных до 5 раз быстрее. Инструменты RAD Studio значительно ускоряют создание приложений для настольных компьютеров, рабочих станций, сенсорных дисплеев, информационных терминалов и Интернета, поэтому их использует уже более 2 миллионов разработчиков. В состав этих средств входят быстрые компиляторы, визуальная среда для разработки приложений с пользовательским интерфейсом, платформа визуальных компонентов (VCL), а также обширные возможности для подключения к базам данных и службам. Сообщество партнеров и разработчиков предлагает тысячи дополнительных компонентов для каждого конкретного приложения, технологии, функции или задачи. Больше ни одно решение не обладает необходимой функциональностью, гибкостью и управляемостью для разработки качественных, высокопроизводительных приложений для такого количества платформ, источников данных, типов ПО, архитектур и пользователей.

Программирование с помощью RAD Studio более эффективно, чем на других платформах для быстрой разработки, таких как Visual Basic.NET или Java. Библиотека визуальных компонентов (VCL) инкапсулирует мощные готовые функции в удобные, расширяемые компоненты многократного применения.

Она полностью интегрирована в среду разработки и двусторонние визуальные конструкторы. Это облегчает управление компонентами через программный код и в визуальном режиме. В результате при разработке приложений с помощью библиотеки VCL приходится писать, отлаживать и тестировать до 5 раз меньше программных строк без ухудшения производительности или функциональных возможностей. Приложения, созданные с использованием библиотеки VCL, отличаются более высоким качеством, они удобнее в обслуживании и легче поддаются изменению. Визуальная двусторонняя среда для быстрой разработки приложений и библиотека визуальных компонентов. Мощные и быстрые компиляторы с поддержкой современных функций, в т. Ч. Обобщений, анонимных методов и атрибутов. Высокое быстродействие и незначительное потребление ресурсов во время выполнения, мощные интерактивные пользовательские интерфейсы, уникальные возможности для подключения к базам данных и службам, а также отсутствие громоздкой среды выполнения, такой как Visual Basic или Java.

Средства RAD Studio имеют встроенную поддержку касаний и жестов для нескольких платформ Windows. Они идеально подходят для создания современных интерактивных приложений, цифровых планшетов, информационных и торговых терминалов с сенсорным и мультисенсорным вводом.

*Точный контроль. В то время как другие подобные средства используют поддержку сенсорного ввода, заложенную в ОС или в настольной системе, RAD Studio позволяет контролировать сенсорный ввод на уровне форм, контейнеров и элементов управления.

*Поддержка операционных систем Windows 7, Windows Vista, Windows XP и Windows 2000.

*Поддержка различных способов ввода: традиционного сенсорного, мультисенсорного, с помощью пера и мыши.

*Более 30 стандартных жестов и возможность разрабатывать собственные жесты.

*Виртуальная сенсорная клавиатура с поддержкой нескольких языков.

Платформа RAD Studio DataSnap® и драйверы доступа к данным dbExpress™ позволяют создать одну систему и с ее помощью легко получать доступ к различным источникам данных. При этом обеспечивается поддержка специфических функций баз данных разных поставщиков без ухудшения их производительности и управляемости. В то время как другие средства быстрой разработки рассчитаны на определенную базу данных или архитектуру, либо используют «универсальные» методы подключения к данным, которые ограничивают производительность и возможности управления, открытая среда RAD Studio обладает гибкостью и эффективностью, необходимыми для создания высококачественных приложений.

*Проектное быстродействие баз данных Microsoft SQL Server, InterBase, DB2, Oracle, Sybase, MySQL, Firebird и т. Д.

*Драйверы dbExpress для доступа к нескольким источникам данных через одну систему

*Платформа DataSnap с поддержкой JSON, REST, COM, HTTP, TCP/IP и XML обеспечивает клиент - серверный и многоуровневый доступ практически к любой системе

Основные возможности для разработки приложений Windows:

*Интегрированная среда разработки Delphi и C++Builder с функцией перетаскивания мышью

*Более 250 компонентов в VCL

*Встроенная поддержка касаний и жестов (более 30 готовых жестов)

*dbExpress с поддержкой 9 основных баз данных, включая InterBase®

*Многоуровневое промежуточное ПО DataSnap с поддержкой JSON, REST, HTTP, COM и XML

*Возможность отладки многопоточных приложений

*UML/аудит кода и учет показателей

*Единая система для работы с Windows 2000, Windows Xp, Windows Vista и Window

Также в проекте использовались программы Microsoft Access 2010 и Adobe Photoshop.

Девиз Microsoft Access 2010 - это простота. Access 2010 позволит вам максимально эффективно работать с данными - для этого не нужно быть специалистом по базам данных. Благодаря новым добавленным веб-базам данных это приложение улучшает взаимодействие с данными, упрощая процессы их отслеживания, совместного использования и создания отчетов. Необходимо отметить что приложение Microsoft Access исключительно удобно в использовании благодаря готовым шаблонам и эффективным средствам, которые сохраняют свою важность по мере увеличения объема данных. Access 2010 позволяет эффективно работать с данными даже пользователям, не являющимся специалистами по базам данных. Кроме того, новые веб-базы данных расширяют возможности приложения Access, упрощая отслеживание сведений, их совместное использование и составление отчетов. Получить доступ к данным можно в любой момент через веб-браузер. В Access 2010 вы сможете быстро и легко создавать базу данных при этом забыв о дополнительном обучении.

Готовые шаблоны и компоненты для многократного использования делают Access 2010 простым и эффективным решением для работы с базами данных.

§ Чтобы начать работу, необходимо сделать лишь несколько щелчков мышью. Достаточно подобрать встроенные шаблоны, которые можно использовать в готовом виде без каких-либо изменений, или настроить шаблоны из коллекции на веб-сайте Office.com в соответствии с конкретными требованиями.

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

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

Adobe Photoshop это супер мощная программа для создания и редактирования изображении. С помощью этой программы создаются такие невероятные рисунки.

Эту программу выпускает компания Adobe, и ее полное название Adobe Photoshop. Сама программа Photoshop уже выпускается более 20 лет, нынешние версий этой программы имеют приставку CS. Самая последняя версия CS6.

Но если сказать честно, для таких смертных людей как мы с вами, версии CS2-CS6 мало чем отличаются. Конечно есть отличия, но это так сказать экспертные отличия.

Основные возможности Adobe Photoshop:

· Поддержка большинства растровых и некоторых векторных графических. форматов

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

· Поддержка цветовых моделей RGB, LAB, CMYK, Градации серого, Черно-белое, Duotone, Indexed, Multichannel.

· Глубина цвета изображений: 8 бит, 16 бит, 32 бита.

· Специальные инструменты для создания меню DVD.

· Поддержка графических планшетов.

· В расширенной версии программы (Adobe Photoshop Extended) можно открывать и редактировать трехмерные модели.

· Широкие возможности для анимации.

· Работа со скриптами.

· Огромный набор фильтров.

Достоинства:

· Поддержка всех основных форматов изображений.

· Огромный функционал как для редактирования изображений, так и для создания своих собственных.

· Поддержка графических планшетов.

· Расширяемость при помощи плагинов.

· Имеется бесплатная онлайн версия - Adobe Photoshop Express.

Недостатки:

· Нет поддержки Linux систем.

· Трудный для освоения начинающими.

· Высокая цена.

Вывод:

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

2.2 Компоненты, используемые в проекте

Форма - это важнейший визуальный компонент. Формы представляют собой видимые окна Windows и являются основной частью практически любого приложения. Термины «форма» и «окно» - синонимы, т.е. обозначают одно и то же. Для работы с формой предназначен компонент Form класса TForm. С создания формы начинается конструирование приложения. В форме размещаются визуальные компоненты, образующие интерфейсную часть приложения, и системные (не визуальные) компоненты. Таким образом, в системе Delphi форма является компонентом, который служит контейнером для всех других компонентов. В принципе можно создать и безоконное приложение, однако большинство приложений все же имеет видимое на экране окно, содержащее интерфейсную часть приложения.

Приложение может иметь несколько форм, одна из которых считается главной и при запуске программы отображается первой. При закрытии главного окна (формы) приложения прекращается работа всего приложения, при этом также закрываются все другие окна приложения. В начале работы над новым проектом Delphi по умолчанию делает главной первую форму (с первоначальным названием Form1).

Компонент Panel представляет собой панель, на поверхности которой можно поместить другие компоненты (рис 1).

информационный программа рецепт

Рисунок 1. Компонент Panel

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

Некоторые свойства Panel

Caption	текст, выводимый в центре панели.
Align	определяет границу формы, к которой привязана(прикреплена) панель. Она может быть прикреплена к левой(alLeft), правой(alRight), верхней(alTop) и нижней(alBottom) границе
BevelOuter	внешняя фаска панели. Если значение свойства равно bvNone, то фаска не отображается и поверхность панели находится на одном уровне с поверхностью формы, если значение равно bvLowered, то поверхность панели протоплена, если свойство равно bvRaised, то поверхность панели выступает над поверхностью формы
BevelCut	определяет вид внутренней кромки если значение равно bvNone, то кромки нет, если bvLowered - кромка вдавленная, если bvRaised - кромка приподнятая
BevelInner	определяет вид внешней кромки, если значение равно bvNone, то кромки нет, если bvLowered - кромка вдавленная, если bvRaised - кромка приподнятая
BevelWidth	толцина кромки
Enabled	свойство позволяет сделать недоступным все компоненты находящиеся на панели

Компонент MainMenu (главное меню) располагается на странице Standard Палитры инструментов. Почти у всех современных Windows приложениях имеется меню, как необходимый элемент интерфейса. Меню представляет из себя список из пунктов объединенных по функциональному признаку. Пункт меню обозначает или вложенное подменю, или конкретную команду. При выборе пункта меню мы выполняем соответствующую этому пункту команду или раскрываем подменю.

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

Выбор в форме mainmenuОбычно в приложении имеется одно главное меню и его имя автоматически задается в свойстве формы Menu Инспектора объектов. Но если необходимо можно разместить на форме и несколько компонентов главного меню с разными наборами пунктов, которые будут соответствовать различным режимам работы программы. Тогда при проектировании свойству Menu формы присваивается ссылка на одно из этих меню. А в процессе работы, когда это необходимо это свойство можно изменять, изменяя соответственно состав главного меню программы.

Основное свойство главного меню - это Items. Его заполнение происходит в редакторе меню, который вызывается двойным щелчком на компоненте или на многоточии напротив соответствующего пункта в Инспекторе объектов. Для добавления нового пункта меню можно воспользоваться клавишей Insert или заполнить свойство Caption у последней нижней ячейки. Удалить ненужный пункт меню можно клавишей Delete.

Компонент ComboBox представляет собой комбинацию поля редактирования (Edit) и список (ListBox), что дает возможность ввести данные путем набора на клавиатуре или выбора из списка. Работа.

ComboBox почти не отличается от работы со списком ListBox. Отличие заключается только тем, что можно выбрать один элемент списка и данный элемент отображается в поле редактирования списка (в свойстве Text). Компонент ComboBox дает возможность сделать пользователю выбор необходимой строки или прописать свою строку в качестве выбора (рис 2)

Рисунок 2. Компонент ComboBox

При нажатии на стрелку появляется выпадающий список похожий ListBox. С помощью компонента ComboBox место на форме программы экономится для размещения других элементов. При необходимости раскрытие можно вообще запретить с помощью свойства Style описанном ниже.

Свойства ComboBox

DropDownCount	количество элементов, отображаемые в раскрытом списке, если это количество больше значения DropDownCount, то появляется полоса прокрутки Font шрифт назначенный для отображения элементов списка
Font	шрифт назначенный для отображения элементов списка
Height	высота компонента
Left	расстояние от левой границы компонента ComboBox до левой границы формы
Top	расстояние от верхней границы компонента ComboBox до верхней границы формы
Items	элемент списка - массив строк. Заполнить его можно во время проектирования нажав на многоточие около этого свойства в окне Oject Inspectror, для работы со свойством Items во время выполнения программы используются методов приведенных в предыдущей статье ListBox
ItemIndex	номер элемента, выбранный из списка (нумерация элементов начинается с нуля), если ни одного элемента из списка не выбрано, то значение этого свойства равно -1
Name	имя компонента
Sorted	автоматически сортирует список после добавления очередного элемента
Style	вид компонента: csDropDown - поле ввода и раскрывавшийся список (данные можно ввести в поле редактирования или выбрать из списка; csSimple - только поле редактирования; csDropDownList - только раскрывавшийся список
Text	текст находящийся в поле редактирования
Width	ширина компонента
ParentFont	признак наследования свойства шрифта родительской формы

Компонент PopupMenu (не визуальный компонент) - это Контекстное меню, вызываемые в приложениях Windows при нажатии правой кнопкой мыши, и является стандартными возможностями большинства программ (рис 3).

Рисунок 3. Всплывающее меню

Компонент PopupMenu предназначен для создания вот таких меню. Это меню из-за способа своего появления при клике называют ещё всплывающим меню. Компонент PopupMenu во многом похож на MainMenu но в отличии от него, всплывающих меню можно быть несколько штук на форме, у каждого компонента свое меню. После того как размешаем компонент на форме создаем, с помощью специального редактора вызываемое двойным щелчком по компоненту PopupMenu или нажатием кнопки рядом со свойством Items в окне Oject Inspectror, пункты меню. Создание этих пунктов во многом похоже на создание пунктов меню в MainMenu различие заключается только в расположении, здесь они размешены вертикально а не горизонтально. Так же в это меню как и в MainMenu можно вставить изображения.

Компонент Image предназначен для отображения на форме графических изображений по умолчанию выводит на поверхность формы изображения представленных в bmp формате. Для вывода изображений в jpg формате необходимо в дерективе uses подключить модуль JPEG. После размещения на форме компонента Image, он принимает вид выделенной прямоугольной области.

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

Компонент Edit предназначен для ввода пользовательских данных и представляет собой однострочное поле.

Компонент WebBrowser предназначен для открытия и просмотра HTML (HTM) документов.

Компонент DBGrid - это визуальный компонент среды Delphi, предназначен для визуализации наборов данных. Этот компонент находиться на странице компонентов DataControls палитры компонентов. Класс TDBCustomGrid и класс TCustomGrid - это родительские классы компонента DBGrid. Компонент делиться на столбцы (поля ввода данных) и строки (записи).

Свойства DBGrid

Свойства	Описание
DataSource	В этом свойстве указывают имя компонента DataSource для связи БД с компонентом DBGrid
Columns	Хранит в себе коллекцию состоящих из столбцов таблицы. Позволяет для каждого столбца применить индивидуальные свойства например цвет.
Options	Определяет параметры отображения таблицы: · dgEditing - Делает возможность править данные прямо в таблице. Этот значение игнорируется, при включенном флаге dgRowSelect; · dgAlwaysShowEditor - Таблица будет находиться в режиме редактирования. Если False то пользователь должен будет активировать сам редактирование щелчком мышы по полю или нажимать F2, Enter; · dgTitles - Делает видными заголовки столбцов; · dgIndicator - Добавляет еще одну колонку, в которой будут выводиться индикатор выбранной записи; · dgColumnResize - Дает возможность изменить размеры столбцов пользователю; · dgColLines - Столбцы будут разделены линиями; · dgRowLines - строки будут разделены линиями; · dgTabs - Дает возможность навигации по ячейкам при помощи клавиш Tab и Shift+Tab; · dgRowSelect - Записи будут выделяться целиком; · dgAlwaysShowSelection - Выбираемая ячейка будет выделяться цветом даже если фокус ввода находится не на таблице; · dgConfirmDelete - Позволяет выводить предупреждение, если пользователь будет удалять запись в таблице; · dgCancelOnExit - Предотвращает запись пустых ячеек; · dgMultiSelect - Дает возможность выбора нескольких записей при удержании Ctr).
ReadOnly	Задает параметр разрешающий или запрещающий пользователю редактировать данные в таблице
TitleFont	Задает шрифт, выводимых заголовков столбцов таблицы
FixedColor	Задает цвет неподвижных ячеек таблицы

3. Руководство пользователя

3.1 Общие сведения о работе программы

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

3.2 Работа с программой

Запуск программы осуществляется по двойному щелчку по иконке

Рисунок 4. Ярлык программы

После чего открывается заставка программы (рис. 5)

Рисунок 5. Заставка

Спустя несколько секунд после ее появления открывается главная форма программы (рис. 6)

Главная форма программы «Властелин вкуса»

Рисунок 6. Главная форма программы

На главной форме (рис. 6) вы можете добавить, найти любой рецепт интересующий вас, после чего нажав кнопку файл появляется всплывающее окно, в котором вы можете добавить, изменить и удалить рецепты.

Главное меню программы состоит из следующих пунктов: Файл, Интересующие факты, Ещё рецепты, Помощь, Выписка.

Рисунок 7. Вкладки Файл и Ещё рецепты

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

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

Рисунок 8. Вкладка интересные факты

На вкладке Интересные факты нажав на неё появляется история о кулинарии, известных шеф-поваров, а также исторические факты о создании блюд, что очень интересно.

Рисунок 9. Вкладка Помощь

На вкладке помощь мы видим два подраздела это - Справка и О программе.

Нажав на вкладку Справка появляется информация о созданном проекте.

Рисунок 10. Подраздел Справка

В справке вы можете прочитать все свойство программы, из чего она состоит, что представляет из себя.

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



Рисунок 11. О программе

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

Рисунок 12. Выписка

Нажав на подраздел Рецептура, начинается переход в текстовый документ, где в итоге выходит рецепт.

Рисунок 13. Текстовый документ

Заключение

Результатом выполненной работы является создание проекта на тему «Кулинарные рецепты». Предназначенного для работы под управлением операционной системы Windows. Написанная программа реализует функции, такие как:

1) Добавляет рецепты:

2) Изменяет рецепты;

3) Вставка изображения готовых блюд;

4) Удаляет рецепты из базы данных;

При выполнении курсовой работы были закреплены знания о работе с различными компонентами в Embarcadero RAD Studio 2010 Delphi и изучены новые методы и принципы программной работы с файлами. Также были получены знания в сфере Adobe Photoshop, укреплены знания в сфере работы с базой данных в Microsoft Access 2010.

Список использованных источников

1. Фленов М.Е. Библия Delphi. - СПб 2005 г. // Delphi и базы данных стр. 423 - 504.

2. Архангельский А.Я. Delphi 2006 Справочное пособие. Язык Delphi, классы, функции Win32 и Net. - М. 2006 г. // стр. 112, 118

3. В. Пономарев «Базы данных в Delphi. Самоучитель, 2003 г. стр. 96-162.

4. http:// culinar.ivest.kz/

Приложение

unit Unit3;

interface

uses

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

Dialogs, StdCtrls, Grids, DBGrids, DBCtrls, Menus, ExtCtrls, sSkinManager, shellapi, ComObj;

type

TForm3 = class(TForm)

DBGrid1: TDBGrid;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

Panel1: TPanel;

Edit1: TEdit;

Button1: TButton;

Panel2: TPanel;

DBMemo1: TDBMemo;

DBMemo2: TDBMemo;

DBImage1: TDBImage;

ComboBox1: TComboBox;

sSkinManager1: TsSkinManager;

N8: TMenuItem;

B1: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

procedure N7Click (Sender: TObject);

procedure N2Click (Sender: TObject);

procedure N3Click (Sender: TObject);

procedure N4Click (Sender: TObject);

procedure Edit1Change (Sender: TObject);

procedure FormCreate (Sender: TObject);

procedure N6Click (Sender: TObject);

procedure N8Click (Sender: TObject);

procedure B1Click (Sender: TObject);

procedure N10Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form3: TForm3;

implementation

uses ABOUT, Unit5, Unit6, Unit4, Splash, Unit7, Unit8;

{$R *.dfm}

procedure TForm3.B1Click (Sender: TObject);

begin

form8.show;

end;

procedure TForm3. Edit1Change (Sender: TObject);

begin

if Length (Edit1. Text) > 0 then

begin

{DataModule4.ADOTable1. Filtered:=false;

DataModule4.ADOTable1. Filter:=Combobox1. Text + ' LIKE ' + #39 + Edit1. Text + ' % ' + #39;

DataModule4.ADOTable1. Filtered:=true;}

end

else DataModule4.ADOTable1. Filtered:=false;

end;

procedure TForm3. FormCreate (Sender: TObject);

begin

fmsplash.show;

fmsplash.repaint;

sleep(2000);

fmsplash.hide;

fmsplash.free;

end;

procedure TForm3.N10Click (Sender: TObject);

var wordapp, document, book, table:variant; Shape, wordtable: OleVariant;

begin

wordapp:=createoleobject ('word. Application');

wordapp.visible:=false;

wordapp.documents.add (ExtractFilePath(Application. ExeName)+'1.docx');

wordapp.selection.goto (-1, unassigned, unassigned, 'Nazvanie');

wordapp.selection. TypeText (datamodule4. Adotable1. Fields.fields[1].asstring);

wordapp.selection.goto (-1, unassigned, unassigned, 'Sostav');

wordapp.selection. TypeText (datamodule4. Adotable1. Fields.fields[2].asstring);

wordapp.selection.goto (-1, unassigned, unassigned, 'Prigotovlenie');

wordapp.selection. TypeText (datamodule4. Adotable1. Fields.fields[3].asstring);

wordapp.selection.goto (-1, unassigned, unassigned, 'Vid');

wordapp.selection. TypeText (datamodule4. Adotable1. Fields.fields[4].asstring);

wordapp.selection.goto (-1, unassigned, unassigned, 'Kuhnya');

wordapp.selection. TypeText (datamodule4. Adotable1. Fields.fields[5].asstring);

wordapp.visible:=true;

end;

procedure TForm3.N2Click (Sender: TObject);

begin

Form5. ShowModal;

end;

procedure TForm3.N3Click (Sender: TObject);

begin

form6. ShowModal;

end;

procedure TForm3.N4Click (Sender: TObject);

begin

if MessageDlg ('Удалить рецепт?', mtWarning, [mbYes, mbNo], 0)=mrYes then datamodule4.adotable1.delete;

end;

procedure TForm3.N6Click (Sender: TObject);

begin

form7.show;

end;

procedure TForm3.N7Click (Sender: TObject);

begin

AboutBox. Show;

end;

procedure TForm3.N8Click (Sender: TObject);

begin

ShellExecute (Application. Handle, nil, 'http://culinar.ivest.kz/', nil, nil, SW_SHOWNOACTIVATE);

end;

uses

SysUtils, Classes, DB, ADODB;

type

TDataModule4 = class(TDataModule)

ADOConnection1: TADOConnection;

DataSource1: TDataSource;

ADOTable1: TADOTable;

private

{Private declarations}

public

{Public declarations}

end;

var

DataModule4: TDataModule4;

implementation

{$R *.dfm}

end.

nit Unit5;

interface

uses

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

Dialogs, DBCtrls, StdCtrls, Mask, ExtDlgs;

type

TForm5 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

DBMemo1: TDBMemo;

DBMemo2: TDBMemo;

Button1: TButton;

Button2: TButton;

DBImage1: TDBImage;

DBEdit1: TDBEdit;

Label5: TLabel;

DBEdit2: TDBEdit;

OpenPictureDialog1: TOpenPictureDialog;

procedure Button2Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form5: TForm5;

implementation

uses Unit4;

{$R *.dfm}

procedure TForm5. Button1Click (Sender: TObject);

begin

if OpenPictureDialog1. Execute then DBImage1. Picture. LoadFromFile (OpenPictureDialog1. FileName);

end;

procedure TForm5. Button2Click (Sender: TObject);

begin

if DataModule4. AdoTable1.modified then DataModule4.adotable1.POST;

close;

end;

end.

unit Unit6;

interface

uses

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

Dialogs, ExtDlgs, StdCtrls, DBCtrls, Mask;

type

TForm6 = class(TForm)

DBMemo2: TDBMemo;

DBImage1: TDBImage;

Button2: TButton;

Button1: TButton;

DBMemo1: TDBMemo;

Label6: TLabel;

Label4: TLabel;

Label3: TLabel;

Label2: TLabel;

Label1: TLabel;

OpenPictureDialog1: TOpenPictureDialog;

DBEdit1: TDBEdit;

Label5: TLabel;

DBEdit2: TDBEdit;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form6: TForm6;

implementation

uses Unit4;

{$R *.dfm}

procedure TForm6. Button1Click (Sender: TObject);

begin

if OpenPictureDialog1. Execute then DBImage1. Picture. LoadFromFile (OpenPictureDialog1. FileName);

end;

procedure TForm6. Button2Click (Sender: TObject);

begin

if DataModule4. AdoTable1.modified then DataModule4.adotable1.POST;

close;

end;

end.

unit Unit7;

interface

uses

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

Dialogs, OleCtrls, SHDocVw;

type

TForm7 = class(TForm)

WebBrowser1: TWebBrowser;

procedure FormCreate (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form7: TForm7;

implementation

{$R *.dfm}

procedure TForm7. FormCreate (Sender: TObject);

begin

WebBrowser1. Navigate (ExtractFilePath(Application. ExeName)+'help.htm');

end;

end.

nit Unit8;

interface

uses

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

Dialogs, OleCtrls, SHDocVw;

type

TForm8 = class(TForm)

WebBrowser1: TWebBrowser;

procedure FormCreate (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form8: TForm8;

implementation

{$R *.dfm}

procedure TForm8. FormCreate (Sender: TObject);

begin

WebBrowser1. Navigate (ExtractFilePath(Application. ExeName)+'facty.htm');

end;

end.

Размещено на Allbest.ru