Окошко с сообщением при добавлении записи в БД. C++ Builder 6

@Evgeny92 · Регистрация: 09.11.2011

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

У меня проблема.

Вот этот код вставил:

C++
1
2
3
4
5
6
7
8
if (Form1->ADOTable1->RecordCount==0)
{
ShowMessage("Запишите данные в поля и загрузите обложку фильма!");
}
else
{
 
}

в

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
void __fastcall TForm5::BitBtn1Click(TObject *Sender)
{
 
Form1->ADOTable2->Insert();
Form1->ADOTable2->FieldByName("Название сериала")->AsString = Edit1->Text;
Form1->ADOTable2->FieldByName("Жанры")->AsString = Edit2->Text;
Form1->ADOTable2->FieldByName("Страна")->AsString = Edit3->Text;
Form1->ADOTable2->FieldByName("Год")->AsString = Edit4->Text;
Form1->ADOTable2->FieldByName("Режиссер")->AsString = Edit5->Text;
Form1->ADOTable2->FieldByName("Время")->AsString = Edit6->Text;
Form1->ADOTable2->FieldByName("Актеры")->AsString = Memo1->Text;
Form1->ADOTable2->FieldByName("Сюжет сериала")->AsString = Memo2->Text;
Form1->ADOTable2->FieldByName("Трейлер")->AsString = Edit7->Text;
 
TMemoryStream* strm = new TMemoryStream();
Image1->Picture->Graphic->SaveToStream(strm);
((TGraphicField*)Form1->ADOTable2->FieldByName("Обложка сериала"))->LoadFromStream(strm);
delete strm;
Form1->ADOTable2->Post();
Form5->Hide();
}

т.е. так

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
void __fastcall TForm5::BitBtn1Click(TObject *Sender)
{
 
if (Form1->ADOTable1->RecordCount==0)
{
ShowMessage("Запишите данные в поля и загрузите обложку фильма!");
}
else
{
 
Form1->ADOTable1->Insert();
Form1->ADOTable1->FieldByName("Название фильма")->AsString = Edit1->Text;
Form1->ADOTable1->FieldByName("Жанры")->AsString = Edit2->Text;
Form1->ADOTable1->FieldByName("Страна")->AsString = Edit3->Text;
Form1->ADOTable1->FieldByName("Год")->AsString = Edit4->Text;
Form1->ADOTable1->FieldByName("Режиссер")->AsString = Edit5->Text;
Form1->ADOTable1->FieldByName("Время")->AsString = Edit6->Text;
Form1->ADOTable1->FieldByName("Актеры")->AsString = Memo1->Text;
Form1->ADOTable1->FieldByName("Сюжет фильма")->AsString = Memo2->Text;
Form1->ADOTable1->FieldByName("Трейлер")->AsString = Edit7->Text;
 
TMemoryStream* strm = new TMemoryStream();
Image1->Picture->Graphic->SaveToStream(strm);
((TGraphicField*)Form1->ADOTable1->FieldByName("Обложка фильма"))->LoadFromStream(strm);
 delete strm;
 Form1->ADOTable1->Post();
Form4->Hide();
}
}

Хочу сделать вот что. По моей программе.
Если например я не записал или пропустил поле куда должен записать данные, или не загрузил картинку, что бы эта запись не добавляла в БД, и показывало бы сообщение о том что должен "Заполнить данные поля и загрузить изображение". При таком коде выше. Когда я уже все заполнил запись(не пропустил ни одного поля и загрузил изображение) не добавляется, все ровно выскакивает эта сообщение "Заполнить данные поля и загрузить изображение". При заполнении данных и изображения, запись должна записаться в БД и не выдовать это сообщение.
Как это по другому записать?

@Evgeny92 · 08.04.2013, 22:30 **[ТС]**

Если заполнил данные и загрузил изображение, запись должна быть добавлена и окно должно закрыться.

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

Добавлено через 5 минут
Пробовал дописать
до или после кода:

C++
1
ShowMessage("Запишите данные в поля и загрузите обложку фильма!");

Код:

C++
1
Form1->ADOTable1->Cancel();

Ничего не изменилось.

