Boolean - поле и QReport

← →
ton2 (2002-11-11 12:07) [0]

В базе есть числовое поле принимающее значения 1 и 0. Надо бы при отображении этого поля в QReport отображать вместо 1 "Да" и вместо 0 - "нет". помогите пожалуста раньше не приходилось еще с QReport работать.

← →
Alexandr © (2002-11-11 12:14) [1]

ну так в датасете заведи вычисляемое поле, для которого свое условие прикрути и его в репорте показывай.

← →
Wolf226 © (2002-11-11 12:23) [2]

Или на событие OnPrint прицепись

← →
ЮЮ © (2002-11-11 12:24) [3]

А ещё есть onPrint или onBeforePrint компонентов на отчёте, где можно изменить печатаемое значение, как душе угодно

← →
KDS © (2002-11-11 12:25) [4]

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

ой как некрасиво отображается :( Я имел ввиду это:
then qrLabel1:="Да"
else qrLabel1:="Нет"

А в виду ты всё-таки имел qrLabel1. Caption:="Да"

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

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

Boolean - поле и QReport Найти похожие ветки