• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

помогите!.... фильтр

  • Автор темы pyharok
  • Дата начала
P

pyharok

Ситуация такова:
- на форме есть компонента PageControl с двумя вкладками на которих есть DbGrid'и связание с одной таблицей (Table1).
- в Table1 есть поле с названием TypNaselPunkt которое имеет два значения: gorod ; derevnya.
Нужно чтоби при виборе 1 вкладки работал фильтр по gorod'е, а при виборе 2 - по derevnya.

Немогу никак етот фильтр сложить......
Помогите плиз, завал полний...
 
E

etc

Что конкретно не получается? и покажите как делали
 
P

pyharok

Что конкретно не получается? и покажите как делали

использую собитие когда активна первая вкладка Город, вместо ??? незнаю какой задать параметр

procedure TfKlPost.PageControl1Change(Sender: TObject);
begin
if PageControl1.ActivePageIndex=0 then
begin
Table1.Filter:='TypNaselPunkt='+QuotedStr(??? '*' );
Table1.Filtered:=true
end
else
Table1.Filtered:= false;
end;
 
E

etc

а так?
Код:
procedure TfKlPost.PageControl1Change(Sender: TObject);
begin
Table1.Filtered:= false;
if PageControl1.ActivePageIndex=0 then
Table1.Filter:=Format('TypNaselPunkt=%s', [QuotedStr('gorod')])
else
Table1.Filter:=Format('TypNaselPunkt=%s', [QuotedStr('derevnya')]);
Table1.Filtered:= true;
end;
 
E

etc

исправлять надо, ... я не телепат, я на растоянии не вижу
 
P

pyharok

сори .......

вот, при запуске той форми дословно:

Table1: Type mismatch for field 'Typ_Kl_Post', expecting: String actual: Integer.
 

Вложения

  • __________.JPG
    __________.JPG
    8,7 КБ · Просмотры: 457
E

etc

это вы уже напороли в другом месте
еще раз - исправлять надо, ... я не телепат, я на растоянии не вижу
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!