ТЕМА № 1. Элемент управления Data для связи с базами данных

Задание: создать приложение, которое вводит и редактирует данные о студентах в базу данных «Университет».

Ход работы

Рис. 43

1   Создайте новый проект и расположите на новой форме следующие элементы управления, как показано на рис. 43:

lblФИО, lblФакультет, lblГруппа – метки для вывода пояснительных надписей;

txtФИО, txtФакультет, txtГруппа – текстовые окна для ввода данных в базу данных;

cmdДобавить, cmdСохранить, cmdOk – кнопки;

fraСтудент – рамка;

datСтуденты – элемент управления для связи с базой данных.

2   Сохраните проект.

3   С помощью офисного приложения MS Access 97 (или дополнения Visual Data Manager в VB в меню) создайте базу данных «Университет» из одной таблицы Студенты с тремя полями: ФИО, Факультет и Группа и сохраните ее в папке проекта.

4   Теперь необходимо задать свойства DatabaseName и RecordSource элемента управления datСтуденты:

DatabaseName = {Укажите полное имя базы данных Университет}

RecordSource = «Студенты»

5   Элемент управления datСтуденты связан с базой данных на диске, теперь необходимо привязать текстовые поля txtФИО, txtФакультет, txtГруппа к соответствующим полям базы данных. Для этого необходимо задать свойство DataSource равным datСтуденты, a DataField равным названию поля из таблицы Студенты.

6   Задайте в окне Properties для элемента управления txtФИО свойства DataField, равным ФИО, а свойство DataSource – datСтуденты.

7   Аналогично задайте свойства для элементов управления txtФакультет и txtГруппа.

8   Но запускать приложение еще рано, потому что в базе данных нет записей. Для того, чтобы можно было добавлять новые записи, необходимо запрограммировать кнопку Добавить следующим образом:

Private Sub cmdДобавить_Click()

            datСтуденты.Recordset.AddNew

End Sub

9   Запустите приложение и добавьте одну запись о студенте, например, о себе лично.

10   Теперь запрограммируем кнопку Сохранить, при щелчке по которой данные из формы будут сохраняться в базе данных на диске:

Private Sub cmdСохранить_Click()

            datСтуденты.UpdateRecord

            datСтуденты.Recordset.Bookmark = datСтуденты.Recordset.LastModified

End Sub

11   Самостоятельно запрограммируйте кнопку Ok.

12   Запустите приложение и введите в базу данных несколько записей, сохраните данные с помощью кнопки Сохранить, затем закройте приложение и запустите вновь. Убедитесь с помощью элемента управления Data, что все данные сохранились!

Дополнительное задание

Расширьте приложение так, чтобы в базе данных сохранялись поля Отделение и Курс, соответственно изменив интерфейс приложения. Сохраните приложение.

Контрольные задания

Разработать приложение для ввода и редактирования данных в базе данных (так чтобы в ней содержались следующие поля):

1) «Косметика» (наименование, тип, изготовитель, цена, примечания);

2) «Военная техника» (название, тип, вид вооруженных сил, модель...);

3) «Автомобили» (модель, изготовитель, цена, цвет, примечания);

4) «Животные» (название, отряд, место обитания);

5) «Насекомые» (название, …);

6) «Банк» (вкладчик, дата вклада, сумма, срок, процент);

7) «Магазин» (продукт, цена, единица измерения, количество);

8) «Склад» (товар, цена, количество, производитель, состояние);

9) «Бухгалтерия» (счет, дата, сумма);

10) «Расписание» (предмет, время, преподаватель, группа, примечания).

Вопросы для самоконтроля

1   Что такое база данных, таблица, поля, записи?

2   Какой элемент управления VB связывает элементы управления с данными из базы данных?

3   Какое свойство элемента управления Data указывает путь к файлу базы данных?

4   Какое свойство элементов управления ссылается на элемент управления Data?

5   Какие свойства элемента управления TextBox связывают его с полем в таблице базы данных?

6   Каков стандартный префикс имени у элемента управления Data?

Скачано с www.znanio.ru