Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Разное
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #16  
Старый 21.06.2009, 18:12
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,721
Репутация: 52347
По умолчанию

Цитата:
К сожалению нет, Как я писал в начале, во втором QRDBtexte получаем только одну строку из результата запроса!
Какой в QuickReport.DataSet стоит, тот запрос нормально и обрабатывается.
Все правильно. Если уж вам приспичило делать два столбика стоящих рядом, и неустраивает мой вариант объединения, можно попробовать сделать вложенные отчеты:
- первый столбик - отчет1,
- второй столбик - отчет2,
а лежат оба столбика на отчете3.
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
  #17  
Старый 21.06.2009, 18:41
delphiman delphiman вне форума
Прохожий
 
Регистрация: 12.06.2009
Сообщения: 10
Репутация: 10
Восклицание

Что-то все чщетно.

В первом ДБедите запрос выводит все нормально, допустим 4 Элемента,
а во втором выводится тоже 4-е но одинаковых(значение первого элемента).
Ответить с цитированием
  #18  
Старый 21.06.2009, 18:44
delphiman delphiman вне форума
Прохожий
 
Регистрация: 12.06.2009
Сообщения: 10
Репутация: 10
По умолчанию

Изврат конечно, но можно попробывать. Не, то, что Ваш вариант не устраивает, просто он ничего не вывел, во второй ДБЕдит, и я непонял как он вообще работает(запрос).
Ответить с цитированием
  #19  
Старый 21.06.2009, 19:32
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,721
Репутация: 52347
По умолчанию

Попробуйте выложить исходняк и базку с данными, может тогда легче будет консенсус найти.
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
  #20  
Старый 21.06.2009, 19:50
delphiman delphiman вне форума
Прохожий
 
Регистрация: 12.06.2009
Сообщения: 10
Репутация: 10
По умолчанию

Кусок кода для Quick Report

Код:
  if (ListBox_Menu1.Items.Count > 0) and (ComboBoxMenuSelect.Text <> '') then begin

    with DataModule1 do begin

      ADOQuery_Menu.Close;

      ADOQuery_Menu.SQL.Clear;

      ADOQuery_Menu.SQl.Add('SELECT id_menu_name FROM menu_names WHERE name='+chr(39)+ComboBoxMenuSelect.Text+chr(39));

      ADOQuery_Menu.Open;

      Main.Caption := ADOQuery_Menu.Fields[0].AsString;

      ///////////////////

      ADOQuery_Hot.Close;

      ADOQuery_Hot.SQL.Clear;

      ADOQuery_Hot.SQL.Add('SELECT bludo_name, price FROM menu WHERE id_type_menu=1 AND id_menu='+ADOQuery_Menu.Fields[0].AsString);

      ADOQuery_Hot.Open;

      ADOQuery_Cold.Close;

      ADOQuery_Cold.SQL.Clear;

      ADOQuery_Cold.SQL.Add('SELECT bludo_name AS Hot, '' AS Cold FROM menu WHERE id_type_menu=0 AND id_menu='+ADOQuery_Menu.Fields[0].AsString+' UNION SELECT '', bludo_name FROM menu WHERE id_type_menu=0 AND id_menu='+ADOQuery_Menu.Fields[0].AsString);

      ADOQuery_Cold.Open;

      /////////////////////

    end;

    Application.CreateForm(TReports, Reports);

    Reports.QuickRep1.Preview;

  end

  else

  ShowMessage('бШАЕПХРЕ ЛЕМЧ!'); 
Вложения
Тип файла: zip base.mdb.zip (28.7 Кбайт, 5 просмотров)
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 12:38.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter