6) Таблица «Login»

Содержит конфиденциальные данные о БД (Код, Логин, Пароль, Дата/Время, Попытки).

В таблице имеются 5 полей:

Таблица 6 - Login

Наименование поля	Тип поля	Размер поля
Код	Счётчик	Длинное целое
Логин	Текстовый	Длинное целое
Пароль	Текстовый	-
Дата/Время	Дата/время	Длинное целое
Попытки	Числовой

Ключевое поле:

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

Формы

Изображения форм приведены в Приложении 3.

1) Главная форма «ИС «Авторизация»

Является центром работы программы, предоставляет доступ к основным объектам базы данных. Данная форма содержит 1 кнопку для вызова следующей формы: «Главное меню».

2) Форма «Главное меню»

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

3) Форма «Слушатели»

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

4) Форма «Преподаватели»

Данная форма предназначена для вывода на экран ФИО преподавателя, основного места работы, контактного телефона и предмета обучения и добавление нового преподавателя.

5) Форма «Оценки»

Данная форма предназначена для вывода на экран информации об оценках получаемые слушателями за время обучения.

6) Форма «Платежи»

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

7) Форма «Договора»

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

8) Форма «Договора»

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

Запросы

Запросы представлены в Приложении 3.

1) Запрос «Об оценках получаемых слушателями»

Запрос отображает оценки (рис. 1).

2) Запрос «О договорах »

Запрос отображает договор и необходимую информацию о слушателях.

Отчеты

Отчеты вызываются из формы «Главное меню» по кнопке с соответствующим именем. Отчеты представлены в приложении 2.

1) Отчет «Печатная форма договора»

Отчет отображает excel файл договора.

2) Отчет «Преподаватели»

Отчет отображает небольшую информацию по каждому преподавателю

3) Отчет «Слушатели»

Отчет отображает небольшую информацию по каждому слушателю

Текст программы

Текст программы выполнен в соответствии с ГОСТ 19.101-77 (СТ СЭВ 1626-79) и ГОСТ 19.401-79 (СТ2 СЭВ 3746-82).

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

Описание программы выполнено в соответствии с ГОСТ 19.402-78.

Общие сведения

В дипломном проекте реализована автоматизированная информационная система (АИС) для УПК «Радиополитехникум» СПбПУ Петра Великого.

Для функционирования АИС необходимы следующие характеристики ПК:

· процессор Intel Pentium 2 - 450 МГц (AMD K6-2-500) или выше;

· ОЗУ: 128 Мб или выше;

· операционная система Windows XP или выше;

· приложение Microsoft Access 2007 или выше;

· приложение Delphi 7.

Функциональное назначение

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

АИС обеспечивает следующие возможности:

· ведение базы данных о преподавателях;

· ведение базы данных о слушателях;

· создание отчетов по необходимой информации;

Описание вида программы

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

Форма «Главное меню» имеет 4 вкладки: «Справочники», «Журналы», «Отчеты», «Выход из программы». На них расположены формы: «Слушатели», «Преподаватели», «Оценки», «Платежи», «Договора», «Запрос по оценкам», «Печатная форма договора», «Запрос по договору», «Отчет о преподавателях», «Отчет о слушателях» соответственно.

Форма «Слушатели» имеет 1 вкладку: Добавить, На ней расположена форма: «Добавить слушателя» соответственно.

Форма «Преподаватели» имеет 1 вкладку: Добавить, На ней расположена форма: «Добавить преподавателя» соответственно.

Вкладка «Отчёты» предоставляет доступ ко всем отчетам базы данных. Она содержит кнопки для печати отчетов.

Вкладка «Журналы» имеет 3 вкладки: «Оценки» , «Платежи», «Договора». На них расположены формы: Оценки», «Платежи», «Договора» соответственно.

Вызов и загрузка

АИС вызывается из файла DataBase1.mdb.

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

Руководство оператора

Данный пункт по структуре соответствует программному документу «Руководство оператора» (ГОСТ 19.505-79). Документ «Руководство оператора» представлен в Приложении 4.

Программа и методика испытаний

Программа и методика испытаний оформлена в соответствии с 19.301-79 ЕСПД.

