reportabout.pas

pasa人力资源考勤管理系统

unit reportabout;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  jpeg, ExtCtrls, StdCtrls, Buttons;

type
  TFormreportabout = class(TForm)
    spbOK: TSpeedButton;
    lblCopyRight: TLabel;
    lblDisclaimer: TLabel;
    Shape1: TShape;
    Shape2: TShape;
    lblReportBuilder1: TLabel;
    lblTrademarkSymbol2: TLabel;
    lblCopyRightSymbol1: TLabel;
    lblTrademarkSymbol1: TLabel;
    lblVersion: TLabel;
    lblEdition: TLabel;
    ProgramIcon: TImage;
    Label1: TLabel;
    procedure spbOKClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formreportabout: TFormreportabout;

implementation

{$R *.DFM}

procedure TFormreportabout.spbOKClick(Sender: TObject);
begin
  ModalResult := mrOK;
end;

end.