unit4.pas

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

unit Unit4;

interface

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

type
  TForm4 = class(TForm)
    Panel1: TPanel;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Panel3: TPanel;
    DBGrid1: TDBGrid;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    Shape1: TShape;
    DBText1: TDBText;
    DBMemo1: TDBMemo;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DBNavigator1: TDBNavigator;
    StatusBar1: TStatusBar;
    Panel2: TPanel;
    Timer1: TTimer;
    GroupBox1: TGroupBox;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Label5: TLabel;
    Edit2: TEdit;
    Label6: TLabel;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Label7: TLabel;
    DBEdit5: TDBEdit;
    XPManifest1: TXPManifest;
    Button2: TButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    S1: TMenuItem;
    T1: TMenuItem;
    O1: TMenuItem;
    H1: TMenuItem;
    N4: TMenuItem;
    Label8: TLabel;
    SpeedButton1: TSpeedButton;
    N5: TMenuItem;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure O1Click(Sender: TObject);
    procedure T1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

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

{$R *.dfm}

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

procedure TForm4.FormCreate(Sender: TObject);
begin
 
 statusbar1.panels[1].text:='日期:'+datetostr(now);
end;

procedure TForm4.BitBtn2Click(Sender: TObject);
begin
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('select * from 歌手信息 where '+combobox1.text+'='''+trim(edit1.text)+'''');
adoquery1.open;
end;

procedure TForm4.BitBtn3Click(Sender: TObject);
begin
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('select * from 歌手信息 where song='''+trim(edit2.text)+'''');
adoquery1.Open;
end;

procedure TForm4.Button1Click(Sender: TObject);
begin
form2.show;
form4.Close;
end;

procedure TForm4.Button2Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.sql.Add('select * from 歌手信息 ');
adoquery1.Open;
end;

procedure TForm4.N4Click(Sender: TObject);
begin
form3.show;
end;

procedure TForm4.O1Click(Sender: TObject);
begin
form6.show;
form4.Close;
end;

procedure TForm4.T1Click(Sender: TObject);
begin
form5.show;
form4.Close;
end;

procedure TForm4.N2Click(Sender: TObject);
begin
form1.show;
form1.Edit1.Clear;
form1.Edit2.Clear;
form4.Close;
end;

procedure TForm4.N3Click(Sender: TObject);
begin
application.Terminate;
end;

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

procedure TForm4.N5Click(Sender: TObject);
begin
form9.show;
end;

end.