Банк рефератов содержит более 364 тысяч рефератов, курсовых и дипломных работ, шпаргалок и докладов по различным дисциплинам: истории, психологии, экономике, менеджменту, философии, праву, экологии. А также изложения, сочинения по литературе, отчеты по практике, топики по английскому.
Полнотекстовый поиск
Всего работ:
364150
Теги названий
Разделы
Авиация и космонавтика (304)
Административное право (123)
Арбитражный процесс (23)
Архитектура (113)
Астрология (4)
Астрономия (4814)
Банковское дело (5227)
Безопасность жизнедеятельности (2616)
Биографии (3423)
Биология (4214)
Биология и химия (1518)
Биржевое дело (68)
Ботаника и сельское хоз-во (2836)
Бухгалтерский учет и аудит (8269)
Валютные отношения (50)
Ветеринария (50)
Военная кафедра (762)
ГДЗ (2)
География (5275)
Геодезия (30)
Геология (1222)
Геополитика (43)
Государство и право (20403)
Гражданское право и процесс (465)
Делопроизводство (19)
Деньги и кредит (108)
ЕГЭ (173)
Естествознание (96)
Журналистика (899)
ЗНО (54)
Зоология (34)
Издательское дело и полиграфия (476)
Инвестиции (106)
Иностранный язык (62792)
Информатика (3562)
Информатика, программирование (6444)
Исторические личности (2165)
История (21320)
История техники (766)
Кибернетика (64)
Коммуникации и связь (3145)
Компьютерные науки (60)
Косметология (17)
Краеведение и этнография (588)
Краткое содержание произведений (1000)
Криминалистика (106)
Криминология (48)
Криптология (3)
Кулинария (1167)
Культура и искусство (8485)
Культурология (537)
Литература : зарубежная (2044)
Литература и русский язык (11657)
Логика (532)
Логистика (21)
Маркетинг (7985)
Математика (3721)
Медицина, здоровье (10549)
Медицинские науки (88)
Международное публичное право (58)
Международное частное право (36)
Международные отношения (2257)
Менеджмент (12491)
Металлургия (91)
Москвоведение (797)
Музыка (1338)
Муниципальное право (24)
Налоги, налогообложение (214)
Наука и техника (1141)
Начертательная геометрия (3)
Оккультизм и уфология (8)
Остальные рефераты (21697)
Педагогика (7850)
Политология (3801)
Право (682)
Право, юриспруденция (2881)
Предпринимательство (475)
Прикладные науки (1)
Промышленность, производство (7100)
Психология (8694)
психология, педагогика (4121)
Радиоэлектроника (443)
Реклама (952)
Религия и мифология (2967)
Риторика (23)
Сексология (748)
Социология (4876)
Статистика (95)
Страхование (107)
Строительные науки (7)
Строительство (2004)
Схемотехника (15)
Таможенная система (663)
Теория государства и права (240)
Теория организации (39)
Теплотехника (25)
Технология (624)
Товароведение (16)
Транспорт (2652)
Трудовое право (136)
Туризм (90)
Уголовное право и процесс (406)
Управление (95)
Управленческие науки (24)
Физика (3463)
Физкультура и спорт (4482)
Философия (7216)
Финансовые науки (4592)
Финансы (5386)
Фотография (3)
Химия (2244)
Хозяйственное право (23)
Цифровые устройства (29)
Экологическое право (35)
Экология (4517)
Экономика (20645)
Экономико-математическое моделирование (666)
Экономическая география (119)
Экономическая теория (2573)
Этика (889)
Юриспруденция (288)
Языковедение (148)
Языкознание, филология (1140)

Контрольная работа: Разработка автоматизированного рабочего места библиотекаря с помощью среды программирования 1С:Предприятие

Название: Разработка автоматизированного рабочего места библиотекаря с помощью среды программирования 1С:Предприятие
Раздел: Рефераты по информатике
Тип: контрольная работа Добавлен 04:37:07 11 августа 2010 Похожие работы
Просмотров: 272 Комментариев: 2 Оценило: 0 человек Средний балл: 0 Оценка: неизвестно     Скачать

ОГЛАВЛЕНИЕ

1. Введение

2. Теоретическая часть

3. Описание автоматизированного рабочего места

4. Вывод

5. Приложение


1. ВВЕДЕНИЕ

В этом примере рассматривается деятельность городской (районной) библиотеки. В библиотечном фонде храниться много данных, как о книгах (название книг, издание, количество), так и о читателях (ФИО, адрес). Чтобы облегчить работу сотрудникам, правильно отследить данные о читателе и книгах можно автоматизировать его рабочее место.

Целью данной работы является разработка и проектирование базы данных библиотеки, в которой описываются данные о книгах, читателей и вывод на печать определенных документов. Интерфейс пользователя разрабатывается в среде программирования 1С:Предприятия.


2. ТЕОРЕТИЧЕСКАЯ ЧАСТЬ

Постановка задачи.

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

Программа должна содержать:

1. Справочник "Книги": у каждой книги есть уникальный библиотечный номер (код). Необходимо отметить, что может быть несколько экземпляров одного и того же произведения.

2. Справочник "Читатели": каждому читателю выдается читательский билет с уникальным номером.

3. Справочник "Произведение": у каждого произведения есть уникальный код.

4. Справочник "Авторы" и "Жанры"

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

· Выдача книг читателю из библиотеки на определенный срок

· Продление книги

· Возврат книги читателем в библиотеку

· Потеря книги читателем

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

Правила работы библиотеки следующие:

· Читатель может взять в библиотеке только определенное количество книг (задается директором библиотеки).

· Читатель берет книги обычно на месяц, но может сразу взять книгу на больший срок, если явно скажет об этом.

· Читатель может продлевать книгу, т.е. сообщать о том, что он вернет ее позже указанного ранее срока.

· При просрочке возврата книги, читатель получает предупреждение.

· Когда предупреждений у читателя накапливается больше определенного предела, он лишается правом пользования библиотекой на 1 месяц.

· При потере книги читатель лишается правом пользования библиотекой на 1 месяц, независимо от количества предупреждений.

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

Таблица 1.

Тип объектов

Объекты

Справочники

· Произведения

· Книги (подчинен спр. Произведения)

· Читатели

· ЖанрыКниг

· Авторы

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

· СтатусКниги (значения: Свободна, Выдана, Списана)

· ДаНет (значения: Да, Нет)

Документы

· ВыдачаКниги

· ПродлениеКниги

· ВозвратКниги

· ПотеряКниги

Журналы документов

· Библиотека

Отчеты

· БиблиотечнаяВыписка

· ДолгиЧитателя

Проектирование БД.

Для проектирования БД в системе 1С:Предприятие используется конфигуратор- в этом режиме создается или корректируется БД, программные модули. В таблице 2 подробно представлены все справочники с реквизитами, которые потребуются для создания БД.

Таблица 2.

№ n/n

Справочники

Реквизиты

1

Произведения

· Жанр

· Авторы

· Издание

· Год издания

· Число страниц

· Ключевые слова

· Аннотация

2

Книги

· Статус

· Читатель

· Дата выдачи

· Срок возврата

3

Читатель

· ФИО

· Блокирован

· Количество предупреждений

4

Жанры книг

· Наименование жанра

5

Авторы

· ФИО

В таблицах 3-7 описана подробная структура справочников.

Таблица 3.Справочник "Произведения"

Имя реквизита

Тип значения

1

Жанр

Справочник. ЖанрыКниг

2

Авторы

Справочник. Авторы

3

Издание

Число

4

Год издания

Число

5

Число страниц

Число

5

Ключевые слова

Строка

7

Аннотация

Строка


Таблица 4. Справочник "Книги"

Имя реквизита

Тип значения

1

Статус

СтатусКниг.

2