@Evgeny92 · 08.04.2013, 22:35 **[ТС]**

Скрин

@Evgeny92 · 08.04.2013, 22:38 **[ТС]**

Скрин 2

@Evgeny92 · 08.04.2013, 23:16 **[ТС]**

Вон фиг поймешь что...

Ddv122 · 09.04.2013, 00:42

Evgeny92, Проверяй каждое поле ввода, к примеру -

C++
1
    if (DBEdit1->Text=="") ShowMessage("Введите данные!");

@Evgeny92 · 09.04.2013, 17:22 **[ТС]**

Т.е. как это записать?

@Evgeny92 · 09.04.2013, 17:24 **[ТС]**

Вот по новому тот же проект создал

@Evgeny92 · 09.04.2013, 19:34 **[ТС]**

Как это записать для Image это условие?

C++
1
2
3
4
5
TMemoryStream* strm = new TMemoryStream();
Image1->Picture->Graphic->SaveToStream(strm);
((TGraphicField*)DataModule2->ADOTable1->FieldByName("Îáëîæêà ôèëüìà"))->LoadFromStream(strm);
 delete strm;
 DataModule2->ADOTable1->Post();

Что вместо этого кода в if:

C++
1
(DBEdit1->Text=="")

вставлять

Добавлено через 1 час 58 минут
?????????????

Ddv122 · 09.04.2013, 22:09

Evgeny92, ты объясни толком что тебе и как нужно , т.е при нажатии на кнопку Была проверка есть ли текс или что?

@Evgeny92 · 09.04.2013, 23:32 **[ТС]**

Проверка записи была. Только можно как-нибудь отделаться одним сообщением?

Записал так. Только на загрузку изображения не добавлял только. Только для Edit и Memo.:

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
void __fastcall TForm7::BitBtn2Click(TObject *Sender)      //Êíîïêà Äîáàâèòü çàïèñü
{
 
DataModule2->ADOTable1->Insert();    //Íà÷àëî äîáàâëåíèè çàïèñè
 
if (Edit1->Text=="") ShowMessage("Ââåäèòå äàííûå!");      //1
{
DataModule2->ADOTable1->FieldByName("Íàçâàíèå ôèëüìà")->AsString = Edit1->Text;
}                                                      //1
if (Edit2->Text=="") ShowMessage("Ââåäèòå äàííûå!");   //2
{
DataModule2->ADOTable1->FieldByName("Æàíðû")->AsString = Edit2->Text;
{                                                      //2
if (Edit3->Text=="") ShowMessage("Ââåäèòå äàííûå!");   //3
{
DataModule2->ADOTable1->FieldByName("Ñòðàíà")->AsString = Edit3->Text;
}                                                      //3
if (Edit4->Text=="") ShowMessage("Ââåäèòå äàííûå!");   //4
{
DataModule2->ADOTable1->FieldByName("Ãîä")->AsString = Edit4->Text;
}                                                      //4
if (Edit5->Text=="") ShowMessage("Ââåäèòå äàííûå!");   //5
{
DataModule2->ADOTable1->FieldByName("Ðåæèññåð")->AsString = Edit5->Text;
}                                                      //5
if (Edit6->Text=="") ShowMessage("Ââåäèòå äàííûå!");   //6
{
DataModule2->ADOTable1->FieldByName("Âðåìÿ")->AsString = Edit6->Text;
}                                                      //6
if (Memo1->Text=="") ShowMessage("Ââåäèòå äàííûå!");   //7
{
DataModule2->ADOTable1->FieldByName("Àêòåðû")->AsString = Memo1->Text;
}                                                      //7
if (Memo2->Text=="") ShowMessage("Ââåäèòå äàííûå!");   //8
{
DataModule2->ADOTable1->FieldByName("Ñþæåò ôèëüìà")->AsString = Memo2->Text;
}                                                      //8
if (Edit7->Text=="") ShowMessage("Ââåäèòå äàííûå!");   //9
{
DataModule2->ADOTable1->FieldByName("Òðåéëåð")->AsString = Edit7->Text;
}                                                      //9
 
TMemoryStream* strm = new TMemoryStream();
Image1->Picture->Graphic->SaveToStream(strm);
((TGraphicField*)DataModule2->ADOTable1->FieldByName("Îáëîæêà ôèëüìà"))->LoadFromStream(strm);
 delete strm;
DataModule2->ADOTable1->Post(); //Çàâåðøåíèå è ñîõðàíåíèå çàïèñè â ÁÄ
 
Form7->Hide();   //Çàêðûòü ôîðìó Äîáàâëåíèå çàïèñè â ÁÄ Ôèëüìû
 
//Î÷èñòèòü òåêñò â ïîëÿõ
Edit1->Clear();
Edit2->Clear();
Edit3->Clear();
Edit4->Clear();
Edit5->Clear();
Edit6->Clear();
Memo1->Clear();
Memo2->Clear();
Edit7->Clear();
 
}
}
}

Как для загрузки изображения записать?

@Evgeny92 · 09.04.2013, 23:34 **[ТС]**

Проект.
Хочу отделаться одним сообщением например. Текст в сообщении "Введите данные и загрузите изображение". Дальше пусть к примеру пользователь ищет сам что пропустил.
Но при этом, если какойто касяк, запись добавляться(То что заполнил) не должна. Только вся заполненная запись должна записаться в БД.

Что бы вообщем то поля должны быть Обязательными. По такому принципу.

@Lord_Voodoo · 10.04.2013, 11:47

Evgeny92, ну вообще пользователя надо тыкать носом в ошибку, думать ему, как правило, лень... поэтому лучше указывать точно, что не нравится программе

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

в вашем случае я бы использовал цикл, функцию FindComponent и массив с названиями полей... код сократится в разы и читабельнее станет...

@Sasha · 10.04.2013, 11:49

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

Что вместо этого кода в if:Код C++
1
2
3
(DBEdit1->Text=="")
вставлять

C++
1
2
3
4
5
if(Image1->Picture->Graphic==NULL)
{
ShowMessage("Вставьте картинку");
return;
}

@Evgeny92 · 10.04.2013, 12:16 **[ТС]**

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

Evgeny92,
в вашем случае я бы использовал цикл, функцию FindComponent и массив с названиями полей... код сократится в разы и читабельнее станет...

Как я могу сократить? Где про это почитать изучить могу? Может Пример какой-нибудь?

@nick42 · 10.04.2013, 12:40

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

Как я могу сократить? Где про это почитать изучить могу? Может Пример какой-нибудь?

пример:

C++
1
2
3
4
5
  for (int p=1,i=0;i<Form1->ControlCount;i++) 
    if (Form1->Controls[i]->Name=="Edit"+IntToStr(p))
      if (((TEdit*)Form1->Controls[i])->Text.Length()<1)
        ShowMessage("Íå çàïîëíåíî ïîëå "+IntToStr(p++)+"!");
      else p++;

@Evgeny92 · 10.04.2013, 12:58 **[ТС]**

пытаюсь разобраться...

@Evgeny92 · 10.04.2013, 13:46 **[ТС]**

