Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 5 194

/ вопрос открыт /

Здравствуйте, эксперты!
Не подскажите как осуществляется проверка записи на совпадение, т.е. при добавлении, если запись с таким именем уже существует то выдать сообщение что запись уже существует

Силиванов Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Силиванов (статус: Посетитель)
Вопрос отправлен: 14 апреля 2011, 10:55
Состояние вопроса: открыт, ответов: 0.


Мини-форум вопроса

Всего сообщений: 8; последнее сообщение — 14 апреля 2011, 11:18; участников в обсуждении: 3.
Вадим К

Вадим К (статус: Академик), 14 апреля 2011, 10:58 [#1]:

Куда запись пишется? куда добавляется? База данных?
Галочка "подтверждения прочтения" - вселенское зло.
Силиванов

Силиванов (статус: Посетитель), 14 апреля 2011, 10:59 [#2]:

простите что так некорректно написал, есть БД, пишется в ADOTable
Силиванов

Силиванов (статус: Посетитель), 14 апреля 2011, 11:00 [#3]:

добавляю в BDgrid
min@y™

min@y™ (статус: Доктор наук), 14 апреля 2011, 11:07 [#4]:

В DBGrid ничего добавить не получится, т.к. она только отображает данные, но не содержит их.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

14 апреля 2011, 11:07: Вопрос перемещён из тематического раздела Delphi » Общие вопросы по программированию в раздел Delphi » Программирование баз данных (БД) модератором Вадим К

Силиванов

Силиванов (статус: Посетитель), 14 апреля 2011, 11:09 [#5]:

ну эт ясень пень что нельзя добавлять
Силиванов

Силиванов (статус: Посетитель), 14 апреля 2011, 11:10 [#6]:

begin
if dm.adot_pass.Locate('login',Edit1.Text,[loCaseInsensitive]) then
begin
if dm.ADOT_passlogin.AsString=Edit1.Text then
begin
Application.MessageBox('Такой пользователь уже существует',
'Ошибка ввода',MB_ICONQUESTION+MB_OK+MB_TASKMODAL);
end;
end
else

begin
dm.ADOT_passlogin.Value:= Edit1.Text;
dm.ADOT_passpas.Value:=Edit2.Text; (здесь он мне ошибку выдаёт при заполнений БД)
dm.adot_pass.Post;
close;
end;

end;
Вадим К

Вадим К (статус: Академик), 14 апреля 2011, 11:16 [#7]:

перед строкой
dm.ADOT_passlogin.Value:= Edit1.Text;
нужно добавить
dm.ADOT_passlogin.Insert;
или
dm.ADOT_passlogin.Append;
Галочка "подтверждения прочтения" - вселенское зло.
Силиванов

Силиванов (статус: Посетитель), 14 апреля 2011, 11:18 [#8]:

спасибо большое, добавил
dm.ADOT_pass.Insert;

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 22 февраля 2025, 11:42
Выполнено за 0.02 сек.