Сравнить две записи в программе

@demon31 · Регистрация: 01.10.2013

Студворк — интернет-сервис помощи студентам

Есть вот такой незамысловатый код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm4.Button1Click(Sender: TObject);
var s1:string;
    n:integer;
begin
    s1:=DBEdit4.text;
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.Add('SELECT * FROM KURIER K WHERE K.PASPORT = "'+s1+'" ');
    Query1.Open;
    n:=Query1.RecordCount;
 
    if n=0 then begin
       Form1.Table3_kurieri.Edit;
       Form1.Table3_kurieri.Post;
       Close;
       MessageDlg('Сдал', mtError, [mbOK], 0);
    end else MessageDlg('Такой курьер уже есть в базе!', mtError, [mbOK], 0);
 
end;

Суть его в том, что он стоит на кнопке редактирования данных, проще говоря сравнение на повторение данных в базе, напрмер, если есть уже человек с фамилией: Иванов, то его не должно добавить.
Однако, столкнулся с проблемой, при добавлении новой строки проблем нет, но если открыть редактирование то значение из базы всегда равно 1, так как запись же есть уже, поэтому у меня всегда пишет, что такая фамилия есть, каким образом можно обработать этот нюанс, а именно, например, если я просто нажал редактирование, но не редактировал поля или они остались теми же то просто оставить запить такой же как и есть, не выдавая ошибку?

@demon31 · 13.05.2016, 17:43 **[ТС]**

Ааа, вы все равно не просекли, не поможет разбить, всё равно тоже самое будет, нужно как-то сравнить исходное и изменённое ...

@krapotkin · 13.05.2016, 18:35

с этого текста нужно было начинать

проверку нужно делать в событии OnBeforePost
ваш датасет находится в одном из двух состояний - либо dsEdit либо dsInsert
в любом случае вы берете значения полей, составляете запрос и делаете вывод
если нужно отменить, поднимаете исключение
raise Exception.Create('Такая запись уже есть');
и все...

@demon31 · 13.05.2016, 21:55 **[ТС]**

Охох, что-то ничего не понял, я немного слоупок, или много

@krapotkin · 13.05.2016, 22:10

есть датасет, пусть q1, в который надо что-то вставить или изменить
у него есть событие OnBeforePost
в этом событии пишем что-то типа (поля и условие в SQL я беру от фонаря)

Delphi
1
2
3
4
5
6
7
8
9
s1:=q1.fieldByName('aaa').asString;
s2:=q1.fieldByName('bbb').asString
q2.sql.text:= 'select count(*) as C from та_же_таблица where aaa='''+s1+''' and bbb='''+s2+'''';
q2.open;
Found := q2.FieldByName('C').asInteger <> 0;
q2.close;
 
if Found then
  raise Exception.Create('Такая запись есть уже');

@demon31 · 15.05.2016, 11:12 **[ТС]**

А в чём суть OnBeforePost?
Если смотреть на твой код, он мне всегда должен возвращать ошибку.
Выглядит как, я записал Фамилию и Имя в переменные, нашел их в базе и вернул ошибку на то что они есть.

@krapotkin · 15.05.2016, 12:08

On BEFORE post
переведите, это недолго, но полезно
значения полей датасета еще не записаны в базу
поэтому можно слазить туда и посмотреть, есть там эти значения или нет
если есть, выдать Exception и запись не произойдет
а узнал я это, прочитав документацию по OnBeforePost

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@demon31 0 / 0 / 2 Регистрация: 01.10.2013 Сообщений: 344
	13.05.2016, 17:43 [ТС]
	Ааа, вы все равно не просекли, не поможет разбить, всё равно тоже самое будет, нужно как-то сравнить исходное и изменённое ... 0

@krapotkin 6847 / 4674 / 1463 Регистрация: 14.04.2014 Сообщений: 20,656 Записей в блоге: 21
	13.05.2016, 18:35
	с этого текста нужно было начинать проверку нужно делать в событии OnBeforePost ваш датасет находится в одном из двух состояний - либо dsEdit либо dsInsert в любом случае вы берете значения полей, составляете запрос и делаете вывод если нужно отменить, поднимаете исключение raise Exception.Create('Такая запись уже есть'); и все... 0

@demon31 0 / 0 / 2 Регистрация: 01.10.2013 Сообщений: 344
	13.05.2016, 21:55 [ТС]
	Охох, что-то ничего не понял, я немного слоупок, или много 0

@demon31 0 / 0 / 2 Регистрация: 01.10.2013 Сообщений: 344
	15.05.2016, 11:12 [ТС]
	А в чём суть OnBeforePost? Если смотреть на твой код, он мне всегда должен возвращать ошибку. Выглядит как, я записал Фамилию и Имя в переменные, нашел их в базе и вернул ошибку на то что они есть. 0

@krapotkin 6847 / 4674 / 1463 Регистрация: 14.04.2014 Сообщений: 20,656 Записей в блоге: 21
	15.05.2016, 12:08
	On BEFORE post переведите, это недолго, но полезно значения полей датасета еще не записаны в базу поэтому можно слазить туда и посмотреть, есть там эти значения или нет если есть, выдать Exception и запись не произойдет а узнал я это, прочитав документацию по OnBeforePost 0