Проектная часть 4 Краткий анализ предметной области 4
Скачать 0.99 Mb.
|
Тестирование разработанного прикладного решенияПроцесс тестирования информационной системы заключается в ее установке, заполнении данными и проведении документов. Так, на Рисунок 30 представлено заполнение регистра сведений «Тарифы» в режиме 1С. Рисунок 30 - Заполнение регистра сведений "Тарифы" На Рисунок 31 показано заполнение документа «Продажа билетов». Заполнение цены происходит автоматически. Вычисление суммы и суммы по документу также вычисляется автоматически. Выбор тарифа происходит исходя из вида предоставляемой услуги. При нажатии на кнопку Скидка будет произведен пересчет суммы. Рисунок 31 - Заполнение документа "Продажа билетов" Нажатие кнопки Печать обеспечит вывод документа на печать (Рисунок 32). Рисунок 32 - Вывод документа "Продажа билетов" на печать Вывод отчета «Расписание полетов» (Рисунок 33). Рисунок 33 - Отчет "Расписание полетов" заключениеНеобходимость автоматизации «Терминала аэропорта» очевидна. Неоспоримым преимуществом автоматизированных систем является то, что они не требуют никаких дополнительных вложений, достаточно легко поддаются необходимым корректировкам в соответствии с требованиями рабочего процесса предприятия. Еще некоторое время назад автоматизацию воспринимали как способ сокращения времени на написание счетов. На сегодняшний день все ее преимущества оценены по достоинству. При этом была определена ее главная цель — быстрое предоставление информации, которая необходима для принятия решений в вопросах управления и анализа ресурсов предприятия. Обязательным является проведение обучения персонала на этапе установки системы. В результате выполнения курсовой работы все поставленные цели достигнуты. Изучение литературы по теме курсовой работы показало, что в данное время существует достаточный выбор программных продуктов, позволяющих автоматизировать работу «Терминала аэропорта». В курсовой работе описаны технологии функционирования ИС, выполнено физическое проектирование БД, разработаны экранные формы ввода-вывода, разработаны функциональные модули. Информационная система разработана на платформе «1С: Предприятие» версии 8.3. Данный выбор обусловлен широкими возможностями по ведению учета хозяйственных операций, предоставляемыми системой. Все поставленные задачи курсовой работы были решены. список использованной литературыУчебно-методическая литература Бойко Э.В., 1С: Предприятие 8.0. Универсальный самоучитель Варкентин В.В. Информационные системы на базе 1 С:Предприятие//Научное сообщество студентов XXI столетия. Технические науки: сб. ст. по мат. XXXIX междунар.студ.науч.-практ. Конф. № 2(39) https://sibac.info/studconf/tech/xxxix/47278 (дата обращения: 15.04.2019) Интернет-ресурсы Официальный сайт 1С: Предприятие — № 6 [электронный ресурс] — Режим доступа. — URL: http://v8.1c.ru/ (дата обращения 13.04.2019) Электронная книга 1С Предприятие 8.3., https://freesoft.ru/windows/elektr_kniga_1s_predpriyatie_83 Официальный сайт «АвиаБит» [электронный ресурс] — Режим доступа. — URL:http://www.aviabit.ru/airport ПриложениеПрограммный код, обеспечивающий заданную функциональность Код вычисления «Суммы» &НаКлиенте Процедура ПереченьУслугПриИзменении(Элемент) СтрТабЧасти=Элементы.ПереченьУслуг.ТекущиеДанные; СтрТабЧасти.Сумма=СтрТабЧасти.Цена*СтрТабЧасти.Количество; КонецПроцедуры Код вычисления «СуммыПоДокументу» &НаКлиенте Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения) СуммаТЧ=0; Для Каждого СтрТабЧасти Из ПереченьУслуг Цикл СуммаТЧ= СуммаТЧ+ СтрТабЧасти.Сумма; КонецЦикла; СуммаПоДокументу= СуммаТЧ; КонецПроцедуры Код конструктора движения регистров документа «Поступление билетов» Процедура ОбработкаПроведения(Отказ, Режим) //{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ // Данный фрагмент построен конструктором. // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!! // регистр КоличествоБилетов Расход Движения.КоличествоБилетов.Записывать = Истина; Для Каждого ТекСтрокаПереченьУслуг Из ПереченьУслуг Цикл Движение = Движения.КоличествоБилетов.Добавить(); Движение.ВидДвижения = ВидДвиженияНакопления.Расход; Движение.Период = Дата; Движение.Направление = Направление; Движение.Количество = ТекСтрокаПереченьУслуг.Количество; КонецЦикла; //}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ КонецПроцедуры Код конструктора печати «Поступление билетов» &НаКлиенте Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды) //{{_КОНСТРУКТОР_ПЕЧАТИ(Печать) ТабДок = Новый ТабличныйДокумент; Печать(ТабДок, ПараметрКоманды); ТабДок.ОтображатьСетку = Ложь; ТабДок.Защита = Ложь; ТабДок.ТолькоПросмотр = Истина; ТабДок.ОтображатьЗаголовки = Ложь; ТабДок.Показать(); //}} КонецПроцедуры &НаСервере Процедура Печать(ТабДок, ПараметрКоманды) Документы.ПоступлениеБилетов.Печать(ТабДок, ПараметрКоманды); КонецПроцедуры Код отчета «Персонал» (данные упорядочены по убыванию) ВЫБРАТЬ Персонал.Ссылка КАК Ссылка, Персонал.ВерсияДанных КАК ВерсияДанных, Персонал.ПометкаУдаления КАК ПометкаУдаления, Персонал.Код КАК Код, Персонал.Наименование КАК Наименование, Персонал.Должность КАК Должность, Персонал.ДатаРождения КАК ДатаРождения, Персонал.КоличествоЛетныхЧасов КАК КоличествоЛетныхЧасов, Персонал.СрокКонтракта КАК СрокКонтракта, Персонал.СемейноеПоложение КАК СемейноеПоложение, Персонал.МестоРаботы.( Ссылка КАК Ссылка, НомерСтроки КАК НомерСтроки, МестоПредыдущейРаботы КАК МестоПредыдущейРаботы, ДатаНазначения КАК ДатаНазначения, ДатаУвольнения КАК ДатаУвольнения, Должность КАК Должность ) КАК МестоРаботы, Персонал.Предопределенный КАК Предопределенный, Персонал.ИмяПредопределенныхДанных КАК ИмяПредопределенныхДанных ИЗ Справочник.Персонал КАК Персонал УПОРЯДОЧИТЬ ПО КоличествоЛетныхЧасов УБЫВ Программный код для предоставления Скидки &НаКлиенте Процедура Скидка(Команда) Для Каждого ТекСтрокаПереченьУслуг Из Объект.ПереченьУслуг Цикл ТекСтрокаПереченьУслуг.Цена=ТекСтрокаПереченьУслуг.Цена*0.9; ТекСтрокаПереченьУслуг.Сумма= ТекСтрокаПереченьУслуг.Цена*ТекСтрокаПереченьУслуг.Количество; КонецЦикла КонецПроцедуры Код для автоматической подстановки цен из регистра сведений в форме документа &НаКлиенте Процедура ПереченьУслугПредоставляемаяУслугаПриИзменении(Элемент) Стр=Элементы.ПереченьУслуг.ТекущиеДанные; Стр.Цена=ОбщиеФункции.ТарифНаДень(Объект.Дата,Стр.ПредоставляемаяУслуга); КонецПроцедуры Код для автоматической подстановки цен из регистра сведений в общем модуле Функция ТарифНаДень(ДатаОплаты,ПредоставляемаяУслуга) Экспорт ТарифУслуги=ПредоставляемаяУслуга.ВидТарифа; Отбор=Новый Структура("ВидТарифа",ТарифУслуги); ИнформацияИзРегистра= РегистрыСведений.Тарифы.ПолучитьПоследнее(ДатаОплаты,Отбор); Возврат ИнформацияИзРегистра.ЗначениеТарифа; КонецФункции |