password.~pas

毕业论文源码 毕业论文源码 毕业论文源码

unit PassWord;

interface

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

type
  TPasswdform = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    DataSource1: TDataSource;
    UserTable: TTable;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Passwdform: TPasswdform;

implementation

uses frmMain;

{$R *.dfm}

procedure TPasswdform.Button1Click(Sender: TObject);
var
    n :Integer;
    Y :boolean;
begin
    n := 0;
    Y := False;
    while Y do
    begin
        if edit1.Text <> MainForm.userPwd then
            MessageDlg('请输入正确的密码！',mtError,[mboK],0)
        else
            Y := True;
        n := n+1 ;
        if n = 3 then
        begin
            MessageDlg('连续输入错误密码3次！',mtError,[mboK],0);
            Exit;
        end;
    end;
    if edit2.Text <> edit3.Text then
        MessageDlg('请确认新密码是否一致！',mtError,[mboK],0);
    with UserTable do
    begin
        if Locate('Name', MainForm.userName, [loCaseInsensitive]) then
        begin
            Edit;
            FieldValues['Password'] := edit2.Text;
            Post;
        end;
    end;
    close;
end;

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

end.