Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Boolean - поле и QReport [D6, IB6.x]

ton2 © (2002-11-11 12:07:00)
В базе есть числовое поле принимающее значения 1 и 0. Надо бы при отображении этого поля в QReport отображать вместо 1 "Да" и вместо 0 - "нет". помогите пожалуста раньше не приходилось еще с QReport работать.

ЮЮ (2002-11-11 12:57:00) [1]
А в виду ты всё-таки имел qrLabel1. Caption:="Да"

а в QRDBText1Print текста меньше:

procedure TfrmStandardEditor.QRDBText1Print(sender: TObject;
var Value: String);
begin
if Value = "1" then Value := "Да" else Value := "Нет"
end;

KDS (2002-11-11 12:30:00) [2]
ой как некрасиво отображается :( Я имел ввиду это:
then qrLabel1:="Да"
else qrLabel1:="Нет"

KDS (2002-11-11 12:25:00) [3]
Поставь qrLabel вместо qrDBText на это поле и
обрабатывай событие "перед печатью" у DetailBand
procedure TqrZakaz.DetailBand1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean); begin if Table1.FieldByName("Field1").AsInteger=1 then qrLabel1:="Да" else qrLabel1:="Нет" end;

ЮЮ (2002-11-11 12:24:00) [4]
А ещё есть onPrint или onBeforePrint компонентов на отчёте, где можно изменить печатаемое значение, как душе угодно

Wolf226 (2002-11-11 12:23:00) [5]
Или на событие OnPrint прицепись

Alexandr (2002-11-11 12:14:00) [6]
ну так в датасете заведи вычисляемое поле, для которого свое условие прикрути и его в репорте показывай.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »