pfm_changepass.pas

来自「主要是介绍DELPHI三层应用以及分布式数据库的应用」· PAS 代码 · 共 88 行

unit pfm_changepass;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Db, DBTables,wxp_dm,unit_wxp, ADODB;

type
  Tfm_changepass = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label4: TLabel;
    Query1: TADOQuery;
    Label5: TLabel;
    Edit4: TEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fm_changepass: Tfm_changepass;

implementation

{$R *.DFM}

procedure Tfm_changepass.BitBtn1Click(Sender: TObject);
begin
    if edit1.text<>edit2.text then
    begin
        label4.caption:='前后输入的密码不一样，请重输';
        edit1.text:='';
        edit2.text:='';
        edit1.setfocus;
        exit;
    end;
    if length(edit1.text)<4 then
    begin
        label4.caption:='密码应为4～8位';
        edit1.text:='';
        edit2.text:='';
        edit1.setfocus;
        exit;
    end;

    query1.Close ;
    query1.SQL.Clear;
    query1.SQL.Add('select userpass from t_user where username='''+edit3.Text +'''' );
    query1.Active :=true;

    if query1.Fields.Fields[0].AsString <>edit4.Text then
    begin
        showmessage('原来的密码输入不正确');
        exit;
    end;

    query1.Close ; 
    query1.sql.clear;
    query1.sql.add('update t_user set userpass='''+edit1.text+''' where userid='+muserid);
    query1.ExecSQL;
    ModalResult:=MROK;

end;

procedure Tfm_changepass.BitBtn2Click(Sender: TObject);
begin
    ModalResult:=MRCancel;
end;

procedure Tfm_changepass.FormCreate(Sender: TObject);
begin
     edit3.text:=mUsername;
end;

end.