риВ» або при вході користувача з форми В«РегтстраціяВ». Якщо на ній вибрати кнопку В«Пошук книгВ», то з'явиться форма В«Форма_поіскаВ» (малюнок 32), а якщо кнопку - В«Пошук перідіческі виданьВ», то форма В«Пошук періодикиВ» (малюнок 33). p align="justify"> На формі В«Форма_поіскаВ» розташовується кнопка В«Список книгВ», натискання на яку показує звіт, що містить список усіх книг бібліотеки В», і кнопкаВ« Знайти В». Вона призначена для виклику збереженої процедури, яка формує звіт, що містить інформацію про книги, які задовольняють критеріям пошуку. Критерій пошуку задається користувачем. Код обробки натиснення кнопки В«ЗнайтиВ»:
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
На формі В«Пошук періодикиВ» розташовується кнопка В«Список періодичних виданьВ», натискання на яку показує звіт, що містить список всіх періодичних видань бібліотеки В», і кнопкиВ« Знайти В».
Кнопка В«ЗнайтиВ» в розділі В«Пошук виданьВ» призначена для виклику збереженої процедури, яка формує звіт, що містить інформацію про періодичні видання, які задовольняють критеріям пошуку. Критерій пошуку задається користувачем. Код обробки натиснення кнопки В«ЗнайтиВ»:
Private Sub Кнопка10_Click ()
Dim stDocName As Stringdbs As Database, qdf As QueryDef, strSQL As Stringstrdat As Stringstrdate As Stringdbs = CurrentDb
ПолеСоСпіском8. SetFocus = ПолеСоСпіском8. Text = В«'В» + strdat + В«'В» = В«SELECT dbo_Періодіческіе_ізданія. Шіфр_періодікі, dbo_Періодіческіе_ізданія. Назва, dbo_Періодіческіе_ізданія. Дата_ізданія, dbo_Періодіческіе_ізданія. Номер_отдела FROM dbo_Періодіческіе_ізданія WHERE (dbo_Періодіческіе_ізданія. Шіфр_періодікі) = В»+ strdate
dbs. QueryDefs. Delete (В«шифр пошук періодВ»)
Set qdf = dbs. CreateQueryDef (В«шифр пошук періодВ», strSQL)
DoCmd. OpenReport В«шифр пошук періодВ», acPreview
Set dbs = NothingSub
Кнопка В«ЗнайтиВ» в розділі В«Пошук статейВ» призначе...
