«Інформація про списані книгахВ». Вона призначена для виклику збереженої процедури, яка формує звіт, що містить інформацію про книги списаних по протоколу списання, номер якого вводиться в полі поруч з кнопкою. Код обробки натиснення кнопки В«Інформація про списані книгахВ»:
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_Кніга. Назва, 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В» при натисканні на В«Видати книгиВ»;
В«Прийняти книгиВ» при...