В энергетике для определения экономической эффективности внедрения ЭВМ в энергосистемах и на энергообъектах принят метод расчетных коэффициентов Дашков Л.П., Памбухчиянц В.К., Памбухчиянц О.В. Дашков и К. 2015 год. 456 страниц. Коэффициенты дифференцированы в зависимости от количества задач, решаемых в энергосистемах, размеров энергосистем и энергетических объектов, это приводит к изменению технико-экономических показателей деятельности энергосистем. Экономическая эффективность обработки информации с использованием ЭВМ обеспечивается за счет следующих факторов:

­ высокой скоростью выполнения операций по сбору, передачи и обработки информации;

­ повышения качества учета, контроля постоянных и переменных показателей;

­ получения достоверной информации, сокращения времени учетных периодов.

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

Прямая эффективность выражается в снижении трудовых и стоимостных затрат на обработку информации.

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

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

Косвенная эффективность определяется экспертной оценкой или сопоставлением с другими объектами.

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

Эгод = Свр - См (1)

где Эгод - экономическая эффективность за год;

Свр - стоимость решения задачи непосредственно вручную;

См - стоимость решения задачи на ЭВМ.

3.3.2 Методика расчета экономической эффективности

Total cost of ownership - (ТСО - совокупная стоимость владения). Данный метод предполагает количественную оценку на внедрение и сопровождение программного обеспечения.

В общем случае для расчета ТСО информационными системами необходимо учитывать такие показатели, как стоимость ЭВМ, стоимость ПО, стоимость установки, стоимость поддержки и обслуживания, а также стоимость потерь, возникающих из-за ошибок в работе систем:

Необходимо учитывать, что данные затраты имеют разные сроки использования: средний срок эксплуатации ЭВМ составляет 4-5 лет, для ПО этот показатель зависит от типа и вида лицензии, но в среднем составляет 3-4 года. Соответственно для расчета TCO данные показатели необходимо привести к единому расчетному периоду (в России обычно рассчитывается на один год). Тогда расчет затрат на оборудование будет осуществляться по формуле



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

Стоимость установки ПО рассчитывается по формуле

где Зсп -- затраты на 1 час работы специалиста, которые определяются условиями конкретного региона; Вр_уст -- время установки одной копии ПО;

Nкоп -- количество устанавливаемых копий; период -- расчетный период эксплуатации;

Кнад -- коэффициент, определяющий среднее количество переустановок данного ПО за 1 год (определяется эмпирическим путем для каждого конкретного вида ПО).

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

Стоимость поддержки рассчитывается по формуле

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

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

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

Потери, связанные с неработоспособностью приобретенного ПО теоретически рассчитывается по формуле:

где Цена потерь -- упущенная прибыль предприятия, за один час неработоспособности системы; t_востановления -- время, необходимое на восстановление работоспособности конкретного вида ПО,

t_ожидания -- среднее время ожидания, от момента возникновения неисправности до момента прибытия специалиста;

период -- расчетный период эксплуатации;

Кнад -- коэффициент, определяющий среднее количество неисправностей за один год.

Значение данного показателя также зависит от типа выбранной предприятием поддержки: в случае выбора схемы аутсорсинга ведет к увеличению времени ожидания устранения (по сравнению с внутренней ИТ-службой предприятия), но при этом время на устранение как правило уменьшается.

Основной проблемой при расчете потерь является практическая невозможность оценки упущенной прибыли. Поэтому данный компонент целесообразно выделить из ТСО в отдельный временной показатель -- «Время потерь».

3.3.3 Расчет экономической эффективности программы

1. Определяем годовую экономию от снижения себестоимости по следующей формуле:

(2)

где- годовая экономия от снижения себестоимости, руб.;

- себестоимость до и после внедрения информационной технологии, руб.

Годовая экономия составляет:

руб.

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

(3)

где- экономический эффект, руб.;

- нормативный коэффициент эффективности капиталовложения, который для сельскохозяйственных производителей равен 0,15;

- капиталовложения, отнесенные на единицу производственной программы, и определяются по формуле:

(4)

;

Годовой экономический эффект по рассчитанным показателям будет составлять:

руб.

3. Определяем срок окупаемости дополнительных капиталовложений, при условии, что капиталовложения по исходному варианту меньше, чем по проектированному, то есть. Тогда срок окупаемости можно определить по формуле:

(5)

Где ТОК- срок окупаемости, мес., лет;

и составляет:

года

В нашем случае срок окупаемости проекта равен 2 месяца.

Определяем расчетный коэффициент эффективности капиталовложения по формуле:

(6)

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

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

3.3.4 Расчет капитальных вложений

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

К=Кобор+Кт (7)

Где Кобор - стоимость оборудования, руб.; Кт - транспортные и заготовительно-складские расходы (5% от стоимости оборудования), %. Расчет стоимости оборудования показан в таблице:

Таблица 9/ Расчет стоимости оборудования

Наименование	Количество, шт.	Цена, руб.	Сумма, руб.
Монитор	1	9000	9000
Системный блок	1	22000	22000
Мышь	1	500	500
Клавиатура	1	400	400
Итого	-	-	31900

Определяем транспортные и заготовительно-складские расходы:

Кт = 31900 * 0,05 = 1595 руб.

Определяем величину капитальных затрат:

К = 31900 + 1595 = 33495 руб.

Таблица 10. Величина капитальных затрат

Наименование показателей	Единица измерения	Стоимостная оценка
Стоимость оборудования	руб.	31900
Транспортные и заготовительно-складские расходы	руб.	1595
Итого	руб.	33495

3.3.5 Расчет расходов для разработки базы данных «Клинфист»

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

3.3.6 Затраты на оплату труда

Разработкой проекта занимается программист. Определим сумму зарплаты по формуле:

Зпл = окл * n*Rпрем (8)

Где окл - оклад программиста, руб.;

n - количество месяцев на разработку программы, мес.;- коэффициент учитываемой премии, %.

Зпл = 23000 * 1 * 1,3 = 29900 руб.

3.3.7 Налоговые платежи

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

Страховые взносы = Зпл * n /100% (9)

где Зпл - заработная плата, руб;

n - ставка страховых взносов, %.

Страховые взносы = 29900 * 30% / 100%= 8970 руб.

3.3.8 Амортизационные отчисления

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

Нагод = 100 / 3 = 33,3%

Амес = (к * На) / (100 * n) (10)

где к - стоимость оборудования, руб.;

На - амортизационные нормы, %;- количество месяцев, мес.

Амес = (31900 * 33,3) / (100 * 12) = 885,22 руб.

3.3.9 Расходы на электроэнергию, используемую оборудованием

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

Мощность компьютера - 300 Вт;

Время работы компьютера - 120ч;

Тариф за 1 кВ - 4,02 руб.

Расходы на электроэнергию рассчитывается по формуле:

Рэл/эн = T * t * n * W (11)

где T - тариф на электроэнергию, руб.;

t - время работы в день, ч.;- количество дней затраченных на разработку, день;- потребляемая мощность 1 единицы оборудования в час, кВ.

Рэл/эн = 4,02 * 4* 30 * 0,3 = 144,72 руб.

3.4 Сумму прочих расходов примем в размере 0,1% от стоимости оборудования

Рпроч = К * 0,1% / 100% (12)

Рпроч = 31900 * 0,1 / 100 = 31,9 руб.

Общая сумма эксплуатационных расходов показана в таблице - >

Таблица 11. Эксплутационные расходы

Статьи затрат	Сумма затрат, руб.
Расходы на оплату труда	29900,00
Страховые взносы	8970,00
Амортизационные отчисления	885,22
Расходы на электроэнергию	144,72
Прочие расходы	31,9
Итого:	39931,84

3.4.1 Расчет удельного веса расходов

dn = Pn / ?P * 100% (13)

где dn - удельный вес расходов, руб.;

Pn - рассчитываемые капитальные статьи, руб.;

?P - сумма расходов, руб.РОТ = 29900 / 39931,84 * 100 = 74,9%.Страх = 8970 / 39931,84 * 100 = 22,4%.А = 885,22 / 39931,84 * 100 = 2,2%.З на Эл.э = 144,72 / 39931,84 * 100 = 0,4%.проч.р. = 31,9 / 39931,84 * 100 = 0,1%.

Общая сумма удельного веса расходов показана в таблице - >

Таблица 12. Удалённый вес расходов