Читатель

Справочник. Читатели.

3

Дата Выдачи

Дата

4

Срок Возврата

Дата

Таблица 5. Справочник "Читатели"

Имя реквизита

Тип значения

1

ФИО

Строка

2

Кол-во предупреждений

Число

3

Блокирован

Да Нет

Таблица 6. Справочник "Жанр Книги"

Имя реквизита

Тип значения

1

Жанр Книги

Строка

Таблица 7. Справочник "Авторы"

Имя реквизита

Тип значения

1

Авторы

Строка

3. ОПИСАНИЕ АВТОМАТИЗИРОВАННОГО РАБОЧЕГО МЕСТА

Разработка приложения.

Разработка приложения состоит из нескольких частей.

· Интерфейс ввода/ корректировка справочников, работа с документами.

· Составление печатных форм отчетов.

1. Интерфейс ввода / корректировки справочников.

Интерфейс пользователя разработан в программной среде

1С: Предприятие.

При запуске программы 1С:Предприятие, пользователь сразу попадает в диалог "Запуск 1С: Предприятия".

Рис1. Диалог "Запуск 1С:Предприятия".

В диалоге, информационная база запускается в режиме 1С:Предприятие.

При запуске информационной базы сразу попадаем на главную форму. (Рис2).

Рис2. Окно главного меню.

Для простоты обращения интерфейсы всех трех меню одинаковы.

Меню "Справочники".

При нажатие на меню "Справочник", всплывает вспомогательное меню, в котором перечислены все используемы справочники программы. (Рис3.)

Рис3. Меню "Справочник"

Все справочники представлены в виде таблицы, в которые можно добавлять, изменять данные и удалять данные. (Рис4).

Рис4. Справочник "Читатели".


Для справочника "Произведение" создана форма элемента - в ызывает редактор форм для создания формы ввода данных в справочник. (Рис5.)

Рис5. Форма для ввода данных в справочник "Произведение".

Меню "Документы".

В меню "Документы", представлены все документы, с которыми должен работать библиотекарь. Это документы: "Выдача книг", "Продление книги", "Возврат книги", "Потеря книги". (Рис6.)

Рис 6. Меню "Документы".


Для всех документов созданы формы элемента, для удобного редактирования. (Рис7).

Рис7. Форма элемента документа "Выдача книги".

Рис8. Форма элемента документа "Продление книги".


Рис9. Форма элемента документа "Возврат книги".

Рис10. Форма элемента документа "Потеря книги".

Меню "Отчеты".

Отчеты предназначены для вывода информации из базы данных. У любого отчета в системе 1С:Предприятие есть экранная форма.

Рис11. Экранная форма отчета "Библиотечная выписка".

Библиотечная выписка, показывает все совершенные операции за заданный период. Можно выбрать операции только по указанному читателю и/или по указанной книге.

Рис 12. Пример работы отчета "Библиотечная выписка".

В отчете "Долги читателя", можно отследить задолжников.


Рис 13. Экранная форма отчета "Долги читателя".

Рис 14. Пример отчета "Долги читателя".

4. ВЫВОД

В результате проектирования были разработаны:

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

2. Разработаны печатные формы (отчеты).

3. Простой в применение интерфейс для пользователей.


5. ПРИЛОЖЕНИЕ

Рис15. Справочник "Книги".

Рис 16. Справочник "Жанры Книги".

Рис17. Справочник "Авторы".


Текст программы:

Выдача Книги:

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

//

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

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

ВыбратьСтроки();

Пока ПолучитьСтроку()=1 Цикл

СпрКниги.НайтиЭлемент(Книга);

СпрКниги.Статус = Перечисление.СтатусКниги.Выдана;

СпрКниги.Читатель = Читатель;

СпрКниги.ДатаВыдачи = ДатаДок;

СпрКниги.СрокВозврата = СрокВозврата;

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

КонецЦикла;

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

Продление Книги:

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

//

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

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

