pfm_changepass.pas

来自「超市的销售」· PAS 代码 · 共 67 行

unit pfm_changepass;

interface

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

type
  Tfm_changepass = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label4: TLabel;
    Query1: TQuery;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(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.sql.clear;
    query1.sql.add('update t_user set userpass='''+edit1.text+''' where userid='+muserid);
    query1.ExecSQL;
    ModalResult:=MROK;
    AddOptRecord('修改密码');
end;

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

end.