Условие В Условии

[triamera977]

Всем привет. Запутался совсем в данном условии

procedure TForm1.N3Click(Sender: TObject);

begin
if ((sDBEdit2.Text=DBEdit3.Text) and (DBEdit2.Text='boss')) or (sDBEdit1.Text=name) or (DBEdit2.Text='admin') then
  begin
if MessageDlgPos('Вы действительно хотите удалить запись сотрудника '+DBGridEh1.Fields[2].AsString+'?',mtWarning, mbYesNo,  0, 400, 300)=6 then
begin
DataModule2.ADOQuery1.Delete;
end
else
ShowMessage('Вы не имеете право удалить чужую запись!');
  end;
end;

С начало проверяем есть ли права у пользователя на удаление записи, если есть то вылезает окно MessageDlgPos.

 

[triamera977]

разобрался

procedure TForm1.N3Click(Sender: TObject);
begin
if ((sDBEdit2.Text=DBEdit3.Text) and (DBEdit2.Text='boss')) or (sDBEdit1.Text=name) or (DBEdit2.Text='admin2') then
  begin

if MessageDlgPos('Вы действительно хотите удалить запись сотридника '+DBGridEh1.Fields[2].AsString+'?',mtWarning, mbYesNo,  0, 400, 300)=6 then
DataModule2.ADOQuery1.Delete;
end

else
ShowMessage('Вы не имеете право удалить чужую запись!');


end;

 

[Sascha]

Невнимательность - худший враг программистаlach

 

[triamera977]

борюсь потихоньку ))

 

[Lomanu4]

Все с временем приходит само .