unit passedit;

interface

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

type
  TF_passedit = class(TForm)
    e_oldpass: TEdit;
    e_newpass: TEdit;
    e_passok: TEdit;
    Label2: TLabel;
    Label1: TLabel;
    Label3: TLabel;
    B_ok: TBitBtn;
    B_exit: TBitBtn;
    DataSource1: TDataSource;
    procedure B_okClick(Sender: TObject);
    procedure B_exitClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }

  public
    { Public declarations }
   
  end;

var
  F_passedit: TF_passedit;

implementation
uses datam, login;

{$R *.dfm}

procedure TF_passedit.B_okClick(Sender: TObject);
var
  kl:variant;
  pass,zzyname:string;
begin
 zzyname:=F_login.e_czy.Text;
 dm.ADO_user.Open;
 kl:=dm.ado_user.lookup('操作員',zzyname,'口令');
  if varisnull(kl) then pass:='' else pass:=kl;
  if e_oldpass.text<>pass then
    begin
     application.messagebox(pchar('原密碼錄入錯，請重新錄入！'),pchar('提示')
     ,MB_ICONEXCLAMATION);
     e_oldpass.text:='';
     e_oldpass.SetFocus();
     exit;
    end;
  if e_newpass.text<>e_passok.Text then
    begin
     application.messagebox(pchar('新密碼與確認密碼不一致，請重新錄入！')
     ,pchar('提示'),0+MB_ICONEXCLAMATION);
     e_newpass.text:='';
     e_passok.text:='';
     e_newpass.SetFocus();
     exit;
    end;
  dm.ado_user.Locate('操作員',zzyname,[]);
  dm.ado_user.Edit;
  dm.ado_user.FieldByName('口令').asstring:=e_newpass.text;
  dm.ado_user.post;
  application.messagebox(pchar('密碼修改成功！'),pchar('提示')
  ,MB_ICONINFORMATION);
    close;
end;

procedure TF_passedit.B_exitClick(Sender: TObject);
begin
 close;
end;

procedure TF_passedit.FormActivate(Sender: TObject);
begin
e_oldpass.SetFocus();
end;

procedure TF_passedit.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  dm.ADO_user.Close;
  release;
end;

procedure TF_passedit.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
   begin
    key:=#0;
    perform(wm_nextdlgctl,0,0);
   end;
end;

end.