Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Інтерфейс до серверної БД
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Кафедра ЕОМ
Інформація про роботу
Рік:
2013
Тип роботи:
Лабораторна робота
Предмет:
Бази даних та знань
Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти та науки України
Національний університет «Львівська політехніка»
Кафедра ЕОМ
/
Лабораторна робота №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.
23.12.2013 02:21
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора