uchangepwd.pas

这是一个三层的进销存系统

unit uchangepwd;

interface

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

type
  Tfrmchangepwd = class(TfrmBase)
    Label1: TLabel;
    labeluser: TLabel;
    GroupBox1: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    btnok: TButton;
    btncancel: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btncancelClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btnokClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmchangepwd: Tfrmchangepwd;

implementation

uses Global;

{$R *.dfm}

procedure Tfrmchangepwd.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  frmchangepwd:=nil;
end;

procedure Tfrmchangepwd.btncancelClick(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure Tfrmchangepwd.FormCreate(Sender: TObject);
begin
  inherited;
  labeluser.Caption:=gs_username;
end;

procedure Tfrmchangepwd.btnokClick(Sender: TObject);
var
  cmdStr:string;
begin
  inherited;
  if Trim(edit1.Text)<>Trim(gs_password) then
    begin
      messagedlg('旧口令不正确 ',mtError,[mbok],0);
      edit1.SetFocus;
      exit;
    end;

  if Trim(edit2.Text)<>Trim(edit3.Text) then
    begin
      messagedlg('确认新密码不正确 ',mtError,[mbok],0);
      edit3.SetFocus;
      exit;
    end;

  cmdStr:='Update tuser set fpassword='+vartosql(edit3.Text)+
                    ' Where fusercode='+vartosql(gs_usercode);
  if Execsql(cmdStr) then
    begin
      messagedlg('密码修改成功 , 请记住新密码 ! ',mtWarning,[mbok],0);
      Close;
    end;
end;

end.