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

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

Вместе с тем, экономическая эффективность ИС определяется годовым приростом прибыли (годовой экономией), достигнутым в результате функционирования (внедрения) ИС, коэффициентом экономической эффективности и сроком окупаемости затрат на создание ИС.

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

Эобщ = Экосв + Эпр

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

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

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

Можно выделить три вида косвенного эффекта:

- совершенствование выполнений функций управления;

- улучшение конечных результатов деятельности предприятий;

- эффект, получаемый на объектах, связанных с данным предприятием. Эффект первого вида проявляется в аппарате управления, второго - в сфере производства, третьего - за пределами данного предприятия.

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

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

3.2 Расчет экономической эффективности внедрения автоматизированной системы «Кафе»

Для подсчета объема средств, требуемых для разработки необходимо рассчитать стоимость персонального компьютера и периферийных устройств, расходных материалов, амортизацию оборудования, стоимость программного обеспечения (в данном случае это операционная система MS Windows XP, программное обеспечение и т.д.) и оплату труда программиста.

Подсчет стоимости программиста будет произведен из расчета 25 тысяч тенге в месяц. Тогда оплата составит:

- при нормальном ходе событий разработка длится 2,5 месяца, и оплата труда программиста составит 25000 * 2,5 = 62500 тенге;

- в случае возникновения неблагоприятных обстоятельств разработка длится 3,5 месяца, и оплата труда составит 25000 * 3,5 = 87500 тенге;

- при благоприятном ходе событий разработка длится 2 месяца, и оплата труда программиста составит 25000 * 2 = 50000 тенге.

Заработная плата облагается социальным налогом. В соответствии с действующим законодательством. Ставка социального налога составляет 21%. Сумма социального налога состав

- при нормальном ходе событий тенге;

- в случае возникновения неблагоприятных обстоятельств тенге

- при благоприятном ходе событий тенге.

Рассчитаем амортизацию оборудования, то есть персонального компьютера. Первоначальная стоимость персонального компьютера AMD Sempron 2200 МГц, 768 Мбайт ОЗУ, HDD 120 Гб, 52х CD-R\RW\DVD-R\RW ROM составляла 100000 тенге. Первоначальная стоимость видеоплаты MiroSystem DC10+ составляла 80000 тенге.

Месячную норму амортизации можно рассчитать по формуле:

, (1)

где Н_А - месячная норма амортизации, %;

СЭ - срок эксплуатации оборудования, лет.

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

Тогда месячная норма амортизации равна%

Сумму амортизационных отчислений за период можно вычислить по формуле:

, (2)

где С_А - сумма амортизационных отчислений за месяц, тенге;

С_Т - первоначальная стоимость оборудования, тенге;

Н_А - месячная норма амортизации, %

К - количество месяцев.

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

- при нормальном ходе событий

тенге;

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

тенге;

- при благоприятном ходе событий

тенге.

Месячная сумма амортизационных отчислений для видеоплаты составит:

- при нормальном ходе событий:

тенге;

- в случае возникновения неблагоприятных обстоятельств

тенге;

- при благоприятном ходе событий

тенге.

Итого амортизационных отчислений:

- при нормальном ходе событий 5250 + 4200 = 9450 тенге;

- в случае возникновения неблагоприятных обстоятельств 7350 + 5880 = 13230 тенге;

- при благоприятном ходе событий 4200 + 3360 = 7560 тенге.

Затраты на получение лицензии постоянны и от обстоятельств не зависят. Затраты на рекламу не требуют специального подсчета. Результаты приведены в таблице24.



Таблица 2. Объем денежных средств, необходимых для реализации проекта

Статья затрат	Сумма, тенге
	При нормальном ходе событий	С учетом неблагоприятных обстоятельств	При благоприятном ходе событий
Оплата труда разработчика	62500	87500	50000
Социальный налог	13125	18375	10500
Амортизация оборудования	9450	13230	7560
Реклама готового продукта	10000	15000	7000
Получение лицензии, подтверждающее авторское право
право разработчика на данный продукт	5000	5000	5000
Итого:	100075	139105	80060

Необходимо установить цену программного продукта с учетом 40% годовой нормы прибыли и полугодовым сроком окупаемости программного обеспечения. При этом все вычисления будут делаться из расчета 4 клиента в год, то есть 2 клиента за полгода. Цена будет складываться из следующих составляющих:

