passwordunit.~pas

完整的ic卡管理软件

unit passwordUnit;

interface

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

type
  TpasswordForm = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinButton1: TbsSkinButton;
    bsSkinXFormButton1: TbsSkinXFormButton;
    bsSkinMaskEdit1: TbsSkinMaskEdit;
    bsSkinMaskEdit2: TbsSkinMaskEdit;
    bsSkinMaskEdit3: TbsSkinMaskEdit;
    bsSkinMessage1: TbsSkinMessage;
    procedure bsSkinXFormButton1Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  passwordForm: TpasswordForm;

implementation
uses
 datamodel,mainUnit;

{$R *.dfm}

procedure TpasswordForm.bsSkinXFormButton1Click(Sender: TObject);
begin
 close;
end;

procedure TpasswordForm.bsSkinButton1Click(Sender: TObject);
begin
     if  bsSkinMaskEdit3.Text='' then
       begin
          passwordform.bsSkinMessage1.MessageDlg('原密码不能为空!',mtError,[mbok],0);
           bsSkinMaskEdit3.SetFocus;
           exit;
       end;
     if bsSkinMaskEdit3.Text<>usepowd then
      begin
          passwordform.bsSkinMessage1.MessageDlg('原密码不正确!',mtError,[mbok],0);
           bsSkinMaskEdit1.SetFocus;
           exit;
      end;
     if bsSkinMaskEdit1.Text='' then
       begin
           passwordform.bsSkinMessage1.MessageDlg('新密码不能为空!',mtError,[mbok],0);
           bsSkinMaskEdit1.SetFocus;
           exit;
       end;
     if bsSkinMaskEdit2.Text<> bsSkinMaskEdit1.Text then
      begin
          passwordform.bsSkinMessage1.MessageDlg('密码不一致!',mtError,[mbok],0);
           bsSkinMaskEdit2.SetFocus;
           exit;
      end;
      with datamodule1.userQuery do
       begin
         close;
         sql.Clear;
         sql.Add('update userMIS set [password]=:a ' );
         sql.Add('where [userid]=:b');
         Parameters[0].Value:=bsSkinMaskEdit1.Text;
         Parameters[1].Value:=useName;
         ExecSQL;

       end;
       bsSkinMaskEdit3.Text:='';
       bsSkinMaskEdit1.Text:='';
       bsSkinMaskEdit2.Text:='';
      passwordform.bsSkinMessage1. MessageDlg('密码修改成功!',mtInFormation,[mbok],0);


end;

end.