setpasswd.~pas

delphi自动出题系统源代码,有兴趣的可以来看看！

unit setpasswd;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Db, DBTables;

type
  Tsetpassword = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    DataSource1: TDataSource;
    Query1: TQuery;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  setpassword: Tsetpassword;

implementation

uses main,global;

{$R *.DFM}

procedure Tsetpassword.BitBtn1Click(Sender: TObject);
begin
    if trim(edit1.text)=trim(edit2.text) then
    begin
    if trim(edit1.text)=''  then
    begin
        showmessage('密码不能为空！请确认。');
    end
    else
            with query1 do
            begin
              close;
              sql.Clear;
              sql.Add('update user');
              sql.Add('set password=:passwd');
              sql.Add('where username=:username');
              parambyname('passwd').asstring:=edit1.Text;
              parambyname('username').asstring:=G_username;
              prepare;
              execsql;
              showmessage('密码已成功修改!请用新密码。');
            end;

          
    end
    else
      begin
         showmessage('用户两次输入密码不一致!请确认。');
         end;
end;

procedure Tsetpassword.BitBtn2Click(Sender: TObject);
begin
  close;
  mainform.show;
end;

procedure Tsetpassword.SpeedButton1Click(Sender: TObject);
begin
  if trim(edit1.text)=trim(edit2.text) then
    begin
    if trim(edit1.text)=''  then
    begin
        showmessage('密码不能为空！请确认。');
    end
    else
            with query1 do
            begin
              close;
              sql.Clear;
              sql.Add('update user');
              sql.Add('set password=:passwd');
              sql.Add('where username=:username');
              parambyname('passwd').asstring:=edit1.Text;
              parambyname('username').asstring:=G_username;
              prepare;
              execsql;
              showmessage('密码已成功修改!请用新密码。');
            end;

          
    end
    else
      begin
         showmessage('用户两次输入密码不一致!请确认。');
         end;
end;

procedure Tsetpassword.SpeedButton2Click(Sender: TObject);
begin
 close;
  mainform.show;
end;

end.