Проектирование многопользовательской информационной системы "Университетская библиотека"
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
dbo_Списанные_книги. номер_протокола_списания, dbo_Сотрудники_библиотеки. фамилия, dbo_Списанные_книги. дата_списания FROM dbo_Сотрудники_библиотеки INNER JOIN ((dbo_Книга INNER JOIN dbo_Экземпляр ON dbo_Книга.ISBN = dbo_Экземпляр.ISBN) INNER JOIN dbo_Списанные_книги ON dbo_Экземпляр. Шифр = dbo_Списанные_книги. Шифр) ON dbo_Сотрудники_библиотеки. табельный_номер = dbo_Списанные_книги. Табельный_номер_списавшего WHERE dbo_Списанные_книги. номер_протокола_списания= + strdate
dbs. QueryDefs. Delete (списание)qdf = dbs. CreateQueryDef (списание, strSQL). OpenReport списание, acPreview dbs = Nothing
End Sub
На форме Замена_экземпляров располагается кнопка с изображением стрелки, которая вызывает процедуру добавления записей в таблицу Замена_экземпляров, и кнопка Просмотр. Она предназначена для вызова хранимой процедуры, которая формирует отчет, содержащий информацию о книгах, которые заменили по акту замены. Номер акта замены вводится в поле рядом с кнопкой. Код обработки нажатия кнопки Просмотр:
Private Sub Просмотр _Click()stDocName As Stringdbs As Database, qdf As QueryDef, strSQL As Stringstrdat As Integerstrdate As Stringdbs = CurrentDb
Поле13. SetFocus= Поле13. Text= SELECT dbo_Книга. Автор, dbo_Книга. Название, dbo_Экземпляр. Шифр, dbo_Замена_экземпляров. Номер_акта_замены FROM (dbo_Экземпляр INNER JOIN dbo_Книга ON dbo_Экземпляр.ISBN = dbo_Книга.ISBN) INNER JOIN dbo_Замена_экземпляров ON dbo_Экземпляр. Шифр = dbo_Замена_экземпляров. Шифр WHERE (dbo_Замена_экземпляров. Номер_акта_замены)= + strdate
dbs. QueryDefs. Delete (замена3)qdf = dbs. CreateQueryDef (замена3, strSQL). OpenReport замена3, acPreview dbs = NothingSub
Если на форма Выбор была нажата кнопка Работа с посетителями, то появится следующей форма Работа с посетителями.
После нажатия на соответствующую кнопку на форме Работа с посетителями появятся следующие пользовательские формы:
Студенты при нажатии на Записать читателя в бибилитеку;
dbo_Пользование_библиотекой2 при нажатии на Выдать книги;
Принять книги при нажатии на Принять книги.
dbo_Платные услуги при нажатии на Платные услуги.
На форме Студенты располагается кнопка с изображением стрелки, которая вызывает стандартную процедуру добавления записей в таблицу Студенты.
На форме dbo_Пользование_библиотекой2 располагается кнопка с изображением стрелки, которая вызывает стандартную процедуру добавления записей в таблицу dbo_Пользование_библиотекой2.
На форме Принять книги располагается кнопка с изображением стрелки, которая вызывает стандартную процедуру добавления записей в таблицу dbo_Пользование_библиотекой2.
На форме dbo_Платные_услуги располагается кнопка с изображением стрелки, которая вызывает процедуру добавления записей в таблицу Платные_услуги, и две кнопки Показать отчет. Они предназначена для вызова хранимой процедуры, которая формирует отчет, содержащий информацию о платных услугах библиотеки, которые были оказаны в отчетном месяце или году. Номер акта замены вводится в поле рядом с кнопкой. Код обработки нажатия кнопки Показать_отчет (за год):
Private Sub Кнопка53_Click()stDocName As Stringdbs As Database, qdf As QueryDef, strSQL As Stringstrdat As Integer, strdate As Stringdbs = CurrentDb
Поле29. SetFocus= Поле29. Text
strdate = + strdat + "= SELECT dbo_Платные_услуги. табельный_номер, dbo_Платные_услуги. Сумма, dbo_Платные_услуги. читательский_номер, dbo_Платные_услуги. Дата_услуги FROM dbo_Платные_услуги WHERE Year (dbo_Платные_услуги. Дата_услуги)= + strdate. QueryDefs. Delete (услуги)qdf = dbs. CreateQueryDef (услуги, strSQL)
DoCmd. OpenReport услуги, acPreview
Set dbs = NothingSub
За месяц:Sub Кнопка27_Click()stDocName As Stringdbs As Database, qdf As QueryDef, strSQL As Stringstrdat As Integerstrdate As Stringdbs = CurrentDb
ПолеСоСписком5. SetFocus= ПолеСоСписком5. Text
strSQL = SELECT dbo_Платные_услуги. табельный_номер, dbo_Платные_услуги. Сумма, dbo_Платные_услуги. читательский_номер, dbo_Платные_услуги. Дата_услуги FROM dbo_Платные_услуги WHERE Month (dbo_Платные_услуги. Дата_услуги)= + strdate
dbs. QueryDefs. Delete (услуги)
Set qdf = dbs. CreateQueryDef (услуги, strSQL)
DoCmd. OpenReport услуги, acPreviewdbs = Nothing
End Sub
Форма Поиск является общей для пользователя Библиотекарь и Посетитель и появляется соответственно либо при нажатии на форме Выбор кнопки Поиск литературы либо при входе пользователя с формы Регтстрация. Если на ней выбрать кнопку Поиск книг, то появится форма Форма_поиска (рисунок 32), а если кнопку - Поиск перидических изданий, то форма Поиск периодики (рисунок 33).
На форме Форма_поиска располагается кнопка Список книг, нажатие на которую показывает отчет, содержащий список всех книг библиотеки, и кнопка Найти. Она предназначена для вызова хранимой процедуры, которая формирует отчет, содержащий информацию о книгах, которые удовлетворяют критериям поиска. Критерий поиска задается пользователем. Код обработки нажатия кнопки Найти:
Private Sub Кнопка13_Click()
Dim stDocName As Stringdbs As Database, qdf As QueryDef, strSQL As Stringstrdat As Stringstrdate As Stringdbs = CurrentDb
ПолеСоСписком11. SetFocus= ПолеСоСписком11. Text= + strdat + = SELECT dbo_Книга.ISBN, dbo_Книга. Автор, dbo_Книга. Название, dbo_Книга. Год_издания, dbo_Книга. Издательство, dbo_Книга. Кодичество_страниц, dbo_Книга. Цена, dbo_Экземпляр. Шифр, dbo_Экземпляр. Отметка_о_замене, dbo_Экземпляр. Отметка_о_списании FROM dbo_Книга INNER JOIN dbo_Экземпляр ON dbo_Книга.ISBN = dbo_Экземпляр.ISBN WHERE (dbo_Экземпляр. Шифр)= + strdate. QueryDefs. Delete (поиск книги)qdf = dbs. CreateQueryDef (поиск книги, strSQL)
DoCmd. OpenReport поиск книги, acPreviewdbs = Nothing
End Sub
На форме Поиск периодики рас?/p>