Проектирование многопользовательской информационной системы "Университетская библиотека"
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
?:Sub Вход_Click()stDocName As StringstLinkCriteria As String(Группа26. Value = 1 And Поле9. Value = Директор) Then. OpenForm Директор
Поле9. Value = (Группа26. Value = 2 And Поле9. Value = Библиотекарь) Then. OpenForm Выбор
Поле9. Value = (Группа26. Value = 3) Then. OpenForm Поиск
Поле9. Value =
Else: MsgBox Неправильный парольIfSub
Рисунок 13 - Форма Регистрация
Для пользователя Директор, открывается одноименная форма - рисунок 14. На ней присутствуют следующие кнопки: Работа с сотрудниками библиотеки, Информация о посетителях библиотеки, Отчеты о работе библиотеки.
Рисунок 14 - Форма Директор
После нажатия на кнопку Работа с сотрудниками библиотеки появится форма Работа с сотрудниками библиотеки - рисунок 15. На форме присуетсвуют кнопки Уволить сотрудника, Информация о сотруднике, Принять на работу сотрудника.
При нажатии кнопки Уволить сотрудника, будет уволен выбранный сотрудник. Код обработки нажатия кнопки:
Private Sub Кнопка5_Click()
Dim stDocName As String
Dim dbs As Database, qdf As QueryDef, strSQL As Stringstrdat As Stringstrdate As Stringdbs = CurrentDb
ПолеСоСписком.SetFocus= ПолеСоСписком.Text= DELETE FROM dbo_Сотрудники_библиотеки WHERE табельный_номер= + strdate. QueryDefs. Delete (my)qdf = dbs. CreateQueryDef (my, strSQL)dbs = Nothing
При нажатии кнопки Информация о сотруднике - будет показан отчет, содеожащий информацию о библиотекаре. Код обработки нажатия кнопки:
Private Sub Кнопка6_Click()
Dim stDocName As String
Dim dbs As Database, qdf As QueryDef, strSQL As Stringstrdat As Stringstrdate As Stringdbs = CurrentDb
ПолеСоСписком.SetFocus= ПолеСоСписком.Text = SELECT dbo_Сотрудники_библиотеки. табельный_номер, dbo_Сотрудники_библиотеки. имя, dbo_Сотрудники_библиотеки. фамилия, dbo_Сотрудники_библиотеки. отчество, dbo_Сотрудники_библиотеки. дата_рождения, dbo_Сотрудники_библиотеки. должность, dbo_Сотрудники_библиотеки. Номер_отдела FROM dbo_Сотрудники_библиотеки WHERE табельный_номер= + strdate
dbs. QueryDefs. Delete (my1)qdf = dbs. CreateQueryDef (my1, strSQL)dbs = Nothing
DoCmd. OpenReport my1, acPreview
Если нажать на кнопку Принять на работу сотрудника, то откроется форма dbo_Cотрудники_библиотеки, на которой необходимо будет внести информацию о новом сотруднике.
Если же на форме Директор нажать кнопку Информация о посетителях библиотеки, то появится форма Посетители - рисунок 17, а если кнопку Отчеты о работе библиотеки, то форма Информация - рисунок 18.
На форме Посетители располагается кнопка Получить информацию. Она предназначена для вызова хранимой процедуры, которая формирует отчет, содержащий информацию о студентах или преподавателях. Код обработки нажатия кнопки:
Private Sub Кнопка11_Click()
Dim stDocName As String
Dim dbs As Database, qdf As QueryDef, strSQL As Stringstrdat As Integer, strdate As Stringdbs = CurrentDbГруппа0. Value = 1 Then
ПолеСоСписком16. SetFocus= ПолеСоСписком16. Text= SELECT dbo_Студенты. Читательский_номер, dbo_Студенты. Фамилия, dbo_Студенты. Имя, dbo_Студенты. Отчество, dbo_Студенты.год_поступления, dbo_Студенты.год_окончания, dbo_Студенты.факультет, dbo_Студенты.специальность, dbo_Студенты.факультет, dbo_Студенты.специальность, dbo_Студенты.форма_обучения, dbo_Студенты.номер_приказа FROM dbo_Студенты WHERE dbo_Студенты. Читательский_номер= + strdate
dbs. QueryDefs. Delete (999)
Set qdf = dbs. CreateQueryDef (999, strSQL)
Set dbs = Nothing. OpenReport 999, acPreviewIfГруппа0. Value = 2 Then ПолеСоСписком18. SetFocus= ПолеСоСписком18. Text= SELECT dbo_Преподаватели. Читательский_номер, dbo_Преподаватели. Имя, dbo_Преподаватели. Отчество, dbo_Преподаватели. Фамилия, dbo_Преподаватели. Должность FROM dbo_Преподаватели WHERE dbo_Преподаватели. Читательский_номер= + strdate
dbs. QueryDefs. Delete (333)
Set qdf = dbs. CreateQueryDef (333, strSQL)
Set dbs = Nothing. OpenReport 333, acPreview
End If
End Sub
Если пользователь зарегистрировался как Библиотекарь, то после формы Регистрация следующей появится форма Выбор.
При нажатии на кнопку Работа с фондом появится форма Фонд, на которой также после нажатия на соответствующую кнопку появятся следующие пользовательские формы:
dbo_Книга при нажатии на кнопку Обработка новых книг;
Экземпляр при нажатии на кнопку Обработка новых экземпляров;
Списанные_книги при нажатии на кнопку Списание книги;
Замена_экземпляров при нажатии на кнопку Замена книг;
На форме dbo_Книга присутствуют кнопки с изображением стрелок, которые служат для добавления новых записей в таблицу Книга, а также кнопка Добавить новый экземпляр, которая открывает форму Экземпляр.
На форме Экземпляр расположены кнопки с изображением стрелок, которые служат для добавления новых записей в таблицу Экземпляр, кнопка Добавить новую книгу для перехода на форму dbo_Книга, и кнопка Информация об экземплярах книг, нажатие на которую выводит список книг библиотеки.
На форме dbo_списанные_книги располагается кнопка с изображением стрелки, которая вызывает процедуру добавления записей в таблицу Списанные книги, и кнопка Информация о списанных книгах. Она предназначена для вызова хранимой процедуры, которая формирует отчет, содержащий информацию о книгах списанных по протоколу списания, номер которого вводится в поле рядом с кнопкой. Код обработки нажатия кнопки Информация о списанных книгах:
Private Sub Кнопка13_Click()
Dim stDocName As Stringdbs As Database, qdf As QueryDef, strSQL As Stringstrdat As Integerstrdate As Stringdbs = CurrentDb
Поле23. SetFocus= Поле23. Text= SELECT dbo_Книга. Автор, dbo_Книга. Название,