winflash.pas

考勤管理 考勤管理 考勤管理

unit Winflash;
//****************************************************************
//*公司名：华夏数码有限公司
//*系统名：考勤管理系统
//*程序名：WinFLASH
//*
//*--------------------------------------------------------------
//*  [年月日]     [制造者]
//*--------------------------------------------------------------
//*  2005/11/09    徐二芳
//*
//****************************************************************
interface

uses
  System.Drawing, System.Collections, System.ComponentModel,
  System.Windows.Forms, System.Data, System.Resources;

type
  TWinFlash = class(System.Windows.Forms.Form)
  {$REGION 'Designer Managed Code'}
  strict private
    /// <summary>
    /// Required designer variable.
    /// </summary>
    components: System.ComponentModel.IContainer;
    Timer1: System.Windows.Forms.Timer;
    /// <summary>
    /// Required method for Designer support - do not modify
    /// the contents of this method with the code editor.
    /// </summary>
    procedure InitializeComponent;
    procedure Timer1_Tick(sender: System.Object; e: System.EventArgs);
    procedure TWinFlash_Load(sender: System.Object; e: System.EventArgs);
  {$ENDREGION}
  strict protected
    /// <summary>
    /// Clean up any resources being used.
    /// </summary>
    procedure Dispose(Disposing: Boolean); override;
  private
    { Private Declarations }
  public
    constructor Create;
  end;

  [assembly: RuntimeRequiredAttribute(TypeOf(TWinFlash))]

implementation

{$REGION 'Windows Form Designer generated code'}
/// <summary>
/// Required method for Designer support -- do not modify
/// the contents of this method with the code editor.
/// </summary>
procedure TWinFlash.InitializeComponent;
var
  resources: System.Resources.ResourceManager;
begin
  Self.components := System.ComponentModel.Container.Create;
  resources := System.Resources.ResourceManager.Create(TypeOf(TWinFlash));
  Self.Timer1 := System.Windows.Forms.Timer.Create(Self.components);
  // 
  // Timer1
  // 
  Self.Timer1.Enabled := True;
  Self.Timer1.Interval := 2000;
  Include(Self.Timer1.Tick, Self.Timer1_Tick);
  // 
  // TWinFlash
  // 
  Self.AutoScaleBaseSize := System.Drawing.Size.Create(6, 14);
  Self.BackgroundImage := (System.Drawing.Image(resources.GetObject('$this.BackgroundImage')));
  Self.ClientSize := System.Drawing.Size.Create(584, 392);
  Self.FormBorderStyle := System.Windows.Forms.FormBorderStyle.None;
  Self.Name := 'TWinFlash';
  Self.StartPosition := System.Windows.Forms.FormStartPosition.CenterScreen;
  Self.Text := 'WinForm';
  Include(Self.Load, Self.TWinFlash_Load);
end;
{$ENDREGION}

procedure TWinFlash.Dispose(Disposing: Boolean);
begin
  if Disposing then
  begin
    if Components <> nil then
      Components.Dispose();
  end;
  inherited Dispose(Disposing);
end;

constructor TWinFlash.Create;
begin
  inherited Create;
  //
  // Required for Windows Form Designer support
  //
  InitializeComponent;
  //
  // TODO: Add any constructor code after InitializeComponent call
  //
end;

procedure TWinFlash.TWinFlash_Load(sender: System.Object; e: System.EventArgs);
begin

end;
//****************************************************************
//* Timer1_Tick
//*
//*  [参数]
//*      　无
//*  [返回]
//*      　无
//****************************************************************
procedure TWinFlash.Timer1_Tick(sender: System.Object; e: System.EventArgs);
begin
  try
    timer1.Enabled:=false;
    self.Dispose; //关闭并释放闪屏窗体
  except
    on ex:exception do
    begin
      messagebox.Show('TWinFlash.Timer1_Tick:('+ex.Message+')','考勤管理系统');
    end;
  end;
end;

end.