?? upass.pas
字號(hào):
unit upass;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, InvokeRegistry, StdCtrls, DB, DBClient, ExtCtrls, Grids,
DBGrids, ADODB, kxiancommon;
type
TPassEditDlg = class(TForm)
Label1: TLabel;
Label2: TLabel;
NewPass: TEdit;
edtAccount: TEdit;
Panel1: TPanel;
btnOK: TButton;
btnCancel: TButton;
adoqUser: TADOQuery;
Label3: TLabel;
PassCheck: TEdit;
Label4: TLabel;
OldPass: TEdit;
ADOQedit: TADOQuery;
procedure btnOKClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
end;
implementation
{$R *.dfm}
{ TPassDlg }
procedure TPassEditDlg.btnOKClick(Sender: TObject);
var sOldPass, sNewPass, sNewCheck :string;
begin
sOldPass := OldPass.Text;
sNewPass := Trim(NewPass.Text);
sNewCheck := Trim(passCheck.Text);
if sNewPass<> sNewCheck then
begin
showmessage('新密碼和驗(yàn)證密碼不一致,請(qǐng)重新輸入');
exit;
end;
with adoqUser do
begin
Parameters.ParamByName('userName').Value := sUserName;
Parameters.ParamByName('Password').Value := sOldPass;
if Active then Close;
Open;
if RecordCount > 0 then
begin//change the pass
close;
adoqedit.sql.text :='update users set password =' + snewpass +' where userName =' + quotedStr(sUserName);
adoqedit.execSql;
adoqedit.close;
ModalResult := mrCancel;
end
else showmessage('密碼不正確,請(qǐng)重新輸入');
end;
end;
procedure TPassEditDlg.FormCreate(Sender: TObject);
begin
adoquser.Connection := adocwdkz;
adoqedit.Connection := adocwdkz;
edtAccount.Text := sUserName;
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -