![]() |
|
#1
|
|||
|
|||
![]() Народ помогите плз, нужен простенький поиск в бд,я в дельфи недавно) и не очень разбираюсь. поиск в дбгрид, записываем данные в эдит нажимаем на батон и результат поиска...заранее спс
![]() |
#2
|
|||
|
|||
![]() Код:
procedure TPokupateli.Edit1Change(Sender: TObject); begin if (edit1.text<>'') then begin dm.org_table.Filter:='(Название LIKE '''+edit1.Text+'%'')'; dm.org_table.Filtered:=true; end else dm.org_table.Filtered:=false; end; 2 раза щелкаешь на едит создается событие Edit1Change туда этот код, (dm - модуль данных, org_table - фильтруемый источник данных) Последний раз редактировалось Admin, 23.05.2010 в 17:46. |
#3
|
|||
|
|||
![]() )) ща попробую
|