- затраты на разработку продукта;

- стоимость внедрения;

- заработная плата программиста;

- реклама;

- налог на добавленную стоимость;

- норма прибыли.

Цена будет рассчитана из этих составляющих. Поскольку срок внедрения программного обеспечения составляет 1 месяц, то необходимо учесть заработную плату программиста за 2 месяца (2 клиента за полгода). Согласно действующему налоговому законодательству, ставка налога на добавленную стоимость составляет 16%. Годовая норма прибыли составляет 40%, следовательно, полугодовая норма составляет 20%. С учетом всех этих показателей и будет рассчитана стоимость программного обеспечения.

Необходимо привести методику расчета стоимости программного продукта.

Сумма расходов по реализации программного продукта рассчитывается по формуле:

СБ = Р + СВ + ЗП + РКЛ, (3)

Где СБ - сумма расходов по реализации программного продукта, тенге;

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

ЗП - заработная плата программиста, тенге;

РКЛ - текущие расходы на рекламу, тенге.

Сумма дохода от реализации программного продукта с учетом нормы прибыли рассчитывается по формуле:

, (4)

где СП - сумма дохода от реализации программного продукта с учетом нормы прибыли, тенге;

СБ - сумма расходов по реализации программного продукта, тенге;

НП - норма прибыли, %.

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

, (5)



где СНДС - сумма дохода от реализации программного продукта с учетом налога на добавленную стоимость, тенге;

СП - сумма дохода от реализации программного продукта с учетом нормы прибыли, тенге;

Ставка НДС - ставка налога на добавленную стоимость согласно действующему налоговому законодательству, %.

Стоимость программного продукта можно получить, разделив доход от его реализации на количество клиентов:

, (6)

где С - стоимость программного продукта, тенге;

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

К - количество клиентов.

Таблица 3. Расчет стоимости программного продукта

Составляющая цены	Сумма, тенге
	При нормальном ходе событий	При наличии неблагоприятных обстоятельств	При благоприятном ходе событий
Расчет стоимости программного продукта с учетом внедрения
Расходы на разработку, лицензирование и рекламу программного обеспечения	100075	139105	80060
Стоимость внедрения без учета налога на добавленную стоимость (для двух клиентов)	70000	70000	70000
Заработная плата программиста (за два месяца)	50000	50000	50000
Реклама (из расчета 2000 тенге в месяц)	12000	12000	12000
Расходы по реализации программного продукта	232075	271105	212060
Сумма дохода от реализации программного продукта с учетом нормы прибыли	278490	325326	254472
Сумма дохода от реализации программного продукта с учетом нормы прибыли и налога на добавленную стоимость	323048	377378	295187
Стоимость программного продукта	161524	188689	147593
Стоимость программного продукта без учета внедрения
Стоимость одного внедрения	35000	35000	35000
Стоимость одного внедрения с учетом налога на добавленную стоимость	40600	40600	40600
Стоимость программного продукта без учета внедрения	120924	148089	106993

С учетом возможного финансового риска (изменение ставки налога, инфляция) и необходимости разработки системы скидок, средняя цена программного продукта будет увеличена до 200000 тенге с учетом внедрения и 150000 тенге без внедрения. Указанная цена может варьироваться от 180000 до 220000 тенге в зависимости от сложности ситуации.

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

В первый год после разработки программного продукта планируется привлечь, как минимум, четырех клиентов. Следовательно, годовой доход от реализации и внедрения программного обеспечения составит, как минимум, от 600000 до 800000 тенге. Кроме того, предполагается, по крайней мере, два клиента заключат договоры на сопровождение на срок до 2 месяцев, а остальным клиентам могут потребоваться разовые консультации. Сумма дополнительного дохода составит около 180000 тенге. Из этой суммы необходимо вычесть расходы (заработанную плату программиста, стоимость разработки продукта). Необходимо также учесть вероятность появления неблагоприятных обстоятельств, которые могут снизить доход (меньшее количество клиентов, договоров на внедрение и сопровождение, более длительный срок внедрения). Благоприятный ход событий, напротив, может способствовать увеличения дохода и росту количества клиентов. Анализ доходности представлен в таблице 4.

Таблица 4. Анализ годового дохода от реализации и внедрения

	Сумма, тенге
	При нормальном ходе событий	При наличии неблагоприятных обстоятельств	При благоприятном ходе событий
Доходы
Доход от реализации и внедрения программного обеспечения	800000	800000	800000
Договоры на сопровождение и разовые консультации	176000	80000	200000
Итого доходов	976000	680000	1000000
Расходы
Заработная плата программиста	100000	150000	110000
Социальный налог на заработную плату программиста (21% от суммы заработной платы)	21000	31500	15750
Реклама	24000	24000	24000
Стоимость разработки, рекламы и лицензирования программного обеспечения	100075	139105	80060
Сумма налога на добавленную стоимость	156160	108800	32000
Итого расходов	401235	453405	261810
Чистый доход или убыток (разность доходов и расходов)
	574765	226595	738190



Оценка риска

В любом случае будет получен доход, больший или меньший. Но необходимо оценить степень риска. В данном случае риск может быть сопряжен со следующими факторами:

- увеличение налога на добавленную стоимость;

- увеличение социального налога;

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

Риск будет оцениваться для наихудшего варианта развития событий, приведенного в таблице 33 Для выяснения степени риска предполагается, что ставка налога на добавленную стоимость будет составлять 20 процентов, ставка социального налога составит 21 процент. А зарплата программиста будет увеличена с 25000 до 35000 тенге. Результаты оценки степени риска приведены в таблице 5.

Таблица 5. Результаты оценки степени риска

Фактор, увеличивающий степень риска	Сумма без учета фактора степени риска, тенге	Сумма с учетом фактора риска, тенге	Сумма, на которую увеличиваются расходы, тенге
Увеличение ставки налога на добавленную стоимость до 20 процентов	162667	113333	49334
Увеличение заработной платы программиста	150000	210000	60000
Увеличение ставки социального налога до 25 процентов с учетом увеличившейся заработной платы программиста	31500	52500	20000
Итого сумма увеличения расходов:	129334

В таблице 5 была указана сумма чистого дохода для наихудшего случая (наличие неблагоприятных обстоятельств). Из таблицы видно, что даже если будут иметь место все три фактора риска, прибыль будет получена.

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

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

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

Таблица 6. Поквартальный прогноз количества договоров

	Период
	Первый год	Второй год
	II кв.	III кв.	IIII кв.	VIVкв.	II кв.	III кв.	IIII кв.	IIV кв.
Количество договоров на приобретение и внедрение программного обеспечения	1	1	1	1	1	1	2	2
Количество договоров на сопровождение программного обеспечения	0	1	2	1	2	3	3	4
Количество разовых консультаций	0	10	10	15	15	20	30	45

Таблица 6 составлена с учетом того, что количество привлеченных клиентов в первый год равно четырем, а во второй - шести.

На основе расчетов, приведенных в разделе «Затраты на разработку проекта» разработан план доходов и расходов, приведенный в таблице 7.

Таблица 7. Анализ доходов и расходов от продажи, внедрения и сопровождения программного обеспечения

	Сумма, тенге
	Первый год	Второй год	Итого
	IIкв.	IIIкв.	IIIIкв.	IIVкв.	IIкв.	IIIкв.	IIIIкв.	IVкв.
Доходы
Продажа и внедрение	200000	200000	200000	200000	200000	200000	400000	400000	2000000
Сопровождение	0	30000	60000	30000	60000	90000	90000	120000	4800000
Разовые консультации	0	16000	16000	24000	24000	32000	48000	72000	232000
Итого доходов	200000	246000	276000	254000	284000	284000	322000	538000	2712000
Расходы
Заработная плата	25000	25000	25000	25000	25000	25000	50000	50000	250000
Социальный налог	5250	5250	5250	5250	5250	5250	10500	10500	52500
Реклама	6000	6000	6000	6000	6000	6000	6000	6000	48000
Стоимость разработки, рекламы и лицензирования программного обеспечения	56250	56250	0	0	0	0	0	0	112500
Сумма налога на добавленную стоимость	27586	33931	38069	35034	39172	44414	74207	81655	374068
Итого расходов	120086	126431	74319	71284	75422	80664	140707	148155	837068
Чистый доход	79914	119569	201681	182716	208578	241356	397293	443845	1874932

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



