unit4.~pas

飞思科技的书不错

unit Unit4;

interface

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

type
  TForm_Date = class(TForm)
    MC_birth: TMonthCalendar;
    MC_party: TMonthCalendar;
    MC_work: TMonthCalendar;
    MC_Enter: TMonthCalendar;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_Date: TForm_Date;

implementation

uses Unit1, Unit2;

{$R *.dfm}

procedure TForm_Date.Button1Click(Sender: TObject);
begin
    Form_Date.Hide;
    with Form1 do
    begin
    DBEdit_birth.Field.AsDateTime:=MC_birth.Date;
    DBEdit_PartyTime.Field.AsDateTime:=MC_Party.Date;
    DBEdit_EnterTime.Field.AsDateTime:=MC_Enter.Date;
    DBEdit_WorkTime.Field.AsDateTime:=MC_Work.Date;
    Refresh;
    end;   
end;

end.