|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите сделать поиск по фамилии ADOTable
Помогите сделать поиск по фамилии. Столбец присоединен из другой таблицы и выведен в DBGrid.
Вообще у меня код работает, но для присоединённого столбца нет. Присоединенный столбец из ADODataSet1. Использую ADOConnection1, DataSource4, ADOTable4. Код:
procedure TForm1.Action16Execute(Sender: TObject); begin if form1.PageControl1.ActivePage=tabsheet4 then begin if Action16.Caption ='Посмотреть историю болезни' then begin if Form9.ShowModal=mrOK then begin datamodule2.ADOTable4.Filter:='(Фамилия='+''''+Form9.Edit1.Text+''''+')'; datamodule2.ADOTable4.Filtered:=true; Action16.Caption:= 'Отмена'; end else begin datamodule2.ADOTable4.Filtered:=false; Action16.Caption:= 'Посмотреть историю болезни'; end; end else begin datamodule2.ADOTable4.Filtered:=false; Action16.Caption:= 'Посмотреть историю болезни'; end; end; end; Последний раз редактировалось Admin, 07.12.2008 в 18:25. |