changepas.pas

集成酒店桑拿食管管理的完整程序

unit changepas;

interface

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

type
  Tchangepass = class(TForm)
    Label1: TLabel;
    oldpass: TMaskEdit;
    Label2: TLabel;
    newpass1: TMaskEdit;
    Label3: TLabel;
    newpass2: TMaskEdit;
    Bevel1: TBevel;
    Button1: TButton;
    Button2: TButton;
    Q1: TQuery;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure oldpassExit(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  changepass: Tchangepass;

implementation
uses dataproc;
{$R *.DFM}

procedure Tchangepass.Button1Click(Sender: TObject);
begin
   if trim(newpass1.text) <> trim(newpass2.text) then
      begin
      newpass2.SetFocus ;
      exit;
      end;
   q1.Active :=false;
   q1.sql.clear;
   q1.sql.add('update stuff set pass=:ppass where code=:pcode');
   q1.ParamByName ('ppass').asstring:=passzh(trim(newpass2.text));
   q1.ParamByName ('pcode').asstring:=trim(curper.code);
   q1.Prepare;
   q1.execsql;
   showmessage('口令更改成功');
   close;
end;

procedure Tchangepass.Button2Click(Sender: TObject);
begin
  changepass.close;
end;

procedure Tchangepass.oldpassExit(Sender: TObject);
var
  aa:array [0..1] of string;
begin
  if activecontrol=Button2 then exit;
  getvalue(aa,'select code,pass from stuff where code='''+curper.code+'''');
  if trim(aa[1])<>passzh(trim(oldpass.text)) then
     oldpass.setfocus;
end;

procedure Tchangepass.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=112 then
   begin
     if xt=1 then help(17);
     if xt=0 then help(23);
   end;
  if key=13 then
     selectnext(activecontrol,true,true);
  if key=27 then
     changepass.close;
end;

procedure Tchangepass.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   q1.Free;
end;

end.