[sailen]

Всем привет, помогите, 3 день мучаюсь.

Есть бд на mssqlserv2005
в бд таблица ( nakls ) в таблице 3 поля (( Фамилия, Имя, Отчество) (surname2, username2, patronumic2))

Ввожу в edit1,edit2,edit3 данные Иванов, Иван, Иванович
провожу поиск, нахожу пользователя

Когда хочу удалить пользователя

Код:

Res :=MessageBox(Handle,PChar('Уверены, что хотите выполнить это действие???'),
PChar('Удалить запись?'),
MB_ICONWARNING+MB_OKCANCEL+MB_DEFBUTTON2);
    case Res of
IDOK : begin

При нажатии на кнопку ОК
программа проверила есть ли в таблице ( nakls ) в полях (surname2, username2, patronumic2) введенные данные если есть то получить сообщение ( О невозможности выполнить операцию )
если нет то выполнить сей код

Код:

Dmbase.qusers.Delete

Зарание СПС.

[Страдалецъ]

похоже такое вам надо:

Код:

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('Низя!');

[sailen]

О спасибо тебе великий гуру ты меня реально спас от головной боли