- •Курсовая работа
- •2 Программная реализация информационной системы 10
- •1 Описание системы
- •1.1 Нормализация и схема базы данных
- •1.2 Структура меню
- •2 Программная реализация информационной системы
- •2.1 Перечисления
- •2.2 Справочники
- •2.3 Документы
- •2.4 Регистры
- •2.5 Журналы
- •2.6 Отчеты
- •2.7 Администрирование
1.2 Структура меню
В главном меню пользователю предоставляется возможность выбирать следующие пункты меню и пункты подменю:
Справочники:
Пассажиры;
Поезд;
Места;
Документ;
Журналы документов:
Касса;
Документы:
Билет;
Бронирование Билетов;
Возврат;
Расписание Поездов;
Отчеты:
Расписание Поездов;
Цены На Билеты;
Информация О поездах ;
Проданные Билеты;
Движение Наличности За Период;
Билет;
2 Программная реализация информационной системы
2.1 Перечисления
Перечисления:
На снимке экрана представлены перечисления, используемые в системе:
2.2 Справочники
В данной информационно-справочной системе существуют следующие справочники: Документ, Места, Пассажиры, Поезд.
1) Пассажиры:
Форма элемента:
Печатная форма элемента справочника:
Форма списка:
Печатная форма:
2) Документ
Форма элемента:
Форма списка:
Печатная форма:
3) Поезд
Форма элемента:
Печатная форма:
Форма списка:
Печатная форма:
4) Места
Форма элемента:
Печатная форма:
Форма списка
Печатная форма:
2.3 Документы
1) Билет:
Форма документа:
Печатная форма:
Модуль документа:
Процедура Место Цена При Изменении (Элемент)
Строка Табличной Части = Элементы Формы. Место. Текущие Данные; Рассчитать Сумму (Строка Табличной Части );
Конец Процедуры
Процедура Место НДС При Изменении (Элемент)
Строка Табличной Части = Элементы Формы. Место. Текущие Данные; Рассчитать Сумму (Строка Табличной Части );
Конец Процедуры
Процедура Перед Записью (Отказ, Режим Записи, Режим Проведения)
Сумма Документа = Место. Итог ("Сумма");
Конец Процедуры
Процедура Печать(Элемент)
//{{_КОНСТРУКТОР_ПЕЧАТИ_ЭЛЕМЕНТ(Печать)
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
Таб Док = Новый Табличный Документ;
Макет = Документы. Билет. Получить Макет("Печать");
// Заголово Область = Макет. Получить Область("Заголовок");
Таб Док. Вывести (Область);
// Шапка
Область = Макет. Получить Область("Шапка");
Область. Параметры. Номер = Номер;
Область. Параметры. Дата = Дата;
Область. Параметры. Номер Билета = Номер Билета;
Область. Параметры. ФИО = ФИО;
Область. Параметры. Документ = Документ;
Область. Параметры. Поезд = Поезд;
Область. Параметры. Станция Отправления = Станция Отправления;
Область. Параметры. Станция Прибытия = Станция Прибытия;
Область. Параметры. Дата Отправления = Дата Отправления;
Область. Параметры. Дата Прибытия = Дата Прибытия;
Таб Док. Вывести(Область);
// Вагон
Область = Макет. Получить Область ("Вагон Шапка");
Таб Док. Вывести (Область);
Для Каждого Тек Строка Вагон Из Вагон Цикл
Область = Макет. Получить Область ("Вагон");
Область. Параметры. ТипВагона = ТекСтрока Вагон. Тип Вагона;
Область. Параметры. Номер Вагона = ТекСтрока Вагон. Номер Вагона;
ТабДок. Вывести (Область);
Конец Цикла;
// Место
Область = Макет. Получить Область ("Место Шапка");
ТабДок. Вывести(Область);
Для Каждого ТекСтрока Место Из Место Цикл
Область = Макет. Получить Область ("Место");
Область. Параметры. Номер Места = ТекСтрока Место. Номер Места ;
Область. Параметры. Цена = ТекСтрока Место. Цена;
Область. Параметры. НДС = ТекСтрока Место. НДС;
Область. Параметры. Сумма = ТекСтрока Место. Сумма;
ТабДок. Вывести(Область);
Конец Цикла;
// Подвал
Область = Макет. Получить Область("Подвал");
Область. Параметры. Сумма Документа = Сумма Документа ;
ПараметрыПредметаИсчисления="рубль,рубля,рублей,м,копейка,копейки,копеек,ж,2";
Форматная Строка="Л=ru_RU";
Область. Параметры. Сумма Прописью = Число Прописью (Сумма Документа, Форматная Строка, Параметры Предмета Исчисления );
ТабДок. Вывести(Область);
ТабДок. Отображать Сетку = Ложь;
ТабДок. Защита = Истина;
ТабДок. Только Просмотр = Ложь;
ТабДок. Отображать Заголовки = Ложь;
ТабДок. Показать();
//}}_КОНСТРУКТОР_ПЕЧАТИ_ЭЛЕМЕНТ
Конец Процедуры
2) Бронирование билетов
Форма документа:
Печатная форма:
Модуль документа:
Процедура Печать(Элемент)
//{{_КОНСТРУКТОР_ПЕЧАТИ_ЭЛЕМЕНТ(Печать)
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
ТабДок = Новый Табличный Документ;
Макет = Документы. Бронирование Билетов. Получить Макет("Печать");
// Заголовок
Область = Макет. Получить Область ("Заголовок");
ТабДок. Вывести (Область);
// Шапка
Область = Макет. Получить Область ("Шапка");
Область. Параметры. Номер = Номер;
Область. Параметры. Дата = Дата;
Область. Параметры. ФИО = ФИО;
Область. Параметры. Документ = Документ;
Область. Параметры. Станция Отправления = Станция Отправления;
Область. Параметры. Дата Отправления = Дата Отправления;
Область. Параметры. Станция Прибытия = Станция Прибытия;
Область. Параметры. Дата Прибытия = Дата Прибытия;
Область. Параметры. Цена = Цена;
ПараметрыПредметаИсчисления="рубль,рубля,рублей,м,копейка,копейки,копеек,ж,2";
Форматная Строка ="Л=ru_RU";
Область. Параметры. Сумма Прописью = Число Прописью (Цена, Форматная Строка, Параметры Предмета Исчисления );
ТабДок. Вывести (Область);
ТабДок. Отображать Сетку = Ложь;
ТабДок. Защита = Истина;
ТабДок. Только Просмотр = Истина;
ТабДок. Отображать Заголовки = Ложь;
ТабДок. Показать();
//}}_КОНСТРУКТОР_ПЕЧАТИ_ЭЛЕМЕНТ
Конец Процедуры
3) Возврат билетов
Форма документа:
Печатная форма:
Модуль документа:
Процедура Печать1(Элемент)
//{{_КОНСТРУКТОР_ПЕЧАТИ_ЭЛЕМЕНТ(Печать1)
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
ТабДок = Новый Табличный Документ;
Макет = Документы. Возврат Билетов. Получить Макет("Печать1");
// Заголовок
Область = Макет. Получить Область ("Заголовок");
ТабДок. Вывести(Область);
// Шапка
Область = Макет. Получить Область ("Шапка");
Область. Параметры. Номер = Номер;
Область. Параметры. Дата = Дата;
Область. Параметры. Пассажир = Пассажир;
Область. Параметры. Номер Билета = Номер Билета ;
Область. Параметры. Станция Отправления = Станция Отправления;
Область. Параметры. Станция Прибытия = Станция Прибытия;
Область. Параметры. Дата Отправления = Дата Отправления;
Область. Параметры. Дата Прибытия = Дата Прибытия;
Область. Параметры. Сумма = Сумма; ПараметрыПредметаИсчисления="рубль,рубля,рублей,м,копейка,копейки,копеек,ж,2";
Форматная Строка ="Л=ru_RU";
Область. Параметры .Сумма Прописью = Число Прописью (Сумма, Форматная Строка, Параметры Предмета Исчисления );
ТабДок. Вывести(Область);
ТабДок. Отображать Сетку = Ложь;
ТабДок. Защита = Истина;
ТабДок. Только Просмотр = Истина;
ТабДок. Отображать Заголовки = Ложь;
ТабДок. Показать ();
//}}_КОНСТРУКТОР_ПЕЧАТИ_ЭЛЕМЕНТ
Конец Процедуры
4) Расписание поездов
Форма документа:
Печатная форма:
Модуль документа:
Процедура Печать(Элемент)
//{{_КОНСТРУКТОР_ПЕЧАТИ_ЭЛЕМЕНТ(Печать)
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
ТабДок = Новый Табличный Документ;
Макет = Документы. Расписание Поездов. Получить Макет ("Печать");
// Заголовок
Область = Макет. Получить Область ("Заголовок");
ТабДок. Вывести (Область);
// Шапка
Область = Макет. Получить Область("Шапка");
Область. Параметры. Номер = Номер;
Область. Параметры. Номер Поезда = Номер Поезда ;
Область. Параметры. Название Поезда = Название Поезда;
Область. Параметры. Станция Отправления = Станция Отправления;
Область. Параметры. Дата Отправления = Дата Отправления;
Область. Параметры. Станция Прибытия = Станция Прибытия;
Область. Параметры. Дата Прибытия = Дата Прибытия;
ТабДок. Вывести (Область);
ТабДок. Отображать Сетку = Ложь;
ТабДок. Защита = Истина;
ТабДок. Только Просмотр = Истина;
ТабДок. Отображать Заголовки = Ложь;
ТабДок. Показать ();
//}}_КОНСТРУКТОР_ПЕЧАТИ_ЭЛЕМЕНТ
Конец Процедуры