Теми рефератів
> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти
Реферати, твори, дипломи, практика » Курсовые обзорные » Проектування багатокористувацької інформаційної системи "Університетська бібліотека"

Реферат Проектування багатокористувацької інформаційної системи "Університетська бібліотека"





«Інформація про списані книгахВ». Вона призначена для виклику збереженої процедури, яка формує звіт, що містить інформацію про книги списаних по протоколу списання, номер якого вводиться в полі поруч з кнопкою. Код обробки натиснення кнопки В«Інформація про списані книгахВ»:

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В» при натисканні на В«Видати книгиВ»;

В«Прийняти книгиВ» при...


Назад | сторінка 40 з 67 | Наступна сторінка





Схожі реферати:

  • Реферат на тему: Розробка програми "Шифр Цезаря"
  • Реферат на тему: Симетричні шифри із закритим ключем. Афінний шифр і операція XOR
  • Реферат на тему: Програма управління базою даних, яка містить інформацію про читачів, книгах ...
  • Реферат на тему: Верстка та ілюстрування книги. Робота з книгою Оскарда Уайльда "Портр ...
  • Реферат на тему: Корекційна робота при кожній формі афазії