upassword.~pas

商场销售信息系统只要用于小商场的销售管理

unit UPassword;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BusinessSkinForm, StdCtrls, bsSkinCtrls, Mask, bsSkinBoxCtrls;

type
  TfrmChangePassword = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    edtOldPwd: TbsSkinEdit;
    edtNewPwd: TbsSkinEdit;
    bsSkinStdLabel1: TbsSkinStdLabel;
    edtNewPwd1: TbsSkinEdit;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmChangePassword: TfrmChangePassword;

implementation
uses upublic,comobj,umain;
{$R *.dfm}

procedure TfrmChangePassword.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
action:=cafree;
frmChangePassword:=nil;
end;

procedure TfrmChangePassword.bsSkinButton2Click(Sender: TObject);
begin
close;
end;


//确定按钮
procedure TfrmChangePassword.bsSkinButton1Click(Sender: TObject);
var
newpwd:string;
sqlstr:string;
begin
if trim(edtoldpwd.Text)='' then exit;
if trim(edtoldpwd.Text)<>userinfoa.Password then
begin
  frmmain.bsmessage.MessageDlg('密码错误!',mtInformation,[mbok],0);
  exit;
end;

if trim(edtnewpwd.Text)<>trim(edtnewpwd1.Text) then
begin
  frmmain.bsmessage.MessageDlg('两次密码不对,请重新输入!',mtInformation,[mbok],0);
  edtnewpwd.Text:='';
  edtnewpwd1.Text:='';
  edtnewpwd.SetFocus;
  exit;
end;

if (trim(edtnewpwd.Text)='') or (trim(edtnewpwd1.Text)='') then exit;
newpwd:=trim(edtnewpwd.Text);
sqlstr:='update tuser set Password='+yinhao+newpwd+yinhao+ 'where userid='+inttostr(userinfoa.userid);
conn.execute(sqlstr);
frmmain.bsmessage.MessageDlg('密码修改成功!',mtInformation,[mbok],0);
close;
end;

end.