unit2.~pas

图书管理系统

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls ,Unit6,Unit11;

type
  TForm2 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Button3: TButton;
    Image1: TImage;
    Image2: TImage;
    Timer1: TTimer;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Timer2: TTimer;
    Image3: TImage;
    Label5: TLabel;
    Timer3: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit3;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
form6:=tform6.Create(self);
form6.Show;

form6.Table1.Active:=true;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
form11.Show;

end;

procedure TForm2.FormCreate(Sender: TObject);
begin
 label3.Caption:=datetostr(now);
 label4.Caption:=timetostr(now);
end;

  procedure TForm2.Timer1Timer(Sender: TObject);
begin
if image2.Visible =true then
image2.Visible:=false
else
image2.Visible:=true;
 end;
procedure TForm2.Timer2Timer(Sender: TObject);

    var
a:tdatetime;
x,y,z,t:word;
 begin
 a:=now;
 decodetime(a,x,y,z,t);
 label4.Caption:=inttostr(x)+':'+inttostr(y)+':'+inttostr(z);

end;

procedure TForm2.Button3Click(Sender: TObject);
begin
close;
end;

procedure TForm2.Timer3Timer(Sender: TObject);
begin
if label5.Width<105 then
 label5.Width:=label5.Width+1
 else
 label5.Width:=0;
if label1.Width<466 then
 label1.Width:=label1.Width+4
end;

end.