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_спісанние_кнігіВ» розташовується кнопка з зображенням стрілки, яка викликає процедуру додавання записів у таблицю В«Списані книгиВ», і кнопка В...