Q&A

  • 퀵리포트에서 가능한지요.....
안녕하세요......
각각 다른 데이타가 뿌려진 그리드 2개의 내용을
퀵리포트에서 뿌려줄려고 합니다.
하나는 윗쪽에 뿌릴꺼구요.
하나는 아랫쪽에 뿌릴예정인데...
이게 가능한지요..
가능 하다면 어떤 밴드를 사용해야 합니까.....
고수님들의 한수 지도 바랍니다.     ^^
그럼 오늘도 평안하시길.......
2  COMMENTS
  • Profile
    오익환 2003.11.06 08:32
    퀵을 사용하지 않아도 된다면 자료실에서 TObjectPrinter를 써보세요




  • Profile
    skysoft 2003.11.06 04:03
    참고하세요.
    디테일밴드 하나만 사용합니다(DetailBand1).
    그 디테일밴드의 크기를 TQuickRep1에 꼭 맞게 늘리시고요.
    그러니까 디테일밴드 하나가 출력할 곳을 다 차지하는 거지요.
    TQRLabel을 뿌려줄 컬럼에 맞게 배치합니다.

    +--------------------+
    |  qrlabel1  qrlabel1a  |
    |  qrlabel2  qrlabel2a  |
    |  qrlabel3  qrlabel3a  |
    |                              |
    |                              |
    |  qrlabel4  qrlabel4a  |
    |  qrlabel5  qrlabel5a  |
    |  qrlabel6  qrlabel6a  |
    +--------------------+

    위쪽에는 Query1의 컬럼을 배치하고, 아래쪽에는 Query2의 컬럼을 배치합니다.
    DetailBand1의 BeforePrint에 아래처럼 코딩합니다.

      qrlabel1.Caption := Form1.Query1.FieldByName('name').AsString;
      qrlabel1a.Caption := Form1.Query1.FieldByName('salary').AsString;
      Form1.Query1.Next;

      qrlabel2.Caption := Form1.Query1.FieldByName('name').AsString;
      qrlabel2a.Caption := Form1.Query1.FieldByName('salary').AsString;
      Form1.Query1.Next;

      qrlabel3.Caption := Form1.Query1.FieldByName('name').AsString;
      qrlabel3a.Caption := Form1.Query1.FieldByName('salary').AsString;


      qrlabel4.Caption := Form1.Query2.FieldByName('name').AsString;
      qrlabel4a.Caption := Form1.Query2.FieldByName('salary').AsString;
      Form1.Query2.Next;

      qrlabel5.Caption := Form1.Query2.FieldByName('name').AsString;
      qrlabel5a.Caption := Form1.Query2.FieldByName('salary').AsString;
      Form1.Query2.Next;

      qrlabel6.Caption := Form1.Query2.FieldByName('name').AsString;
      qrlabel6a.Caption := Form1.Query2.FieldByName('salary').AsString;
      Form1.Query2.Next; //쿼리2는 next 해 줌

    (위에서 QRLabel이 3줄로 고정입니다만 각 캡션에 값을 할당하는 문장전에 Query.Eof 인지 체크해서 캡션에 ''를 넣으면 안 보이는 효과를 얻겠습니다)