Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];




Вниз

Фильтрация в Delphi 


mrl   (2002-03-30 14:48) [0]

Необходимо отфильтровать в таблице tMegazin те записи у которых есть записи в подчиненой таблице tPublik

procedure TDataModule1.tMegazinFilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
Accept:=not(tPublik.IsEmpty);
end;

НЕ РАБОТАЕТ?! Подскажите в чем дело? Хочу обойтись без TQuery.

С уважением Валентин



VAleksey   (2002-03-30 16:54) [1]

Ну во первых (если я правильно понял из книги) если в tPablik есть записи то ее св-во isEmpty будет равно false.

Была у меня такая задача -) держи код для твоего случаю (будет тормозить немного -)), но у меня прошло была база примерно на 3000 записей )

procedure TDataModule1.tMegazinFilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
Accept:=tPublik.Locate("Поле по которому связаны таблицы",tMegazin.FieldByName("Поле по которому связаны таблицы").Value,[]);

end;



VAleksey   (2002-03-30 16:55) [2]

Можно использовать FindKey если по полю есть индекс.
Может будет побыстрее




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.016 c
6-69950           zam                   2002-02-11 04:24  2002.04.22  
Конвертировать ISAPI в webappdebugger executable


3-69719           Nickolaus             2002-03-29 22:41  2002.04.22  
Как


14-70022          Alexandr_             2002-03-13 12:35  2002.04.22  
Где-то читал про программу которая exe_шник.....


1-69762           AFROLOV               2002-04-08 13:21  2002.04.22  
Как использовать в Delphiклассы и перегруженные для них операторы


7-70044           Delphimun             2002-01-27 15:54  2002.04.22  
Существует ли в Способ запустить пргу ещё до загрузки windows(в dos)