frmpassword.pas

被系统名叫生产信息管理系统

unit frmPassword;

interface

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

type
  TChangePasswordForm = class(TForm)
    imgUser: TImage;
    grbPassWordInfo: TGroupBox;
    lblUserName: TLabel;
    lblOldPassword: TLabel;
    txtOldPassWord: TEdit;
    lblNewPassword: TLabel;
    lblSurePassword: TLabel;
    txtNewPassWord: TEdit;
    txtSurePassWord: TEdit;
    cmdOk: TButton;
    cmdCancel: TButton;
    cboOperatorName: TComboBox;
    procedure cmdCancelClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cmdOkClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ChangePasswordForm: TChangePasswordForm;

implementation

uses Common, mdDataBases;

{$R *.dfm}

procedure TChangePasswordForm.cmdCancelClick(Sender: TObject);
begin
    ChangePasswordForm.Close;
end;

procedure TChangePasswordForm.FormCreate(Sender: TObject);
begin
    cboOperatorName.Items.AddStrings(GetFieldValue(dmDataSource.tblOperator,'OPERATOR_NAME'));
    cboOperatorName.Text:=cboOperatorName.Items[0];
end;

procedure TChangePasswordForm.cmdOkClick(Sender: TObject);
var
    strAPassword:string;
begin
    dmDataSource.tblOperator.DisableControls;
    dmDataSource.tblOperator.Locate('OPERATOR_NAME',cboOperatorName.Text,[loCaseInsensitive]);
    dmDataSource.tblOperator.EnableControls;
    strAPassword:=Base64Decode(Trim(dmDataSource.tblOperator['OPERATOR_PASSWORD']));
    if txtOldPassword.Text=strAPassword then
    begin
        if txtNewPassword.Text=txtSurePassword.Text then
        begin
            dmDataSource.tblOperator.Edit;
            dmDataSource.tblOperator['OPERATOR_PASSWORD']:=Base64Encode(txtNewPassword.Text);
            dmDataSource.tblOperator.Post;
            dmDataSource.tblOperator.ApplyUpdates;
            ChangePasswordForm.ModalResult:=mrOk;
        end
        else
        begin
            MessageBox(Application.Handle,'新密码与确认密码不相同,请重新输入','错误',16);
            txtNewPassword.Text:='';
            txtSurePassword.Text:='';
            txtNewPassword.SetFocus;
        end;
    end
    else
    begin
        MessageBox(Application.Handle,'您输入的旧密码不对,请重新输入','错误',16);
        txtOldPassword.Text:='';
        txtOldPassword.SetFocus;
    end;
end;

end.