В начало

Поиск в таблице Абоненты

 

            Есть база данных «Телефонная база», в которой имеется таблица «Абоненты». Необходимо подключиться к этой базе средствами ADO и организовать интерактивный поиск по номеру телефона.

Рис. 1. Таблица «Абоненты»

Рис. 1. Таблица «Абоненты»

 

            Запускаем среду разработки «Дельфи 7», создаем новое приложение и перетаскиваем на главную форму компонент «ADOConnection» и «ADOQuery» с закладки «ADO». Затем добавляем на форму компонент «DataSource» с закладки «Data Access». А с закладки компонентов «Data Control» перетаскиваем «DBGrid».

            Потом настраиваем компоненты между собой.

Компонент

Настройка

Значение

ADOConnection1

ConnectionString

 

 

LoginPromt

False

ADOQuery1

Connection

ADOConnection1

 

SQL

SELECT *

FROM Абоненты;

DataSource1

DataSet

ADOQuery1

DBGrid1

DataSource

DataSource1

           

Далее надо на форму кинуть компоненты «Label» и «Edit». В свойстве компонента «Label1» написать пояснение по поиску, типа «Искать по номеру. А на событие «OnChange» компонента «Edit1» разместить код.

  ADOQuery1.Active:= False;

  ADOQuery1.SQL.Clear;

  ADOQuery1.SQL.Add ('SELECT *');

  ADOQuery1.SQL.Add ('FROM Абоненты');

  ADOQuery1.SQL.add ('WHERE Телефон LIKE ''' +'%' + Edit1.Text + '%''');

  ADOQuery1.Active:= True;

 

Рис. 2. Результат поиска телефона по номеру «915*»


Код для бд Собес.mdb
Код для бд Собес.mdb


MySQL дамп базы данных различных гороскопов.
MySQL дамп базы данных различных гороскопов.


Полная база каталога Rambler TOP100. Май 2016
Полная база каталога Rambler TOP100. Май 2016