uchgpwd.pas

来自「可实现学生成绩管理系统的各种功能,无需登陆,直接查询学生的各种信息」· PAS 代码 · 共 82 行

unit uChgPwd;

interface

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

type
  TfrmChgPwd = class(TForm)
    GroupBox1: TGroupBox;
    LblOldPwd: TLabel;
    EdtOldPwd: TEdit;
    EdtNewPwd1: TEdit;
    LblNewPwd1: TLabel;
    LblNewPwd2: TLabel;
    EdtNewPwd2: TEdit;
    BtnOk: TButton;
    BtnCancel: TButton;
    procedure BtnOkClick(Sender: TObject);
    procedure BtnCancelClick(Sender: TObject);
  end;

var
  frmChgPwd: TfrmChgPwd;

implementation

{$R *.DFM}
uses  uDm, uPubProg ;

procedure TfrmChgPwd.BtnOkClick(Sender: TObject);
  var Pwdstr:string;
begin
  with DmSchool.AdoTabUser do
  begin
    Open;
   // FindKey([Operator]);
    if Locate('USERID', Operator, [loCaseInsensitive]) then
        Pwdstr := FieldByName('Password').AsString;
    Close;
  end;
  if not (Pwdstr = EdtOldPwd.Text) then
  begin
    Application.MessageBox('原密码输入不正确,请重新输入!',
      '错误信息',MB_OK+MB_ICONSTOP);
    ModalResult := mrNone;
    EdtOldPwd.SetFocus;
    Exit;
  end;

  if not (EdtNewPwd1.Text=EdtNewPwd2.Text) then
  begin
    Application.MessageBox('新密码和确认密码不同,请重输!',
      '错误信息',MB_OK+MB_ICONSTOP);
    ModalResult:=mrNone;
    Exit;
  end;
  with DmSchool.AdoTabUser do
  begin
    Open;
   // FindKey([Operator]);
    if Locate('USERID', Operator, [loCaseInsensitive]) then
      begin
        Edit;
        FieldByName('Password').AsString:=EdtNewPwd1.Text;
        Post;
      end;
    Close;
  end;
  Application.MessageBox('  密码更改成功! ',
    '提示信息',MB_OK+MB_ICONINFORMATION);
  ModalResult := mrOk;
end;

procedure TfrmChgPwd.BtnCancelClick(Sender: TObject);
begin
  ModalResult := mrCancel;
end;

end.