Вообщем, не знаю как и куда это записать... По примеру не мог разобраться..
Т.е. как это надо записать?
На форме Edit1(2-7), Memo1(2) и Image1.
Кнопка на добавление записи без сокращений:

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
void __fastcall TForm7::BitBtn2Click(TObject *Sender)      //Кнопка Добавить запись
{
 
DataModule2->ADOTable1->Insert();    //Начало добавлении записи
 
if (Edit1->Text=="") ShowMessage("Введите данные Название фильма!");      //1
{
DataModule2->ADOTable1->FieldByName("Название фильма")->AsString = Edit1->Text;
}                                                      //1
if (Edit2->Text=="") ShowMessage("Введите данные Жанры!");   //2
{
DataModule2->ADOTable1->FieldByName("Жанры")->AsString = Edit2->Text;
{                                                      //2
if (Edit3->Text=="") ShowMessage("Введите данные Страна!");   //3
{
DataModule2->ADOTable1->FieldByName("Страна")->AsString = Edit3->Text;
}                                                      //3
if (Edit4->Text=="") ShowMessage("Введите данные Год!");   //4
{
DataModule2->ADOTable1->FieldByName("Год")->AsString = Edit4->Text;
}                                                      //4
if (Edit5->Text=="") ShowMessage("Введите данные Режиссер!");   //5
{
DataModule2->ADOTable1->FieldByName("Режиссер")->AsString = Edit5->Text;
}                                                      //5
if (Edit6->Text=="") ShowMessage("Введите данные Время!");   //6
{
DataModule2->ADOTable1->FieldByName("Время")->AsString = Edit6->Text;
}                                                      //6
if (Memo1->Text=="") ShowMessage("Введите данные Актеры!");   //7
{
DataModule2->ADOTable1->FieldByName("Актеры")->AsString = Memo1->Text;
}                                                      //7
if (Memo2->Text=="") ShowMessage("Введите данные Сюжет фильма!");   //8
{
DataModule2->ADOTable1->FieldByName("Сюжет фильма")->AsString = Memo2->Text;
}                                                      //8
if (Edit7->Text=="") ShowMessage("Введите данные Трейлер!");   //9
{
DataModule2->ADOTable1->FieldByName("Трейлер")->AsString = Edit7->Text;
}                                                      //9
 
if(Image1->Picture->Graphic==NULL)
{
ShowMessage("Вставьте Обложку фильма");
return;
}
TMemoryStream* strm = new TMemoryStream();
Image1->Picture->Graphic->SaveToStream(strm);
((TGraphicField*)DataModule2->ADOTable1->FieldByName("Обложка фильма"))->LoadFromStream(strm);
 delete strm;
 
 }
 DataModule2->ADOTable1->Post();  //Завершение и сохранение записи в БД
Form7->Hide();   //Закрыть форму Добавление записи в БД Фильмы
 
//Очистить текст в полях
Edit1->Clear();
Edit2->Clear();
Edit3->Clear();
Edit4->Clear();
Edit5->Clear();
Edit6->Clear();
Memo1->Clear();
Memo2->Clear();
Edit7->Clear();
 
 
}
}

А по этому коду, программа работает. Только в БД запись заносится не все, а то что заполнено.По частям заноситься не должно.

@nick42 · 10.04.2013, 14:07

а с этим разберетесь? __

C++
1
2
3
4
5
6
7
8
9
10
11
12
  int mbool = 0;
  for (int p=1,i=0;i<Form1->ControlCount;i++)
    if (Form1->Controls[i]->Name=="Edit"+IntToStr(p))
      if (((TEdit*)Form1->Controls[i])->Text.Length()<1)
       { mbool +=1; p++; }
      else p++;
  mbool += Memo1->Text.Length()==0 ? 1 : 0;
  mbool += Memo2->Text.Length()==0 ? 1 : 0;
  mbool += Image1->Picture->Width==0 ? 1 : 0;
  if (mbool) ShowMessage("Çàïîëíèòå âñå ïîëÿ!");
  else
  {   /* âûïîëíåíèå çàíåñåíèÿ â áàçó */  }

@Sasha · 10.04.2013, 14:27

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