ВыбратьСтроки();

Пока ПолучитьСтроку()=1 Цикл

Если Число(НовыйСрокВозврата)<>0 Тогда

СпрКниги.НайтиЭлемент(Книга);

СпрКниги.СрокВозврата = НовыйСрокВозврата;

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

КонецЕсли;

КонецЦикла;

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

Продление книги:

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

//

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

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

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

ВыбратьСтроки();

Пока ПолучитьСтроку()=1 Цикл

СпрКниги.НайтиЭлемент(Книга);

Если СпрКниги.СрокВозврата < ДатаДок Тогда

СпрЧитатели.НайтиЭлемент(Читатель);

СпрЧитатели.КоличествоПредупреждений =

СпрЧитатели.КоличествоПредупреждений + 1;

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

Если СпрЧитатели.КоличествоПредупреждений >

Константа.МаксКолвоПредупреждений Тогда

УстановитьРеквизитСправочника(Читатель, "Блокирован",Перечисление.ДаНет.Да, ДатаДок);

УстановитьРеквизитСправочника(Читатель, "Блокирован",Перечисление.ДаНет.Нет, ДатаДок +

Константа.КолвоДнейБлокировки);

КонецЕсли;

КонецЕсли;

СпрКниги.Статус = Перечисление.СтатусКниги.Свободна;

СпрКниги.Читатель = 0;

СпрКниги.ДатаВыдачи = 0;

СпрКниги.СрокВозврата = 0;

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

КонецЦикла;

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

Потеря книги:

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

//

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

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

ВыбратьСтроки();

Пока ПолучитьСтроку()=1 Цикл

СпрКниги.НайтиЭлемент(Книга);

СпрКниги.Статус = Перечисление.СтатусКниги.Списана;

СпрКниги.Читатель = 0;

СпрКниги.ДатаВыдачи = 0;

СпрКниги.СрокВозврата = 0;

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

КонецЦикла;

УстановитьРеквизитСправочника(Читатель, "Блокирован",Перечисление.ДаНет.Да, ДатаДок);

УстановитьРеквизитСправочника(Читатель, "Блокирован",Перечисление.ДаНет.Нет, ДатаДок +

Константа.КолвоДнейБлокировки);

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

Отчеты. Библиотечная выписка.

//---------------------

//Документы ПродлениеКниги

//---------------------

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

ТекстЗапроса = "

|Период С НачДата По КонДата;

|ОбрабатыватьДокументы Проведенные;

|Док =

Документ.ПродлениеКниги.Текущий//*******************************************

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

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

тз.НоваяКолонка("Дата");

тз.НоваяКолонка("ТипОперации");

тз.НоваяКолонка("Читатель");

тз.НоваяКолонка("Книга");

тз.НоваяКолонка("СрокВозврата");

//---------------------

//Документы ВыдачаКниги

//---------------------

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

ТекстЗапроса = "

|Период С НачДата По КонДата;

|ОбрабатыватьДокументы Проведенные;

|Док = Документ.ВыдачаКниги.ТекущийДокумент;

|Читатель = Документ.ВыдачаКниги.Читатель;

|Книга = Документ.ВыдачаКниги.Книга;

|СрокВозврата = Документ.ВыдачаКниги.СрокВозврата;

|Группировка Книга;

|Условие (Читатель в ВыбрЧитатель);

|Условие (Книга в ВыбрКнига);

|";

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

Возврат;

КонецЕсли;

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

Док = Запрос.Док;

тз.НоваяСтрока();

тз.Дата = Док.ДатаДок;

тз.ТипОперации = Док.Вид();

тз.Читатель = Запрос.Читатель;

тз.Книга = Запрос.Книга;

тз.СрокВозврата = Запрос.СрокВозврата;

КонецЦикла;

Документ;

|Читатель = Документ.ПродлениеКниги.Читатель;

|Книга = Документ.ПродлениеКниги.Книга;

|НовыйСрокВозврата =

