База данных библиотеки

Размещено на http://www.allbest.ru/

Содержание

Введение

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

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

1.2 Правила работы библиотеке

1.3 Проектирование базы данных

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

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

2.2 Работа с документами

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

Заключение

Список использованных источников

Приложение А (Обязательное). Листинг программной реализации базы данных библиотеки

библиотека база данные автоматизированный



Введение

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

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



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

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

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

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

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

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

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

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

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

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

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

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

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

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

1.2 Правила работы библиотеке

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

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

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

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

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

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

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

Таблица 2.1

структура базы данных

Тип объектов	Объекты
Справочники	· Произведения · Книги (подчинен спр. Произведения) · Читатели · ЖанрыКниг · Авторы
Перечисления	· СтатусКниги (значения: Свободна, Выдана, Списана) · ДаНет (значения: Да, Нет)
Документы	· ВыдачаКниги · ПродлениеКниги · ВозвратКниги · ПотеряКниги
Журналы документов	· Библиотека
Отчеты	· БиблиотечнаяВыписка · ДолгиЧитателя

1.3 Проектирование базы данных

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

Таблица 3.1

справочники и реквизиты базы данных

№ n/n	Справочники	Реквизиты
1	Произведения	· Жанр · Авторы · Издание · Год издания · Число страниц · Ключевые слова · Аннотация
2	Книги	· Статус · Читатель · Дата выдачи · Срок возврата
3	Читатель	· ФИО · Блокирован · Количество предупреждений
4	Жанры книг	· Наименование жанра
5	Авторы	· ФИО

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

Таблица 3.2

Справочник "Произведения"

№	Имя реквизита	Тип значения
1	Жанр	СправочникСсылка ЖанрКниг
2	Авторы	СправочникСсылка Авторы
3	Издание	Число
4	Год издания	Число
5	Число страниц	Число
5	Ключевые слова	Строка
7	Аннотация	Строка

Таблица 3.3

Справочник "Книги"

№	Имя реквизита	Тип значения
1	Статус	СтатусКниг.
2	Читатель	СправочникСсылка Читатели.
3	Дата Выдачи	Дата
4	Срок Возврата	Дата

Таблица 3.4

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

№	Имя реквизита	Тип значения
1	ФИО	Строка
2	Кол-во предупреждений	Число
3	Блокирован	Булево

Таблица 3.5

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

№	Имя реквизита	Тип значения
1	Жанр Книги	Строка

Таблица 3.6

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

№	Имя реквизита	Тип значения
1	Авторы	Строка

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

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

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

· Работа с документами.

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

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

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

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

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

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

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

Для справочника "Произведение" создана форма элемента, который вызывает редактор форм для создания формы ввода данных в справочник. Он представлен на рисунке 2.5.



2.2 Работа с документами

В меню "Документы", который представлен на рисунке 3.1, показаны все документы, с которыми должен работать библиотекарь. Это документы: "Выдача книг", "Продление книги", "Возврат книги", "Потеря книги" представлены на рисунках 3.2 - 3.5. Листинг кода программы находится в приложении.

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

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

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

В отчете "Долги читателя", можно отследить должников, пример показан на рисунках 4.3 и 4.4.



Заключение

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

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

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

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

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

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



Список использованных источников

1. Голицина О. Л. Базы данных / Голицина О. Л., Максимов Н. В., Попов И. И. М.: Форум, 2003, 352 с.

2. Рудаков А. В. Технология разработки программных продуктов / Рудаков А. В. М.: Академия, 2005. 208 с.

3. Михайлов, А. 1С: Предприятие 8.2 системное программирование / А. Михайлов, М: OOO «1С-Паблишинг» 2009 г. 218 с.

4. Дубянский, В. 1С: Предприятие. Конфигурирование и администрирование для начинающих [Текст] / В. Дубянский, СПб: «БХВ-Петербург», 2010 г. 170 с.

5. Радченко, М.Г. Практическое пособие разработчика [Текст] / М.Г. Радченко, М: OOO «1С-Паблишинг» 2009 г. 169 с.

6. Харитонов, С.А. Введение в конфигурирование в системе «1С - Предприятие 8.2». Основные объекты [Текст]/, С.А. Харитонов СПб.: Питер, 2010. 89 с.

7. Самарина, Е.В. Описание языка 1С8 в виде CHM. Удобный справочник [Текст]/ Самарина, Е.В. М., 2010 г. 567 с.

8. Козырев, Д.В. Профессиональная разработка в системе 1СПредприятие 8 [Текст] / Д.В. Козырев, М. «1С-Учебный центр №3», 2009 г. 103 с.

9. Системные требования «1С:Предприятия 8» [Электронный ресурс] // Режим доступа к электрон. дан.: http://v8.1c.ru/requirements. Загл. с экрана.

10. Варианты работы системы «1С:Предприятие 8» [Электронный ресурс] // Режим доступа к электрон. дан.: http://center-comptech.ru/st_varianti_raboti_1cv8.html. Загл. с экрана.



Приложение А (Обязательное). Листинг программной реализации базы данных библиотеки

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

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

//

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

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

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

Пока ПолучитьСтроку()=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;

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

КонецЦикла;

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

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

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

Размещено на Allbest.ru