Модуль формы элемента справочника «Группы»

//*******************************************

//

Процедура ОбновитьКол()

Перем Запрос, ТекстЗапроса;

Запрос=СоздатьОбъект("Запрос");

ТекстЗапроса="Группа = Справочник.Студенты.Группа;

|Функция Счётчик = Счётчик();

|Условие(Группа = ТекущийЭлемент());

|";

Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда

Возврат;

КонецЕсли;

КолВоСтудентов=Запрос.Счётчик;

Если Константа.ОбновлятьКолСтудПриОткрытии=0 Тогда

Форма.Обновить();

Записать();

КонецЕсли;

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

//_____________________________________________________________________________

Процедура ПриОткрытии()

Форма.кнОбновить.Видимость(1-Константа.ОбновлятьКолСтудПриОткрытии);

КонецПроцедуры //ПриОткрытии

//_____________________________________________________________________________

Процедура ПриЗаписи() //предопределенная

Если Константа.ОбновлятьКолСтудПриОткрытии=1 Тогда

ОбновитьКол();

КонецЕсли;

КонецПроцедуры //ПриЗаписи

Модуль формы списка справочника «Студенты»

//_____________________________________________________________________________

Процедура ПриОткрытии() //предопределенная

ВыборГруппы(0);

КонецПроцедуры //ПриОткрытии

Модуль формы элемента справочника «Темы»

Процедура ВыбратьФайл(ИФ)

Перем кат,ифв;

Если (СокрЛП(ИФ)<>"")И(ФС.СуществуетФайл(ИФ)=1) Тогда

Кат=ИФ;

Пока Сред(кат,СтрДлина(кат),1)<>"\" Цикл

кат=сред(кат,1,стрдлина(кат)-1);

Если СтрДлина(кат)=0 Тогда

Прервать;

КонецЕсли;

КонецЦикла;

Иначе

ИФ="";

Кат=КаталогИБ()+"Help\";

КонецЕсли;

Если ФС.ВыбратьФайл(0,ИФв,Кат,"Выберите файл","(*.txt)|*.txt",,)=1 Тогда

ИФ=Кат+ИФв;

КонецЕсли;

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

//_____________________________________________________________________________

Процедура кнВопросы()

Если Выбран()=0 Тогда

Записать();

КонецЕсли;

Если Выбран()=0 Тогда

Возврат;

КонецЕсли;

КонтекстФормы="";

ОткрытьФорму("Справочник.Вопросы",КонтекстФормы);

КонтекстФормы.ИспользоватьВладельца(ТекущийЭлемент());

КонецПроцедуры //кнВопросы

Модуль формы списка справочника «Темы»

//_____________________________________________________________________________

Процедура ПриОткрытии() //предопределенная

ВыборГруппы(0);

Если ИмяПользователя()="Студент" Тогда

Форма.Справка.Видимость(0);

КонецЕсли;

КонецПроцедуры //ПриОткрытии

Модуль формы элемента справочника «Вопросы»

//_____________________________________________________________________________

Процедура ПриЗаписи() //предопределенная

Если ПравильныйОтвет=0 Тогда

Предупреждение("Не указан правильный ответ!");

СтатусВозврата(0);

Возврат;

КонецЕсли;

Если ПустоеЗначение(ПолучитьАтрибут("Ответ"+Строка(ПравильныйОтвет)))=1 Тогда

Предупреждение("Не указан правильный ответ!");

СтатусВозврата(0);

Возврат;

КонецЕсли;

КолОтветов=0;

Для Л=1 по 5 Цикл

КолОтветов=КолОтветов+ПустоеЗначение(ПолучитьАтрибут("Ответ"+Строка(Л)));

КонецЦикла;

Если КолОтветов>3 Тогда

Предупреждение("Задайте не менее 2-х вариантов ответов!");

СтатусВозврата(0);

Возврат;

КонецЕсли;

КонецПроцедуры //ПриЗаписи

//_____________________________________________________________________________

Процедура кнПонятия()

Если Выбран()=0 Тогда

Записать();

КонецЕсли;

Если Выбран()=0 Тогда

Возврат;

КонецЕсли;

КонтекстФормы=ТекущийЭлемент();

ОткрытьФорму("Справочник.СсылкиНаПонятия.ФормаСписка",КонтекстФормы);

КонтекстФормы.ИспользоватьВладельца(ТекущийЭлемент());

КонецПроцедуры //кнПонятия