Работа с базой данных  MS Access в Delphi

Цель работы: Научится работать с базами данных MS Access в среде программирования Delphi 7.

Ход работы:

Таблицу необходимо сохранить в формате .mbd  для это нужно: нажать Файл-Параметры-Общие-Формат Файла по умолчанию- Access 2002-2003.

Создайте таблицу в  MS Access со следующими полями:

С закладки ADO кидаем на форму элемент ADOConnection. В свойстве ConnectionString нажимаем на три точки и перед нами открывается окно

Нажимаем на кнопку Build и указываем поставщика данных нашей базы

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

Кидаем на форму элемент ADOQuery с закладки ADO, в свойстве Connection  выберите ADOConnection1

Кидаем на форму элемент DataSource1 с вкладки Data Access, в свойстве Date Set укажите ADOQuery1

Перейдем в свойство SQL элемента ADOQuery1, нажмем на 3 точки и увидим окно для ввода запроса и введем в него следующие запрос:

SELECT *from Кадры

В данном запросе мы выбираем все поля из таблицы «Кадры».

У нас появилось окно для ввода пароля, чтобы его убрать в свойстве LoginPrompt поставьтее значение False элемента ADOConnection1

Кидаем на форме элемент DBGrid1 с вкладки Date Controls

В свойстве DateSource указываем DataSource1

В свойстве Active элемента ADOQuery1 укажите значение True. В итоге у вас должна отобразиться ваша таблица.

Кидаем на форму 3 элемента BitBtn с вкладки Additional и изменим их наименование следующим образом: первая кнопка будет иметь значение добавить, вторая-изменить, третья-удалить.

Создадим новую форму(file-new-form). Киньте на форму 4 элемента DBEdit с вкладки Date Controls, DBComboBox и 4 элемента label с вкладки Standart, 2 элемента BitBtn с вкладки Additional и разместите их как показано на рисунке:

Теперь нужно связать наши формы для этого нужно:

Создадим обработчик событий (Onclick) на кнопке ОК и напишем в него следующий код:

Form1.Show;

После этого у нас появится сообщение, в котором Delphi спрашивает подключить ли к Unit2 Unin1, нажимаем ОК.

Удаляем код из обработчика событий кнопки ОК.

Выделяем элемент DBEdit1 и в свойстве DataSourse укажем from1. DataSourse1

В свойстве DateField укажем значение имя, так как в данное поле будет вводиться имя.

Тоже самое проделайте с остальными элементами DBEdit и элементом DBComboBox1.

Добавим в элемент DBComboBox1 значения:

Заходим в свойство items и вводим следующие значения, нажимаем ОК

Создадим обработчик событий на кнопку ОК (form2) и напишем в нем следующий код:

form1.ADOQuery1.Post;

Создадим обработчик событий на кнопку добавить (form1) и напишем в нем следующий код:

form2.show;
ADOQuery1.Insert;

Запустите приложение и нажмите на копку добавить, у вас откроется форма для ввода данных поле нажатия кнопки ОК ваша запись появится в таблице

Чтобы избежать ошибки при повторном нажатии на кнопку ОК дополним наш код простой командой Close;

Создадим обработчик событий на кнопке Удалить (form1) и пропишем в нее следующий код:

ADOQuery1.Delete;

Создадим обработчик событий на кнопке Изменить (form1) и пропишем в нее следующий код:

Form2.Show;

Создадим обработчик событий на кнопке Отмена (form2) и пропишем в нее следующий код:

Form1.ADOQuery1.Cancel;