1 Topic by Andrei (edited by Andrei 2020-10-22 10:14:17)

  • From: Волгоград
  • Registered: 2017-10-04
  • Posts: 166

Topic: Прервать открытие формы в процедуре

Здравствуйте.
Есть рабочая процедура где Button6 (штатные средства) открытие формы.

 procedure Form1_TableGrid1_OnDoubleClick (Sender: TObject; Action: string);
begin
        idZapr := Form1.TableGrid1.dbItemID;
       idPlat :=SQLExecute ('SELECT id_plat FROM zapros WHERE zapros.id= '+inttostr(idZapr));
         Form1.Button6.Click;
        end;

Подскажите как можно прервать в данной процедуре выполнение открытия формы (Form1.Button6.Click) если это не admin.
Что то вроде следующего НЕ РАБОТАЕТ. 

procedure Form1_TableGrid1_OnDoubleClick (Sender: TObject; Action: string);
begin
if (not isAdmin) then exit
else
begin
        idZapr := Form1.TableGrid1.dbItemID;
       idPlat :=SQLExecute ('SELECT id_plat FROM zapros WHERE zapros.id= '+inttostr(idZapr));
         Form1.Button6.Click;
end;
        end;

2 Reply by vit007 (edited by vit007 2020-10-23 07:52:01)

  • Registered: 2018-03-04
  • Posts: 377

Re: Прервать открытие формы в процедуре

Ход правильный мыслей, но надо так...

procedure Form1_TableGrid1_OnDoubleClick (Sender: TObject; Action: string);
begin
     if (...  = 'Admin') then 
     begin
          idZapr := Form1.TableGrid1.dbItemID;
          idPlat :=SQLExecute ('SELECT id_plat FROM zapros WHERE zapros.id= '+inttostr(idZapr));
          Form1.Button6.Click;
     end else       
end;

т.е. если учетка админ, то выполнить, обратно, знак <> (не равно)...