unit2.pas

用DELPHI做的一个歌手评分系统

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    Panel2: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    XPManifest1: TXPManifest;
    Image1: TImage;
    Timer1: TTimer;
    SpeedButton5: TSpeedButton;
    CoolBar1: TCoolBar;
    SpeedButton4: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    procedure About1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure S1Click(Sender: TObject);
    procedure P1Click(Sender: TObject);
    procedure C1Click(Sender: TObject);
    procedure L1Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit3, Unit4, Unit5, Unit6, Unit1, Unit7, Unit9;

{$R *.dfm}

procedure TForm2.About1Click(Sender: TObject);
begin
form3.show;
end;

procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
form4.show;
form2.Close;
end;

procedure TForm2.SpeedButton2Click(Sender: TObject);
begin
form5.show;
form2.Close;
end;

procedure TForm2.SpeedButton3Click(Sender: TObject);
begin
form6.Show;
form2.close;
end;

procedure TForm2.SpeedButton4Click(Sender: TObject);
begin
form1.Show;
form1.Edit1.Clear;
form1.Edit2.Clear;
form2.Close;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
statusbar1.Panels[1].Text:='日期:'+datetostr(now);

end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
statusbar1.panels[2].text:='现在时间:'+timetostr(time);
end;

procedure TForm2.S1Click(Sender: TObject);
begin
form4.Show;
form2.Close;
end;

procedure TForm2.P1Click(Sender: TObject);
begin
form5.show;
form2.Close;
end;

procedure TForm2.C1Click(Sender: TObject);
begin
form6.Show;
form2.Close;
end;

procedure TForm2.L1Click(Sender: TObject);
begin
form6.TabSheet2.Show;
form2.Close;
end;

procedure TForm2.SpeedButton5Click(Sender: TObject);
begin
form7.show;
end;

procedure TForm2.SpeedButton7Click(Sender: TObject);
begin
form3.Show;
end;

procedure TForm2.SpeedButton8Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TForm2.SpeedButton6Click(Sender: TObject);
begin
form9.show;
end;

procedure TForm2.Timer2Timer(Sender: TObject);
begin
label1.Visible:=not label1.Visible;
label3.Visible:=not label3.Visible;
label5.Visible:=not label5.Visible;
label7.Visible:=not label7.Visible;
end;

procedure TForm2.Timer3Timer(Sender: TObject);
begin
 label2.Visible:=not label2.Visible;
 label4.Visible:=not label4.Visible;
 label6.Visible:=not label6.Visible;
 label8.Visible:=not label8.Visible;
end;

end.