unit5.pas

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

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DBCtrls, ComCtrls, Grids, DBGrids, DB, ADODB,
  XPMan, Menus, Buttons;

type
  TForm5 = class(TForm)
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    StatusBar1: TStatusBar;
    GroupBox1: TGroupBox;
    DBMemo1: TDBMemo;
    DBNavigator1: TDBNavigator;
    Shape1: TShape;
    Label1: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    DBText1: TDBText;
    Timer1: TTimer;
    Button3: TButton;
    XPManifest1: TXPManifest;
    MainMenu1: TMainMenu;
    R1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    S1: TMenuItem;
    T1: TMenuItem;
    O1: TMenuItem;
    H1: TMenuItem;
    N3: TMenuItem;
    SpeedButton1: TSpeedButton;
    N4: TMenuItem;
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure O1Click(Sender: TObject);
    procedure S1Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

uses Unit2, Unit3, Unit6, Unit4, Unit1, Unit9;

{$R *.dfm}

procedure TForm5.Button2Click(Sender: TObject);
begin
form2.show;
form5.Close;
end;

procedure TForm5.Timer1Timer(Sender: TObject);
begin
statusbar1.Panels[2].Text:=timetostr(time);
end;

procedure TForm5.FormCreate(Sender: TObject);
begin
statusbar1.Panels[1].Text:=datetostr(now);
end;

procedure TForm5.Button1Click(Sender: TObject);
begin
if radiobutton1.Checked then
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.sql.Add('select * from 评委信息 where tno='''+trim(edit1.text)+'''');
adoquery1.Open;
end
 else 
if radiobutton2.Checked then
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.sql.Add('select * from 评委信息 where tname='''+trim(edit2.text)+'''');
adoquery1.Open;
end
else
showmessage('请做选择！');

end;

procedure TForm5.Button3Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.sql.Add('select * from 评委信息');
adoquery1.Open;
end;

procedure TForm5.N3Click(Sender: TObject);
begin
form3.show;
end;

procedure TForm5.O1Click(Sender: TObject);
begin
form6.show;
form5.Close;
end;

procedure TForm5.S1Click(Sender: TObject);
begin
form4.show;
form5.Close;
end;

procedure TForm5.N1Click(Sender: TObject);
begin
form1.show;
form1.Edit1.Clear;
form1.Edit2.Clear;
form5.Close;
end;

procedure TForm5.N2Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TForm5.SpeedButton1Click(Sender: TObject);
begin
form2.Show;
form5.Close;
end;

procedure TForm5.N4Click(Sender: TObject);
begin
form9.show;
end;

end.