u_fromdateto.pas

人事考勤系统

unit U_fromdateto;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Mask, StdCtrls;

type
  TF_fromdateto = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    procedure FormCreate(Sender: TObject);
    procedure MaskEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure MaskEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure FormDestroy(Sender: TObject);
    procedure MaskEdit1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure MaskEdit1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_fromdateto: TF_fromdateto;

implementation

{$R *.DFM}

procedure TF_fromdateto.FormCreate(Sender: TObject);
begin
  height:=178;
  width:=343;
  Maskedit2.Text:=datetostr(now);
end;

procedure TF_fromdateto.MaskEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    Maskedit2.SetFocus;
end;

procedure TF_fromdateto.MaskEdit2KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    button1.SetFocus;
end;

procedure TF_fromdateto.FormDestroy(Sender: TObject);
begin
  F_fromdateto:=nil;
end;

procedure TF_fromdateto.MaskEdit1MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if length(trim(Maskedit1.text))<>10 then exit;
  if ssCtrl in shift then
    MaskEdit1.Text:=datetostr(strtodate(Maskedit1.text)+1)
  else if ssAlt in shift then
    Maskedit1.Text:=datetostr(strtodate(maskedit1.text)-1);
end;

procedure TF_fromdateto.MaskEdit1DblClick(Sender: TObject);
begin
  MaskEdit1.Text:=datetostr(now-1);
end;

end.