Поиск в таблице фирм бд.
Для модуля Unit4 -
поля Edit1 с искомым
значением и события OnChange
изменения поля создайте событийную
процедуру для навигации по строкам
таблицы и поиска записи с нужным
значением поля Firm_Name:
procedure TForm4.Edit1
Change (Sender: TObject);
begin
DM.ADOTbFirm.First;
// К первой записи таблице
While NOT(DM.ADOTbFirm.Eof)
do Begin
// Пока не закончатся все записи
// Если в записи есть искомый фрагмент,
то она искомая. Закончить
перебор.
If Pos(Edit1.Text,
DM.ADOTbFirmFirm_Name.Value)
<> 0 Then Exit;
DM.ADOTbFirm.Next;
End;
end;
Отладьте процедуру поиска фирм и
сохраните приложение.
