csxx.pas

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

unit csxx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, cxButtons, cxLabel, cxMaskEdit, cxDropDownEdit,
  cxControls, cxContainer, cxEdit, cxTextEdit, QRCtrls, QuickRpt, ExtCtrls,
  DB, ADODB;

type
  TForm4 = class(TForm)
    cxTextEdit1: TcxTextEdit;
    cxComboBox1: TcxComboBox;
    cxLabel1: TcxLabel;
    cxLabel2: TcxLabel;
    cxButton1: TcxButton;
    cxButton2: TcxButton;
    QuickRep1: TQuickRep;
    PageHeaderBand1: TQRBand;
    DetailBand1: TQRBand;
    PageFooterBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRDBText3: TQRDBText;
    QRLabel5: TQRLabel;
    QRDBText4: TQRDBText;
    QRSysData1: TQRSysData;
    QRSysData2: TQRSysData;
    ADODataSet1: TADODataSet;
    procedure cxButton1Click(Sender: TObject);
    procedure cxButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}
uses
  flogin, fmain;

procedure TForm4.cxButton1Click(Sender: TObject);
begin
   adoDataSet1.CommandText:= 'select athNO,eveName,score,memo from game where eveName= "'+ cxComboBox1.text+'"';
   ADODataSet1.Open;
   qrlabel1.Caption :=cxTextEdit1.Text ;        //修改报表的标题
   form4.QuickRep1.Preview;            //预览报表
   cxTextEdit1.Text :='';
   close;
end;

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

procedure TForm4.FormCreate(Sender: TObject);
begin
  while not Form2.adsEvent.Eof do
  begin
    cxComboBox1.Properties.Items.Add(Form2.adsEvent['eveName']);
    Form2.adsEvent.Next;
  end;
end;

end.