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

Название	Разработка программного обеспечения корпоративной информационной системы
Анкор	методы планирования качества
Дата	29.03.2022
Размер	4.62 Mb.
Формат файла
Имя файла	курсовой проект мищен.docx
Тип	Реферат #424079
страница	3 из 3

1 2 3

4 Описание программного средства

4.1 Выбор языка программирования
Для реализации проекта был выбран встроенный язык программирования 1С:Предприятие, как один из наиболее популярных и удобных средств разработки.

Средой исполнения языка является программная платформа «1С:Предприятие». Визуальная среда разработки («Конфигуратор») является неотъемлемой частью пакета программ «1С:Предприятие». Платформой предоставляется фиксированный набор базовых классов, ориентированных на решение типовых задач прикладной области:

Константа,
Справочник,
Документ,
Журнал документов,
Перечисление,
Отчет,
Обработка,
План счетов и др.

На основании базовых классов средствами визуального конфигурирования можно создавать любое количество порождённых классов (возможность определить новый класс программно — отсутствует). Допускается только одна явная ступень наследования классов. Как правило, объекты порождённых классов представляют собой записи (или некоторые наборы записей) в базе данных. Такие классы образуют «Дерево метаданных». В терминах встроенного языка программирования 1С такие классы называются объектами метаданных. Основными видами объектов метаданных являются: Справочники, Документы, Отчеты, Обработки, Планы видов характеристик, Планы счетов, Планы видов расчета, Регистры сведений, Регистры накопления, Регистры расчета, Бизнес-процессы, Задачи.

4.2 Контрольный пример

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

Рисунок 12 –Вход в приложение

Рисунок 13 – Оформление заказа

Рисунок 14 –Отчет по заказам

Заключение
В любой организации, как большой, так и маленькой, возникает проблема такой организации управления данными, которая обеспечила бы наиболее эффективную работу. Небольшие организации используют для этого шкафы с папками, однако крупные корпоративные предприятия используют компьютеризированные системы автоматизации, позволяющие эффективно хранить, извлекать информацию и управлять большими объемами данных.

Темпы внедрения новых технологий в компьютерной отрасли значительно увеличились. Компании, конкурирующие за рынки и прибыли, стремятся моментально реализовать технические новшества в аппаратных средствах, программном обеспечении и парадигмах вычислений, стимулирующих развитие всей технологии управления информацией. Однако для успешной реализации крупных систем управления требуется применить нестандартный подход, творческое решение. Использование основ эргономики при проектировании, реализации и внедрении системы управления позволит решить многие «психологические» и «технологические» проблемы предприятий.

В данной курсовой работе были рассмотрены теоретические вопросы, связанные с построением информационной сети и использующей ее ресурсы КИС, методологией IDEF0, ее основные элементы и понятия, декомпозиция бизнес-процессов на уровни. В практической части был организован бизнес-процесс автоматизированного оформления заявки на предоставление услуги в салоне красоты, построена его концептуальная модель, выявлены сопутствующие бизнес-процессы.
Список литературы

Долгих Д. В., Хаустович А. В. Технологии проектирования корпоративных информационных систем .-Воронеж, 2000.
Ландсберг С. Е. Проектирование сложных ИС.- Воронеж, 2002.
Яскевич О. Г. Корпоративные информационные системы. – Воронеж, 2004
Яскевич О.Г. Оперативный учет на базе платформы 1С:предприятие.-Воронеж, 2003

Приложение А (обязательное)

Листинг программы

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

ПриЗаписиПерепроводить(1);

КонецПроцедуры
Процедура Кол()

КолО=Окр(Кол*(Ед.Коэффициент),2,1);

Сумма=Окр(КолО*Цена,2,1);

КонецПроцедуры
Процедура Ед()

КолО=Окр(Кол*(Ед.Коэффициент),2,1);

Сумма=Окр(КолО*Цена,2,1);

