f_changepassword.pas

来自「一个仓库管理中的子系统－－采购子系统」· PAS 代码 · 共 79 行

unit f_changepassword;

interface

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

type
  Tfrm_changepassword = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Image1: TImage;
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_changepassword: Tfrm_changepassword;

implementation

{$R *.DFM}
uses datamodule,u_tools_leo,f_checkpassword_leo;
var
  newzh,newkl:string;

procedure Tfrm_changepassword.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure Tfrm_changepassword.BitBtn1Click(Sender: TObject);
begin
if label1.caption='输入新帐号：' then
  begin
  newzh:=edit1.text;
  newkl:=edit2.text;
  label1.caption:='确认新帐号：';
  label2.caption:='确认新口令：';
  edit1.text:='';
  edit2.text:='';
  edit1.setfocus;
  exit;
  end;
if   label1.caption='确认新帐号：' then
  begin
  try
    if (edit1.text<>newzh) or (edit2.text<>newkl) then raise exception.Create('');
    openquery(DataModule1.query3,'SELECT COUNT(*) FROM e_mmb WHERE ZH='+''''+NEWZH+'''','open');
    if DataModule1.query3.fields[0].asinteger<>0 then raise exception.Create('');
  except
     application.MessageBox('帐号或口令输入错误或已存在，请重新输入。','输入错误',mb_ok+mb_iconerror);
     label1.caption:='输入新帐号：';
     label2.caption:='输入新口令：';
     edit1.text:='';
     edit2.text:='';
     edit1.setfocus;
     exit;
  end;
  openquery(DataModule1.query3,'UPDATE e_mmb SET ZH='+''''+NEWZH+''''+',pwd='+''''+NEWKL+'''' +' WHERE ZH='+''''+frm_checkpassword_leo.EDIT1.TEXT+'''','execsql');
  frm_checkpassword_leo.EDIT1.text:='';
  frm_checkpassword_leo.EDIT2.text:='';
  frm_checkpassword_leo.EDIT1.setfocus;
  close;
  end;
end;

end.