chgpsfrom.pas

家庭理财系统.rar

unit ChgPsFrom;

interface

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

type
  TChgPs = class(TForm)
    GroupBox1: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    cur_user: TLabel;
    Label3: TLabel;
    flag: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ChgPs: TChgPs;

implementation

uses LoginForm, DMForm;

{$R *.dfm}

procedure TChgPs.Button2Click(Sender: TObject);
begin
  postmessage(handle,wm_close,0,0);
end;

procedure TChgPs.FormCreate(Sender: TObject);
begin
  cur_user.Caption := login.user ;
  if login.admin = true then
    flag.Caption := '管理员  '
  else
    flag.Caption := '普通用户  '
end;

procedure TChgPs.Button1Click(Sender: TObject);
begin
  if edit1.Text = '' then
    messagebox(getactivewindow(),'请输入当前用户的密码！','原始密码为空' ,MB_OK + MB_ICONINFORMATION)
  else if edit2.Text = '' then
    messagebox(getactivewindow(),'新密码不能为空,请输入新的密码！','新密码为空' ,MB_OK + MB_ICONINFORMATION)
  else if edit3.Text = '' then
    messagebox(getactivewindow(),'请输入确认密码！','确认密码为空' ,MB_OK + MB_ICONINFORMATION)
  else if edit2.Text <> edit3.Text then
    messagebox(getactivewindow(),'两次输入的密码密码不一致,请重新输入！','密码错误' ,MB_OK + MB_ICONINFORMATION)
  else
    begin
      dm.User.Close;
      dm.User.SQL.Clear;
      dm.User.SQL.Add('select 密码 from admin where 用户名 =:user');
      dm.User.Parameters.ParamByName('user').Value := login.user ;
      dm.User.Prepared;
      dm.User.ExecSQL;
      dm.User.Open;
      if edit1.Text <> dm.User.FieldValues['密码'] then
        messagebox(getactivewindow(),'原来的密码错误,请重新输入原来的密码！','密码错误' ,MB_OK + MB_ICONINFORMATION)
      else
        begin
          dm.User.Close;
          dm.User.SQL.Clear;
          dm.User.SQL.Add('update admin set 密码 =:passwd where 用户名 =:user');
          dm.User.Parameters.ParamByName('passwd').Value := edit3.Text;
          dm.User.Parameters.ParamByName('user').Value := login.user;
          dm.User.Prepared;
          dm.User.ExecSQL;
          messagebox(getactivewindow(),'密码修改成功,请单击确定返回！','修改成功' ,MB_OK + MB_ICONINFORMATION);
          postmessage(handle,wm_close,0,0);
        end;
    end;

end;

end.