Заключение

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

Для достижения поставленной цели дипломной работы были решены следующие задачи:

- проведено исследование деятельности рассматриваемого предприятия, описаны его основные бизнес-процессы, обоснована необходимость разработки АРМ;

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

- спроектирована информационная база программного решения;

- реализовано программное решение и приведен контрольный пример;

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

Объектом исследования выступает предприятие общественного питания кафе.

Система обеспечивает:

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

- отчеты по заказам (по сотрудникам, по клиентам, по категориям, по ассортименту);

- формирование отчетов по персоналу и клиентам;

- формирование личной карточки для сотрудников и клиентов;

- формирование прайс-листа;

- формирование чека для каждой реализации;

- расчет выплат сотрудникам (оклад + возможен процент от продаж).

При разработке системы особое внимание уделялось эргономике и созданию действительно дружественного пользовательского интерфейса. Система имеет мастер (wizard) для удобной регистрации продаж.

В дипломном проекте выполнен расчет экономической эффективности применения информационной системы, и срок окупаемости созданного программного продукта.

Для реализации программного решения было предложено использовать среду программирования Delphi и базу данных Access.

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

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

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

1. Аакер, Д. Стратегическое рыночное управление. - 7-е изд., пер. с англ./ под ред. С.Г. Божук/ Д. Аакер. - СПб.: Питер, 2007.

2. Автоматизированные информационные технологии в экономике. Учебник. Под ред. Г.А. Титоренко. М.: ЮНИТИ. 2002 г.

3. Аникин, Б.А. Высший менеджмент для руководителя: уч. пособие/ Б.А. Аникин. - М.: ИНФРА-М, 2000.

4. Балдин, К.В. Информационные системы в экономике/ К.В. Балдин, В.Б. Уткин. - М.: ИТК «Дашков и Ко», 2004.

5. Бородакий, Ю.В. Информационные технологии. Методы, процессы, системы/ Ю.В. Бородакий, Ю.Г. Лободинский. - М.: Радио и связь, 2002.

6. Васильев, Г.А. Управленческое консультирование: учеб. пособие/ Г.А. Васильев, Е.М. Деева. - М.: ЮНИТИ-ДАНА, 2004.

7. Веревченко, А.П. Информационные ресурсы для принятия решений: уч. пособие/ А.П. Веревченко, В.В. Горчаков, И.В. Иванов, О.В. Голодова. - М.: Академический Проект; Екатеринбург: Деловая книга, 2002. - 560 с.

8. Годин, В.В. Информационное обеспечение управленческой деятельности: учебник/ В.В. Годин, И.К. Гордеев. - М.: Мастерство: Высшая школа, 2001.

9. Гущина, И.Э. Управленческий учет: основы теории и практики: уч. посо-бие/ И.Э. Гущина, Н.М. Балакирева. - М.: КНОРУС, 2004.

10. Дейт К., «Введение в системы баз данных», М.:, «Hаука», 2006 г.

11. Джеффри Д. Ульман, Дженнифер Уидом. Основы реляционных баз данных. М.: «Лори», 2007 г.

12. Избачков Ю., Петров В. Информационные системы 2-е издание ПИТЕР, 2005 г.



Приложение

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

Модуль «Главное окно программы»

unit Restaurant;

interface

uses

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

Dialogs, DB, Grids, DBGrids, DBTables, Menus, StdCtrls, DBCtrls, RpCon,

RpConDS, RpDefine, RpRave, jpeg, ExtCtrls;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N4: TMenuItem;

Image1: TImage;

N9: TMenuItem;

procedure N6Click (Sender: TObject);

procedure N8Click (Sender: TObject);

procedure N7Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

procedure N2Click (Sender: TObject);

procedure N3Click (Sender: TObject);

procedure Image1Click (Sender: TObject);

procedure N4Click (Sender: TObject);

procedure FormClose (Sender: TObject; var Action: TCloseAction);

procedure N9Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8;

{$R *.dfm}

procedure TForm1.N6Click (Sender: TObject);

begin

Form2. Show;

end;

procedure TForm1.N8Click (Sender: TObject);

begin

Form1. Close;

end;

procedure TForm1.N7Click (Sender: TObject);

begin

Form3. Show;

end;

procedure TForm1. FormCreate (Sender: TObject);

