unit12.pas

来自「sql server 2000 数据库与应用」· PAS 代码 · 共 78 行

unit Unit12;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, DB, ADODB,unit1;

type
  TForm12 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    ADOQuery1: TADOQuery;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form12: TForm12;

implementation

{$R *.dfm}

procedure TForm12.SpeedButton1Click(Sender: TObject);
var
  s1,yhxm,yhkl1,yhkl2:string;
begin
  yhxm:=trim(form1.Edit1.Text);
  yhkl1:=trim(edit1.Text);
  yhkl2:=trim(edit2.Text);
  if yhkl1<>yhkl2 then
    begin
      application.MessageBox('两次口令不一致！','警告',mb_ok);
      edit1.Text:='';
      edit2.Text:='';
    end
  else
    if yhkl1='' then
      application.MessageBox('口令不能为空白！','警告',mb_ok)
    else
    try
      adoquery1.close;
      adoquery1.sql.clear;
      s1:='update 用户表 set userpswd='+quotedstr(yhkl1)
        +' where username='''+yhxm+'''';
      Adoquery1.sql.add(s1);
      Adoquery1.ExecSQL;
      application.MessageBox('用户口令修改成功！','提示',mb_ok);
    except
      on E: Exception do
        messagedlg(E.Message,mterror,[mbok],0);
    end;

end;

procedure TForm12.SpeedButton2Click(Sender: TObject);
begin
  form12.Close;
end;

procedure TForm12.FormActivate(Sender: TObject);
begin
  edit1.Text:='';
  edit2.Text:='';
end;

end.