КонецПроцедуры
Процедура Цена()

Сумма=Окр(КолО*Цена,2,1);

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

Процедура Мастера()

Договор=ПолучитьПустоеЗначение("Справочник.Договора");

КонецПроцедуры
Процедура Услуга()

Если Кол=0 Тогда

Кол=1;

КонецЕсли;

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

СпрЕд.ИспользоватьВладельца(Услуги);

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

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

Если СпрЕд.Ед=Услуги.ЕдИзм Тогда

Ед=СпрЕд.ТекущийЭлемент();

Прервать;

КонецЕсли;

КонецЦикла;

КолО=Окр(Кол*(Ед.Коэффициент),2,1);

Цена=Окр(Услуги.ЦенаР.Получить(ДатаДок),2,1);

Сумма=Окр(КолО*Цена,2,1);
КонецПроцедуры

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

//

Процедура ОбработкаПроведения()
Если Мастера.Выбран()=0 Тогда

Предупреждение ("Мастер не выбран");

НеПроводитьДокумент();

КонецЕсли;
Если ДатаВып<ДатаДок Тогда

Предупреждение ("Неверная дата ");

НеПроводитьДокумент();

КонецЕсли;

Регистр.Расчеты.Мастера=Мастера;

Регистр.Расчеты.Услуги=Услуги;

Регистр.Расчеты.Сумма=Итог("Сумма");

Регистр.Расчеты.ФлагДвижения=1;

Регистр.Расчеты.ДвижениеПриходВыполнить();
КонецПроцедуры

********************
Процедура ДатаН()

ДатаК=ПолучитьДатуТА();

Если ДатаН>ДатаК Тогда

ДатаН=ДатаК;

КонецЕсли;

КонецПроцедуры
Процедура ДатаК()

Если ДатаК<ДатаН Тогда

ДатаК=ДатаН;

ИначеЕсли ДатаК>ПолучитьДатуТА() Тогда

ДатаК=ПолучитьДатуТА();

КонецЕсли;

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

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

ТЗ="

|Период с ДатаН по ДатаК;

|Контр=Регистр.Расчеты.Мастера;

|Дог=Регистр.Расчеты.Договора;

|Долг=Регистр.Расчеты.Сумма;

|Функция СумКонОст=КонОст(Долг);

|Группировка Контр упорядочить по Контр.Код;

|";

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

Сообщить("Запрос не выполнен");

Возврат;

КонецЕсли;

ИтогоМы=0;

ИтогоНам=0;

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

Таб.ИсходнаяТаблица("");

Таб.ВывестиСекцию("Шапка");

Пока Запрос.Группировка("Контр")=1 Цикл

ТЭ=Запрос.Контр;

Долг=Запрос.СумКонОст;

Если ТЭ.ЭтоГруппа()=1 Тогда

НазГр=СокрЛП(ТЭ.Наименование);

Если Долг=0 Тогда

ИначеЕсли Долг>0 Тогда

Мы=Долг;

Нам=0;

ИначеЕсли Долг<0 Тогда

Мы=0;

Нам=-Долг;

КонецЕсли;

Таб.ВывестиСекцию("Группа"); Иначе

Наз="("+СокрЛП(Строка(ТЭ.Код))+")"+СокрЛП(ТЭ.Наименование);

Если Долг=0 Тогда

Продолжить;

ИначеЕсли Долг>0 Тогда

Мы=Долг;

Нам=0;

ИтогоМы=ИтогоМы+Мы;

ИначеЕсли Долг<0 Тогда

Мы=0;

Нам=-Долг;

ИтогоНам=ИтогоНам+Нам;

КонецЕсли;

Таб.ВывестиСекцию("Строка");

КонецЕсли;

КонецЦикла;

Таб.ВывестиСекцию("Итого");

Таб.ТолькоПросмотр(1);

Таб.ПараметрыСтраницы(1,100,1);

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

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

1 2 3