Реализация информационной подсистемы
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
?(База) //настройка П=СоздатьОбъект("AddIn.AddInMail"); П.СерверОтправки=СокрЛП(База.СерверОтправки); П.ПортОтправки=СокрЛП(База.ПортОтправки); П.Логин=СокрЛП(База.ПочтаЛогин); П.Пароль=СокрЛП(База.ПочтаПароль); П.АутентификацияПриОтправке=База.Аутентификация; //подключение |Получатель: "+СокрЛП(База.Удаленная); //вложения Каталог=СокрЛП(База.Экспорт)+"\"; Файл=ФС.НайтиПервыйФайл(Каталог+"*.*"); Пока ПустаяСтрока(Файл)=0 Цикл //добавление Если Лев(Файл,1)<>"." Тогда Сообщить("Вложен файл: "+Каталог+Файл); П.Вложения=П.Вложения+Каталог+Файл+";"; КонецЕсли; //следующий Файл=ФС.НайтиСледующийФайл(); КонецЦикла; //отправка Если ПустаяСтрока(П.Вложения)=0 Тогда Если П.Отправить()=0 Тогда Сообщить("Не удалось отправить почту","!"); КонецЕсли; КонецЕсли; //отключение П.Отключиться(); КонецПроцедуры
А.2 Листинг отчета Поиск данных
&НаКлиенте
Процедура Поиск(Команда)
Искать(0);
КонецПроцедуры
&НаКлиенте
Процедура ПредыдущаяПорция(Команда)
Искать(-1);
КонецПроцедуры
&НаКлиенте
Процедура СледующаяПорция(Команда)
Искать(1);
КонецПроцедуры
&НаКлиенте
// Процедура поиска, получение и отображение результата
Процедура Искать(Направление)
Если ПустаяСтрока(ПоисковоеВыражение) Тогда
Предупреждение("Не задана строка поиска.");
Возврат;
КонецЕсли;
ИскатьСервер(Направление);
КонецПроцедура
&НаСервере
Процедура ИскатьСервер(Направление) Экспорт
СписокПоиска = ПолнотекстовыйПоиск.СоздатьСписок();
СписокПоиска.СтрокаПоиска = ПоисковоеВыражение;
Если Направление = 0 Тогда
СписокПоиска.ПерваяЧасть();
ИначеЕсли Направление = -1 Тогда
СписокПоиска.ПредыдущаяЧасть(ТекущаяПозиция);
ИначеЕсли Направление = 1 Тогда
СписокПоиска.СледующаяЧасть(ТекущаяПозиция);
КонецЕсли;
РезультатыПоиска.Очистить();
Для Каждого Результат Из СписокПоиска Цикл
РезультатыПоиска.Добавить(Результат.Значение);
КонецЦикла;
РезультатПоиска = СписокПоиска.ПолучитьОтображение(ВидОтображенияПолнотекстовогоПоиска.phpТекст);
ТекущаяПозиция = СписокПоиска.НачальнаяПозиция();
ПолноеКоличество = СписокПоиска.ПолноеКоличество(); Иначе
СообщениеОРезультате = "Не найдено";
Элементы.СледующаяПорция.Доступность = Ложь;
Элементы.ПредыдущаяПорция.Доступность = Ложь;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура РезультатПоискаПриНажатии(Элемент, ДанныеСобытия, СтандартнаяОбработка)
ЭлементHTML = ДанныеСобытия.Event.srcElement;
Если (ЭлементHTML.id = "FullTextSearchListItem") Тогда
// Получить имя файла (номер строки списка поиска), содержащегося в гиперссылке
НомерВСписке = Число(ЭлементHTML.nameProp);
// Получить строку списка поиска по номеру
ВыбраннаяСтрока = РезультатыПоиска[НомерВСписке].Значение;
// Открыть форму найденного объекта
ОткрытьЗначение(ВыбраннаяСтрока);
СтандартнаяОбработка = Ложь;
КонецПроцедуры
А.3 Листинг документа Инцидент
&НаКлиенте
Процедура ПослеЗаписи(ПараметрыЗаписи)
Сообщение = Новый ПочтовоеСообщение;
Сообщение.Текст = "";
Сообщение.Отправитель = "veshur@mail.ru";
Сообщение.Тема ="Добавлен ноовый инцидент";
Сообщение.Получатели.Добавить("veshur@mail.ru");
Почта = Новый Почта;
//подключаемся без параметров, к клиенту установленному по умолчанию в системе
Почта.Подключиться(,);
Попытка
//Пытаемся послать письмо
Почта.Послать(Сообщение,Истина);
Исключение
Сообщить(ОписаниеОшибки());
Возврат;
КонецПопытки;
//отключение
Почта.Отключиться();
КонецПроцедуры
А.4 Листинг документа Наряд
&наКлиенте
Процедура ПослеЗаписи(ПараметрыЗаписи)
//Адресс = Объект.Ответственный.УникальныйИдентификатор.ЭлектроннаяПочта;
Сообщение = Новый ПочтовоеСообщение;
Сообщение.Текст = "";
Сообщение.Отправитель = "Начальник отдела ИТ";
Сообщение.Тема ="Для Вас создан наряд";
Сообщение.Получатели.Добавить("veshur@mail.ru");
Почта = Новый Почта;
//подключаемся без параметров, к клиенту установленному по умолчанию в системе
Приложение Б. Копии слайдов презентации
Слайд 1 - Тема дипломного проекта, ФИО дипломника, ученая степень, ученое звание и ФИО руководителя
Слайд 2 - Актуальность, цель и задачи дипломного проекта
Слайд 3 - Диаграмма вариантов использования информационной подсистемы
Слайд 4 - Логическая модель базы данных
Слайд 5 - Интерфейс информационной подсистемы
Слайд 6 - Интерфейс информационной подсистемы
Слайд 7- Примеры отчетов, формируемых подсистемой
Слайд 8 - Примеры отчетов, формируемых подсистемой
Слайд 9 - Показатели технико-экономической эффективности проекта
Слайд 10 - Показатели технико-экономической эффективности проекта
Слайд 11 - Итоги дипломного проектирования