unit_set_password.~pas

DELPHI 编写的绣花厂管理软件

unit Unit_set_password;

interface

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

type
  TForm_Set_Password = class(TForm_jc_child)
    ADOQuery1: TADOQuery;
    Panel2: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_Set_Password: TForm_Set_Password;

implementation

uses Unit_main;

{$R *.dfm}

procedure TForm_Set_Password.Button2Click(Sender: TObject);
begin
   self.Close;
end;

procedure TForm_Set_Password.Button1Click(Sender: TObject);
begin
   ADOQuery1.close;
   ADOQuery1.SQL.Text := 'select mima from users where bh=' + quotedstr(gs_userid) ;
   ADOQuery1.Open;
   if ADOQuery1.FieldByName('mima').AsString <> edit1.text then
   begin
      showmessage('您输入的源密码错误，不能修改！');
      exit;
   end;
   if edit2.text <> edit3.text then
   begin
      showmessage('您确认新密码错误，不能修改！请重新输入新密码。');
      exit;
   end;
   ADOQuery1.Close;
   ADOQuery1.SQL.Text := 'update users set mima='''+edit2.text+''''+
      ' where bh=' + quotedstr(gs_userid);
   ADOQuery1.ExecSQL;
   showmessage('密码更新成功！');
   self.Close;
end;

end.