Default Avatar

Lex

Lex

Подробная информация

Имя пользователя
Lex
Присоединился
Посещений
0
Был на сайте
Группы
Members

Комментарии

  • поменяй места заголовок столбцов и строк
    Раздел: не стандартныи DBCross Комментарий от Lex February 2006
  • А в чем тогда проблема если ты можешь сделать это цифру (например формула [СуммаПоСтранице]) и можешь преобразовать число в строку (Например SumAsWord(x: Money)) то ты вполне можешь сделать следующую формулу SumAsWord(<СуммаПоСтронице>) ил…
    Раздел: Сумма по странице прописью Комментарий от Lex February 2006
  • С какой базой данных ты рабоаешь? Как вариант, возможно, что набор данных для отчета ты открываешь до того как изменяешь данные в таблице (возможно при старте программы).
    Раздел: запрос данных Комментарий от Lex February 2006
  • 2gpi Да так даже лучше, а я незнал что можно использовать сриптовые переменные в формулах внутри мемок.
    Раздел: Нумерация строк Комментарий от Lex February 2006
  • добавь переменную например MyLine (меню отчет->переменные) в событии Report.OnStartReport обнуляешь её  Set('MyLine', 0); в событие DetailData2.OnBeforePrint (второй уровень детализации) инкрементируешь ее на 1  Set('MyLine', Get('MyL…
    Раздел: Нумерация строк Комментарий от Lex February 2006
  • Есть несколько способов: 1: Диалоговая форма в самом отчете. 2: Ч/з обработчик TfrxReport.OnGetValue (см. документацию) 3:  MyQuery := frxReport.FindObject('MyQuery') as TfrxADOQuery;  MyQuery.ParamByName('DateBegin').Value := DateBegin;  My…
    Раздел: Передача даты в запрос. Комментарий от Lex February 2006
  • Каким образом ты получаешь данные для отчета?
    Раздел: Передача даты в запрос. Комментарий от Lex February 2006
  • procedure ReplaceStr(var str: string; const SubStr1, SubStr2: string); var  i: Integer;  myStr: String; begin  myStr := '';  while Pos(SubStr1, str) > 0 do  begin    if Pos(SubStr1, str) > 1 then    begin      myStr := myStr + Copy(str…
    Раздел: Парсеровщик формул Комментарий от Lex February 2006
  • frxReport1.Variables := '''Value1'''
    Раздел: Иницализация переменных Комментарий от Lex February 2006
  • Сделай MasterData к нему привежи Child выстави MasterData.PrintChildIfInvisible в True на MasterData размести 8 мемо на Child 1 мемо в MasterData.OnBeforePrint MasterData.Visible := Child.Visible := not что -то типо этого.
  • Модератор удали соседние темы с такимже названием написал этот пост в соседней теме с таким же названием Берешь эту формулу и заменяешь все на на и т.д. слева и справа добовляешь квадратные скобки и эту строку кидаешь Memo.Text э…
    Раздел: Парсеровщик формул Комментарий от Lex February 2006
  • Поясни по подробней зачем два MasterData они не могут печататься в перемешку, сначала один затем второй. Page4OnBeforePrint вызываеться одни раз перед печатью всего Page4 даже если он многостраничный. Каким образом DrS12 связанно и с первым и со…
  • это округляет до двух знаков после запятой поробуй увидишь (проверь скобки)
    Раздел: Как округлить число? Комментарий от Lex February 2006
  • [Round( * 100) / 100]
    Раздел: Как округлить число? Комментарий от Lex February 2006
  • Если тебе надо раскрасить сами GroupFooter заводишь переменную в условии пишешь mod 2=1 а в GroupFooterOnBeforePrint Set('MyLine', Get('MyLine') + 1); в начале отчета begin Set('MyLine', 0); end. (вроде так, непроверял);
  • Добавь Child1 на котором размести колонки с твоими цифрами, установи свойства PageHeader: PageHeader1.Child := Child1 PageHeader1.PrintChildIfInvisible := True, в PageHeader1OnBeforPrint    if <> 1 then  begin    PageHeader1.Visibl…
    Раздел: Фиксированные поля Комментарий от Lex February 2006
  • добавь изменение размеров своих мемок
    Раздел: Видимые и невдимые memo Комментарий от Lex January 2006
  • в OnBeforePrint твоего MasterData1 пишешь примерно следующий код :  Memo5.Visible := Trim() <> '';  Memo1.Visible := not Memo5.Visible;  Memo2.Visible := not Memo5.Visible;  Memo3.Visible := not Memo5.Visible;  Memo4.Visible := not Memo5…
    Раздел: Видимые и невдимые memo Комментарий от Lex January 2006
  • Как уже говорили используй AutoWidth, или ты хочешь в эту малекькую мемку вместить свой большой текст.
    Раздел: Отображение текста Комментарий от Lex January 2006
  • Влоб не получится. Можно попробовать все занчения по полю сортировки загнать в масив а потом через внешнюю функцию в MasterDataOnBeforePrint locatе-ами бегать по набору данных.
    Раздел: сортировка Комментарий от Lex December 2005
  • примерно так var  myRowCount: integer;  band: TfrxMasterData;  Memo: TfrxMemoView;  myText: TStringList; begin  myRowCount := 3;  Band := frxReport1.FindObject('MasterData1') as TfrxMasterData;  Band.DataSet := nil;  Band.RowCount := myRowCo…
  • Скачай FR 3.20 и попробуй там.
    Раздел: Много колонок Комментарий от Lex December 2005
  • А сколько тебе нужно?
    Раздел: Повторение бэндов в 1 отчете. Комментарий от Lex December 2005
  • Исходники доступны начиная с pro версии (у меня std)
  • Насчет сервера не знаю а написал: во всей фасте описано в документации там где через fsGlobalUnit (1-й способ).
  • Создаешь внешнюю функцию для отчета (см. документацию и если FR 3.19 сдесь) которая будет задавать параметры для твоего TADODataSet(для каждого свою) что - то типа: MyDataSet_SetParm(ParamName: String; ParamValue: Variant): Boolean; и просто обра…
  • dimm написал: параметры нужно указать до начала использования фасты Как ты собираешься укаывать параметры до использования фаста если их значения стоновяться известными только после запуска отчета? Если тебе нужно задать параметры у ХП пос…
  •  Screen.Cursor := crHourGlass; // или что-то своё  frxReport1.PrepareReport;  Screen.Cursor := crDefault;  frxReport1.ShowPreparedReport;
    Раздел: Открытие долгого запроса Комментарий от Lex December 2005
  • вместо VK_RETURN #13 вместо VK_BACK #8 это для дельфи возможно в си # - заменяеться на что-то другое
    Раздел: С++ скрипт Комментарий от Lex December 2005
  • не уверен, но поробуй каждый отчет запускать в отделном потоке.
    Раздел: Отчеты как MDI Комментарий от Lex December 2005