unit3.pas

本人生产实习的内容

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Timer1: TTimer;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    StatusBar1: TStatusBar;
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure StatusBar1CreatePanelClass(Sender: TCustomStatusBar;
      var PanelClass: TStatusPanelClass);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm3.N2Click(Sender: TObject);
begin
Form1.show();
Form1.Edit1.Text:='';
Form1.Edit2.Text:='';
end;

procedure TForm3.N3Click(Sender: TObject);
begin
Close;
end;

procedure TForm3.StatusBar1CreatePanelClass(Sender: TCustomStatusBar;
  var PanelClass: TStatusPanelClass);
begin
StatusBar1.Panels[3].Text:=DateToStr(Date);
end;

procedure TForm3.FormCreate(Sender: TObject);
 var year,month,day:word;

begin
decodedate(strtodate(datetostr(date)),year,month,day);
statusbar1.Panels[0].Text:='今天是:'+inttostr(year)+'年'+inttostr(month)+'月'+inttostr(day)+'日';
end;


end.