ag_seldate.pas

来自「亚惠快餐管理信息系统 包括亚惠快餐管理的各项功能」· PAS 代码 · 共 71 行

unit AG_SelDate;

interface

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

type
  TFrmAG_SelDate = class(TForm)
    Label1: TLabel;
    GroupBox1: TGroupBox;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure DateTimePicker1Change(Sender: TObject);
    procedure DateTimePicker2Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

function SetWork(var BeginDate, EndDate: TDate): Boolean;

implementation

{$R *.dfm}

function SetWork(var BeginDate, EndDate: TDate): Boolean;
var
  FrmAG_SelDate: TFrmAG_SelDate;
  y, m, d: Word;
begin
  Result := False;
  Application.CreateForm(TFrmAG_SelDate, FrmAG_SelDate);
  with FrmAG_SelDate do
  begin
    DateTimePicker1.Date := BeginDate;
    DateTimePicker2.Date := EndDate;
    DateTimePicker1.MaxDate := EndDate;
    DateTimePicker2.MinDate := BeginDate;
    if ShowModal = mrok then
    begin
      DecodeDate(DateTimePicker1.Date, y, m, d);
      BeginDate := EncodeDate(y, m, d);
      DecodeDate(DateTimePicker2.Date, y, m, d);
      EndDate := EncodeDate(y, m, d);
      Result := True;
    end;
    Free;
  end;
end;

{-------------------------------------------------------------------------------}

procedure TFrmAG_SelDate.DateTimePicker1Change(Sender: TObject);
begin
  DateTimePicker2.MinDate := DateTimePicker1.Date - 1;
end;

procedure TFrmAG_SelDate.DateTimePicker2Change(Sender: TObject);
begin
  DateTimePicker1.MaxDate := DateTimePicker2.Date + 1;
end;

end.