?? setpsw_pas.pas
字號:
unit setpsw_pas;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons,datamd_pas;
type
Tsetpsw_form = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Edit1: TEdit;
Edit2: TEdit;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
setpsw_form: Tsetpsw_form;
implementation
{$R *.dfm}
procedure Tsetpsw_form.BitBtn1Click(Sender: TObject);
begin
if (edit1.Text=edit2.Text) then
begin
datamodule1.adocommand1.CommandText:='update yg set user_password='''+edit1.Text+''''+
'where user_id='''+datamodule1.user_id+'''';
datamodule1.adocommand1.Execute;
application.MessageBox('密碼修改成功','操作提示',mb_ok);
close();
end
else
application.MessageBox('密碼不相符','操作提示',mb_ok);
end;
procedure Tsetpsw_form.BitBtn2Click(Sender: TObject);
begin
close();
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -