Изменение заголовка отчета "на лету"

Комментарии

• Fokewolf Киев

  September 2005 отредактировано 16:30

  А конкретнее нельзя вопрос сформулировать? Например, в зависимости от чего меняется его название? И в какой момент нужно изменить название?
• Tomas

  September 2005 отредактировано 16:30

  ну есть в проекте делфи переменная ...
  допустим она меняется от 1 до 3 ...
  если 1, то надо в заголовке отчета нпаписать "данные по
  поставщику 1"
  если 2 , то "список заказов менеджера Васи" ...
  
• Fokewolf Киев

  September 2005 отредактировано 16:30

  А в какой момент переменной присваивается значение?
• Fokewolf Киев

  September 2005 отредактировано 16:30

  В принципе-в событии, в котором нужно поменять наименование -делаешь проверку на значение переменной.Вот и все:
  If r=1 then
  begin
  Memo1.Text:='имя отчета';
  end
  Else If r=2 then
  begin
  Memo1.Text:='имя отчета';
  end
  ...
• Tomas

  September 2005 отредактировано 16:30

  Да это понятно ....
  А как эту переменную передать в фастрепорт из делфи ?
  
  Я так понимаю, что вот установил я в делфи переменную LISTMODE в "2" ...
  Теперь как то я LISTMODE должен передать в фастрепорт и там его проанализировать .... Вот это как раз как сделать ?
• Lex

  September 2005 отредактировано 16:30

  Я так понял ему необходимо изменить заголовок отчета из основного кода.
  
  Это все есть в документации, но еще раз...

    ..............
    var 
      MyMemo:TfrxMemoView;
    .......................
    begin
    ........................
    MyMemo:= Report.FindObject('TitleMemo') as TfrxMemoView
    case x of
      1: MyMemo.Text := 'Текст 1';
      2: MyMemo.Text := 'Текст 2';
      3: MyMemo.Text := 'Текст 3';
    end;
    Report.ShowReport; 
    .....................
    end;
  

  
  где-то примерно так,
  код не проверял. Елси чего подправь, но принцип такой.
• Andrew_Sh г.Минск

  September 2005 отредактировано September 2005

  1) Если переменная заполняется из программы, а не в диалоге отчета, то сначала передаешь значение этой переменной из проги в отчет:

    frxReport1.Variables['LISTMODE'] := LISTMODE;
  

  
  2) Добавляешь переменную с именем LISTMODE в спсисок переменных отчета.
  Заводишь глобальную переменную в скрипте отчета. Допустим sTitle

  var
    sTitle: string;
  

  
  В отчете в обработчике события OnStartReport для отчета или OnBeforePrint для страницы пишешь:
  

  begin
    case <LISTMODE> of
      1: sTitle := 'данные по поставщику 1';
      2: sTitle := 'список заказов менеджера Васи';
      else sTitle := 'Что-то иное';
    end;
  

  
  
  3) В memo на ReportTitle пишешь [sTitle]
• Tomas

  September 2005 отредактировано 16:30

  Andrew_Sh, пасиба !
  Зачинятельно работает !