|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Удалить после выполнения проверки данные из БД
Всем привет, помогите, 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 Зарание СПС. |
#2
|
||||
|
||||
похоже такое вам надо:
Код:
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('Низя!'); Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. Последний раз редактировалось Страдалецъ, 04.05.2015 в 00:58. |
#3
|
|||
|
|||
О спасибо тебе великий гуру ты меня реально спас от головной боли
|