unit9.pas

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

unit Unit9;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls;

type
  TForm9 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Button1: TButton;
    ADOQuery1: TADOQuery;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form9: TForm9;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm9.Button1Click(Sender: TObject);
begin
FORM9.CLOSE;
end;

procedure TForm9.FormShow(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.clear;
adoquery1.SQL.Add ('select passname,sex,Email,QQ from 系统登录 where passname='''+trim(form1.edit1.text)+'''');
adoquery1.open;
try
   label5.caption:=adoquery1.fieldvalues['passname'];
   if adoquery1.fieldvalues['sex']<>'' then
   begin
   label6.caption:=adoquery1.fieldvalues['sex'];
   end;
   if adoquery1.fieldvalues['Email']<>'' then
   begin
   label7.caption:=adoquery1.fieldvalues['Email'];
   end;
   if adoquery1.fieldvalues['QQ']<>'' then
   begin
   label8.caption:=adoquery1.fieldvalues['QQ'];
   end;
except
   label5.caption:='空';
   label6.caption:='空';
   label7.caption:='空';
   label8.caption:='空';
end;
end;
end.