ICode9

精准搜索请尝试: 精确搜索
首页 > 其他分享> 文章详细

Delphi(Pascal) 密码修改

2022-02-10 08:31:47  阅读:150  来源: 互联网

标签:begin end edt3 Text Delphi edt4 密码 Pascal qryDoQuery1


unit PasswordChange;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ADODB, DB, Public_Function, login,Public_Variable;

type
  TForm_PasswordChange = class(TForm)
    grp1: TGroupBox;
    edt2: TEdit;
    edt3: TEdit;
    edt4: TEdit;
    lbl2: TLabel;
    lbl3: TLabel;
    lbl4: TLabel;
    btnAlter: TButton;
    btnclear: TButton;
    btnclose: TButton;
    qryDoQuery1: TADOQuery;
    dsDoDataSet1: TADODataSet;
    procedure btncloseClick(Sender: TObject);
    procedure btnAlterClick(Sender: TObject);
    procedure btnclearClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_PasswordChange: TForm_PasswordChange;

implementation

{$R *.dfm}

procedure TForm_PasswordChange.btnAlterClick(Sender: TObject);
begin
{edt2 : 旧密码
edt3 : 新密码
edt4 : 确认密码}
(*edt2 : 旧密码
edt3 : 新密码
edt4 : 确认密码*)
if edt2.Text='' then 
begin application.MessageBox('旧密码不能为空','提示',mb_ok+mb_iconinformation);
Exit;
end else if edt3.Text='' then

begin application.MessageBox('新密码不能为空','提示',mb_ok+mb_iconinformation); Exit; end

else if edt4.Text='' then begin application.MessageBox('新密码不能为空','提示',mb_ok+mb_iconinformation); exit; end

else if edt3.Text<>edt4.text then begin application.MessageBox('新密码输入两次不一致','提示',mb_ok+mb_iconinformation); exit;

end; if(Trim(edt3.Text)=Trim(edt4.Text)) and (edt3.Text<>'') and (edt4.Text<>'') then

begin qryDoQuery1.Close; qryDoQuery1.Prepared;
qryDoQuery1.sql.clear; qryDoQuery1.SQL.Add(' select User_ID from Sys_users where User_ID= '''+ Current_user_ID +'''' );
qryDoQuery1.Open; if qryDoQuery1.RecordCount>0 then begin if qryDoQuery1.Fields[0].AsString=Current_user_ID then

begin qryDoQuery1.Close; qryDoQuery1.Prepared; qryDoQuery1.SQL.Clear;
qryDoQuery1.SQL.Add('update Sys_users set Psd ='''+ Encode(Edt4.Text) +''' where User_ID='''+ Current_user_ID +'''');
qryDoQuery1.ExecSQL; ShowMessage('修改成功!'); end else ShowMessage('修改失败!');
end else showmessage('不能为空!'#13'或者两次密码不正确!!!'); edt2.Clear; edt3.Clear; edt4.Clear;

end

end;
procedure TForm_PasswordChange.btnclearClick(Sender: TObject);
begin edt2.Clear; edt3.Clear; edt4.Clear;

end;
procedure TForm_PasswordChange.btncloseClick(Sender: TObject); begin Self.Close; end; end.

 

标签:begin,end,edt3,Text,Delphi,edt4,密码,Pascal,qryDoQuery1
来源: https://www.cnblogs.com/springcloud/p/15877681.html

本站声明: 1. iCode9 技术分享网(下文简称本站)提供的所有内容,仅供技术学习、探讨和分享;
2. 关于本站的所有留言、评论、转载及引用,纯属内容发起人的个人观点,与本站观点和立场无关;
3. 关于本站的所有言论和文字,纯属内容发起人的个人观点,与本站观点和立场无关;
4. 本站文章均是网友提供,不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属;如您发现该文章侵犯了您的权益,可联系我们第一时间进行删除;
5. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。

专注分享技术,共同学习,共同进步。侵权联系[81616952@qq.com]

Copyright (C)ICode9.com, All Rights Reserved.

ICode9版权所有