Q&A

  • qrimage 또는 퀵리포트에 관해서...
안녕하세요.
QuickReport에 대해 고수님들의 지혜를 좀 배워보고자 이렇게 글을 올립니다.

다름이 아니라 아래와 같이 제가 디비에서 불러온 값에 따라서 QRImage에 다른 이미지를
넣고 싶은데 그게 잘 안되서요
data1이라는 값이 TRUE이면 'c:\\custom_image_list.bmp'라는 이미지를 QRImage에 넣어서 출력하고
FALSE이면 'c:\\KBSTAR.BMP'이미지를 QRImage에 넣어서 출력하고 싶은데
출력을 해 보면 현재 한 이미지(마지막 데이타)만 계속출력이 되더라구요.
왜 그런건지..뭐가 잘못된건지...해결책이 무엇인지좀 알고 싶습니다.

좀 급한 사항이라 부탁좀 드리겠습니다.
P.S) 참고로 이미지는 디비에서 직접 불러올수가 없는 상황이어서 외부에서 현재와 같이 불러와야 하는
상황입니다.
감사합니다.
  With qrReport.qryQuery Do Begin
    Close;
    SQL.Clear;
    l_sQuery := 'select data1 from test_tbl';
    SQL.Text := l_sQuery;
    Open;
    First;
    While Not Eof Do Begin
      QR_Image := TQRImage.Create(nil);
      QR_Image.Left := 10;
      QR_Image.Top := 10;
      QR_Image.Width := 10;
      QR_Image.Height := 30;
      QR_Image.Picture := nil;

      If FieldByName( 'sp_isreturn' ).AsBoolean = True Then
        QR_Image.Picture.LoadFromFile( 'c:\\custom_image_list.bmp' )
      Else
        QR_Image.Picture.LoadFromFile( 'c:\\KBSTAR.BMP' );
      QR_Image.Parent := qrReport.DetailBand1;
      QR_Image.Refresh;
      Next;
    End;
  End;
0  COMMENTS