Объект испытаний

Объектом испытаний является разработанная АИС для УПК «Радиополитехникум» СПбПУ Петра Великого.

Цель испытаний

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

Средства и порядок испытаний

Для проведения испытаний нам потребуется персональный компьютер с установленной СУБД MS Access, языком Delphi.

Методы испытаний

Запускаем файл project1.exe. Вводим логин и неверный пароль с клавиатуры. Система выводит сообщение о неправильном вводе данных (рис. 1). Таким образом, система не допустит ошибочного ввода с клавиатуры.



Рис.1

3.Экономическая часть

3.1 Определение затрат на проектирования

Затраты на проектирование продукта включают следующие направления:

- заработная плата проектировщиков (с отчислением на социальные меры);

- накладные расходы.

Таблица 7 - Расходы

Материалы:	Кол-во:	Цена:
Компьютер	1	20000 руб.
Монитор	1	9000 руб.
Клавиатура	1	1000 руб.
Мышь компьютерная	1	800 руб.
Колонки	1	2000 руб.
USB-устройство	1	750 руб.
Принтер	1	5000 руб.
Интернет	1	550 руб.
	Итог:	39 100 руб.

Оклад: 5 000 руб. в месяц.

Трудоемкость: 70 час

Цель: Автоматизированная система учета посещения дополнительных занятий.

Цена за интернет: 550 руб.

Цена электроэнергии в месяц: 100 руб.

Цена электроэнергии: 3,53 руб. за кВт-час

Общее количество энергии за месяц: 43 кВтч.

ОС пер = 20000 + 9000 + 1000 + 800 + 2000 + 5000 = 37 800 руб.

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

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

ОЗП = * Трудоемкость = * 70 = 1989 руб

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

ДЗП = (8 + 10% )от ОЗП = (8+199) = 207 руб

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

Страховые взносы в 2014 (2015)году надо платить по следующим тарифам: 22% - в ПФР, 5,1% - в ФОМС, 2,9% - в ФСС. Итоговая ставка - 30%. Однако есть целый ряд особенностей начисления и уплаты взносов. Кроме того, каждый год вступает в силу немало поправок по индексации базы, льготам, отчетности и т.д Страховые взносы = 30% (ОЗП +ДЗП) = (1989+207)*30% = 659 руб

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

Э/ Э = расход кВтч * тариф = 43 * 3,53 = 151 руб.

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

Амортизация = = годовая = 37 000/5=7400 руб

Т п.и = 5 лет (классификатор основных средств)

А в м-ц = = 7400/12=617

А на разработку = * 70 =245 руб

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

Прочие расходы = 0,8 - 1,2 от (ОЗП+ ДЗП)=0,8*(1988,6+658,6)=2117 руб

Расчет элемента «итого затрат на производство» определяется как сумма материальных затрат, расходов на оплату труда всего, ЕСН, амортизации ОПФ, прочих затрат.

итого затрат на производство = 1989+207+659+151+7400=10 409 руб.

Плановая прибыль >= 20% от итого затрат

10 409*20/100 = 2 082 руб

Ставка НДС 18% от (итого затрат + плановая прибыль)

(10409+2082)*18/100 = 3 956 руб

Цена реализации = итого затрат + плановая прибыль + ставка НДС

10409+2082+3956 = 16 447 руб

Смета затрат

Таблица 8 - Смета затрат

Материалы	Сумма:
Расходы на комплектующие	4550 руб.
Затраты на электроэнергию	151 руб.
Основная заработная плата	1989 руб.
Дополнительная заработная плата	207 руб.
Страховые взносы	659 руб.
Амортизация	7400 руб.
Прочие расходы	2117 руб.
Плановая прибыль	2082 руб.
Ставка ндс	3956 руб.
Цена реализации	16447 руб.
Итого затрат	10 409 руб.

Вывод

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

4. Техника безопасности и охраны труда

4.1 Анализ условий труда техника информационных сетей

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

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

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

Площадь помещения, в котором располагается отдел персонала, 15 м², высота - 3 м. Форма кабинета прямоугольная.

Кабинет оформлен в зеленых тонах. Все поверхности в помещении матовые, т.к. блестящие поверхности вредны для здоровья.

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

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

К качествам техника информационных сетей предъявляются следующие требования:

­ зрение и слух без значительных отклонений;

­ функционирование опорно-двигательного аппарата и верхних конечностей без значительных отклонений;

­ развитая функция внимания, особенно во взаимосвязи со зрительным и слуховым восприятием;

­ умение быстро ориентироваться в меняющейся обстановке.

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

­ шум и вибрация, источником которого является оргтехника;

­ электромагнитные поля и излучения от дисплея ПК;

­ статическое электричество, накапливаемое на клавиатуре, дисплее, корпусе системного блока;

­ электрический ток в электрических сетях;

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

­ статические перегрузки, так как работа техника информационных сетей связана с неизменной статической позой, иногда неудобной позе (работа за ПК), что может привести к искривлению позвоночника, остеохондрозу, застою в органах малого таза;

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

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

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

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

Согласно санитарно-гигиеническим нормам (СанПиН 2.2.4.723-98), дисплей должен располагаться на расстоянии 60-70 см, но не менее 50 см от глаз. Между боковыми поверхностями мониторов должно быть не менее 1,2м. При использовании жидкокристаллических дисплеев на каждый компьютер должно приходиться не менее 4,5 м² площади. На дисплей ПК не должен попадать прямой солнечный свет во избежание бликов и повышенной нагрузки на зрение.

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

Для снижения напряжения с глаз, а также для снятия мышечного напряжения во время рабочего дня проводится проветривание в течении 10 - 15 минут каждые 1,5 часа.

4.2 Расчет искусственного освещения в помещении

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

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

­ Помещение размером 25 квадратных метров;

­ Высота помещения 3 метров, длина 8 метра, ширина 12 метров;

­ Крупногабаритная мебель отсутствует.

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

(1)

где

Е_н - нормируемая минимальная допустимая освещенность по СНиП 23-05-95,для помещения 2000 лк;

S - площадь освещаемого помещения, м²;

z - коэффициент неравномерности освещения, z = 1,1;

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

Nc - число светильников в помещении;

- коэффициент затенения, обычно 1;

=i - коэффициент использования светового потока

Коэффициент использования светового потока, давший название методу расчета, определяется по индексу помещения i в зависимости от типа светильника и коэффициентов отражения света от потолка, стен и пола:

(2)

где

А, В - длина и ширина помещения в плане, м;

Нс - высота подвеса светильников над рабочей поверхностью, м.

Согласно СНиП 23-05-95 величина полученного светового потока достаточно для данного помещения.

4.3 Электробезопасность на предприятии

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

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

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

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

Все инструктажи оформляются записями в специальном журнале с указанием номеров или шифров инструкций. Журнал о проведении инструктажа хранится у руководителя подразделения.

Работник на рабочем месте должен соблюдать общие меры электробезопасности. При этом запрещается:

­ прикасаться к задней панели системного блока при включенном питании;

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

­ производить самостоятельно вскрытие и ремонт оборудования;

­ пользоваться неисправными электроприборами и электропроводкой;

­ ремонтировать электроприборы самостоятельно;

­ подвешивать электропровода на гвоздях, металлических и деревянных предметах, перекручивать провод, закладывать провод и шнуры на водопроводные трубы и батареи отопления, вешать что-либо на провода, вытягивать за шнур вилку из розетки;

­ прикасаться одновременно к персональному компьютеру и к устройствам, имеющим соединение с землей (радиаторы отопления, водопроводные краны, трубы и т.п.);

­ пользоваться самодельными электронагревательными приборами и электроприборами с открытой спиралью;

­ наступать на переносимые электрические провода, лежащие на полу.

При работе с электроприборами и оргтехникой (персональные компьютеры, принтеры, сканеры, копировальные аппараты, факсы, бытовые электроприборы, приборы освещения):

1) Автоматические выключатели и электрические предохранители должны быть всегда исправны.

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

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

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

4.4 Пожарная безопасность на предприятии

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

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

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

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

На проведение первичного противопожарного инструктажа необходимо отводить не менее 1 ч. Инструктируемые должны ознакомиться:

· С действующими на объекте правилами пожарной безопасности и инструкциями;

· С производственными участками, наиболее опасными в пожарном отношении, где запрещается курить, применять открытый огонь;

· С возможными причинами возникновения пожара и мерами его предупреждения;

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

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

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

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

Заключение

В рамках дипломного проекта была создана автоматизированная информационная система для УПК «Радиополитехникум» СПбПУ Петра Великого.

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

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

1) Бекаревич Ю.Б., Пушкина Н.В. Самоучитель Microsoft Access 2009. - СПб.: БХВ - Петербург, 2009. - 720 с.

2) Дейт К. Дж. Введение в системы баз данных, 6-е издание. - К.; М.; СПб.: Издательский дом "Вильямс", 2008. - 848 с.

3) Мандрыкин А.В. Информационные технологии в экономике: учеб пособие / А.В. Мандрыкин, А.В. Непышневский. Воронеж: ВГТУ, 2008, 235 с.

4) Михеева В.Д., Харитонова И.А. Microsoft Access 2002. - СПб.: БХВ - Петербург, 2007. - 1040 с.

5) ЕСПД: ГОСТ 19.701 - 90 «Схема алгоритмов, программ, данных и систем».

6) ЕСПД: ГОСТ 19.106 - 78 «Требования к программным документам, выполненным печатным способом».

7) ЕСПД: ГОСТ 2.105 - 79 «Общие требования к программным документам».

8) Справочник «Ribbon Controls в Delphi 2010. Визуальная разработка интерфейса программы

9) "Иллюстрированный самоучитель по Delphi 7 для начинаюших"

ПРИЛОЖЕНИЕ

Рис.1 СХЕМА БД

Рис 2. СХЕМА РАБОТЫ АИС



ОПИСАНИЕ ФОРМ

1) Аутентификация и идентификация пользователя перед началом работы с системой

Рис.1

Листинг unit 2:

procedure TForm2.BitBtn1Click(Sender: TObject);

begin

DataModule10.AdoTable2.First;

While not(DataModule10.ADoTable2.Eof) do

begin

if (Edit1.Text = DataModule10.AdoTable2.FieldValues['Логин']) then

if (Edit2.Text = DataModule10.AdoTable2.FieldValues['Пароль']) then Begin

if (DataModule10.AdoTAble2.FieldValues['Попытки'] > 0) then begin

Form9.show;

form2.Hide;

DataModule10.AdoTable2.Edit;

DataModule10.AdoTable2.FieldValues['Дата/Время']:=SysUtils.Now;

DataModule10.AdoTable2.Post;

end

else ShowMessage('к0нец');endelse

begin if (DataModule10.AdoTable2.FieldValues['Попытки'] > 0) then

begin

label3.Caption:='Неверный ввод ';

DataModule10.AdoTable2.Edit;

DataModule10.AdoTable2.FieldValues['Попытки']:=DataModule10.AdoTable2.FieldValues['Попытки'] -1;

DataModule10.AdoTable2.Post;

end

else ShowMessage('Обратитесь к главному администратору');

end;

DataModule10.AdoTable2.Next;

end;

end;

procedure TForm2.FormCreate(Sender: TObject);

begin

StatusBar1.Panels[0].Text := FormatDateTime('dd.mm.yyyy', Date);

StatusBar1.Panels[1].Text := FormatDateTime('hh:mm', Time);

end;

end.

2) Форма «Главное меню»

Листинг unit 9:

procedure TForm9.CloseMenuItemClick(Sender: TObject);

begin

Close;

end;

procedure TForm9.FormCreate(Sender: TObject);

begin

Close;

end;

procedure TForm9.N3Click(Sender: TObject);

beginclose;

end;

procedure TForm9.OpenMenuItemClick(Sender: TObject);

begin

form1.show;

end;

procedure TForm9.SaveAsMenuItemClick(Sender: TObject);

begin

form4.show;

end;

procedure TForm9.N6Click(Sender: TObject);

begin

form12.show;

end;

procedure TForm9.ExitMenuItemClick(Sender: TObject);

begin

form6.show;

end;

procedure TForm9.N7Click(Sender: TObject);

begin

form7.show;

end;

procedure TForm9.N8Click(Sender: TObject);

begin

form8.show;

end;

procedure TForm9.N4Click(Sender: TObject);

beginform3.show;

procedure TForm9.N9Click(Sender: TObject);

begin

form5.show;

end;

procedure TForm9.N10Click(Sender: TObject);

begin

form6.show;

end;

procedure TForm9.N12Click(Sender: TObject);

begin

form1.show;

end;

procedure TForm9.N13Click(Sender: TObject);

begin

form14.show;

end;

procedure TForm9.N14Click(Sender: TObject);

begin

form15.show;

end;

procedure TForm9.N15Click(Sender: TObject);

begin

form16.show;

end

3) Форма «Слушатели»

Рис. 3

Листинг Unit 5:

procedure TForm5.N2Click(Sender: TObject);

begin

form11.Show;

end;

procedure TForm5.BitBtn1Click(Sender: TObject);

begin

DataModule10.ADOTable1.Filter:=ComboBox1.Text+'='+QuotedStr(Edit1.Text);

DataModule10.ADOTable1.Filtered:=true;

end;

procedure TForm5.BitBtn2Click(Sender: TObject);

begin

DataModule10.ADOTable1.Filtered:=false;

end;procedure TForm5.ComboBox1Select(Sender: TObject);beginif combobox1.Text<>'' then begin label2.Visible:=true; edit1.Visible:=true; bitbtn1.Visible:=true; bitbtn2.Visible:=true; end;end;end.

4) Форма «Добавить слушателя»

Рис. 4

Листинг Unit11:

procedure TForm11.BitBtn1Click(Sender: TObject);

begin

DataModule10.adotable1.insert;

BitBtn3.Visible:=true;

end;

procedure TForm11.BitBtn2Click(Sender: TObject);

begin

DataModule10.adotable1.delete;

end;

procedure TForm11.Button1Click(Sender: TObject);

begin

Groupbox1.Visible:=true;

button1.visible:=false;

bitbtn3.Visible:=true;

end;

procedure TForm11.FormCreate(Sender: TObject);begin

button1.Visible:=true;

groupbox1.Visible:=false;

BitBtn3.Visible:=false;

end;

end.

5) Форма «Преподаватели»

Рис.5

Листинг Unit 6:

procedure TForm6.BitBtn1Click(Sender: TObject);

begin

DataModule10.ADOTable3.Filter:=ComboBox1.Text+'='+QuotedStr(Edit1.Text);

DataModule10.ADOTable3.Filtered:=true;

end;

procedure TForm6.BitBtn2Click(Sender: TObject);

begin

DataModule10.ADOTable3.Filtered:=false;

end;procedure TForm6.N2Click(Sender: TObject);

ПРОДОЛЖЕНИЕ ПРИЛОЖЕНИЯ 3

begin

form13.show;

end;

procedure TForm6.ComboBox1Select(Sender: TObject);

begin

if combobox1.Text<>'' then begin label2.Visible:=true; edit1.Visible:=true; bitbtn1.Visible:=true; bitbtn2.Visible:=true; end;

end;

end.

6) Форма «Добавление преподавателя»

Рис. 6

Листинг Unit 13:

procedure TForm13.Button1Click(Sender: TObject);

begin

Groupbox1.Visible:=true;

end;

procedure TForm13.BitBtn1Click(Sender: TObject);

beginDataModule10.adotable3.insert;BitBtn3.Visible:=true;end;

procedure TForm13.BitBtn2Click(Sender: TObject);

begin

DataModule10.adotable3.delete;

Button1.Visible:=false;

end;

procedure TForm13.FormCreate(Sender: TObject);

begin

groupbox1.Visible:=false;

BitBtn3.Visible:=false;

end;end.

7) Форма «Оценки»

Рис. 7

Листинг Unit 7:

procedure TForm7.BitBtn1Click(Sender: TObject);

beginDataModule10.ADOTable4.Locate('№ договора',Edit1.Text,[]);end;procedure TForm7.BitBtn2Click(Sender: TObject);

begin

form7.Close;

end;

procedure TForm7.FormCreate(Sender: TObject);

begin

end;

