password.pas

这个是用delphi8开发的小区物业管理系统

unit password;

interface

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

type
  Tpassword_Form = class(TForm)
    omm_LEdit: TLabeledEdit;
    nmm_LEdit: TLabeledEdit;
    qmm_LEdit: TLabeledEdit;
    cmdok: TButton;
    cmdclose: TButton;
    procedure omm_LEditKeyPress(Sender: TObject; var Key: Char);
    procedure nmm_LEditKeyPress(Sender: TObject; var Key: Char);
    procedure qmm_LEditKeyPress(Sender: TObject; var Key: Char);
    procedure cmdokClick(Sender: TObject);
    procedure cmdcloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  password_Form: Tpassword_Form;

implementation

uses main;

{$R *.dfm}

procedure Tpassword_Form.omm_LEditKeyPress(Sender: TObject;
  var Key: Char);
begin
    if key = #13 then
        nmm_ledit.SetFocus;
end;

procedure Tpassword_Form.nmm_LEditKeyPress(Sender: TObject;
  var Key: Char);
begin
    if key = #13 then
        qmm_ledit.SetFocus;
end;

procedure Tpassword_Form.qmm_LEditKeyPress(Sender: TObject;
  var Key: Char);
begin
    if key = #13 then
        cmdok.Click;
end;

procedure Tpassword_Form.cmdokClick(Sender: TObject);
var
    yhm,oldpass,newpass,qrpass,sqlstr:string;
begin
    yhm:=trim(mainform.StatusBar1.Panels[0].Text);
    oldpass:=trim(omm_ledit.Text);
    newpass:=trim(nmm_ledit.Text);
    if length(newpass)<3 then
    begin
        showmessage('密码由3--20个字符组成！！');
        exit;
    end;
    qrpass:=trim(qmm_ledit.Text);
    if length(qrpass)<3 then
    begin
        showmessage('密码由3--20个字符组成！！');
        exit;
    end;
    if (newpass <> qrpass) then
    begin
        showmessage('确认密码不相同，请确认！！');
        exit;
    end;
    sqlstr:='select * from user where (name='''+yhm+''') and (passwd='''+oldpass+''')';
    with tquery.Create(nil) do
    begin
        try
        SQL.Clear;
        SessionName:=MainForm.Database1.SessionName;
        DatabaseName:=MainForm.Database1.DatabaseName;
        SQL.Add(sqlstr);
        Open;
        if  recordcount < 1 then
        begin
            showmessage('原密码错误，你不能修改--'+yhm+'--用户的密码！！！');
            exit;
        end;
        sqlstr:='update user set passwd='''+newpass+''' where (name='''+yhm+''')';
        SQL.Clear;
        SQL.Add(sqlstr);
        ExecSQL;
        finally
        Free;
        end;
    end;
    showmessage('密码修改成功！');
    Close;
end;

procedure Tpassword_Form.cmdcloseClick(Sender: TObject);
begin
    Close;
    mainForm.N12.Enabled:=true;
end;

end.