unitupdatepassword.pas

这是一个SQL的物资管理系统 这是一个SQL的物资管理系统

unit UnitUpdatePassword;

interface

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

type
  TFrmUpdatePassword = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    edtUserName: TEdit;
    edtOldPassword: TEdit;
    edtNewPassword: TEdit;
    edtQueryPassword: TEdit;
    btnPost: TButton;
    btnReflesh: TButton;
    ADOStoredProc1: TADOStoredProc;
    procedure btnPostClick(Sender: TObject);
    procedure btnRefleshClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmUpdatePassword: TFrmUpdatePassword;

implementation

uses UnitDM;

{$R *.dfm}

procedure TFrmUpdatePassword.btnPostClick(Sender: TObject);
var
  y:string;
begin
     if edtNewPassword.Text<>edtQueryPassword.Text then
     begin
       MessageBox(Handle,'两次密码输入不同，请重新输入','系统提示',MB_ICONASTERISK);
       edtNewPassword.Clear;
       edtQueryPassword.Clear;
       exit;
     end;


    ADOStoredProc1.Connection:=DataModule2.ADOConnection1;
    ADOStoredProc1.Close;
    ADOStoredProc1.ProcedureName:='UpdatePassword';
    ADOStoredProc1.Parameters.Refresh;
    ADOStoredProc1.Parameters.ParamByName('@username').Value:=self.edtUserName.Text;
    ADOStoredProc1.Parameters.ParamByName('@password').Value:=edtOldPassword.Text;
    ADOStoredProc1.Parameters.ParamByName('@newpassword').Value:=edtNewPassword.Text;
    ADOStoredProc1.Parameters.ParamByName('@str').Value:=y;
    ADOStoredProc1.ExecProc;
    y:=ADOStoredProc1.Parameters.ParamByName('@str').Value;
    if y='Wrong password!' then
     begin
     MessageBox(Handle,pchar(y), '系统提示', MB_ICONASTERISK);
      edtOldPassword.Clear;
      edtNewPassword.Clear;
      edtQueryPassword.Clear;
     exit;
     end
    else
     begin
      MessageBox(Handle,pchar(y), '系统提示', MB_ICONASTERISK);
      edtOldPassword.Clear;
      edtNewPassword.Clear;
      edtQueryPassword.Clear;
     end;


end;

procedure TFrmUpdatePassword.btnRefleshClick(Sender: TObject);
begin
  self.edtUserName.Text:='';
  self.edtOldPassword.Text:='';
  self.edtNewPassword.Text:='';
  self.edtQueryPassword.Text:='';
end;

end.