end.

8) Форма «Платежи»

Рис. 8

Листинг Unit 8:

procedure TForm8.BitBtn1Click(Sender: TObject);

begin

DataModule10.ADOTable5.Filter:='['+ComboBox1.Text+']='+QuotedStr(Edit1.Text);

DataModule10.ADOTable5.Filtered:=true;

end;

procedure TForm8.BitBtn2Click(Sender: TObject);

begin

form8.Close;end;procedure TForm8.FormCreate(Sender: TObject);beginend;end.

9) Форма «Договора»

Рис. 9

Листинг Unit 12:

procedure TForm12.BitBtn1Click(Sender: TObject);

begin

DataModule10.ADOTable6.Filter:='['+ComboBox1.Text+']='+QuotedStr(Edit1.Text);

DataModule10.ADOTable6.Filtered:=true;

end;

procedure TForm12.FormCreate(Sender: TObject);

begin

end;

end.

Форма «Запрос по оценкам»

Рис. 10



Рис. 11

Листинг Unit 3:

procedure TForm3.BitBtn1Click(Sender: TObject);

begin

DataModule10.ADOQuery1.Active:=true;

Quickrep1.Preview;

end;

procedure TForm3.FormCreate(Sender: TObject);

begin

Quickrep1.Visible:=false;

end;

end.

10) Форма «Письменный договор»

Рис. 12

Листинг Unit 1;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

e:=CreateOleObject('Excel.Application');

e.Workbooks.Open('G:\диплом\дипломная делфи\dogovor_plat_uslug.xls');

e.visible:=true;e.Selection.WrapText:=true;

e.Range['G4']:=Edit1.text;

e.Range['K16']:=Edit2.text;

e.Range['M16']:=Edit3.text;

e.Range['F83']:=Edit4.text;

e.Range['H133']:=Edit2.text;

e.Range['J133']:=Edit3.text;

e.Range['L133']:=Edit5.text;

e.Range['L135']:=Edit6.text;

e.Range['L137']:=Edit7.text;

e.Range['F138']:=Edit8.text;

end;

11) Форма «Запрос договор»

Рис. 13

Рис. 14

Листинг Unit 14;

procedure TForm14.FormCreate(Sender: TObject);

begin

Quickrep1.Visible:=false;

end;

procedure TForm14.BitBtn1Click(Sender: TObject);

begin

DataModule10.ADOQuery2.Active:=true;

Quickrep1.Preview;

end;

end.

12) Форма «Отчет о преподавателях»

Рис. 15

Рис. 16

Листинг Unit 15:

procedure TForm15.BitBtn1Click(Sender: TObject);

begin

DataModule10.AdoTable7.Active:=true;

Quickrep1.Preview;

end;

procedure TForm15.FormCreate(Sender: TObject);

begin

Quickrep1.Visible:=false;

end;

end.

13) Форма «Отчет о слушателях»

Рис. 17

Рис. 18

Листинг Unit 16:

procedure TForm16.BitBtn1Click(Sender: TObject);

begin

DataModule10.AdoTable8.Active:=true;

Quickrep1.Preview;

end;

procedure TForm16.FormCreate(Sender: TObject);

begin

Quickrep1.Visible:=false;

end;

end.

1.Назначение проекта

В дипломном проекте реализована автоматизированная информационная система (АИС) для УПК «Радиополитехникум» СПбПУ Петра Великого.

2.Условие выполнения проекта

Для функционирования АИС необходимы следующие характеристики ПК:

· процессор Intel Pentium 2 - 450 МГц (AMD K6-2-500) или выше;

· ОЗУ: 128 Мб или выше;

· операционная система Windows XP или выше;

· приложение Microsoft Access 2007 или выше;

· приложение Delphi 7.

3. Выполнение программы и сообщение оператору.

Для запуска программы необходимо открыть файл Project1.exe.

Основные направления работы программы:

В форме «Главное меню» необходимо выбрать вкладку, которая необходима вам для работы.

Затем в уже выбранной форме вы можете просматривать, фильтровать занесенную информацию (рис.2), записать нового слушателя (рис.3) благодаря редактору.



Рис. 2

Рис. 3

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