useradminmodify.pas

来自「三層源碼,DELPHI寫的三層源碼,三層源碼,」· PAS 代码 · 共 102 行

unit useradminmodify;

interface

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

type
  Tuseradmin_modify = class(TForm)
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    xpButton1: TxpButton;
    procedure FormShow(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure xpButton1Click(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
  procedure clearedit;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  useradmin_modify: Tuseradmin_modify;

implementation

uses sldata,shareunit;

{$R *.DFM}

procedure Tuseradmin_modify.clearedit;
begin
edit2.text:='';
edit3.text:='';
end;

procedure Tuseradmin_modify.FormShow(Sender: TObject);
begin
edit1.text:=loginuser;
clearedit;
end;

procedure Tuseradmin_modify.FormPaint(Sender: TObject);
begin
sl_data.formonpaint(self);
end;

procedure Tuseradmin_modify.xpButton1Click(Sender: TObject);
var msg:string;
begin
if (edit2.text<>'') and (edit3.text<>'') then
 begin
  with tstringlist.create do
    try
    add(makeparams('tuid',loginuser));
    add(makeparams('oldpwd',md5encode(loginuser+edit2.text)));
    add(makeparams('newpwd',md5encode(loginuser+edit3.text)));
    msg:=text;
    finally
    free;
    end;
 if sl_data.user_model(private_change_passwd,msg) then
   begin
   showmessage('密码修改成功.');
   close;
   end else begin
   showmessage('密码修改失败.');
   clearedit;
   end;
 end else showmessage('请填写完整再提交.');
end;

procedure Tuseradmin_modify.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
If Key = #13 Then
  Begin
  If HiWord(GetKeyState(VK_SHIFT)) <> 0 then
     SelectNext(Sender as TWinControl,False,True)
  else
   SelectNext(Sender as TWinControl,True,True);
   Key := #0
  end;
end;

procedure Tuseradmin_modify.Edit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then xpbutton1.onClick(nil);
end;

end.