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

@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();
                                  }

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

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .

@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