datefmu.pas

图书馆管理系统设计详细资料

unit datefmu;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Spin, StdCtrls, ComCtrls, Grids, Calendar, ExtCtrls,myvar;

type
  Tdatefm = class(TForm)
    Panelsrf: TPanel;
    grpboxDate: TGroupBox;
    Calendar: TCalendar;
    cmboBoxMonth: TComboBox;
    udYear: TUpDown;
    edtYear: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure edtYearChange(Sender: TObject);
    procedure cmboBoxMonthChange(Sender: TObject);
    procedure edtYearKeyPress(Sender: TObject; var Key: Char);
    procedure SpinButton1DownClick(Sender: TObject);
    procedure SpinButton1UpClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure CalendarKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  datefm: Tdatefm;

implementation

{$R *.DFM}

procedure Tdatefm.edtYearChange(Sender: TObject);
begin
Calendar.Year := StrToInt((Sender as TEdit).Text);
end;

procedure Tdatefm.cmboBoxMonthChange(Sender: TObject);
begin
Calendar.Month := (Sender as TComboBox).ItemIndex + 1;
end;

procedure Tdatefm.edtYearKeyPress(Sender: TObject; var Key: Char);
begin
if (not (Key in ['0'..'9'])) and (Ord(Key) <> VK_BACK) then /////////////
  begin
    Key := #0;
    Beep;                                      //////////////////////////
  end;
end;

procedure Tdatefm.SpinButton1DownClick(Sender: TObject);
begin
 Calendar.NextMonth;
end;

procedure Tdatefm.SpinButton1UpClick(Sender: TObject);
begin
 Calendar.PrevMonth;
end;

procedure Tdatefm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
getdate:= inttostr(Calendar.Year)+'-'+
          inttostr(Calendar.Month)+'-'+
          inttostr(Calendar.Day);
action := caFree;
end;

procedure Tdatefm.FormCreate(Sender: TObject);
var year,month,day:word;
    mon:string   ;
begin
   decodedate(date,year,month,day)  ;
    mon:=inttostr(month);
   if length(mon)<2 then mon:='0'+mon  ;

cmboBoxMonth.Text:= mon ;
udYear.Position:= year ;

end;

procedure Tdatefm.CalendarKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin

  if (key = windows.VK_SPACE)   then close  ;
  if (key = windows.VK_RETURN)   then close ;
end;

end.