ADO

Работа с таблицей Банки в ADO

 

            Есть таблица «Банки», созданная в «MS Access 2002», в которой есть следующие поля: ID_Банка, Название, Город, Телефон. Необходимо организовать работу с этой таблицей, а именно добавлять, изменять и удалять записи.

            Запускаем среду разработки «Дельфи-7», создаем новый проект, на главную форму приложения перетаскиваем компоненты: ADOConnection, ADOQuery, DataSource, DBGrid, 3 штуки DBEdit, 2 кнопки Button. Размещаем компоненты в удобном порядке.

            Далее нужно настроить некоторые параметры компонентов.

            У компонента «ADOConnection1» нужно установить параметры: ConnectionString и LoginPromt.

            У компонента «ADOQuery1» надо выставить параметры: Active, Connection, SQL. В свойстве SQL нужно написать запрос:

 

SELECT * FROM Банки

 

            В компоненте «DataSource1» нужно параметру «DataSet» выбрать значение «ADOQuery1».

            Компоненту «DBGrid1» необходимо выставить для свойства «DataSource» значение «DataSource1», а также «Options – dbRowSelect» как «True».

            Визуальным компонентам «Label» в свойство «Caption» занести названия полей таблицы «Банки», кроме поля «ID_Банка», т.к. это поле ключевое и автоинкриментальное.

            Напротив компонент «Label» разместить «DBEdit», у которых выставить свойство «DataSource» как «DataSource1», после это станут доступны значения для свойства «DataField», которые нужно выбрать в соответствии с текстом в компонентах «Label».

            На кнопках «Button»  сделать надписи: Добавить запись, Удалить запись. На событие «OnClick» первой кнопки вставить код «ADOQuery1.Insert;», а для того же события кнопки «Удалить запись» код «ADOQuery1.Dealete;».

Таким образом, чтобы добавить новую запись в таблицу банки нужно нажать кнопку «Добавить запись», а в пустые поля компонентов «DBEdit» вписать значения полей.

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

А для того чтобы изменять записи нужно выбрать запись в таблице, после чего появившиеся текущие значения полей отобразятся в компонентах «DBEdit», где их и отредактировать, при этом ничего нажимать не надо.

Рис. 1. Рабочее окно программы


База данных предприятий Бор (1376 адресов)
База данных предприятий Бор (1376 адресов)


База Трастовых сайтов 132 шт
База Трастовых сайтов 132 шт


бд Учёт опозданий и прогулов .mdb
бд Учёт опозданий и прогулов .mdb