Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[662] [답변] KBEAR95/검색결과를 퀵리포트로 출력하기
overclss [ ] 2187 읽음    1998-01-12 18:48
type 선언부를 잘보세요?
이방법은 델파이3.0의 DEMOS\QUICKRPT디렉토리에서 참조한 내용입니다..
interface uses 부분에 퀵레포트 폼의 Unit File을 지정하세요..
아마 잘될것입니다..
--------8<------------Cut-----8<---------------------8<-----------
unit xxx;

interface

uses
  Windows, ....., Classes, Db, DBTables, StdCtrls, Mask,Dialogs,
  ....  DBGrids, ExtCtrls, Controls, ToolWin, quickrpt, QRF;
                                              ^^^^^^^^^^^^^^
                                      // 퀵레포트 폼 Unit file지정

//!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
type
  TFormGnTae = class(TForm)
       .
       .
       .
  private
    FReport: TQuickRep;
    procedure SetReport(Value: TQuickRep);
  public                      
    property  Report: TQuickRep read FReport write SetReport;
  end;
//!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
var
  Formxxx: TFormxxx;
 
implementation

uses Main ;

{$R *.DFM}
       .
       .
       .
////////////////////////////////////////////////////////////////////////////////
// 인쇄
procedure TFormxxx.BitBtnPRTClick(Sender: TObject);
begin
{ 퀵레포트 폼에는 SQL 또는 StoredProc등의 쿼리 콤포런트가 있어야 합니다
  그리고 그것은 여기서 실행 시키세요.
  예를 들어 ,(여기서는 폼이름이 FormQR 입니다.)

  FormQR.Close;
  FormQR.SQL.Clear;
         .
         .
  FormQR.Open;
}
Report:=FormQR.QuickRep;                               
Report.Print;
end;
////////////////////////////////////////////////////////////////////////////////
// 인쇄::프린터 셋
Procedure TFormxxx.SetReport(Value: TQuickRep);
begin
  FReport:=Value;
end;
       .
       .
       .

////////////////////////////////////////////////////////////////////////////////
// 종료지시
procedure TFormxxx.Button1Click(Sender: TObject);
begin
  Close;
end;
////////////////////////////////////////////////////////////////////////////////
// 종료전
procedure TFormxxx.FormCloseQuery(Sender: TObject;  var CanClose: Boolean);
begin
  if MessageDlg(Formxxx.Caption,mtConfirmation,[mbOk,mbNo],0) = mrNo
  then CanClose := false;
end;
////////////////////////////////////////////////////////////////////////////////
// 종료
procedure TFormxxxe.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action :=caFree;
end;
end. { Final End }


+ -

관련 글 리스트
662 [답변] KBEAR95/검색결과를 퀵리포트로 출력하기 overclss 2187 1998/01/12
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.