Консоль Запросов

Модуль:

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

Процедура Сформировать ()

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

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

// Выгружаем результат запроса в таблицу

// значений

Запрос. Выгрузить(РезультатЗапроса);

КонецЕсли;

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

Рисунок 13 – Консоль Запросов

Экспорт-Импорт

Модуль:

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

Процедура Сформировать()

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

Процедура ЭкспортСпр ()

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

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

Спр=СоздатьОбъект("Справочник.Сотрудники");

Спр.ВыбратьЭлементы();

Пока Спр.ПолучитьЭлемент()=1 Цикл

Список.ДобавитьЗначение(Спр.Наименование);

Список.ДобавитьЗначение(Спр.Оклад);

Список.ДобавитьЗначение(Спр.Должность);

//Выводим список в текст

Текст.ДобавитьСтроку(Список.ВСтрокуСРазделителями());

Список.УдалитьВсе();

КонецЦикла;

Текст.Записать("C:\Exp_imp.txt");

Предупреждение("Справочник сотрудников выгружен в файл C:\Exp_imp.txt");

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

Процедура ИмпортСпр()

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

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

Спр=СоздатьОбъект("Справочник.Сотрудники");

СпрД=СоздатьОбъект("Справочник.Должности");

Текст.Открыть("C:\Exp_imp.txt");

Спр.ВыбратьЭлементы();

счет=0;

Для Ном=1 По текст.КоличествоСтрок() Цикл

Стр=Текст.ПолучитьСтроку(Ном);

Список.ИзСтрокиСРазделителями(Стр);

Если Спр.НайтиПоКоду(число(Список.ПолучитьЗначение(1)))=0 тогда

//в справочнике сотрудников нет такого кода

счет=счет+1;

Спр.Новый();

Спр.Наименование=Список.ПолучитьЗначение(2);

Спр.Оклад=Список.ПолучитьЗначение(3);

Если Спр.НайтиПоКоду(число(Список.ПолучитьЗначение(4)))=1 тогда

//в справочнике должности есть такой код

Спр.Должность=СпрД.ТекущийЭлемент();

Конецесли;

Спр.Записать();

иначе

Сообщить("Сотрудник с именем "+Список.ПолучитьЗначение(5)+ " уже существует!")

Конецесли;

КонецЦикла;

Предупреждение("В справочник сотрудников загружено "+счет+" строк.");

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

Рисунок 14 – Форма Экспорт-Импорт

Рисунок 15 - Экспорт

Администрирование

Рисунок 16– Создание пользователей

Рисунок 17 – Меню пользователя

Рисунок 18 – Панель инструментов