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

@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, так как запись же есть уже, поэтому у меня всегда пишет, что такая фамилия есть, каким образом можно обработать этот нюанс, а именно, например, если я просто нажал редактирование, но не редактировал поля или они остались теми же то просто оставить запить такой же как и есть, не выдавая ошибку?

@qwertehok · 12.05.2016, 20:12

если начали писать запросы, то зачем делать Edit\Post?
почему не сделать нормальный Insert?

тогда вы легко обработаете любую ситуацию

@demon31 · 12.05.2016, 22:34 **[ТС]**

Потому что это делфи, где нам не дают таких знаний, прошу сделать так как требуют.

@qwertehok · 12.05.2016, 22:44

ничего не понял

напишите нормальные SQL запросы и проблема ваша исчезнет

@Пытливый · 13.05.2016, 00:12

напрмер, если есть уже человек с фамилией: Иванов, то его не должно добавить

И с чего это интересно вы решили, что у вас не может быть 2 Иванова с разными паспортами? Если вы живете где-то в Руанде, может Иванов и редкая фамилия, но для России как-бы нормально.

@krapotkin · 13.05.2016, 06:34

Сообщение от demon31

Form1.Table3_kurieri.Edit;
* * * *Form1.Table3_kurieri.Post;

это вообще что?
в переводе на русский
ща поредактирую запись
а, нет, ну нафиг

@maybeTM · 13.05.2016, 10:48

krapotkin, Я не увирен, но иногда таким способом пользуются что бы записи сохранились в парадокс7, так как просто post записи не всегда сохраняет, или там вообще ошибка выходила, потому что таблица не в режиме редактирования.

@krapotkin · 13.05.2016, 11:21

edit - начать редактирование
post - записать изменения
первая выдаст ошибку, если уже в редактировании, вторая - наоборот

если лень проверять самому, можно использовать CheckBrowseMode;

@demon31 · 13.05.2016, 15:39 **[ТС]**

Вы цепляетесь не к тому, суть в моём вопросе,а не в том могут быть 2 ивановых или нет, ибо будет больше проверок, на ФИО + паспорт например, и да, это открытие редактирования и пост сразу потому что ошибка, которая говорит что таблица не открыта для редактирования.

@qwertehok · 13.05.2016, 16:06

у тебя проблема в том что ты неправильно делаешь редактирвоание

@demon31 · 13.05.2016, 16:51 **[ТС]**

Почему?

Добавлено через 17 секунд
Да и мне не нужно редактирование, мне нужно сравнение -.-

@qwertehok · 13.05.2016, 16:59

Сообщение от demon31

Почему?

Сообщение от demon31

но если открыть редактирование то значение из базы всегда равно 1

Сообщение от demon31

Да и мне не нужно редактирование, мне нужно сравнение

сравнение чего с чем?

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

В базе, в таблице есть К записей, а я выбираю любую и жму редактировать, срабатывает мой код

Delphi
1
2
3
4
5
6
    s1:=DBEdit4.text;
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.Add('SELECT * FROM KURIER K WHERE K.PASPORT = "'+s1+'" ');
    Query1.Open;
    n:=Query1.RecordCount;

На этой форме поля для редактирования, одно из них допустим "фамилия" оно равняется DBEdit4.text;
Мне сразу же n=1 вернуло, он нашел запись в базе, я жму добавить, ничего не меняя, и он пишет что такая запись существует. А не должно быть так, ведь это та же самая запись что и была, а не новая.

@krapotkin · 13.05.2016, 17:04

Сообщение от demon31

суть в моём вопросе

нет вопроса
есть неверный код, который очевидно вам не подходит
для того, чтобы написать другой, нужны разделы что дано, что требуется получить

тут с первой строки все не так...

Сообщение от demon31

s1:=DBEdit4.text;

@qwertehok · 13.05.2016, 17:07

Сообщение от demon31

А не должно быть так, ведь это та же самая запись что и была, а не новая.

так ведь у тебя в коде написано что добавить только если n=0
а у тебя n=1

конечно ОН тебе ничего не добавить

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

Да вам даже просто говоришь, а вы не сечёте, хотя мой уровень 1 из 10 ...

Добавлено через 51 секунду
Так это и требуется исправить, он должен добавить, даже если n=1, так как оно блин и равняется одному, у вас проблемы с логикой или скринов запилить что поняли?

Добавлено через 1 минуту
Мой код работает правильно если добавляют новую запись, но если редактируют старую он возвращает 1 и не добавляет, расценивая её как повтор.

@qwertehok · 13.05.2016, 17:14

Сообщение от demon31

Так это и требуется исправить

что тут исправлять то?
это проблемы не с кодом, а с логикой программы
логику ты придумываешь исходя из ТЗ (или что там у тебя)

придумай как сделать так что бы все работало и только потом пиши код

@krapotkin · 13.05.2016, 17:14

чтобы поняли, надо научиться описывать задачу связным текстом на русском языке
никто не собирается отгадывать что такое N и почему при значении 0 - так, а 1 - этак
что у вас есть?
что нужно сделать?
и тогда "пилить скрины" не требуется

нужен не код, а алгоритм
вот именно его вы и не можете никак описать

Сообщение от demon31

если я просто нажал редактирование, но не редактировал поля

Сообщение от demon31

если открыть редактирование

вот реально пустой звук

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

Если вы не знаете что делает Query1.RecordCount то всё плохо, как мне объяснить что это количество строк с такой фамилией, которая записана в DBEdit4.text?

Добавлено через 32 секунды
Это сложно, я не знаю как более еще описать ...

