unit3.~pas

是用delphi与sql一块作的

unit Unit3;

interface

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

type
  Tczy = class(TForm)
    Panel2: TPanel;
    zh: TEdit;
    mm: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Timer1: TTimer;
    Timer2: TTimer;
    Label4: TLabel;
    Label5: TLabel;
    RadioGroup1: TRadioGroup;
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure zhKeyPress(Sender: TObject; var Key: Char);
    procedure mmKeyPress(Sender: TObject; var Key: Char);
    procedure mmChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  czy: Tczy;
 i:integer;
implementation

uses Unit5, Unit8;

{$R *.dfm}

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

procedure Tczy.Button2Click(Sender: TObject);
begin
zh.Clear;
mm.Clear;
end;
procedure Tczy.Timer1Timer(Sender: TObject);
begin
label5.Left:=label5.Left+6;
if label5.Left>=panel2.Width+label5.Width
then
begin
label4.Visible:=true;
label5.Visible:=false;
label4.Left:=panel2.Width+label4.Width-2;
timer2.Enabled:=true;
timer1.Enabled:=false;

end;
end;
procedure Tczy.FormCreate(Sender: TObject);
begin
label4.Left:=panel2.Width+label4.Width;
label5.Left:=-(label5.Width);
zh.Text:='';
mm.Text:='';
zh.MaxLength:=10;
zh.Enabled :=true;
mm.MaxLength :=6;
mm.Enabled :=false;
button1.enabled:=false;
radiogroup1.ItemIndex:=0;
end;

procedure Tczy.Timer2Timer(Sender: TObject);
begin
label4.Left:=label4.Left-6;
if
label4.Left<=0 then
begin
label5.Visible:=true;
label4.Visible:=false;
label5.Left:=-(label5.Width);
timer1.Enabled:=true;
timer2.Enabled:=false;
end;
end;
procedure Tczy.Button1Click(Sender: TObject);
begin
if
radiogroup1.Items.Strings[radiogroup1.ItemIndex]='修改'
then
begin
czb.show;
czy.Close;
zh.Text:='';
mm.Text:='';
end
else
form8.show;
czy.Close;
zh.Text:='';
mm.Text:='';
button1.Enabled:=false;
end;

procedure Tczy.zhKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
if zh.Text ='lzbhnjz' then
begin
showmessage('用户名正确，请输入密码！');
mm.Enabled :=true;
mm.SetFocus ;
end
else
begin
  showmessage('用户名错误。请重新输入！');
 zh.Text :='';
 zh.SetFocus ;
  end;
end;

procedure Tczy.mmKeyPress(Sender: TObject; var Key: Char);
begin
if not(key in ['0'..'9']) then
begin
  key:=#0;
  showmessage('密码必须为数字字符，请重新输入！');
mm.Text :='';
mm.SetFocus ;
  end;
end;

procedure Tczy.mmChange(Sender: TObject);
begin
if (length(mm.Text )=6) then
if (mm.Text ='123456') then
begin
  showmessage('密码正确，请继续！') ;
  button1.Enabled :=true ;
  end
  else
  begin
  i:=i+1;
  if i<3 then
  begin
    showmessage('密码错误，请重新输入！');
    mm.Text :='';
   mm.SetFocus ;
    end
    else
 begin
   showmessage('3次密码错误，将退出系统！');
   close;

   end;
end;
end;
end.