clocktime.pas

一个Delphi写的跟考勤机门禁机收款机的接品软件源码

unit ClockTime;

interface

uses
  Windows, SysUtils, Classes, Graphics, Controls, Forms,
  StdCtrls, Mask, PrjConst;

type
  TdlgClockTime = class(TForm)
    meBegin: TMaskEdit;
    Label1: TLabel;
    Label2: TLabel;
    meEnd: TMaskEdit;
    btnOK: TButton;
    btnCancel: TButton;
    Label3: TLabel;
    procedure meBeginExit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function Execute: Boolean;
  end;

var
  dlgClockTime: TdlgClockTime;

implementation

uses Main, Functions;

{$R *.DFM}
function TdlgClockTime.Execute: Boolean;
begin
  if not Assigned(dlgClockTime) then
    dlgClockTime:=TdlgClockTime.Create(Application);
  with dlgClockTime do
  begin
    Result:=dlgClockTime.ShowModal=mrOK;
  end;
end;

procedure TdlgClockTime.meBeginExit(Sender: TObject);
begin
  with Sender as TCustomEdit do
  begin
    try
      if MyStrToTime(Text)>1 then
        Raise Exception.Create(SEANEOyENEIHhMmO);
    except
      if CanFocus then SetFocus;
      Raise;
    end;
  end;
end;

end.