unit3.pas

来自「停车厂管理系统 麻雀虽小 但是五脏齐全」· PAS 代码 · 共 102 行

unit Unit3;

interface

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

type
  Tpassword = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    oldpassword: TEdit;
    newpassword: TEdit;
    newpassword1: TEdit;
    ADOQuery1: TADOQuery;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCanResize(Sender: TObject; var NewWidth,
      NewHeight: Integer; var Resize: Boolean);
    procedure newpasswordKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  password: Tpassword;

implementation

uses Unit1;

{$R *.dfm}

procedure Tpassword.BitBtn1Click(Sender: TObject);
begin   //对组件初始化
   newpassword.Clear;
   newpassword1.Clear;
   oldpassword.Clear;
end;

procedure Tpassword.BitBtn2Click(Sender: TObject);
begin  //修改用户密码
    if (trim(oldpassword.Text)<>'') and (trim(newpassword.Text)<>'') and (trim(newpassword.Text)<>'') then
      begin
        if trim(newpassword.Text)=trim(newpassword1.Text) then //判断两次新密码是否一至
           begin
              adoquery1.Close;
              adoquery1.SQL.Clear;
              adoquery1.SQL.Add('select opname,oppw from opration where opname=:opname and oppw=:oppw');
              adoquery1.Parameters.ParamByName('opname').value:=trim(user);
              adoquery1.Parameters.ParamByName('oppw').Value:=trim(oldpassword.Text);
              adoquery1.Open;
              if not adoquery1.IsEmpty then //判断输入的旧密码是否正确
                begin
                  adoquery1.Edit;
                  adoquery1.FieldByName('oppw').Value:=trim(newpassword.Text);
                  adoquery1.Post; //修改密码
                  showmessage('密码修改成功');
                  password.Close;
                end
              else
                begin
                showmessage('您输入的密码有误，请检查密码');
                oldpassword.SetFocus;
                end;
           end
        else
           begin
           showmessage('两输入的新密码不相同，请重新输入');
           newpassword.SetFocus;
           end ;
      end
    else
      begin
      showmessage('密码不能为空');
      oldpassword.SetFocus;
      end;
end;

procedure Tpassword.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
  resize:=false;
end;

procedure Tpassword.newpasswordKeyPress(Sender: TObject; var Key: Char);
begin
    if not(key in['0'..'9','a'..'z','A'..'Z',#008]) then
    begin
    showmessage('密码为数字，字母');
    key:=#0;
    end;
end;

end.