umodifypsw.pas

来自「个人理财系统可以添加」· PAS 代码 · 共 74 行

unit umodifypsw;

interface

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

type
  Tmodifypsw = class(TForm)
    Panel1: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Query1: TQuery;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  modifypsw: Tmodifypsw;

implementation
    uses unit1;
{$R *.dfm}

procedure Tmodifypsw.Button2Click(Sender: TObject);
begin
   close;
end;

procedure Tmodifypsw.Button1Click(Sender: TObject);
begin
  query1.DatabaseName:=sysutils.GetCurrentDir+'\database';
  query1.Close;
  query1.SQL.Clear;
  query1.SQL.Add('select * from mima.db where Name=:username and psw=:ps');
  query1.Params[0].AsString:=username;
  query1.Params[1].AsString:=edit1.Text;
  query1.RequestLive:=true;
  query1.Open;
  if(not query1.Eof)then
   begin
     if((edit2.Text=edit3.Text)and (edit2.Text<>''))then
        begin
           query1.Edit;
           query1.FieldByName('psw').AsString:=edit2.Text;
           showmessage('密码更改成功');
           query1.Post;
           modifypsw.Close;
        end
      else showmessage('两次输入的新密码不一致或新密码不能为空');
   end
  else showmessage('密码更改失败');
end;

procedure Tmodifypsw.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
   if(key=#13)then
    button1click(sender);
end;

end.