modpw_unit.pas

来自「DELPHI 编写的人事管理系统,根据职工查询各种信息」· PAS 代码 · 共 93 行

unit ModPW_Unit;

interface

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

type
  TModPW_Form = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Image1: TImage;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    ADOQuery1: TADOQuery;
    ADOTable1: TADOTable;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ModPW_Form: TModPW_Form;

implementation
  uses Login_Unit,User_Unit;
{$R *.dfm}

procedure TModPW_Form.BitBtn2Click(Sender: TObject);
begin
    Self.Close;
end;

procedure TModPW_Form.BitBtn1Click(Sender: TObject);
var
  pass:String;
begin
    with Self.ADOQuery1 do
        begin
           Self.ADOQuery1.Close;
           Self.ADOQuery1.SQL.Clear;
           Self.ADOQuery1.SQL.Text:='select * from Login_Table where 用户名=:p';
           Self.ADOQuery1.Parameters.ParamByName('p').Value:=username;
           Self.ADOQuery1.Open;
           pass:=FieldByName('密码').AsString;  //取出旧密码
        end;

    if Self.Edit1.Text=pass then
      begin
       if Self.Edit2.Text<>Self.Edit3.Text then
          begin
             MessageDlg('两次输入密码不一致请重新输入！',mtInformation,[mbOk],0);
             Self.Edit3.Clear;
             Self.Edit2.Clear;
             Self.Edit2.SetFocus;
             Exit;
          end
       else
         begin
           with Self.ADOQuery1 do
             begin
               Self.ADOQuery1.Close;
               Self.ADOQuery1.SQL.Clear;
               Self.ADOQuery1.SQL.Text:='update Login_Table set 密码='+''''+trim(edit2.Text)+''''+'where 用户名=:p';
               Self.ADOQuery1.Parameters.ParamByName('p').Value:=username;
               Self.ADOQuery1.ExecSQL;
               MessageDlg('修改成功!',mtInformation,[mbOk],0);
               Self.Close;
             end;
         end;
      end
    else
       begin
          MessageDlg('原密码不正确!',mtInformation,[mbOk],0);
          Self.Edit1.Clear;
          Self.Edit3.Clear;
          Self.Edit2.Clear;
          Self.Edit1.SetFocus;
          Exit;
       end;
end;

end.