Создание отчёта

@Sasha · Регистрация: 05.06.2008

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

Добрый день!

Помогите разобратся в чём проблема. У меня есть ADOQuery1 и ADOQuery2. ADOQuery1 на грид, а ADOQuery2 настроен на отчёт Для того, чтобы бегунок не бегал по гриду я данные для отчёта беру из ADOQuery2 и вот код

C++
1
2
3
4
5
6
7
8
  ADOQuery2->DataSource = DataSource1;
  ADOQuery2->Close();
  ADOQuery2->SQL->Clear();
  ADOQuery2->SQL->Assign(ADOQuery1->SQL);
  ADOQuery2->Open();
  frDBDataSet1->DataSet = ADOQuery2;
  frReport1->Dataset = frDBDataSet1;
  frReport1->ShowReport();

Но прооблема в том что, он печатает несколько раз одну и туже строку в отчёте которая помечена в гриде.

Помогите разобратся с проблемой скринщот прилагается.

@Lord_Voodoo · 21.08.2009, 15:11

покажи скриншот именно структуры отчета

и код гораздо проще можно сделать:

C++
1
2
3
4
5
6
7
  ADOQuery2->Close();
  ADOQuery2->SQL->Clear();
  ADOQuery2->SQL->Text = ADOQuery1->SQL->Text;
  ADOQuery2->Open();
  frDBDataSet1->DataSet = ADOQuery2;
  frReport1->Dataset = frDBDataSet1;
  frReport1->ShowReport();

@Sasha · 21.08.2009, 15:41 **[ТС]**

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

покажи скриншот именно структуры отчета

и код гораздо проще можно сделать:
Код C++
1 2 3 4 5 6 7 ADOQuery2->Close(); ADOQuery2->SQL->Clear(); ADOQuery2->SQL->Text = ADOQuery1->SQL->Text; ADOQuery2->Open(); frDBDataSet1->DataSet = ADOQuery2; frReport1->Dataset = frDBDataSet1; frReport1->ShowReport();

А что вот эту строку уже не надо
ADOQuery2->DataSource = DataSource1;

Вот скриншот макета

@Lord_Voodoo · 21.08.2009, 15:45

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

ну сразу в глаза бросается, почему это у тебя источник данных AdoQuery2, а поля из AdoQuery1 или так и надо?

@Sasha · 21.08.2009, 15:52 **[ТС]**

ААААААААА а я та дурак не видел, ты прав ну надоже блин буду переделывать благодарю за внематильность.
А к источнику, что уже не надо прописывать эту строку потомучто к ADOQuery2,DataSource не прикручен.
ADOQuery2->DataSource = DataSource1;

@Lord_Voodoo · 21.08.2009, 15:55

Sasha, еще раз объясняю, сам запрос и есть источником данных, ему нужно просто указать, к чему коннектиться и и какой именно запрос выполнять - все... больше ему ничего для работы не надо

@Sasha · 21.08.2009, 16:25 **[ТС]**

Благодарю за объяснение

Добавлено через 26 минут 39 секунд
Слушай, что самое характерное при фильтре не работает так как надо.Фильтр нашёл 4 строки я нажимаю предварительный просмотр, а он мне полностью все 150 строк. А если я делаю выборку запросом, то всё нормально. Как сделать чтобы фильтром выводило столько строк сколько показано в таблице.

Кстати бегунок перестал бегать

@FreeWay · 25.08.2009, 11:31

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

Благодарю за объяснение

Добавлено через 26 минут 39 секунд
Слушай, что самое характерное при фильтре не работает так как надо.Фильтр нашёл 4 строки я нажимаю предварительный просмотр, а он мне полностью все 150 строк. А если я делаю выборку запросом, то всё нормально. Как сделать чтобы фильтром выводило столько строк сколько показано в таблице.

Кстати бегунок перестал бегать

а зачем вообще использовать фильтр? Запросом выбрал, показал

@Sasha · 25.08.2009, 11:40 **[ТС]**

Та уже переделал я под запросы показывать стало нормально, только не всегда отображаются в отчёте изменения сделанные в строках грида приходится по 2 раза вызывать отчёт чтобы обновления вступили в силу.А это не удобно

@Lord_Voodoo · 25.08.2009, 11:46

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

@FreeWay · 25.08.2009, 12:55

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

Та уже переделал я под запросы показывать стало нормально, только не всегда отображаются в отчёте изменения сделанные в строках грида приходится по 2 раза вызывать отчёт чтобы обновления вступили в силу.А это не удобно

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

@Sasha · 25.08.2009, 13:59 **[ТС]**

Покажи пример

@FreeWay · 25.08.2009, 14:12

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

Покажи пример

ADOConnection натравливаешь на базу, свой квери натравливаешь на ADOConnection
и...

C++
1
2
3
4
[FONT=monospace]ADOConnectionRemains->BeginTrans();   //делаем операции с данными
 
ADOConnectionRemains->CommitTrans();  
[/FONT]

есть еще у ADOConnection

C++
1
ADOConnectionRemains->RollbackTrans(); // откат транзакции

@Sasha · 25.08.2009, 14:42 **[ТС]**

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

ADOConnection натравливаешь на базу, свой квери натравливаешь на ADOConnection
и...

C++
1
2
3
4
[FONT=monospace]ADOConnectionRemains->BeginTrans();   //делаем операции с данными
 
ADOConnectionRemains->CommitTrans();  
[/FONT]

есть еще у ADOConnection

C++
1
ADOConnectionRemains->RollbackTrans(); // откат транзакции

Если я так правильно понял то это нужно делать во время правки конкретной строки в гриде?

@FreeWay · 25.08.2009, 14:50

я делал так:

кнопка изменить данные
{
начинаем транзакцию
посредством скул запроса изменяем данные
подтверждаем транзакцию
}

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

@Sasha · 25.08.2009, 15:15 **[ТС]**

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

я делал так:

кнопка изменить данные
{
начинаем транзакцию
посредством скул запроса изменяем данные
подтверждаем транзакцию
}

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

Ну у меня редактируются поля через Editы.

@FreeWay · 25.08.2009, 16:21

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

Ну у меня редактируются поля через Editы.

редактируй через эдиты, только запросом, типа:

C++
1
2
  sql="INSERT INTO \"GOODS\" (id_good, name_good, id_category, id_supplier)  VALUES ((SELECT max(id_good) +1 FROM \"GOODS\"), '"+RzEditAddNomenklat->Text+"',(SELECT id_category FROM \"CATEGORY\" WHERE name_category='"+RzComboBoxCategory->Text+"'),(SELECT id_supplier FROM \"SUPPLIERS\" WHERE name_supplier='"+RzEditSupplier->Text+"'))";
  QueryExec(sql);

вот они этиды - RzEditAddNomenklat->Text

@Sasha · 25.08.2009, 16:36 **[ТС]**

Ну у меня по другому исправлять пока не собираюсь

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
71
72
73
74
75
76
77
78
79
80
void __fastcall TMainForm::News_StringClick(TObject *Sender)
{
if(Edit1->Text.IsEmpty())
      {Application->MessageBox("Введите инвентарный номер!","Внимание",MB_ICONWARNING);
       Edit1->SetFocus();}
 
        else if (Edit2->Text.IsEmpty())
           {Application->MessageBox("Введите номер в сети!","Внимание",MB_ICONWARNING);
            Edit2->SetFocus();}
 
              else if (Edit3->Text.IsEmpty())
              {Application->MessageBox("Введите название отдела!","Внимание",MB_ICONWARNING);
               Edit3->SetFocus();}
 
                else if (Edit4->Text.IsEmpty())
                {Application->MessageBox("Введите модель процессора!","Внимание",MB_ICONWARNING);
                 Edit4->SetFocus();}
 
                   else if (Edit5->Text.IsEmpty())
                 {Application->MessageBox("Введите размер памяти!","Внимание",MB_ICONWARNING);
                  Edit5->SetFocus();}
 
                     else if (Edit6->Text.IsEmpty())
                    {Application->MessageBox("Введите размер винчестера!","Внимание",MB_ICONWARNING);
                     Edit6->SetFocus();}
 
                      else if (Edit7->Text.IsEmpty())
                          {Application->MessageBox("Введите номер комнаты!","Внимание",MB_ICONWARNING);
                           Edit7->SetFocus();}
 
                             else if((Edit1->Text!="")&&(Edit1->Text == ADOQuery1->FieldByName("Invent_Number")->AsInteger))
                            {
                             DataSource1->OnDataChange = NULL;
                             DataSource1->DataSet->Edit();
                             DataSource1->DataSet->FieldByName("Invent_Number")->Value = StrToInt(Edit1->Text);
                             DataSource1->DataSet->FieldByName("Number_in_Lan")->Value = Edit2->Text.SubString(1,1) + PadL(Edit2->Text.SubString(2,Edit2->Text.Length()),3,'0');
                             DataSource1->DataSet->FieldByName("Department")->Value = Edit3->Text;
                             DataSource1->DataSet->FieldByName("Processor")->Value = Edit4->Text;
                             DataSource1->DataSet->FieldByName("Memory")->Value = Edit5->Text;
                             DataSource1->DataSet->FieldByName("HDD")->Value = Edit6->Text;
                             DataSource1->DataSet->FieldByName("Room")->Value = Edit7->Text;
                             DataSource1->DataSet->Post();
                             DataSource1->OnDataChange = DataSource1DataChange;
                            }
 
                             else if ((Edit1->Text!="")&&(Edit1->Text != ADOQuery1->FieldByName("Invent_Number")->AsInteger))
                               {
                                   int PrevID = ADOQuery1->FieldByName("Invent_Number")->AsInteger;
                                   TLocateOptions Options;
                                   Options.Clear();
                                   Options << loPartialKey << loCaseInsensitive;
                                    if(ADOQuery1->Locate("Invent_Number",Edit1->Text,Options))
                                  { AnsiString qw = "Такой инвентарный номер уже есть в базе данных!!! \n\n" + IntToStr(ADOQuery1->FieldByName("Invent_Number")->AsInteger)+" - "
                                    +ADOQuery1->FieldByName("Number_in_Lan")->AsString+" - "
                                    +ADOQuery1->FieldByName("Department")->AsString+" - "
                                    +ADOQuery1->FieldByName("Processor")->AsString+" - "
                                    +ADOQuery1->FieldByName("Memory")->AsString+" - "
                                    +ADOQuery1->FieldByName("HDD")->AsString+" - "
                                    +ADOQuery1->FieldByName("Room")->AsString + "\n\n"
                                    + "Введите другой инвентарный номер";
                                    Application->MessageBox(qw.c_str(),"Внимание",MB_ICONWARNING);
                                    ADOQuery1->Locate("Invent_Number",PrevID,Options);
                                    Edit1->SetFocus();
                                  }
                                 else
                                  {
                                   DataSource1->OnDataChange = NULL;
                                   DataSource1->DataSet->Edit();
                                   DataSource1->DataSet->FieldByName("Invent_Number")->Value = StrToInt(Edit1->Text);
                                   DataSource1->DataSet->FieldByName("Number_in_Lan")->Value = Edit2->Text.SubString(1,1) + PadL(Edit2->Text.SubString(2,Edit2->Text.Length()),3,'0');
                                   DataSource1->DataSet->FieldByName("Department")->Value = Edit3->Text;
                                   DataSource1->DataSet->FieldByName("Processor")->Value = Edit4->Text;
                                   DataSource1->DataSet->FieldByName("Memory")->Value = Edit5->Text;
                                   DataSource1->DataSet->FieldByName("HDD")->Value = Edit6->Text;
                                   DataSource1->DataSet->FieldByName("Room")->Value = Edit7->Text;
                                   DataSource1->DataSet->Post();
                                   DataSource1->OnDataChange = DataSource1DataChange;
                                  }
                                  }
}

можно ли по твоему использовать здесь транзакцию?

@FreeWay · 25.08.2009, 18:50

в самом начале поставь бегин, если не надо реализовать откат то в самом конце комит

@Sasha · 26.08.2009, 09:41 **[ТС]**

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

в самом начале поставь бегин, если не надо реализовать откат то в самом конце комит

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
   else
                                  {
                                   ADOConnection1->BeginTrans();
                                   DataSource1->OnDataChange = NULL;
                                   DataSource1->DataSet->Edit();
                                   DataSource1->DataSet->FieldByName("Invent_Number")->Value = StrToInt(Edit1->Text);
                                   DataSource1->DataSet->FieldByName("Number_in_Lan")->Value = Edit2->Text.SubString(1,1) + PadL(Edit2->Text.SubString(2,Edit2->Text.Length()),3,'0');
                                   DataSource1->DataSet->FieldByName("Department")->Value = Edit3->Text;
                                   DataSource1->DataSet->FieldByName("Processor")->Value = Edit4->Text;
                                   DataSource1->DataSet->FieldByName("Memory")->Value = Edit5->Text;
                                   DataSource1->DataSet->FieldByName("HDD")->Value = Edit6->Text;
                                   DataSource1->DataSet->FieldByName("Room")->Value = Edit7->Text;
                                   DataSource1->DataSet->Post();
                                   DataSource1->OnDataChange = DataSource1DataChange;
                                   ADOConnection1->CommitTrans();
                                  }

Вообще ничё не помогло. А жаль.

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД 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 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	21.08.2009, 15:45
	а ее изначально не надо... у тебя запрос и так является источником данных ну сразу в глаза бросается, почему это у тебя источник данных AdoQuery2, а поля из AdoQuery1 или так и надо? 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	21.08.2009, 15:52 [ТС]
	ААААААААА а я та дурак не видел, ты прав ну надоже блин буду переделывать благодарю за внематильность. А к источнику, что уже не надо прописывать эту строку потомучто к ADOQuery2,DataSource не прикручен. ADOQuery2->DataSource = DataSource1; 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	21.08.2009, 15:55
	Sasha, еще раз объясняю, сам запрос и есть источником данных, ему нужно просто указать, к чему коннектиться и и какой именно запрос выполнять - все... больше ему ничего для работы не надо 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	21.08.2009, 16:25 [ТС]
	Благодарю за объяснение Добавлено через 26 минут 39 секунд Слушай, что самое характерное при фильтре не работает так как надо.Фильтр нашёл 4 строки я нажимаю предварительный просмотр, а он мне полностью все 150 строк. А если я делаю выборку запросом, то всё нормально. Как сделать чтобы фильтром выводило столько строк сколько показано в таблице. Кстати бегунок перестал бегать 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	25.08.2009, 11:40 [ТС]
	Та уже переделал я под запросы показывать стало нормально, только не всегда отображаются в отчёте изменения сделанные в строках грида приходится по 2 раза вызывать отчёт чтобы обновления вступили в силу.А это не удобно 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	25.08.2009, 11:46
	очень странное поведение у тебя программы: она либо сохраняет, либо не сохраняет, но чтобы дважды обновление требовать - такое вижу впервые... 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	25.08.2009, 13:59 [ТС]
	Покажи пример 0

@FreeWay 84 / 84 / 19 Регистрация: 17.12.2007 Сообщений: 574
	25.08.2009, 14:50
	я делал так: кнопка изменить данные { начинаем транзакцию посредством скул запроса изменяем данные подтверждаем транзакцию } с грида не редактировал, попробуй, перед редактированием начинай транзакц, по кнопке подтверждай 1

@FreeWay 84 / 84 / 19 Регистрация: 17.12.2007 Сообщений: 574
	25.08.2009, 18:50
	в самом начале поставь бегин, если не надо реализовать откат то в самом конце комит 0