База данных Paradox 7, C++ Builder 6

@Pirat-SR · Регистрация: 20.02.2012

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

У меня есть вопрос косающийся добавления данных в базу. Добавляются данные из Edit1 и Edit 2. В Edit1 добавляются Ники ICQ, в Edit2 добавляются номера ICQ. Проблема в том что при добавлении двух одинаковых ников выпадает ошибка Key violation. Скажите пожалуйста как сделать так чтобы при добавлении ника который уже есть в базе, база не обновлялась и появлялось сообщение "Такой Ник ICQ уже есть в базе". Вот код.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
//---------------------------------------------------------------------------
 
void __fastcall TForm1::AddAbonentClick(TObject *Sender)
{
Form2->Edit1->Text = "";
Form2->Edit2->Text = "";
if(Form2->ShowModal() == IDOK)
{}
else
{
if(Form2->Edit1->Text.IsEmpty())
Application->MessageBox("Не указан Ник ICQ \nБаза не обновлена!",
"Внимание!", MB_ICONEXCLAMATION);
if(Form2->Edit2->Text.IsEmpty())
Application->MessageBox("Не указан Номер ICQ \nБаза не обновлена!",
"Внимание!", MB_ICONEXCLAMATION);
if((Form2->Edit2->Text.IsEmpty())|(Form2->Edit1->Text.IsEmpty()))
{}
else
{
Table1->InsertRecord(ARRAYOFCONST((Form2->Edit1->Text,
Form2->Edit2->Text)));
NetFotoClick(Form1);
}
}
if(Table1->RecordCount > 0)
{
UIBe->Visible = false;
DFe->Visible = false;
UFe->Visible = false;
DBEdit1->Enabled = true;
DBGrid1->Enabled = true;
DBImage1->Enabled = true;
}
else
{
UIBe->Visible = true;
DFe->Visible = true;
UFe->Visible = true;
DBEdit1->Enabled = false;
DBGrid1->Enabled = false;
DBImage1->Enabled = false;
}
}
//---------------------------------------------------------------------------

Добавлено через 33 минуты
Скриншот №1 http://spaces.ru/pictures/?sid... d=39805726

Скриншот №2 http://spaces.ru/pictures/?sid... d=39806290

Комментарий модератора

Картинки загружайте на форум, во избежание их удаления или потери на сторонних ресурсах.

@Pirat-SR · 23.02.2012, 15:20 **[ТС]**

Люди вы где?

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@Pirat-SR 67 / 67 / 10 Регистрация: 20.02.2012 Сообщений: 234
	23.02.2012, 15:20 [ТС]
	Люди вы где? 0