[sailen]

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

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

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

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

Код:

1 2 3 4 5

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

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

Код:

1	Dmbase.qusers.Delete

Зарание СПС.

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

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

Код:

1 2 3 4 5 6 7 8

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]

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