unit3.pas

毕业设计

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Db, DBTables,unit2;

type
  TForm3 = class(TForm)
    Panel1: TPanel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Splitter1: TSplitter;
    Panel2: TPanel;
    Button1: TButton;
    Button2: TButton;
    Table1: TTable;
    Label1: TLabel;
    procedure FormShow(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.DFM}

procedure TForm3.FormShow(Sender: TObject);
begin
 edit1.Text:='';
 edit2.Text:='';
 edit3.Text:='';
 button1.Enabled :=false;
end;

procedure TForm3.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
        if edit1.Text=mima then
          edit2.SetFocus
         else
          begin
           application.MessageBox (pchar('密码错误！请您再次输入！'),pchar('密码'),mb_ok+32);
           edit1.Clear;
           edit1.SetFocus ;
          end
    end;
end;

procedure TForm3.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
      if edit2.Text='' then
       begin
        edit2.SetFocus ;
        showmessage('请您输入数据！') ;
       end
      else
       begin
        edit3.Visible :=true;
        edit3.SetFocus ;
       end ;
    end;
end;

procedure TForm3.Edit3KeyPress(Sender: TObject; var Key: Char);
 begin
 if key=#13 then
   begin
     if edit3.Text=edit2.Text  then
       begin
        button1.Enabled :=true;
       end
    else
       begin
          showmessage('确认密码错误！');
          edit3.text:='';
          edit3.SetFocus ;
       end;
   end;
 end;
procedure TForm3.Button1Click(Sender: TObject);
 begin
   table1.close;
   table1.Open;
   if table1.locate('姓名',user,[loCaseInsensitive]) then
     if  table1.FieldByName ('密码').asstring=mima  then
    begin
     table1.edit;
     table1.fieldbyname('密码').asstring:=edit2.text;
     table1.post ;
     application.MessageBox (pchar('密码更改成功！'),pchar('密码'),mb_ok+32);
     form3.close;
    end;
 end;
procedure TForm3.Button2Click(Sender: TObject);
begin
 close;
end;

end.