unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Grids;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Timer1: TTimer;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    CheckBox1: TCheckBox;
    Edit3: TEdit;
    Label3: TLabel;
    Edit4: TEdit;
    Button2: TButton;
    Button3: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit4;



{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Edit1.text := TimeToStr(Time);//把系統時間賦給 Edit1.text

  if ( TimeToStr(Time) = '11:30:59' ) //當系統時間到11點到30
    then
     ShowMessage('中午下班了。應該打卡吃飯'); //彈出固定內容
  if( TimeToStr(Time)= '13:40:00' )
  then
 ShowMessage('吃飽了，睡好了。是不是又該上班了？');
  if (TimeToStr(Time) = '17:59:59' )
  then
  ShowMessage('累了一天，是不是應該休息了，別忘記打卡');

    if  ( (CheckBox1.Checked =true) and ( Edit1.text=Edit3.text ) )  //當勾選開啟動態提醒時和設定時間時
  then
  ShowMessage(Edit4.text);   //彈出動態提醒的內容

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 close
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
form2.show;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 form4.show
end;

end.