Наименование статей расхода	Удельный вес, %
Расходы на оплату труда	74,9
Страховые взносы	22,4
Амортизационные отчисления	2,2
Расходы на электроэнергию	0,4
Прочие расходы	0,1
Итого:	100,0

3.4.2 Расчет доходов

Программисту поступил заказ на разработку базы данных «Клинфист». Программистом была составлена смета расходов. Исходя из своей выгоды, программистом был представлен счет, в котором была заложена прибыль. Заказчику был представлен счет на 43692,99руб.

3.4.3 Расчет прибыли от реализации проекта

Прибыль рассчитывается по формуле

П = Д - Р

где П - прибыль, руб.;

Д - доход, руб.;

Р - расходы, руб.

П = 48792,99- 39931,84= 8861,15 руб.

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

Определим сумму налога на полученную прибыль. Она определяется по формуле:

НП = ?П * СНП /100 % (14)

Где НП - налог на прибыль, руб.;

?П - сумма полученной прибыли.руб.;

СНП - ставка налога на прибыли, %.

НП = 8861,15 * 20 /100 = 1772,23 руб.

Определим сумму прибыли, отстающую в распоряжение программиста по формуле

Пчист = ?П - НП (15)

где Пчист - прибыль, остающаяся в распоряжении программиста, руб.;

?П - общая сумма получения прибыли, руб.;

НП - сумма налога на прибыль, руб.

Пчист = 8861,15 - 1772,23 = 7088,92 руб.

3.4.4 Определение эффективности проекта

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

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

Рентабельность производства определяется по формуле

Rпр-ва = ?П / Р * 100 % (16)

где Rпр-ва - рентабельность производства, руб.;

?П - общая прибыли, руб.;

Р - расход организации, руб.пр-ва = 8861,15 / 39931,84 * 100 = 22,2 %

На каждый рубль расходов программист получил 22,2 копеек прибыли.

Рентабельность чистой прибыли определяется по формуле

Rн.п. = Rпр-ва / P * 100% (17)

где Rн.п. - рентабельность производства, руб.;

Пчист - чистая прибыль, руб.;

Р - расход организации, руб.н.п. = 7088,92 / 39931,84 * 100 = 22,34 %.

На каждый рубль расходов программист получил 17,75 копеек чистой прибыли.

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

ЗАКЛЮЧЕНИЕ

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

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

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

В данной выпускной квалификационной работе были использованы такие объекты, как: таблицы, запросы, формы, отчеты. Была применена технология ADO, так же был задействован Microsoft Access и среда программирования Delphi7. Для создания запросов был использован структурированный язык SQL.

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

СПИСОК ЛИТЕРАТУРЫ

1. В.Э Гофман. Delphi. Быстрый старт. / А.Д Хомоненко. СПб.: БХВ-Петербург., 2002 - стр 281.

2. С.В. Одиночкина. Разработка баз данных в Microsoft Access 2010. М.: Изд., НИУ ИТМО., 2012 - 87 стр.

3. Г.В Галисеев. Программирование в среде Delphi 7. Самоучитель. М.: Изд., Вильямс., 2003 - 288 стр.

4. А. Федоров. ADO в Delphi+CD / Елманова Н., СПб.: BHV-Санкт-Петербург.,2002 - стр 816.

5. Г.М. Эйдлина, Delphi: программирование в примерах и задачах. Практикум., Изд.: - РИОР, ИНФРА-М., 2012 - стр 98.

6. Д. Осипов. Базы данных и Delphi. Теория и практика. / К.А.Милорадов., - СПб.: БХВ-Петербург.., - 2010, стр 855.

7. Н. Культин. Delphi в задачах и примерах. СПб.: БХВ-Петербург., 2009 - 288 стр.

8. М. Фленов. Библия Delphi, 3-е издание + CD. СПб.: - БХВ-Петербург., 2011. - 688 стр.

9. А. Чиртик. Программирование в Delphi. Трюки и эффекты. CПб.: - Питер., 2003. - 393 стр.

10. Атре Ш. Структурный подход к организации баз данных. - М.: Финансы и статистика, 1983. - 320 с.

11. Бойко В.В., Савинков В.М. Проектирование баз данных информационных систем. - М.: Финансы и статистика, 1989. - 351 с.