begin

Form4:=TForm4. Create(Application); {Создание формы для заставки}

Form4. ShowModal; {Показать форму модально}

Form4. Free; {Закрыть форму с заставкой}

end;

procedure TForm1.N2Click (Sender: TObject);

begin

Form5. Show;

end;

procedure TForm1.N3Click (Sender: TObject);

begin

Form6. Show;

end;

procedure TForm1. Image1Click (Sender: TObject);

begin

Form7. Show;

end;

procedure TForm1.N4Click (Sender: TObject);

begin

Form7. Show;

end;

procedure TForm1. FormClose (Sender: TObject; var Action: TCloseAction);

begin

if MessageDlg ('Вы действительно хотите выйти из программы?', mtConfirmation,

[mbYes, mbNo], 0) = mrYes then

begin

Action:= caFree

end

else

Action:= caNone;

end;

procedure TForm1.N9Click (Sender: TObject);

begin

Form8. Show;

end;

end.

Модуль «О программе»

unit Unit2;

interface

uses

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

Dialogs, StdCtrls, jpeg, ExtCtrls;

type

TForm2 = class(TForm)

Button1: TButton;

Image1: TImage;

Label1: TLabel;

Bevel1: TBevel;

Bevel2: TBevel;

Bevel3: TBevel;

Bevel4: TBevel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

procedure Button1Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2. Button1Click (Sender: TObject);

begin

Close;

end;

Модуль «Об авторе»

unit Unit3;

interface

uses

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

Dialogs, StdCtrls, jpeg, ExtCtrls;

type

TForm3 = class(TForm)

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Button1: TButton;

Label4: TLabel;

procedure Button1Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3. Button1Click (Sender: TObject);

begin

Close;

end;

end.

Модуль «Заставка»

unit Unit4;

interface

uses

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

Dialogs, ExtCtrls, StdCtrls, jpeg;

type

TForm4 = class(TForm)

Image1: TImage;

Label1: TLabel;

Timer1: TTimer;

