Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.03.2013, 16:26   #1
BarakudaX777
Пользователь
 
Регистрация: 13.06.2010
Сообщений: 53
Вопрос Загвоздка с отчетом в Rave Reports

Ребят помогите с Rave Reports.
Необходимо вывести списком фамилии водителей машины. Проблема в том что мастером я не могу построить отчет, так как соединение с базой настраиваю и включаю только в момент запуска приложения. Обусловленно это тем что база находится в интернете, первоначально я создаю туннель к базе ssh а затем подключаюсь к ней как к локальной. Мастером по этому поводу я воспользоватся не могу. Пробовал кидал компонент RvDataSetConnection и CustomConnection. Все делал как указанно в инструкциях но вместо значения полей выводится только (invalid), но выводится столько раз сколько имеется записей в базе.

В отчете создаю поле DataText. в DataField пишу fio, так же как указывается в запросе, но не выводится.

Может кто может объяснить в чем дело, или дать простой пример програмного заполнения табличной части отчета. Через RvCustomConnection так же выводит инвалиды...

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

Delphi 2010.
Компоненты запроса ZeoDb ZQuery.

Когда делал через RvCustomConnection писал так:
Код:

procedure TLIForm.RvLIDriversOpen(Connection: TRvCustomConnection);
begin
     MainForm.DBSelect('SELECT fio,telephone,operator FROM drivers WHERE car_id='+inttostr(cars[car.ItemIndex].id),ZLIDrivers);
end;
 
procedure TLIForm.RvLIDriversEOF(Connection: TRvCustomConnection;
  var Eof: Boolean);
begin
  Eof:=ZLIDrivers.Eof;
end;
 
procedure TLIForm.RvLIDriversFirst(Connection: TRvCustomConnection);
begin
  ZLIDrivers.First;
end;
 
procedure TLIForm.RvLIDriversGetCols(Connection: TRvCustomConnection);
begin
  With Connection do begin
    WriteField('fio',dtString,50,'fio','Фамилия имя отчество');
    WriteField('telephone',dtString,30,'telephone','Телефон');
    WriteField('operator',dtString,20,'phone_operator','Оператор');
  end; { with }
 
end;
 
procedure TLIForm.RvLIDriversGetRow(Connection: TRvCustomConnection);
begin
  With Connection do begin
    WriteStrData('',ZLIDrivers.FieldByName('fio').AsString);
    WriteStrData('',ZLIDrivers.FieldByName('telephone').AsString);
    WriteStrData('',ZLIDrivers.FieldByName('operator').AsString);
  end; { with }
 
end;
 
procedure TLIForm.RvLIDriversNext(Connection: TRvCustomConnection);
begin
  ZLIDrivers.Next;
end;
 
procedure TLIForm.RvLIDriversRestore(Connection: TRvCustomConnection);
begin
  ZLIDrivers.Active:=false;
end;
BarakudaX777 вне форума Ответить с цитированием
Старый 03.03.2013, 08:53   #2
BarakudaX777
Пользователь
 
Регистрация: 13.06.2010
Сообщений: 53
По умолчанию

Все разобрался. Нужно было программно обновить компонент доступа к данным в Rave. Тогда доступные поля заносятся в компонент и становятся доступными для использования. Invalid уже не выводится а выводятся значения.

Делается это так:

Код:
procedure TMainForm.BitBtn3Click(Sender: TObject);
var DataView: TRaveBaseDataView;                        // Unit - RvData
begin
 RvProject1.Open;
 LIForm.ZInstalls.SQL.Text:='SELECT  * FROM installs';
 LIForm.ZInstalls.active:=true;
 
 With RvProject1.ProjMan do begin
    Dataview := FindRaveComponent('DvInstalls',nil) as TRaveBaseDataView;
    CreateFields(DataView, nil, nil, true); // refresh the dataview
  end;
  Report.Execute;
end;
BarakudaX777 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Rave Reports Spraty БД в Delphi 0 08.06.2012 14:37
Rave Reports ins813 Компоненты Delphi 0 04.06.2012 12:25
Rave Reports Dotha БД в Delphi 0 23.10.2009 09:01
Rave reports SvetaKor Компоненты Delphi 2 15.05.2009 16:47
Rave Reports Максим_Леонидович Компоненты Delphi 3 05.09.2008 22:09