unit2.pas

是用delphi与sql一块作的

unit Unit2;

interface

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

type
  Tyh = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    zh: TEdit;
    mm: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    ADOQuery1: TADOQuery;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Timer1: TTimer;
    Timer2: TTimer;
    ADOConnection1: TADOConnection;
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  yh: Tyh;

implementation

uses Unit4, Unit1;

{$R *.dfm}

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

procedure Tyh.Button2Click(Sender: TObject);
begin
zh.Clear;
mm.Clear;
end;

procedure Tyh.Button1Click(Sender: TObject);
var
i:string;
begin
adoquery1.SQL.Clear;
i:='select * from 用户信息 where(系统用户名='''+zh.Text+''')and(登录口令='''+mm.Text+''')';
adoquery1.SQL.Add(i);
adoquery1.open;
if adoquery1.RecordCount<>0 then
begin
yh.Close;
yhb.show;
end
else
showmessage('密码帐号不一致，无法登录！');
end;

procedure Tyh.Timer1Timer(Sender: TObject);
begin
sleep(1);
timer2.Enabled:=true;
timer1.Enabled:=false;
label6.Visible:=true;
label5.Visible:=false;
end;
procedure Tyh.Timer2Timer(Sender: TObject);
begin
sleep(1);
timer1.Enabled:=true;
timer2.Enabled:=false;
label5.Visible:=true;
label6.Visible:=false;
end;
procedure Tyh.FormShow(Sender: TObject);
begin
timer2.Enabled:=true;
label6.Visible:=true;
label5.Visible:=false;
zh.Text:='请输入帐号';
mm.Text:='请输入密码';
end;

end.