12. Голицина О.Л., Максимов Н.В., Попов И.И. Базы данных: Учебное пособие. - М.: ФОРУМ: ИНФРА-М, 2003. - 352 с.

13. Джексон Г. Проектирование реляционных баз данных для использования с микро ЭВМ. -М.: Мир, 1991. - 252 с.

14. Карпова Т.С. Базы данных: модели, разработка, реализация. - СПб.: Питер, 2002. - 304 с.

15. Кириллов В.В. Структуризованный язык запросов (SQL). - СПб.: ИТМО, 1994. - 80 с.

16. Корнеев И.К., Машурцов В.А. Информационные технологии в управлении. - М.: ИНФРА-М, 2001. - 158 с.

17. Мартин Дж. Планирование развития автоматизированных систем.

18. Буч Г., Рамбо Д., Джекобсон А. Язык UML Руководство пользователя ЧАСТЬ IV -ДМК, 2001--421с.

19. Гагарина Л.Г., Киселев Д.В., Федотова Е.Л. Разработка и эксплуатация автоматизированных информационных систем: учебное пособие. М.: ФОРУМ - ИНФРА-М, 2013 - 383с.

20. Гагарина Л.Г., Кокорева Е.В., Виснадул Б.Д. Технология разработки программного обеспечения: учебное пособие. М.: ФОРУМ - ИНФРА-М, 2013 399с.

21. Голицына О. Л., Максимов Н. В., Попов И. И. Базы данных: учебное пособие. М.: ФОРУМ - ИНФРА-М, 2012 - 400с.

22. Гордеев А.В. Операционные системы: учебник для ВУЗов. СПб.: Питер, 2009 - 416с.

23. Гофман В.Э., Хомоненко А.Д. Delphi. Быстрый старт - СПб.: БХВ-Петербург, 2003. - 288с.

24. Дерахвелидзе П.Г., Марков Е.П. Программирование в Delphi 7. - СПб.: БХВ-Петербург, 2003. - 784с.

25. Избачков Ю.С., Петров В.Н., Васильев А.А., Телина И.С. Информационные системы: учебник для ВУЗов. СПб.: Питер, 2010 - 544с.

26. Кудрявцев К.Я. Создание баз данных: учебное пособие. М.: НИЯУ МИФИ, 2010 - 155с.

27. Кузин А.В., Левонисова С.В. Базы данных: учебное пособие для студентов высшего учебного заведения. М.: Академия, 2012 - 320с.

ПРИЛОЖЕНИЕ 1

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

Для того чтобы запустить данное приложение, нужно запустить Project.exe

Далее в верхнем меню находится Меню, Функции, Справка, Отчет.

.

В графе Меню находиться кнопка закрытия приложения.

В графе Функции находиться формы для редактирования Сотрудники, Заказы, Клиенты и формы для просмотра Услуги, Дполонительные услуги, Ассортимент.

В графе Отчет содержится отчет по заказам.

>

Для того чтобы попасть на форму Сотрудники, вам нужно ввести Логин и Пароль (admin, adm).

Кнопка Добавить - добавляет запись.

Кнопка Удалить - удаляет запись.

Кнопка Выход - закрывает форму.

Кнопка Поиск - ищет Сотрудника, Клиента по фамилии. Заказы, услуги, и ассортимент по наименованию.

Все файлы, необходимые для работы хранятся в папке HelpDemo.

Для работы данного приложения на вашем ПК потребуется перенести Access файл в свою папку () и указать в ADOConnection путь к данной БД.

ПРИЛОЖЕНИЕ 2

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

unit MainForm;

interface

uses

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

Dialogs, Menus, ExtCtrls, StdCtrls, jpeg, ComCtrls, MPlayer;

type

TForm1 = class(TForm)

mm1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

img1: TImage;

lbl1: TLabel;

MediaPlayer1: TMediaPlayer;

Button1: TButton;

OpenDialog1: TOpenDialog;

