changepwd.pas

一个会员管理系统delphi源代码,非常好

unit changepwd;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxLookAndFeelPainters, StdCtrls, cxButtons, cxTextEdit, cxLabel,
  cxControls, cxContainer, cxEdit, cxGroupBox;

type
  Tfrmchangepwd = class(TForm)
    cxGroupBox1: TcxGroupBox;
    cxLabel1: TcxLabel;
    cxLabel2: TcxLabel;
    edt1: TcxTextEdit;
    edt2: TcxTextEdit;
    cxButton1: TcxButton;
    cxButton2: TcxButton;
    procedure cxButton1Click(Sender: TObject);
    procedure cxButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmchangepwd: Tfrmchangepwd;

implementation

uses md, main;

{$R *.dfm}

procedure Tfrmchangepwd.cxButton1Click(Sender: TObject);
begin
  if edt1.Text <> edt2.Text then
  begin
    ShowMessage('两次输入的密码不匹配，请重新输入。');
    edt1.SetFocus;
    exit;
  end;
  with Dm1.tblLoginUser do
  begin
    if not Active then
      open;
    First;
    while not eof do
    begin
      if Trim(FieldByName('mc').AsString) = frmMain.LoginUserName then
      begin
        Edit;
        FieldByName('pwd').AsString := edt1.Text;
        post;
        Break;
      end;
      next;
    end;
    close;
    MessageBox(0, '密码修改成功。', '提示', MB_OK + MB_ICONWARNING);
  end;
  close;
end;

procedure Tfrmchangepwd.cxButton2Click(Sender: TObject);
begin
  close;
end;

end.