chgpwd.pas

地理资源的录入程序运用了api的一些知识

unit chgpwd;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, WinSkinStore, WinSkinData, ExtCtrls;

type
  Tchangpwd = class(TForm)
    bnOK: TBitBtn;
    bnCancel: TBitBtn;
    Panel1: TPanel;
    Label1: TLabel;
    old: TEdit;
    new: TEdit;
    new2: TEdit;
    StaticText1: TStaticText;
    StaticText3: TStaticText;
    StaticText2: TStaticText;
    Edit1: TEdit;
    procedure bnOKClick(Sender: TObject);
    procedure bnCancelClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  changpwd: Tchangpwd;

implementation

uses DataM, denglu;

{$R *.dfm}

procedure Tchangpwd.bnOKClick(Sender: TObject);
begin
  if trim(old.Text) = '' then //旧密码输入不能够为空
  begin
    ShowMessage('请输入旧密码!');
    old.SetFocus;
    exit;
  end;

  if trim(new.Text) = '' then //新密码输入不能够为空
  begin
    ShowMessage('请输入新密码!');
    new.SetFocus;
    exit;
  end;
  if trim(new2.Text) = '' then
  begin //验证新密码输入不能够为空
    ShowMessage('请验证新密码!');
    new2.SetFocus;
    exit;
  end;
  if new.Text <> new2.Text then
  begin //检验两次密码输入是否相同
    showmessage('修改中两次输入密码不相同，请验证新密码!');
    new2.SetFocus;
    exit;
  end;
  if DM.User.Locate('Z_yhmc', login.UserName.text, []) then
  begin
    if dm.User.FieldByName('Z_mm').Asstring <> trim(old.Text) then
   //检验是否输入的旧密码和新密码相同
    begin
      ShowMessage('原密码不对,请重新录入!');
      old.SetFocus;
    end
    else
    begin
      dm.User.Open;
      dm.User.Edit;
      dm.User.FieldByName('Z_mm').Asstring := new.Text;
      showmessage('修改成功，记好你的新密码!');
      //新密码提交
      dm.User.Post;
    end;
  end
  else ShowMessage('当前用户信息被破坏，请重新录入后再进行修改');
  close;
end;

procedure Tchangpwd.bnCancelClick(Sender: TObject);
begin
Self.Close; //关闭窗体
end;

procedure Tchangpwd.FormShow(Sender: TObject);
begin
edit1.Text :=login.UserName.Text;
old.Text:='' ;
new.Text :='';
new2.Text:='';

end;

end.