17.08.2015, 17:31
|
 |
LMD-DML
|
|
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
|
|
м.б.
Код:
if ADOQuery1.Locate('client_id', Variant(ADOQuery2.FieldbyName('c_id').AsInteger), [loCaseInsensitive]) Then
begin
Showmessage('Дубликат');
exit;
end else... |