похоже такое вам надо:
Код:
Q.SQL.Text := 'select * from nakls where surname2=:surname2 and username2=:username2 and patronumic2=:patronumic2';
Q.Parameters.ParamValues['surname2'] := Edit1.Text;
Q.Parameters.ParamValues['username2'] := Edit2.Text;
Q.Parameters.ParamValues['patronumic2'] := Edit3.Text;
Q.Open;
if Q.isEmpty
then Dmbase.qusers.Delete
else ShowMessage('Низя!'); |