procedure FormCreate (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4. FormCreate (Sender: TObject);

begin

Close;

end;

end.

Модуль «Персонал»

unit Unit5;

interface

uses

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

Dialogs, ExtCtrls, DBCtrls, DB, DBTables, Grids, DBGrids, StdCtrls;

type

TForm5 = class(TForm)

DBGrid1: TDBGrid;

DataSource1: TDataSource;

Table1: TTable;

DBNavigator1: TDBNavigator;

Button1: TButton;

Edit1: TEdit;

Label1: TLabel;

Button2: TButton;

RadioGroup1: TRadioGroup;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure RadioGroup1Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5. Button1Click (Sender: TObject);

begin

Table1. Locate ('Familiya', edit1.text, [loCaseInsensitive, loPartialKey])

end;

procedure TForm5. Button2Click (Sender: TObject);

begin

Form5. Close;

end;

procedure TForm5. RadioGroup1Click (Sender: TObject);

begin

case RadioGroup1. ItemIndex of

0: Table1. IndexName:= '_data_rogden';

1: Table1. IndexName:= 'Kod_dolgnosti';

end;

end;

Модуль «Постоянные клиенты»

unit Unit6;

interface

uses

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

Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls, ExtCtrls, DBCtrls;

type

TForm6 = class(TForm)

DBGrid1: TDBGrid;

DataSource1: TDataSource;

Table1: TTable;

DBNavigator1: TDBNavigator;

Label1: TLabel;

Edit1: TEdit;

Button1: TButton;

Button2: TButton;

procedure Button1Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

procedure Button2Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form6: TForm6;

implementation

{$R *.dfm}

procedure TForm6. Button1Click (Sender: TObject);

var Ysl, Field2: String;

begin

If edit1. Text<>'' then edit1. Text:=Chr(39)+Edit1. Text+Chr(39);

Field2:='Procent_skidki';

Ysl:=Field2+'='+Edit1.text;

table1. Filtered:=True;

table1. FilterOptions:=[foCaseInsensitive];

table1. Filter:=Ysl;

end;

procedure TForm6. FormCreate (Sender: TObject);

begin

Table1. Filtered:=False;

end;

procedure TForm6. Button2Click (Sender: TObject);

begin

Form6. Close;

end;

end.

Модуль «Ассортимент блюд»

unit Unit7;

interface

uses

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

Dialogs, QRCtrls, QuickRpt, ExtCtrls, RpCon, RpConDS, RpDefine, RpRave,

Menus, StdCtrls, DBCtrls, DB, DBTables, Grids, DBGrids, Mask, jpeg;

type

TForm7 = class(TForm)

DataSource1: TDataSource;

DBMemo1: TDBMemo;

Label1: TLabel;

MainMenu1: TMainMenu;

N1: TMenuItem;

RvProject1: TRvProject;

RvDataSetConnection1: TRvDataSetConnection;

Label2: TLabel;

Edit1: TEdit;

Button1: TButton;

Button2: TButton;

DBGrid1: TDBGrid;

Table1: TTable;

Label3: TLabel;

DBGrid2: TDBGrid;

DataSource2: TDataSource;

Table2: TTable;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

DBEdit7: TDBEdit;

Button4: TButton;

Button5: TButton;

Button6: TButton;

Button7: TButton;

Image1: TImage;

Button8: TButton;

Query1: TQuery;

DataSource3: TDataSource;

Table1Kod_bluda: TAutoIncField;

Table1Naimen_bluda: TStringField;

Table1Soderganie: TStringField;

Table1Kalorinost: TIntegerField;

Table1Ves_bluda: TIntegerField;

Table1Vremya_prigot: TStringField;

Table1Stoimost_rub: TIntegerField;

Table1Kod_vida: TIntegerField;

C1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

Query2: TQuery;

DataSource4: TDataSource;

DataSource5: TDataSource;

Query3: TQuery;

Query4: TQuery;

DataSource6: TDataSource;

DataSource7: TDataSource;

DataSource8: TDataSource;

Query5: TQuery;

Query6: TQuery;

RvProject2: TRvProject;

RvDataSetConnection2: TRvDataSetConnection;

RvProject3: TRvProject;

RvDataSetConnection3: TRvDataSetConnection;

RvProject4: TRvProject;

RvDataSetConnection4: TRvDataSetConnection;

RvProject5: TRvProject;

RvDataSetConnection5: TRvDataSetConnection;

RvProject6: TRvProject;

RvDataSetConnection6: TRvDataSetConnection;

procedure Button1Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button4Click (Sender: TObject);

procedure Button5Click (Sender: TObject);

procedure Button6Click (Sender: TObject);

procedure Button7Click (Sender: TObject);

procedure Button8Click (Sender: TObject);

procedure C1Click (Sender: TObject);

procedure N2Click (Sender: TObject);

procedure N4Click (Sender: TObject);

procedure N3Click (Sender: TObject);

procedure N5Click (Sender: TObject);

procedure N6Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;



var

Form7: TForm7;

implementation

uses Restaurant;

{$R *.dfm}

procedure TForm7. Button1Click (Sender: TObject);

var Field1, Yslovie: String;

begin

If edit1. Text<>'' then edit1. Text:=Chr(39)+Edit1. Text+Chr(39);

Field1:='Kod_vida';

Yslovie:=Field1+'='+Edit1.text;

table1. Filtered:=True;

table1. FilterOptions:=[foCaseInsensitive];

table1. Filter:=Yslovie;

end;

procedure TForm7. FormCreate (Sender: TObject);

begin

Table1. FilterOptions:=[foCaseInsensitive];

table1. Filtered:=False;

end;

procedure TForm7. Button2Click (Sender: TObject);

begin

table1. Filtered:=false;

end;

procedure TForm7. Button4Click (Sender: TObject);

begin

IF Table1. State = dsBrowse THEN

Table1. Insert;

end;

procedure TForm7. Button5Click (Sender: TObject);

begin

IF Table1. State = dsBrowse THEN

Table1. Edit;

end;

procedure TForm7. Button6Click (Sender: TObject);

begin

IF Table1. State = dsBrowse THEN

IF MessageDlg ('Подтвердите удаление записи!', mtConfirmation, [mbYes, mbNo], 0) = mrYes THEN

Table1. Delete;

end;

procedure TForm7. Button7Click (Sender: TObject);

begin

IF Table1. State in [dsInsert, dsEdit] THEN

Table1. Post;

end;

procedure TForm7. Button8Click (Sender: TObject);

begin

Form7. Close;

end;

procedure TForm7.C1Click (Sender: TObject);

begin

RvProject1. Execute;

end;

procedure TForm7.N2Click (Sender: TObject);

begin

RvProject2. Execute;

end;

procedure TForm7.N4Click (Sender: TObject);

begin

RvProject4. Execute;

end;

procedure TForm7.N3Click (Sender: TObject);

begin

RvProject3. Execute;

end;

procedure TForm7.N5Click (Sender: TObject);

begin

RvProject5. Execute;

end;

procedure TForm7.N6Click (Sender: TObject);

begin

RvProject6. Execute;

end;

end.

Модуль «Заказы»

unit Unit8;

interface

uses

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

Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls, Mask, DBCtrls, RpCon,

RpConDS, RpDefine, RpRave, ExtCtrls;

type

TForm8 = class(TForm)

DataSource1: TDataSource;

Table1: TTable;

Query1: TQuery;

DataSource2: TDataSource;

DBEdit1: TDBEdit;

DBEdit3: TDBEdit;

Button1: TButton;

Button2: TButton;

Button3: TButton;

RvProject1: TRvProject;

RvDataSetConnection7: TRvDataSetConnection;

Button4: TButton;

Button5: TButton;

RvProject2: TRvProject;

RvDataSetConnection8: TRvDataSetConnection;

DataSource3: TDataSource;

Table2: TTable;

DBGrid3: TDBGrid;

RvProject3: TRvProject;

RvDataSetConnection9: TRvDataSetConnection;

Button6: TButton;

Label1: TLabel;

DBEdit2: TDBEdit;

DBEdit4: TDBEdit;

Label2: TLabel;

DBGrid1: TDBGrid;

DataSource4: TDataSource;

DBGrid4: TDBGrid;

Table3: TTable;

Edit1: TEdit;

Label3: TLabel;

Button8: TButton;

Query2: TQuery;

DataSource5: TDataSource;

DBGrid5: TDBGrid;

DBGrid2: TDBGrid;

Bevel1: TBevel;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure Button4Click (Sender: TObject);

procedure Button5Click (Sender: TObject);

procedure Button6Click (Sender: TObject);

procedure Button8Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form8: TForm8;

implementation

{$R *.dfm}

procedure TForm8. Button1Click (Sender: TObject);

begin

IF Table1. State = dsBrowse THEN

Table1. Insert;

end;

procedure TForm8. Button2Click (Sender: TObject);

begin

IF Table1. State in [dsInsert, dsEdit] THEN

Table1. Post;

end;

procedure TForm8. Button3Click (Sender: TObject);

begin

Query1. Close;

Query1.SQL. Clear;

Query1.SQL. Add ('SELECT T. Naimen_bluda, K. Kolichestvo, T. Stoimost_rub, (K. Kolichestvo * T. Stoimost_rub) As Stoimost');

Query1.SQL. Add ('FROM Menu T, Zakazu K');

Query1.SQL. Add ('WHERE T. Kod_bluda=K. Kod_bluda');

Query1. Open;

end;

procedure TForm8. Button4Click (Sender: TObject);

begin

If Query1. FieldByName ('Naimen_bluda').Text<>'' then

begin

if Query1. FieldByName('Kolichestvo').Text<>'' then

if Query1. FieldByName ('Stoimost_rub').Text<>'' then

if Query1. FieldByName('Stoimost').Text<>'' then

if DbEdit2. Text<>'' then

if DbEdit4. Text<>'' then

RvProject1. Execute;

end

else

ShowMessage ('Заказ отсутствует!');

if DbEdit2. Text='' then ShowMessage ('Некому принять заказ');

if DbEdit4. Text='' then ShowMessage ('Некого обслужить');

end;

procedure TForm8. Button5Click (Sender: TObject);

begin

Form8. Close;

end;

procedure TForm8. Button6Click (Sender: TObject);

begin

IF Table1. State = dsBrowse THEN

Table1. Delete;

end;



procedure TForm8. Button8Click (Sender: TObject);

begin

If Table3. Locate ('Kod_klienta', edit1.text, [loCaseInsensitive, loPartialKey])=True then

begin

ShowMessage ('Наличие скидки');

Query2. Active:=True;

end

else

ShowMessage ('Cкидки нет');

end;

end.

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