Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
курсач 7 вариант 1с.doc
Скачиваний:
0
Добавлен:
01.03.2025
Размер:
1.28 Mб
Скачать

1.2. Структура меню

В главном меню пользователю предоставляется возможность выбирать следующие пункты меню и пункты подменю:

Константы:

  • Декан

  • Секретарь

Справочники:

  • Студенты

  • Сотрудники

  • Преподаватели

  • Абитуриенты

  • Форма обучения

Документы :

  • Доп часы

  • Начисление стипендии

  • Зачисление

  • Отчисление

  • Учащиеся

  • Ведомость студента

Журналы:

  • Студенты

  • Стипендия

  • Доп часы

Перечисления:

  • Группа

  • Курс

  • Специальность

  • Должность

  • Ученая степень

  • Предмет

  • Оценка

  • Семестр

  • Тип сдачи

  • Стипендия

Отчеты :

  • Ведомость

  • Доп часы

  • Стипендия

  • Студенты

  • Универсальный

  • Цена предмета

  • Рейтинг студентов

Регистр сведений:

  • Цена предмета

  • Степень

  • Ведомость

  • Начисление

Регистр накопления:

  • Студенты

  • Стипендия

Глава 2

Построение программного продукта:

Для создания новой конфигурации надо проделать следующую последовательность действий:

  • Зарегистрировать информационную базу;

  • Установить свойства конфигурации;

  • Создать объекты метаданных;

  • Описать пользовательские интерфейсы;

  • Описать права пользователей;

  • Сохранить и редактировать конфигурацию.

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

Константы

В системе 1С:Предприятие константы предназначены для хранения постоянной или условно-постоянной информации. Такая информация либо совсем не изменяется в процессе деятельности предприятия, либо изменяется достаточно редко. Поэтому при создании информационно – справочной системы учёта выдачи книг в библиотеке Я посчитала необходимым создать следующие константы:

Форма констант

Перечисления

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

Справочники

Теперь переходим к созданию новых типов справочников. Справочник является списком возможных значений того или иного реквизита документа. Система 1С:Предприятие позволяет вести практически неограниченное количество необходимых справочников. Каждый справочник представляет собой список однородных объектов: сотрудников, организаций, товаров и т. д. Каждый такой объект будем называть эле­ментом справочника.

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

1.Студенты

Форма списка:

Создаём печатную форму и в модуле формы списка пишем следующий код:

Процедура ПечатьСтудентов(Элемент)

//{{_КОНСТРУКТОР_ПЕЧАТИ_СПИСОК(ПечатьСтудентов)

// Данный фрагмент построен конструктором.

Макет = Справочники.Студенты.ПолучитьМакет("ПечатьСтудентов");

// Заголовок

Область = Макет.ПолучитьОбласть("Заголовок");

ТабДок.Вывести(Область);

// Шапка

Область = Макет.ПолучитьОбласть("Шапка");

ТабДок.Вывести(Область);

Выборка = Справочники.Студенты.ВыбратьИерархически();

Пока Выборка.Следующий() = Истина Цикл

Объект = Выборка.ПолучитьОбъект();

Если Объект.ЭтоГруппа = Истина Тогда

Область = Макет.ПолучитьОбласть( "Группа");

Область.Параметры.Код = Объект.Код;

Область.Параметры.Наименование = Объект.Наименование;

ТабДок.Вывести(Область);

Иначе

Область = Макет.ПолучитьОбласть("Элемент");

Область.Параметры.Код = Объект.Код;

Область.Параметры.Наименование = Объект.Наименование;

Область.Параметры.Фамилия = Объект.Фамилия;

Область.Параметры.Имя = Объект.Имя;

Область.Параметры.Отчество = Объект.Отчество;

Область.Параметры.Курс = Объект.Курс;

Область.Параметры.Группа = Объект.Группа;

Область.Параметры.Специальность = Объект.Специальность;

Область.Параметры.ДатаРождения = Объект.ДатаРождения;

Область.Параметры.Курс = Объект.Курс;

Область.Параметры.Ссылка = Объект.Ссылка;

ТабДок.Вывести(Область);

КонецЕсли;

КонецЦикла;

ТабДок.ОтображатьСетку = Ложь;

ТабДок.Защита = Истина;

ТабДок.ТолькоПросмотр = Истина;

ТабДок.ОтображатьЗаголовки = Ложь;

ТабДок.Показать();

//}}_КОНСТРУКТОР_ПЕЧАТИ_СПИСОК

КонецПроцедуры

Печатная форма студентов:

Создаём печатную форму и в модуле формы списка пишем следующий код:

Процедура ПечатьОбучение(Элемент)

//{{_КОНСТРУКТОР_ПЕЧАТИ_СПИСОК(ПечатьОбучение)

// Данный фрагмент построен конструктором.

// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

ТабДок = Новый ТабличныйДокумент;

Макет = Справочники.Студенты.ПолучитьМакет("ПечатьОбучение");

// Заголовок

Область = Макет.ПолучитьОбласть("Заголовок");

ТабДок.Вывести(Область);

// Шапка

Область = Макет.ПолучитьОбласть("Шапка");

ТабДок.Вывести(Область);

Выборка = Справочники.Студенты.ВыбратьИерархически();

Пока Выборка.Следующий() = Истина Цикл

Объект = Выборка.ПолучитьОбъект();

Если Объект.ЭтоГруппа = Истина Тогда

Область = Макет.ПолучитьОбласть( "Группа");

Область.Параметры.Код = Объект.Код;

Область.Параметры.Наименование = Объект.Наименование;

ТабДок.Вывести(Область);

Иначе

Область = Макет.ПолучитьОбласть("Элемент");

Область.Параметры.Код = Объект.Код;

Область.Параметры.Наименование = Объект.Наименование;

Область.Параметры.Фамилия = Объект.Фамилия;

Область.Параметры.Имя = Объект.Имя;

Область.Параметры.Отчество = Объект.Отчество;

Область.Параметры.Курс = Объект.Курс;

Область.Параметры.Группа = Объект.Группа;

Область.Параметры.Специальность = Объект.Специальность;

Область.Параметры.ДатаРождения = Объект.ДатаРождения;

Область.Параметры.Курс = Объект.Курс;

Область.Параметры.Ссылка = Объект.Ссылка;

СсылкаД = Объект.Ссылка;

ВыборкаД = Справочники.ФормаОбучения.Выбрать(,СсылкаД,,);

ТабДок.Вывести(Область);

Пока ВыборкаД.Следующий() = Истина

Цикл

ОбъектД = ВыборкаД.ПолучитьОбъект();

Область = Макет.ПолучитьОбласть("Форма");

Область.Параметры.Код = ОбъектД.Код;

Область.Параметры.ФормаОбучения = ОбъектД.ФормаОбучения;

ТабДок.Вывести(Область);

КонецЦикла;

КонецЕсли;

КонецЦикла;

ТабДок.ОтображатьСетку = Ложь;

ТабДок.Защита = Истина;

ТабДок.ТолькоПросмотр = Истина;

ТабДок.ОтображатьЗаголовки = Ложь;

ТабДок.Показать();

//}}_КОНСТРУКТОР_ПЕЧАТИ_СПИСОК

КонецПроцедуры

Печатная форма обучение: