passwd.pas

一个餐饮行业的销售管理类的源码

unit Passwd;

interface

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

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

var
  PasswdForm: TPasswdForm;

implementation

{$R *.dfm}

procedure TPasswdForm.Button1Click(Sender: TObject);
var
    n :Integer;
    Y :boolean;
begin
    n := 0;
    Y := False;
    while Y do
    begin
        if OldPwd.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 NewPwd.Text <> ConPwd.Text then
        MessageDlg('请确认新密码是否一致！',mtError,[mboK],0);
    with UserTable do
    begin
        if Locate('Name', MainForm.userName, [loCaseInsensitive]) then
        begin
            Edit;
            FieldValues['Password'] := NewPwd.Text;
            Post;
        end;
    end;
end;

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

end.