Вообщем, не знаю как и куда это записать... По примеру не мог разобраться..
Т.е. как это надо записать?
На форме Edit1(2-7), Memo1(2) и Image1.
Кнопка на добавление записи без сокращений:

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
void __fastcall TForm7::BitBtn2Click(TObject *Sender)      //Кнопка Добавить запись
{
 
DataModule2->ADOTable1->Insert();    //Начало добавлении записи
 
if (Edit1->Text=="") ShowMessage("Введите данные Название фильма!");      //1
{
DataModule2->ADOTable1->FieldByName("Название фильма")->AsString = Edit1->Text;
}                                                      //1
if (Edit2->Text=="") ShowMessage("Введите данные Жанры!");   //2
{
DataModule2->ADOTable1->FieldByName("Жанры")->AsString = Edit2->Text;
{                                                      //2
if (Edit3->Text=="") ShowMessage("Введите данные Страна!");   //3
{
DataModule2->ADOTable1->FieldByName("Страна")->AsString = Edit3->Text;
}                                                      //3
if (Edit4->Text=="") ShowMessage("Введите данные Год!");   //4
{
DataModule2->ADOTable1->FieldByName("Год")->AsString = Edit4->Text;
}                                                      //4
if (Edit5->Text=="") ShowMessage("Введите данные Режиссер!");   //5
{
DataModule2->ADOTable1->FieldByName("Режиссер")->AsString = Edit5->Text;
}                                                      //5
if (Edit6->Text=="") ShowMessage("Введите данные Время!");   //6
{
DataModule2->ADOTable1->FieldByName("Время")->AsString = Edit6->Text;
}                                                      //6
if (Memo1->Text=="") ShowMessage("Введите данные Актеры!");   //7
{
DataModule2->ADOTable1->FieldByName("Актеры")->AsString = Memo1->Text;
}                                                      //7
if (Memo2->Text=="") ShowMessage("Введите данные Сюжет фильма!");   //8
{
DataModule2->ADOTable1->FieldByName("Сюжет фильма")->AsString = Memo2->Text;
}                                                      //8
if (Edit7->Text=="") ShowMessage("Введите данные Трейлер!");   //9
{
DataModule2->ADOTable1->FieldByName("Трейлер")->AsString = Edit7->Text;
}                                                      //9
 
if(Image1->Picture->Graphic==NULL)
{
ShowMessage("Вставьте Обложку фильма");
return;
}
TMemoryStream* strm = new TMemoryStream();
Image1->Picture->Graphic->SaveToStream(strm);
((TGraphicField*)DataModule2->ADOTable1->FieldByName("Обложка фильма"))->LoadFromStream(strm);
 delete strm;
 
 }
 DataModule2->ADOTable1->Post();  //Завершение и сохранение записи в БД
Form7->Hide();   //Закрыть форму Добавление записи в БД Фильмы
 
//Очистить текст в полях
Edit1->Clear();
Edit2->Clear();
Edit3->Clear();
Edit4->Clear();
Edit5->Clear();
Edit6->Clear();
Memo1->Clear();
Memo2->Clear();
Edit7->Clear();
 
 
}
}

А по этому коду, программа работает. Только в БД запись заносится не все, а то что заполнено.По частям заноситься не должно.

Ну во-первых

Я бы на твоём месте вот эту строку

C++
1
DataModule2->ADOTable1->Insert();

поставил в то место, где уже проверка полей прошла.

Второе так как сказано выше лучше пользователю указать то поле которое он пропустил по этому используй else if в условиях проверки
И третье после ShowMessage ставь return

Новые блоги и статьи Все статьи Все блоги /
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .

@Evgeny92 277 / 5 / 4 Регистрация: 09.11.2011 Сообщений: 294
	08.04.2013, 22:35 [ТС]
	Скрин Миниатюры 0

@Evgeny92 277 / 5 / 4 Регистрация: 09.11.2011 Сообщений: 294
	08.04.2013, 22:38 [ТС]
	Скрин 2 Миниатюры 0

@Evgeny92 277 / 5 / 4 Регистрация: 09.11.2011 Сообщений: 294
	09.04.2013, 17:22 [ТС]
	Т.е. как это записать? 0

Ddv122 Почемучка) 1244 / 304 / 30 Регистрация: 23.12.2010 Сообщений: 2,001 Записей в блоге: 1
	09.04.2013, 22:09
	Evgeny92, ты объясни толком что тебе и как нужно , т.е при нажатии на кнопку Была проверка есть ли текс или что? 1

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	10.04.2013, 11:47
	Evgeny92, ну вообще пользователя надо тыкать носом в ошибку, думать ему, как правило, лень... поэтому лучше указывать точно, что не нравится программе а код у вас феерический, однако... да и обычно принято сначала проверить данные, а потом уже их писать в базу... в вашем случае я бы использовал цикл, функцию FindComponent и массив с названиями полей... код сократится в разы и читабельнее станет... 1

@Evgeny92 277 / 5 / 4 Регистрация: 09.11.2011 Сообщений: 294
	10.04.2013, 12:58 [ТС]
	пытаюсь разобраться... 0