p_ggmm.pas

超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统

unit p_ggmm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls,p_mc;
type
  Tf_ggmm = class(Tf_mc)
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit3: TEdit;
    Edit2: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_ggmm: Tf_ggmm;
implementation
uses p_dm,p_password,p_gl;

{$R *.dfm}

procedure Tf_ggmm.FormCreate(Sender: TObject);
begin
  f_ggmm.ShowModal;
end;

procedure Tf_ggmm.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure Tf_ggmm.BitBtn1Click(Sender: TObject);
begin
with dm do
begin
    if (trim(edit2.Text)='')or(trim(edit3.Text)='') then
    begin
      application.MessageBox('密码不能为空！','提示',mb_ok+mb_iconstop);
      exit;
    end;
    t_user.Open;
    t_user.Filter:='name='''+user_name+'''';
    t_user.Filtered:=true;
    if trim(edit1.Text)=f_gl.jiemi(t_user['password'],123) then  //旧密码是否正确
       begin
          if edit2.Text=edit3.Text then  //两次输入的新密码是不正确
            begin
                t_user.Edit;
                t_user['password']:=f_gl.jiami(edit2.Text,123);
                t_user.Post;
                application.MessageBox('密码修改成功，请记住新密码!','信息',mb_ok+mb_iconinformation);
                close;
            end
          else    //两次输入新密码不正确时
            begin
               application.MessageBox('两次输入的新密码有误，请重新输入！','错误',mb_ok+mb_iconinformation);
               edit2.Text:='';
               edit3.Text:='';
               edit2.SetFocus;
            end;
       end
    else  //旧密码不正确时
       begin
          application.MessageBox('旧密码不正确，请重新输入！','错误',mb_ok+mb_iconinformation);
          edit1.Text:='';
          edit1.SetFocus;
       end;
    t_user.Filtered:=false;
    t_user.Close;
end;  //with dm do 语句完成
end;

procedure Tf_ggmm.FormKeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  IF KEY=#13 THEN
  BEGIN
    KEY:=#0;
    perform(wm_nextdlgctl,0,0);
  END;
end;

end.