Search options (Page 235 of 400)

Select
person.ФИО
,person.Организация
,person.Интерес
,person.analog
,CONCAT(IFNULL(Diapazon_f.diap_f,''),' ',IFNULL(person.drugoe_f,''))
, rtrim(
CASE WHEN is_red=1 THEN 'красный, ' ELSE '' END ||
CASE WHEN is_green=1 THEN 'зеленый, ' ELSE '' END ||
CASE WHEN is_blue=1 THEN 'синий, ' ELSE '' END
, ', ')
,person.id


From person

LEFT OUTER JOIN Diapazon_f ON Diapazon_f.id=person.id_Diapazon_f
LEFT OUTER JOIN Appparat ON Appparat.id=person.id_Appparat
LEFT OUTER JOIN phone ON phone.id_person=person.id
LEFT OUTER JOIN Email ON Email.id_person=person.id

WHERE
(CASE WHEN {chbFIO}=1 THEN ФИО LIKE '%{edSearch}%' ELSE 1=0 END) OR
(CASE WHEN {chbORG}=1 THEN Организация LIKE '%{edSearch}%' ELSE 1=0 END) OR
(CASE WHEN {chbINT}=1 THEN Интерес LIKE '%{edSearch}%' ELSE 1=0 END) OR
(CASE WHEN {chbF}=1 THEN diap_f LIKE '%{edSearch}%' ELSE 1=0 END)
GROUP BY person.id

procedure Form1_Image1_OnClick (Sender: string);
begin
    Form1.Button1.Click;
end;

if ValidFloat(Form1.TableGrid3.Cells[21, ARow]) then
begin
   if StrToFloat(Form1.TableGrid3.Cells[21, ARow]) > 0 then Form1.Label64.Font.Color := clRed else Form1.Label64.Font.Color := clGreen;
end else Form1.Label64.Font.Color := clWindowText;

procedure Form1_OnShow (Sender: string; Action: string);
begin
    Form1.ComboBox1.Items.Clear;
    Form1.ComboBox1.Items.Add ('Choice 1');
    Form1.ComboBox1.Items.Add ('Choice 2');
    Form1.ComboBox1.Items.Add ('Choice 3');
    Form1.ComboBox1.ItemIndex := 0;
end;

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
    if Form1.Edit1.Text = '' then
    begin
        Cancel := True;
        ShowMessage('Your message here.');
    end;
end;