Добавлено через 6 минут
Есть таблица к ней прилагается три кнопки:
1) Добавить строку
2) Редактировать строку
3) Удалить строку

Я жму добавить, открывается форма добавления (она же является и формой редактирования, только щас она пустая), заполняю поля, и жму добавить, срабатывает проверка, если строк с фамилией что я внёс не существует, то n вернёт значение 0 и запись добавится, иначе запись есть и выдаст ошибку.

Я жму редактировать на ту запись которую я добавил только что, в ней уже отобразятся мои поля которые я забил, я ничего в них не поменяю и нажму добавить, срабатывает проверка, которая находит мою фамилию в базе и n вернёт значение 1 и запись не добавит, а выдаст ошибку, а её должно было добавить.

@qwertehok · 13.05.2016, 17:42

тогда напиши 2 куска кода в зависимости от того что ты делаешь

нажал кнопку добавить - открылась форма добавление (в заголовке у нее добавить)
нажал кнопку редактировать - открылась форма редактирование (в заголовке у нее редактировать)

тогда в зависимости от заголовка
if Form.Caption='добавить' then
INSERT

if Form.Caption='редактировать' then
UPDATE

и никогда не пиши

Сообщение от demon31

запись не добавит, а выдаст ошибку, а её должно было

программу ТЫ пишешь, а не делфи
следовательно ТЫ должен ее исправлять

Новые блоги и статьи Все статьи Все блоги /
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 . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025

@qwertehok 5949 / 4525 / 1094 Регистрация: 29.08.2013 Сообщений: 28,105 Записей в блоге: 3
	12.05.2016, 20:12
	если начали писать запросы, то зачем делать Edit\Post? почему не сделать нормальный Insert? тогда вы легко обработаете любую ситуацию 0

@demon31 0 / 0 / 2 Регистрация: 01.10.2013 Сообщений: 344
	12.05.2016, 22:34 [ТС]
	Потому что это делфи, где нам не дают таких знаний, прошу сделать так как требуют. 0

@qwertehok 5949 / 4525 / 1094 Регистрация: 29.08.2013 Сообщений: 28,105 Записей в блоге: 3
	12.05.2016, 22:44
	ничего не понял напишите нормальные SQL запросы и проблема ваша исчезнет 0

@maybeTM 16 / 15 / 4 Регистрация: 30.10.2014 Сообщений: 175
	13.05.2016, 10:48
	krapotkin, Я не увирен, но иногда таким способом пользуются что бы записи сохранились в парадокс7, так как просто post записи не всегда сохраняет, или там вообще ошибка выходила, потому что таблица не в режиме редактирования. 0

@krapotkin 6847 / 4674 / 1463 Регистрация: 14.04.2014 Сообщений: 20,656 Записей в блоге: 21
	13.05.2016, 11:21
	edit - начать редактирование post - записать изменения первая выдаст ошибку, если уже в редактировании, вторая - наоборот если лень проверять самому, можно использовать CheckBrowseMode; 0

@demon31 0 / 0 / 2 Регистрация: 01.10.2013 Сообщений: 344
	13.05.2016, 15:39 [ТС]
	Вы цепляетесь не к тому, суть в моём вопросе,а не в том могут быть 2 ивановых или нет, ибо будет больше проверок, на ФИО + паспорт например, и да, это открытие редактирования и пост сразу потому что ошибка, которая говорит что таблица не открыта для редактирования. 0

@qwertehok 5949 / 4525 / 1094 Регистрация: 29.08.2013 Сообщений: 28,105 Записей в блоге: 3
	13.05.2016, 16:06
	у тебя проблема в том что ты неправильно делаешь редактирвоание 0

@demon31 0 / 0 / 2 Регистрация: 01.10.2013 Сообщений: 344
	13.05.2016, 16:51 [ТС]
	Почему? Добавлено через 17 секунд Да и мне не нужно редактирование, мне нужно сравнение -.- 0

@demon31 0 / 0 / 2 Регистрация: 01.10.2013 Сообщений: 344
	13.05.2016, 17:09 [ТС]
	Да вам даже просто говоришь, а вы не сечёте, хотя мой уровень 1 из 10 ... Добавлено через 51 секунду Так это и требуется исправить, он должен добавить, даже если n=1, так как оно блин и равняется одному, у вас проблемы с логикой или скринов запилить что поняли? Добавлено через 1 минуту Мой код работает правильно если добавляют новую запись, но если редактируют старую он возвращает 1 и не добавляет, расценивая её как повтор. 0

@demon31 0 / 0 / 2 Регистрация: 01.10.2013 Сообщений: 344
	13.05.2016, 17:26 [ТС]
	Если вы не знаете что делает Query1.RecordCount то всё плохо, как мне объяснить что это количество строк с такой фамилией, которая записана в DBEdit4.text? Добавлено через 32 секунды Это сложно, я не знаю как более еще описать ... Добавлено через 6 минут Есть таблица к ней прилагается три кнопки: 1) Добавить строку 2) Редактировать строку 3) Удалить строку Я жму добавить, открывается форма добавления (она же является и формой редактирования, только щас она пустая), заполняю поля, и жму добавить, срабатывает проверка, если строк с фамилией что я внёс не существует, то n вернёт значение 0 и запись добавится, иначе запись есть и выдаст ошибку. Я жму редактировать на ту запись которую я добавил только что, в ней уже отобразятся мои поля которые я забил, я ничего в них не поменяю и нажму добавить, срабатывает проверка, которая находит мою фамилию в базе и n вернёт значение 1 и запись не добавит, а выдаст ошибку, а её должно было добавить. 0