u_pwdchg.pas

这是一个60吨地磅称量系统

unit u_pwdchg;

interface

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

type
  Tf_pwdchg = class(TForm)
    Label2: TLabel;
    BtnOK: TButton;
    BtnExit: TButton;
    Edit2:Tedit;
    tanpel1: TPanel;
    procedure FormShow(Sender: TObject);
    procedure BtnExitClick(Sender: TObject);
    procedure BtnOKClick(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_pwdchg: Tf_pwdchg;
  OldKeyin: String;
implementation

uses u_pwdset, u_pass;

{$R *.DFM}

procedure Tf_pwdchg.FormShow(Sender: TObject);
begin
  Edit2.Text:='';
  Edit2.SetFocus;
  OldKeyin:='';
end;

procedure Tf_pwdchg.BtnExitClick(Sender: TObject);
begin
close;
end;

procedure Tf_pwdchg.BtnOKClick(Sender: TObject);
begin
 Label2.caption:='请输入新密码';
Edit2.SetFocus;
  if OldKeyin='' then
  begin
    OldKeyin:=Edit2.Text;
    Label2.Caption:='再输入一次密码';
    Edit2.Text:='';
    Exit;

  end;

  if Edit2.Text<>OldKeyin then
  begin
    OldKeyin:='';
    Edit2.text:='';
    MessageDlg('两次密码不同，请重新输入。',mtError,[mbOk],0);
    Exit;

  end;

  F_PWDSET.Table1.TableName:='C:\WINDOWS\SYSTEM\'+'PASSWORD.DBF';
  with F_PWDSET.Table1 do
  begin
    Open;
    First;
   // MoveBy(F_PASS.RecIndex-1);
    Edit;
    FieldByName('PASSWORD').asString:=Edit2.Text;
    Post;
    Close;
  end;
  BtnExitClick(Sender);
end;

procedure Tf_pwdchg.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
 if Key=chr(13) then BtnOKClick(Sender);
end;

end.