changepass.~pas

来自「中国移动集群网销售资料录入管理系统。 包含集群网用户录入」· ~PAS 代码 · 共 59 行

unit changepass;

interface

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

type
  TFormChangePass = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Button1: TButton;
    Shape1: TShape;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormChangePass: TFormChangePass;

implementation
uses datamodule;
{$R *.dfm}

procedure TFormChangePass.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TFormChangePass.Button1Click(Sender: TObject);
var pass,sqlstr: string;
begin
  if (Trim(Edit2.Text) = Trim(Edit3.Text)) and (Trim(Edit2.Text)<>'') then begin
    pass := trim(DM.getrsstring('select Password from users where Username=''' + DM.oper_code + ''''));
    if pass = trim(Edit1.Text) then begin
      sqlstr:=Format('update [Users] set [Password]=''%s'' where [Username]=''%s''',[Trim(Edit2.Text),DM.oper_code]);
      DM.Conn.Execute(sqlstr);
      ShowMessage('密码已成功修改！');
    end
    else
      ShowMessage('原密码不正确，请重新输入！(注意区分大小写)');
  end
  else
    ShowMessage('两次输入的密码不同');
end;

end.