Окошко с сообщением при добавлении записи в БД. 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

Новые блоги и статьи Все статьи Все блоги /
Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .

@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