Міністерство освіти та науки України Національний університет «Львівська політехніка» Кафедра ЕОМ / Лабораторна робота №3 З дисципліни «Проектування машин баз даних та знань» «Інтерфейс до серверної БД» Львів – 2013 Предметна галузь : Поліклініка Завдання: Спроектувати форми для вводу, перегляду та корекції даних для створених у першій лабораторній роботі таблиць. Хід виконання роботи Форма у режимі корекції даних “Пацієнти” / Рис.1. Створена форма у режимі корекції даних по табличці «Пацієнти» Процедура кнопки корекції даних: Option Compare Database Private Sub UPDATE_Click() CurrentDb.Execute ("UPDATE dbo_[Пацієнти] SET dbo_[Пацієнти].Прізвище= '" & Me.m_zberig.Text & "' WHERE dbo_[Пацієнти].Прізвище = " & Me.m_zberig.Text & "") MsgBox "One row updated." End Sub Форма в режимі перегляду даних “Пацієнти” / Рис.2. Створена форма у режимі перегляду даних по табличці «Пацієнти» Форма у режимі вводу даних “Дні прийому” / Рис.3. Створена форма у режимі вводу даних по табличці «Дні прийому» Процедура кнопки вводу даних: Private Sub Додати день_Click() Dim sql As String sql = " INSERT INTO dbo_Дні прийому " _ & "(id, дати_прийому, години_прийому, вихідні) VALUES " _ & "('" & Me.id.Value & "','" & Me.дати_прийому.Value & "','" & Me.години_прийому.Value & "','" & Me.вихідні.Value "')" CurrentDb.Execute sql Me.id.Value = "" MsgBox "One row inserted." End Sub Форма у режимі видалення даних по табличці “Медсестри” / Рис.4. Створена форма у режимі видалення даних по табличці «Медсестри» Процедура кнопки видалення даних: Private Sub Видалити_Click() Dim sql As String sql = " DELETE Медсестри.прізвище, * FROM Медсестри WHERE прізвище=" & Me!прізвище & ";" CurrentDb.Execute sql MsgBox "One row deleted." End Sub Висновок: на даній лабораторній роботі я навчився створювати форми вводу використовуючи табличку «Пацієнти», корекції використовуючи табличку «Пацієнти» та перегляду даних використовуючи табличку «Пацієнти»,форму у режимі вводу даних використовуючи табличку «Дні_прийому» та видалення даних використовуючи табличку «Медсестри» за допомогою Microsoft Access 2007 і SQL server 2012.