全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1100
推到 Plurk!
推到 Facebook!

Delphi5 報表範例

尚未結案
kets
一般會員


發表:9
回覆:21
積分:6
註冊:2003-04-26

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-07-30 02:00:47 IP:61.70.xxx.xxx 未訂閱
在研究delphi所附的範例後..有些問題...
unit Menu;    interface    uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, Quickrpt, List, GrpList, manygrp, MD, ExtCtrls, qrextra;    type
  TMainForm = class(TForm)
    GroupBox1: TGroupBox;
    SimpleList: TRadioButton;
    GroupedList: TRadioButton;
    MasterDetail: TRadioButton;
    SQLMasterDetail: TRadioButton;
    Description: TMemo;
    Preview: TButton;
    Print: TButton;
    Exit: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Image2: TImage;
    RadioButton1: TRadioButton;
    CompositeReport: TQuickRep;
    QRCompositeReport1: TQRCompositeReport;
    procedure SimpleListClick(Sender: TObject);
    procedure PreviewClick(Sender: TObject);
    procedure PrintClick(Sender: TObject);
    procedure ExitClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure GroupedListClick(Sender: TObject);
    procedure MasterDetailClick(Sender: TObject);
    procedure SQLMasterDetailClick(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure QRCompositeReport1AddReports(Sender: TObject);
  private
    FReport : TQuickRep;
    procedure SetReport(Value : TQuickRep);
  public
    property Report : TQuickRep read FReport write SetReport;
  end;    var
  MainForm: TMainForm;    implementation    {$R *.DFM}    procedure TMainForm.SetReport(Value : TQuickRep);
begin
  FReport:=Value;
  Description.Lines.Assign(Report.Description);
end;
================= FReport的意義是? property Report : TQuickRep read FReport write SetReport 這句又是?? 另,已知Description是Tmemo,找不到ReportDescription的內容?
kets
一般會員


發表:9
回覆:21
積分:6
註冊:2003-04-26

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-07-30 18:07:55 IP:61.70.xxx.xxx 未訂閱
引言: ================= FReport的意義是? property Report : TQuickRep read FReport write SetReport 這句又是?? 另,已知Description是Tmemo,找不到ReportDescription的內容?
現在FRepor和Description的答案都找到了... 第二個還是不知他的意思...
系統時間:2024-05-20 0:01:56
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!