csydy.pas

使用delphi编写的运动会编排程序,还需要更加完善!

unit csydy;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, QuickRpt, StdCtrls, cxButtons, RzButton, RzRadChk, ExtCtrls,
  RzPanel, Mask, RzEdit, RzLabel, QRCtrls;

type
  TForm3 = class(TForm)
    RzLabel1: TRzLabel;
    RzEdit1: TRzEdit;
    RzGroupBox1: TRzGroupBox;
    RzCheckBox1: TRzCheckBox;
    RzCheckBox2: TRzCheckBox;
    RzCheckBox3: TRzCheckBox;
    cxButton1: TcxButton;
    cxButton2: TcxButton;
    QuickRep1: TQuickRep;
    QRLabel1: TQRLabel;
    PageHeaderBand1: TQRBand;
    DetailBand1: TQRBand;
    PageFooterBand1: TQRBand;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRDBText3: TQRDBText;
    QRDBText4: TQRDBText;
    QRDBText5: TQRDBText;
    QRSysData1: TQRSysData;
    QRSysData2: TQRSysData;
    QRSysData3: TQRSysData;
    procedure cxButton1Click(Sender: TObject);
    procedure RzCheckBox1Click(Sender: TObject);
    procedure RzCheckBox2Click(Sender: TObject);
    procedure RzCheckBox3Click(Sender: TObject);
    procedure cxButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation
uses fmain;

{$R *.dfm}


procedure TForm3.cxButton1Click(Sender: TObject);
begin
   RzCheckBox1.Checked :=false;             //  报表显示选项按钮的复位
   RzCheckBox2.Checked :=false;
   RzCheckBox3.Checked :=false;
   qrlabel1.Caption :=RzEdit1.Text ;        //修改报表的标题
   form3.QuickRep1.Preview;            //预览报表
   QRSysData1.Enabled :=false;                //报表显示选项的复位
   QRSysData2.Enabled :=false;
   QRSysData3.Enabled :=false;
   RzEdit1.Text :='';
   close;
end;

procedure TForm3.RzCheckBox1Click(Sender: TObject);
begin
   QRSysData1.Enabled :=true;
end;

procedure TForm3.RzCheckBox2Click(Sender: TObject);
begin
   QRSysData2.Enabled :=true;
end;

procedure TForm3.RzCheckBox3Click(Sender: TObject);
begin
   QRSysData3.Enabled :=true;
end;

procedure TForm3.cxButton2Click(Sender: TObject);
begin
   close;
end;

end.