Oracle+Delphi Фильтр после DECODE

[xxbesoxx]

Здравствуйте ребята. Формирую простои запрос SQL Developer

select  first_name, last_name, job_id, 
DECODE(job_id,'IT_PROG','Прогр-ты','AD_PRES','Президент','Unknown')  Професия
from employees

Хочу отфильтровать поля который появился после DECODE через WHERE фильтрую вот так и работает

select  first_name, last_name, job_id, 
DECODE(job_id,'IT_PROG','Прогр-ты','AD_PRES','Президент','Unknown')  Професия
from employees
where DECODE(job_id,'IT_PROG','Прогр-ты','AD_PRES','Президент','Unknown') = 'Президент';

Вопрос: Как это фильтр реализовать из Delphi

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 OraQuery1.Close;
 OraQuery1.SQL.Clear;
 OraQuery1.SQL.Add('select  first_name, last_name, job_id, '+
                   'DECODE(job_id,''IT_PROG'',''Прогр-ты'',''AD_PRES'',''Президент'',''Unknown'')  Професия '+
                   'from employees');
 OraQuery1.SQL.Add('WHERE DECODE(job_id,''IT_PROG'',''Прогр-ты'',''AD_PRES'',''Президент'',''Unknown'') IN ('+ Edit1.Text+ ')');
 OraQuery1.Open;
end;

Так не работает.... Пожалуйста помогите разобрать как передать правильно where DECODE(job_id,'IT_PROG','Прогр-ты','AD_PRES','Президент','Unknown' ) = что бы работал

[Stilet]

Думаю так:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 OraQuery1.Close;
 OraQuery1.SQL.Clear;
 OraQuery1.SQL.Text:=
    'select  first_name, last_name, job_id, '+
                   'DECODE(job_id,'+QuotedStr('IT_PROG')+','+QuotedStr('Прогр-ты')+','+QuotedStr('AD_PRES')+','+QuotedStr('Президент')+','+QuotedStr('Unknown')
+')  Професия '+
                   'from employees WHERE DECODE(job_id,'+QuotedStr('IT_PROG')+','+QuotedStr('Прогр-ты')+','+QuotedStr('AD_PRES')+','+QuotedStr('Президент')+','+QuotedStr('Unknown')+') IN ('+ Edit1.Text+ ')');

 OraQuery1.Open;
end;

[Serge_Bliznykov]

так?

 OraQuery1.SQL.Add('WHERE DECODE(job_id,''IT_PROG'',''Прогр-ты'',''AD_PRES'',''Президент'',''Unknown'') IN ('+ QuotedStr( Edit1.Text )+ ')');

[xxbesoxx]

Работает только на 1 значения. на пример ''Прогр-ты' если мне нужно передать несколько значения из Edit1 вот так ('Президент', 'Прогр-ты')

Вот такой запрос

select  first_name, last_name, job_id, 
DECODE(job_id,'IT_PROG','Прогр-ты','AD_PRES','Президент','Unknown')  Професия
from employees
where DECODE(job_id,'IT_PROG','Прогр-ты','AD_PRES','Президент','Unknown') IN ('Президент', 'Прогр-ты');

Как это написать правильно ?

[xxbesoxx]

На одно значения работает так да, Но на несколько значения не работает... Ребята помогите пожалуйста. голова взрывается

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 OraQuery1.Close;
 OraQuery1.SQL.Clear;
 OraQuery1.SQL.Add('select  first_name, last_name, job_id, '+
                   'DECODE(job_id,''IT_PROG'',''Прогр-ты'',''AD_PRES'',''Президент'',''Unknown'')  Професия '+
                   'from employees');
 OraQuery1.SQL.Add('WHERE DECODE(job_id,''IT_PROG'',''Прогр-ты'',''AD_PRES'',''Президент'',''Unknown'') IN (' + QuotedStr(Edit1.Text) + ')');
OraQuery1.Open;
end;

[xxbesoxx]

Stilet , Serge_Bliznykov Огромное спасибо. Тема можно закрыт