udate.~pas

天涯進銷存系統

unit uDate;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, LBCtrls, StdCtrls, LBCalen, DateUtils;

type
  TfrmDate = class(TForm)
    Shape1: TShape;
    LBCalen: TLBCalen;
    Label8: TLabel;
    Label9: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Panel1: TPanel;
    Label3: TLabel;
    LBSpeecButton1: TLBSpeecButton;
    LBSpeecButton5: TLBSpeecButton;
    LBSpeecButton4: TLBSpeecButton;
    LBSpeecButton3: TLBSpeecButton;
    LBSpeecButton2: TLBSpeecButton;
    Shape2: TShape;
    Shape3: TShape;
    Label4: TLabel;
    CloseButton: TLBLabel;
    procedure FormActivate(Sender: TObject);
    procedure LBSpeecButton3Click(Sender: TObject);
    procedure LBSpeecButton5Click(Sender: TObject);
    procedure LBSpeecButton4Click(Sender: TObject);
    procedure LBSpeecButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure LBSpeecButton2Click(Sender: TObject);
    procedure CloseButtonClick(Sender: TObject);
    procedure LBCalenKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private

  public
    { Public declarations }
  end;

var
  frmDate: TfrmDate;

implementation

uses uMain, uPublicvar, Tools;

{$R *.dfm}

procedure TfrmDate.FormActivate(Sender: TObject);
begin
  LBCalen.Date:=sDate;
  Label1.Caption:=IntToStr(LBCalen.Year);
  Label2.Caption:=IntToStr(LBCalen.Month);
end;

procedure TfrmDate.LBSpeecButton3Click(Sender: TObject);
begin
  LBCalen.NextYear;
  Label1.Caption:=IntToStr(LBCalen.Year);
  Label2.Caption:=IntToStr(LBCalen.Month);
end;

procedure TfrmDate.LBSpeecButton5Click(Sender: TObject);
begin
  LBCalen.NextMonth;  
  Label1.Caption:=IntToStr(LBCalen.Year);
  Label2.Caption:=IntToStr(LBCalen.Month);
end;

procedure TfrmDate.LBSpeecButton4Click(Sender: TObject);
begin
  LBCalen.PrevMonth;
  Label1.Caption:=IntToStr(LBCalen.Year);
  Label2.Caption:=IntToStr(LBCalen.Month);
end;

procedure TfrmDate.LBSpeecButton1Click(Sender: TObject);
begin
  sDate:=LBCalen.GetAsDateTime;
  Close;
end;

procedure TfrmDate.FormShow(Sender: TObject);
begin
  if (800-APoint.X)<Self.Width then
    Left:=APoint.X-Self.Width+BPoint.X
  else
    Left:=APoint.X;
  if (600-APoint.Y)<Self.Height  then
  Top:=APoint.Y-Self.Height-BPoint.Y
  else
  Top:=APoint.Y;
  Label4.Caption:='今天：'+GetLongDate(Date);
end;

procedure TfrmDate.LBSpeecButton2Click(Sender: TObject);
begin
  LBCalen.PrevYear;
  Label1.Caption:=IntToStr(LBCalen.Year);
  Label2.Caption:=IntToStr(LBCalen.Month);
end;

procedure TfrmDate.CloseButtonClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmDate.LBCalenKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then LBSpeecButton1Click(Nil);
end;

procedure TfrmDate.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=27 then Close;
end;

end.