Для ведения однотабличной БД. 


Мы поможем в написании ваших работ!



ЗНАЕТЕ ЛИ ВЫ?

Для ведения однотабличной БД.



Цель работы:

4 Ознакомиться с операторами VB при разработке прикладных программ с использованием СУБД;

4 Исследовать правила реализации операций ведения БД: добавления, удаления, редактирования, поиска, фильтрации и пр.

4 Научиться формировать основные SQL-запросы на базе параметров, заданных пользователем в окне диалога.

Ход работы:

 

Рассмотрим проект VB, выполняющий обработку однотабличной БД, созданной в СУБД MS Access. Для этого, открыв MS Access, с помощью Конструктора, создайте таблицу с именем Spisok (все имена должны быть латинскими и не иметь пробелов) со следующей структурой:

 

Обратите внимание, если Вы задаете другие имена, их же должны использовать при обращении к полям в программе!

Сохранив созданный файл, закройте СУБД, и вызовите MS Visual Basic (обычно это можно выполнить следующим образом: Пуск->Программы->MS Visual Basic->MS Visual Basic, если путь не совпадает, уточните порядок запуска приложения у лаборанта или преподавателя).

В открывшем окне «Новый проект» необходимо выбрать значок «Стандартный». После этого редактор создаст новый VB-проект с одной формой. Далее показан внешний вид редактора VB и даны расшифровки его составляющих.

 

 

 


 

 

В окне свойств измените имя формы на frmSpisok. Задание имен объектов с использованием приставки является одним из правил хорошего тона в программировании. Встретив в тексте программы указание на объект в виде “frmSpisok” программист понимает, что этим объектом является одна из форм проекта. Аналогично задают приставки для прочих объектов. Обычно они формируются из трех первых букв, либо первых трех по порядку согласных названия типа объекта. (F o rm = frm, C o m mand B utton = cmb, Dat a = dat и т.д.)

Сохраните проект в каталоге указанном преподавателем.

1. Найдите кнопку объекта Data на панели инструментов и разместите его внизу окна.

2. Задайте его основные свойства для подключения файла БД к основному приложению: Name – DataStud, DataBaseName (указать маршрут доступа к файлу БД), RecordSource – Spisok.

3. Вызвав Tools®Menu Editor, сформируйте контекстное меню Вашего приложения: на основном уровне (размещайте стрелками) Запросы, Отчёты и Выход (mnuExit). Подуровни для Запросы: Поиск(mnuPoisk) и Обновление(mnuObnovl), для Отчёты: Справка школы(rptSprav), Список учащихся (mnu.RepSp). Для подуровня Поиск задайте 2-ое вложение: Простой поиск (mnuFind) и Фильтрация записей(mnuFilt).

4. С помощью ЭУ надпись и текстовое поле сформируйте объекты для вывода фамилии, имени и группы. В свойствах текстовых полей для отображения соответствующих значений полей БД задайте: н-р, для фамилии DataSource – DataStud, DataField – Familie. И так, соответственные данные по каждому полю.

5. Добавьте в форму ЭУ Frame. Через окно свойств присвойте заголовок рамки «Успеваемость» и разместите в ней данные об оценках. Можно это сделать либо при помощи текстовых полей, либо с помощью объекта DBCombo.

6. Если Вы воспользовались объектом DBCombo, в окне свойств установите следующие параметры: RowSource – DataStud, ListField – Word (или Excel, Access, соответственно), такие же значения для свойств DataSource и DataField).

 

7. Теперь дело за программированием кнопок Добавления, удаления, сохранения изменений для записей БД и отмены действий.

8. Добавив кнопки в форму и присвоив им имена, (см. по тексту модулей), двойным щелчком левой кнопки мыши входим в редактор процедур этих объектов и формируем соответствующий код (см. ниже).

Private Sub mnuExit_Click()

Unload Me

End Sub

Private Sub mnuObnovl_Click()

FrmRefresh.Show

End Sub

Private Sub mnuFilt_Click()

FrmQuery.Show

End Sub

 

Private Sub mnuPoisk_Click()

FrmFind.Show

End Sub

Private Sub CmbAdd_Click()

Dim m As Long

DataStud.Recordset.MoveLast

m = DataStud.Recordset![Cod]

DataStud.Recordset.AddNew

fl = True

DataStud.Recordset![Cod] = m + 1

cmbSave.Enabled = True

End Sub

Private Sub cmbCancel_Click()

fl = False

DataStud.UpdateControls

cmbSave.Enabled = False

End Sub

Private Sub cmbDelete_Click()

fl = False

DataStud.Recordset.Delete

DataStud.Recordset.MoveLast

DataStud.Caption = "Записей:" & DataStud.Recordset.RecordCount

End Sub

Private Sub cmbSave_Click()

Dim kl As Long

DataStud.Recordset.MoveLast

kl = DataStud.Recordset.RecordCount

DataStud.Caption = "Записей:" & kl

If Not fl Then

DataStud.Recordset.Edit

End If

DataStud.Recordset.Update

' cmbSave.Enabled = False

End Sub

 

9. Формируем диалог по запросам. Необходимо организовать поиск записей по заданному критерию 2 способами. Первый – с использованием последовательного доступа (FindFirst, Findnext …), второй – с использованием SQL-запроса на выборку (параллельный поиск, фильрация).

10. В первом случае, процедуре mnuFind (вызываемой по подпункту Запросы®Поиск) назначаем отображение формы, в которой будет задаваться критерий поиска записей (например, по фамилии студента). В форме можно сформировать одно текстовое поле txtFind и кнопку Поиск cmdPoisk.

 

 

11. Для кнопки задать следующую процедуру:

 

Private Sub cmdPoisk_Click()

Dim D As String

D=frmSpisok.DataStud.Recordset.Bookmark



Поделиться:


Последнее изменение этой страницы: 2017-01-25; просмотров: 108; Нарушение авторского права страницы; Мы поможем в написании вашей работы!

infopedia.su Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Обратная связь - 44.222.63.67 (0.009 с.)