Документ.ПродлениеКниги.НовыйСрокВозврата;

|Группировка Книга;

|Условие (Читатель в ВыбрЧитатель);

|Условие (Книга в ВыбрКнига);

|";

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

Возврат;

КонецЕсли;

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

Док = Запрос.Док;

тз.НоваяСтрока();

тз.Дата = Док.ДатаДок;

тз.ТипОперации = Док.Вид();

тз.Читатель = Запрос.Читатель;

тз.Книга = Запрос.Книга;

тз.СрокВозврата = Запрос.НовыйСрокВозврата;

КонецЦикла;

//---------------------

//Документы ВозвратКниги

//---------------------

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

ТекстЗапроса = "

|Период С НачДата По КонДата;

|ОбрабатыватьДокументы Проведенные;

|Док = Документ.ВозвратКниги.ТекущийДокумент;

|Читатель = Документ.ВозвратКниги.Читатель;

|Книга = Документ.ВозвратКниги.Книга;

|Группировка Книга;

|Условие (Читатель в ВыбрЧитатель);

|Условие (Книга в ВыбрКнига);

|";

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

Возврат;

КонецЕсли;

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

Док = Запрос.Док;

тз.НоваяСтрока();

тз.Дата = Док.ДатаДок;

тз.ТипОперации = Док.Вид();

тз.Читатель = Запрос.Читатель;

тз.Книга = Запрос.Книга;

КонецЦикла;

//---------------------

//Документы ПотеряКниги

//---------------------

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

ТекстЗапроса = "

|Период С НачДата По КонДата;

|ОбрабатыватьДокументы Проведенные;

|Док = Документ.ПотеряКниги.ТекущийДокумент;

|Читатель = Документ.ПотеряКниги.Читатель;

|Книга = Документ.ПотеряКниги.Книга;

|Группировка Книга;

|Условие (Читатель в ВыбрЧитатель);

|Условие (Книга в ВыбрКнига);

|";

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

Возврат;

КонецЕсли;

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

Док = Запрос.Док;

тз.НоваяСтрока();

тз.Дата = Док.ДатаДок;

тз.ТипОперации = Док.Вид();

тз.Читатель = Запрос.Читатель;

тз.Книга = Запрос.Книга;

КонецЦикла;

тз.Сортировать("Дата+");

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

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

тз.ВыбратьСтроки();

НомПП = 0;

Пока тз.ПолучитьСтроку()=1 Цикл

НомПП = НомПП + 1;

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

КонецЦикла;

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

Таб.Опции(0);

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

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

НачДата = НачМесяца(РабочаяДата());

КонДата = КонМесяца(РабочаяДата());

Долги читателя

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

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

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

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

НомПП = 0;

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

СпрКниги.ВыбратьЭлементыПоРеквизиту("Читатель",ВыбрЧитатель,0,0);

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

НомПП = НомПП + 1;

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

КонецЦикла;

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

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

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

Оценить/Добавить комментарий
Имя
Оценка
Комментарии:
Где скачать еще рефератов? Здесь: letsdoit777.blogspot.com
Евгений07:33:13 19 марта 2016
Кто еще хочет зарабатывать от 9000 рублей в день "Чистых Денег"? Узнайте как: business1777.blogspot.com ! Cпециально для студентов!
19:46:35 28 ноября 2015

Работы, похожие на Контрольная работа: Разработка автоматизированного рабочего места библиотекаря с помощью среды программирования 1С:Предприятие

Назад
Меню
Главная
Рефераты
Благодарности
Опрос
Станете ли вы заказывать работу за деньги, если не найдете ее в Интернете?

Да, в любом случае.
Да, но только в случае крайней необходимости.
Возможно, в зависимости от цены.
Нет, напишу его сам.
Нет, забью.



Результаты(151196)
Комментарии (1843)
Copyright © 2005-2016 BestReferat.ru bestreferat@mail.ru       реклама на сайте

Рейтинг@Mail.ru