?? changepasswordfrm.pas
字號:
unit changepasswordfrm;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, ComCtrls,datamodulefrm;
type
Tchangepasswordform = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
ComboBox1: TComboBox;
BitBtn2: TBitBtn;
GroupBox1: TGroupBox;
Label3: TLabel;
Label4: TLabel;
Edit2: TEdit;
BitBtn1: TBitBtn;
Label5: TLabel;
Edit3: TEdit;
Edit4: TEdit;
StatusBar1: TStatusBar;
procedure BitBtn1Click(Sender: TObject);
private
times:integer;
{ Private declarations }
public
ausername:string;
{ Public declarations }
end;
var
changepasswordform: Tchangepasswordform;
implementation
{$R *.DFM}
procedure Tchangepasswordform.BitBtn1Click(Sender: TObject);
var
s1,s2,s3:string;
begin
times:=times+1;
s1:=edit2.Text;
s2:=edit3.text;
s3:=edit4.text;
with datamodule2 do
if times<=3 then
begin
if s2<>s3 then
showmessage('請確認你所輸入的新密碼是否一樣')
else
begin
if (changeusertable.FindKey([ausername])) and (changeusertable.fieldbyname('password').asstring=s1)
then
begin
changeusertable.edit ;
changeusertable.FieldByName('password').asstring:=s2;
changeusertable.Post;
modalresult:=mrok ;
showmessage('更改密碼成功!');
end
else
begin
showmessage('您輸入了錯誤的密碼');
edit2.text:='';
edit3.text:='';
edit4.text:='';
end;
end;
end
else
close
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -