?? u_editpassword.pas
字號:
unit U_EditPassword;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, U_base, StdCtrls, WinSkinData, Buttons, ExtCtrls, DB, ADODB;
type
TF_EditPassword = class(TF_base)
Label1: TLabel;
EUserid: TEdit;
Label2: TLabel;
EOldPwd: TEdit;
Label3: TLabel;
ENewpwd: TEdit;
Shape1: TShape;
Label4: TLabel;
ENewPwd2: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Ado_query: TADOQuery;
procedure FormCreate(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
F_EditPassword: TF_EditPassword;
implementation
uses U_Function, U_DM;
{$R *.dfm}
procedure TF_EditPassword.FormCreate(Sender: TObject);
begin
inherited;
Ado_query.Connection:=ActiveConnect;
EUserid.Text:=Userid;
end;
procedure TF_EditPassword.BitBtn1Click(Sender: TObject);
begin
inherited;
opensql(Ado_query,'Select * from IUser where Userid='''+Euserid.Text+'''');
if Ado_query.RecordCount<>1 then
Begin
Application.MessageBox('你輸入的舊密碼有錯,請重新輸入!','提示信息',mb_IConError+Mb_ok);
Eoldpwd.SetFocus;
exit;
end;
if (length(Mytrim(Enewpwd.Text))=0 ) then
Begin
Application.MessageBox('請你輸入新密碼!','提示信息',mb_IConError+Mb_ok);
Enewpwd.SetFocus;
exit;
end;
if mytrim(Enewpwd.Text)<>myTrim(Enewpwd2.Text) then
Begin
Application.MessageBox('新密碼與確認新密碼不符合,請檢查!','提示信息',mb_IConError+Mb_ok);
Enewpwd2.SetFocus;
exit;
end;
Execsql('Update Iuser set Password='''+myTrim(Enewpwd2.Text)+''' where Userid='''+Userid);
Application.MessageBox('成功修改密碼,請記住新密碼!','提示信息',mb_IConinformation+Mb_ok);
end;
procedure TF_EditPassword.BitBtn2Click(Sender: TObject);
begin
inherited;
Close;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -