В начало

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

 

            Есть база данных «Телефонная база», в которой имеется таблица «Абоненты». Необходимо подключиться к этой базе средствами 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*»