?? unit3.pas
字號:
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, DB, ADODB;
type
Tpassword = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
oldpassword: TEdit;
newpassword: TEdit;
newpassword1: TEdit;
ADOQuery1: TADOQuery;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure FormCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
procedure newpasswordKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
password: Tpassword;
implementation
uses Unit1;
{$R *.dfm}
procedure Tpassword.BitBtn1Click(Sender: TObject);
begin //對組件初始化
newpassword.Clear;
newpassword1.Clear;
oldpassword.Clear;
end;
procedure Tpassword.BitBtn2Click(Sender: TObject);
begin //修改用戶密碼
if (trim(oldpassword.Text)<>'') and (trim(newpassword.Text)<>'') and (trim(newpassword.Text)<>'') then
begin
if trim(newpassword.Text)=trim(newpassword1.Text) then //判斷兩次新密碼是否一至
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select opname,oppw from opration where opname=:opname and oppw=:oppw');
adoquery1.Parameters.ParamByName('opname').value:=trim(user);
adoquery1.Parameters.ParamByName('oppw').Value:=trim(oldpassword.Text);
adoquery1.Open;
if not adoquery1.IsEmpty then //判斷輸入的舊密碼是否正確
begin
adoquery1.Edit;
adoquery1.FieldByName('oppw').Value:=trim(newpassword.Text);
adoquery1.Post; //修改密碼
showmessage('密碼修改成功');
password.Close;
end
else
begin
showmessage('您輸入的密碼有誤,請檢查密碼');
oldpassword.SetFocus;
end;
end
else
begin
showmessage('兩輸入的新密碼不相同,請重新輸入');
newpassword.SetFocus;
end ;
end
else
begin
showmessage('密碼不能為空');
oldpassword.SetFocus;
end;
end;
procedure Tpassword.FormCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
begin
resize:=false;
end;
procedure Tpassword.newpasswordKeyPress(Sender: TObject; var Key: Char);
begin
if not(key in['0'..'9','a'..'z','A'..'Z',#008]) then
begin
showmessage('密碼為數(shù)字,字母');
key:=#0;
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -