frmupdatepwd.~pas

来自「一个小型餐饮管理系统,可支持小票打印.还存在一些小问题,希望朋友们帮助完成. 」· ~PAS 代码 · 共 71 行

unit FrmUpdatePwd;

interface

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

type
  Tfrm_UpdatePwd = class(TForm)
    Button1: TButton;
    Button2: TButton;
    RzGroupBox1: TRzGroupBox;
    Label3: TLabel;
    ed_old: TEdit;
    Label1: TLabel;
    ed_new1: TEdit;
    Label2: TLabel;
    ed_new2: TEdit;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    MyAdmin:Tadmin;
  public
    { Public declarations }
  end;

var
  frm_UpdatePwd: Tfrm_UpdatePwd;

implementation

uses FrmMain;

{$R *.dfm}

procedure Tfrm_UpdatePwd.Button2Click(Sender: TObject);
begin
 Close;
end;

procedure Tfrm_UpdatePwd.Button1Click(Sender: TObject);
begin
if  not MyAdmin.VerifyPwd(ed_old.Text,Frm_main.AdminID) Then
 begin
  ShowMessage('旧密码不正确~~');
  Exit;
 End;
 if Trim(ed_new1.Text)='' Then
 Begin
  Showmessage('密码不得为空~~~');
  Exit;
 End;
 if Trim(ed_new1.Text)=Trim(ed_new2.Text) Then
  Begin
  MyAdmin.UpdatePwd(ed_new1.Text, Frm_main.AdminID);
  Showmessage('密码修改成功');
  Close;
  end;

end;

procedure Tfrm_UpdatePwd.FormCreate(Sender: TObject);
begin
 MyAdmin:=Tadmin.Create;
end;

end.