mrl.pas

来自「一个地方税务征收管理系统」· PAS 代码 · 共 64 行

unit Mrl;

interface

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

type
  Trl = class(TForm)
    DrawCalendar1: TDrawCalendar;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    UpDown1: TUpDown;
    Edit2: TEdit;
    UpDown2: TUpDown;
    procedure FormCreate(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  rl: Trl;

implementation

uses DateUtils;

{$R *.dfm}

procedure Trl.FormCreate(Sender: TObject);
begin
  UpDown1.Position := YearOf(now);
  UpDown2.Position := MonthOfTheYear(now);
  Edit1.OnChange(self);
  //  DrawCalendar1.
end;

procedure Trl.Edit1Change(Sender: TObject);
var
  y: integer;
begin
  try
    y := StrToInt(Edit1.Text);
    DrawCalendar1.Year := y;
  except
    //   MessageDlg('你输入的年份无效！', mtWarning, [mbok], 0);
  end;

  try
    y := StrToInt(Edit2.Text);
    DrawCalendar1.Month := y;
  except
    //  MessageDlg('你输入的月份无效！', mtWarning, [mbok], 0);
  end;
end;

end.