timerange.pas

来自「一个仓库管理中的子系统－－采购子系统」· PAS 代码 · 共 56 行

unit TimeRange;

interface

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

type
  TTimeRangeForm = class(TForm)
    Panel1: TPanel;
    startLabel: TLabel;
    endLabel: TLabel;
    startEdit: TEdit;
    endEdit: TEdit;
    startDate: TDateTimePicker;
    endDate: TDateTimePicker;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure startDateCloseUp(Sender: TObject);
    procedure endDateCloseUp(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  TimeRangeForm: TTimeRangeForm;

implementation

uses sqbinput;

{$R *.DFM}

procedure TTimeRangeForm.startDateCloseUp(Sender: TObject);
begin
    startedit.Text:=sqinputForm.ShowMeDate(sqinputForm.DateTo709str(startDate.Date));
end;

procedure TTimeRangeForm.endDateCloseUp(Sender: TObject);
begin
     endedit.Text:=sqinputForm.ShowMeDate(sqinputForm.DateTo709str(endDate.Date));
end;

procedure TTimeRangeForm.FormActivate(Sender: TObject);
begin
    startdate.DateTime:=date;
    enddate.DateTime:=date;
end;

end.