procedure N2Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure FormCreate(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.N2Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

Form2.Show;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

Form3.Show;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

Form8.Show;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

Form5.Show;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

Form6.Show;

end;

procedure TForm1.N11Click(Sender: TObject);

begin

Form7.Show;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

MediaPlayer1.Close;

if OpenDialog1.Execute then

begin

MediaPlayer1.FileName:=OpenDialog1.FileName;

MediaPlayer1.Open;

end

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

end;

end.

unit Zakazi;

interface

uses

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

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, StdCtrls, Mask;

type

TForm2 = class(TForm)

con1: TADOConnection;

tbl1: TADOTable;

ds1: TDataSource;

dbgrd1: TDBGrid;

dbnvgr1: TDBNavigator;

GroupBox1: TGroupBox;

Button1: TButton;

Button2: TButton;

Button4: TButton;

DBEdit1: TDBEdit;

dbedt1: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

DBEdit2: TDBEdit;

Edit1: TEdit;

Button3: TButton;

procedure Button4Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button4Click(Sender: TObject);

begin

Form2.Close;

end;

procedure TForm2.Button1Click(Sender: TObject);

begin

tbl1.Append

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

tbl1.Delete;

end;

procedure TForm2.Button3Click(Sender: TObject);

begin

if length(edit1.Text)>0 then

begin

tbl1.Filter:='ФИО_клиента like ' + ' ''' + edit1.Text + '%' + ''' ';

tbl1.Filtered := true;

end

else

tbl1.Filtered := false;

end;

procedure TForm2.FormCreate(Sender: TObject);

begin

end;

end.

unit Klienti;

interface

uses

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

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, StdCtrls, Mask;

type

TForm3 = class(TForm)

con1: TADOConnection;

tbl1: TADOTable;

ds1: TDataSource;

dbgrd1: TDBGrid;

dbnvgr1: TDBNavigator;

GroupBox1: TGroupBox;

Button1: TButton;

Button3: TButton;

Button4: TButton;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label6: TLabel;

DBEdit6: TDBEdit;

tbl1id_: TAutoIncField;

tbl1DSDesigner: TWideStringField;

tbl1_: TIntegerField;

tbl1DSDesigner2: TWideStringField;

tbl1_2: TDateTimeField;

tbl1id_2: TIntegerField;

Edit1: TEdit;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button2Click(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

tbl1.Append

end;

procedure TForm3.Button4Click(Sender: TObject);

begin

Form3.Close;

end;

procedure TForm3.Button3Click(Sender: TObject);

begin

tbl1.Delete;

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

if length(edit1.Text)>0 then

begin

tbl1.Filter:='ФИО like ' + ' ''' + edit1.Text + '%' + ''' ';

tbl1.Filtered := true;

end

else

tbl1.Filtered := false;

end;

procedure TForm3.FormCreate(Sender: TObject);

begin

end;

end.

unit Sotrudniki;

interface

uses

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

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, StdCtrls, Menus,

ComCtrls, Mask;

type

TForm4 = class(TForm)

con1: TADOConnection;

tbl1: TADOTable;

ds1: TDataSource;

dbgrd1: TDBGrid;

dbnvgr1: TDBNavigator;

btn1: TButton;

btn3: TButton;

btn4: TButton;

grp1: TGroupBox;

lbl1: TLabel;

lbl2: TLabel;

lbl3: TLabel;

lbl4: TLabel;

lbl5: TLabel;

lbl6: TLabel;

lbl7: TLabel;

lbl8: TLabel;

DBEdit1: TDBEdit;

tbl1id_: TAutoIncField;

tbl1DSDesigner: TWideStringField;

tbl1DSDesigner2: TWideStringField;

tbl1DSDesigner3: TWideStringField;

tbl1DSDesigner4: TIntegerField;

tbl1DSDesigner5: TIntegerField;

tbl1DSDesigner6: TWideStringField;

tbl1DSDesigner7: TWideStringField;

tbl1_: TWideStringField;

tbl1DSDesigner8: TWideStringField;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

DBEdit7: TDBEdit;

Label1: TLabel;

DBComboBox2: TDBComboBox;

DBEdit9: TDBEdit;

Edit1: TEdit;

Button1: TButton;

procedure btn3Click(Sender: TObject);

procedure btn1Click(Sender: TObject);

procedure btn4Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit8;

{$R *.dfm}

procedure TForm4.btn3Click(Sender: TObject);

begin

Form4.Close;

end;

procedure TForm4.btn1Click(Sender: TObject);

begin

tbl1.Append

end;

procedure TForm4.btn4Click(Sender: TObject);

begin

tbl1.delete;

end;

procedure TForm4.Button1Click(Sender: TObject);

begin

if length(edit1.Text)>0 then

begin

tbl1.Filter:='Фамилия like ' + ' ''' + edit1.Text + '%' + ''' ';

tbl1.Filtered := true;

end

else

tbl1.Filtered := false;

end;

procedure TForm4.FormCreate(Sender: TObject);

begin

end;

end.

unit ProsmUslug;

interface

uses

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

Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Mask,

Buttons;

type

TForm5 = class(TForm)

dbgrd1: TDBGrid;

dbnvgr1: TDBNavigator;

con1: TADOConnection;

tbl1: TADOTable;

ds1: TDataSource;

Button1: TButton;

Button2: TButton;

Edit1: TEdit;

ADOQuery1: TADOQuery;

DBEdit1: TDBEdit;

Label1: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure DBEdit1Change(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

Form5.Close;

end;

procedure TForm5.Button2Click(Sender: TObject);

begin

if length(edit1.Text)>0 then

begin

tbl1.Filter:='Название like ' + ' ''' + edit1.Text + '%' + ''' ';

tbl1.Filtered := true;

end

else

tbl1.Filtered := false;

end;

procedure TForm5.DBEdit1Change(Sender: TObject);

begin

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('select sum(Цена) from Перечень_услуг');

ADOQuery1.Open;

DBEdit1.Text:=ADOQuery1.Fields[0].AsString;

end;

procedure TForm5.FormCreate(Sender: TObject);

begin

end;

end.

unit ProsmDopUslug;

interface

uses

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

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, StdCtrls, Mask;

type

TForm6 = class(TForm)

con1: TADOConnection;

tbl1: TADOTable;

ds1: TDataSource;

dbgrd1: TDBGrid;

dbnvgr1: TDBNavigator;

Button1: TButton;

Edit1: TEdit;

Button2: TButton;

Label1: TLabel;

DBEdit1: TDBEdit;

ADOQuery1: TADOQuery;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure DBEdit1Change(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

{$R *.dfm}

procedure TForm6.Button1Click(Sender: TObject);

begin

Form6.Close;

end;

procedure TForm6.Button2Click(Sender: TObject);

begin

if length(edit1.Text)>0 then

begin

tbl1.Filter:='Наименование like ' + ' ''' + edit1.Text + '%' + ''' ';

tbl1.Filtered := true;

end

else

tbl1.Filtered := false;

end;

procedure TForm6.DBEdit1Change(Sender: TObject);

begin

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('select sum (Цена) from Дополнительные_услуги);

ADOQuery1.Open;

DBEdit1.Text:=ADOQuery1.Fields[0].AsString;

end;

procedure TForm6.FormCreate(Sender: TObject);

begin

end;

end.

unit ProsmAssortimenta;

interface

uses

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

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

type

TForm7 = class(TForm)

con1: TADOConnection;

tbl1: TADOTable;

ds1: TDataSource;

dbgrd1: TDBGrid;

dbnvgr1: TDBNavigator;

Button1: TButton;

Edit1: TEdit;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

{$R *.dfm}

procedure TForm7.Button1Click(Sender: TObject);

begin

Form7.Close;

end;

procedure TForm7.Button2Click(Sender: TObject);

begin

if length(edit1.Text)>0 then

begin

tbl1.Filter:='Ассортимент like ' + ' ''' + edit1.Text + '%' + ''' ';

tbl1.Filtered := true;

end

else

tbl1.Filtered := false;

end;

procedure TForm7.FormCreate(Sender: TObject);

begin

end;

end.

unit Logon;

interface

uses

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

Dialogs, StdCtrls, XPMan;

type

TForm8 = class(TForm)

edt1: TEdit;

edt2: TEdit;

lbl1: TLabel;

lbl2: TLabel;

lbl3: TLabel;

xpmnfst1: TXPManifest;

procedure btn1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8; l,p:Integer;

implementation

uses Unit4;

{$R *.dfm}

procedure TForm8.btn1Click(Sender: TObject);

begin

if edt1.text='admin' then l:=1 else l:=0;

if edt2.text='adm' then p:=1 else p:=0;

if (p+l)>1 then

begin

form8.Close;

Form4.Visible:=True;

end

end;

procedure TForm8.FormCreate(Sender: TObject);

begin

end;

end.

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

...