Q&A

  • 퀵리포트에서 앞화면 edit2.text 를 불러오는 방법을 알려주세요
안녕하세요 델초보자입니다.

앞검색후 리포트로 출력하려고 합니다.

그런데 조건부분을 앞화면의 라벨로 필요해서 가지고 오려고 합니다.

그런데 에러가 납니다. 알려주세요 급합니다.

uses절 포함



procedure Tfrminoutreport.QuickRep1BeforePrint(Sender: TCustomQuickRep;

var PrintReport: Boolean);

begin

with frminreport do

begin

i := 0;

--> 전부에러 qrl_firstdate.Caption := frminreport.lbl_firstdate.Caption;

qrl_lastdate.Caption := frminreport.lbl_lastdate.Caption;

qrl_detail.Caption := frminreport.lbl_detail.Caption;

qrl_subdetail.Caption := frminreport.lbl_subdetail.Caption;

qrl_depart.Caption := frminreport.pnl_d_dept.Caption;

qrl_name.Caption := frminreport.pnl_d_name.Caption;

end;

end;



1  COMMENTS
  • Profile
    송종석 2001.05.03 08:57
    Report폼을 Modal폼으로 띄워놓고 조회화면 폼에서 Report폼의 콤포넌트를 핸들링하는 방법이 있습니다.

    // Report폼을 Modal폼으로 생성

    frmInOutReport := TfrmInOutReport.Create(Self);

    // 이하 콤포넌트를 핸들링

    frmInOutReport.qrl_firstdate.Caption := .lbl_firstdate.Caption;

    frmInOutReport.qrl_lastdate.Caption := lbl_lastdate.Caption;

    frmInOutReport.qrl_detail.Caption := lbl_detail.Caption;

    frmInOutReport.qrl_subdetail.Caption := lbl_subdetail.Caption;

    frmInOutReport.qrl_depart.Caption := pnl_d_dept.Caption;

    frmInOutReport.qrl_name.Caption := pnl_d_name.Caption;

    // Report폼 인쇄

    frmInOutReport.QuickReport1.Print;

    // Report폼 종료

    frmInOutReport.Free;



    전승헌 wrote:

    > 안녕하세요 델초보자입니다.

    > 앞검색후 리포트로 출력하려고 합니다.

    > 그런데 조건부분을 앞화면의 라벨로 필요해서 가지고 오려고 합니다.

    > 그런데 에러가 납니다. 알려주세요 급합니다.

    > uses절 포함

    >

    > procedure Tfrminoutreport.QuickRep1BeforePrint(Sender: TCustomQuickRep;

    > var PrintReport: Boolean);

    > begin

    > with frminreport do

    > begin

    > i := 0;

    > --> 전부에러 qrl_firstdate.Caption := frminreport.lbl_firstdate.Caption;

    > qrl_lastdate.Caption := frminreport.lbl_lastdate.Caption;

    > qrl_detail.Caption := frminreport.lbl_detail.Caption;

    > qrl_subdetail.Caption := frminreport.lbl_subdetail.Caption;

    > qrl_depart.Caption := frminreport.pnl_d_dept.Caption;

    > qrl_name.Caption := frminreport.pnl_d_name.Caption;

    > end;

    > end;

    >