uchangepass.pas

来自「DELPHI做的制衣厂管理系统,功能完善,可能马上使用,SQL2000数据库」· PAS 代码 · 共 80 行

unit uChangePass;

interface

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

type
  TfrmChangePass = class(TForm)
    Panel1: TPanel;
    Bevel1: TBevel;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    LabeledEdit3: TLabeledEdit;
    Bevel2: TBevel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Shape1: TShape;
    Label1: TLabel;
    Image1: TImage;
    procedure LabeledEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
     procedure nextcontrol(sender: Tobject; var key: word;
        shift: TShiftState);
    { Private declarations }
  public
    { Public declarations }
  end;


implementation
uses
   uGlobal, uMain, Upublic;

{$R *.dfm}

{ Tf_changePass }

procedure TfrmChangePass.nextcontrol(sender: Tobject; var key: word;
  shift: TShiftState);
begin
   if (key=vk_down)or(key=13) then
      SelectNext(ActiveControl,True,True);
   if key=vk_up then
      SelectNext(ActiveControl,false,True);
   key:=0;
end;

procedure TfrmChangePass.LabeledEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   nextcontrol(Sender,key,shift);
end;

procedure TfrmChangePass.SpeedButton2Click(Sender: TObject);
begin
   close;
end;

procedure TfrmChangePass.SpeedButton1Click(Sender: TObject);
begin
   if labeledEdit2.Text <> labeledEdit3.Text then begin
      infoWnd('新密码和验证的密码必须相同！');
      exit;
      labeledEdit2.SetFocus;
   end;
   IF frmMain.DCOMCn.AppServer.IUpChangePass(codeUser,labeledEdit1.Text,labeledEdit2.Text) = 1 THEN Begin
      labeledEdit1.Text := '';
      labeledEdit2.Text := '';
      labeledEdit3.Text := '';
      infoWnd('密码修改成功，请记牢你的密码！');
   end;
end;

end.