unit5.~pas

劳模信息综合管理

unit Unit5;

interface

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

type
  TForm_changepw = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit_oldpw: TEdit;
    Edit_newpw: TEdit;
    Edit_newppw: TEdit;
    Label1: TLabel;
    Label3: TLabel;
    Bevel1: TBevel;
    Image1: TImage;
    ADOQ_pw: TADOQuery;
    Label2: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_changepw: TForm_changepw;

implementation
   uses unit1,unit3;
{$R *.dfm}

procedure TForm_changepw.Button2Click(Sender: TObject);
begin
form_changepw.Close;
end;

procedure TForm_changepw.Button1Click(Sender: TObject);
begin
         if(edit_newppw.text='')or (edit_newpw.Text='')or(edit_oldpw.Text='') then

            MessageDlg('请填写完整信息',mtWarning,[mbok],0)
         else
             begin
                     if edit_newppw.text<>edit_newpw.Text then
                         begin
                         MessageDlg('两次输入新密码不一致!',mtWarning,[mbok],0);
                         edit_newppw.text:='';
                         edit_newpw.Text:='';
                         end
                     else
                          begin
                          if(edit_oldpw.text<>password ) then
                             begin
                                 showmessage('您输入的旧密码有误,请重新输入');
                                 edit_oldpw.Text:='';
                                 edit_newpw.Text:='';
                                 edit_newppw.Text:='';
                             end
                          else
                             begin
                              adoq_pw.close;
                              adoq_pw.Connection:=datalink.ADOC_datalink;
                              adoq_pw.sql.Clear;
                              adoq_pw.SQL.add('update userinfo set password='+edit_newppw.Text+'where id=:a');
                              adoq_pw.Parameters.ParamByName('a').Value:=user_id;
                              adoq_pw.ExecSQL;
                              adoq_pw.Close;
                              showmessage('密码修改成功');
                              form_changepw.Close; 
                            end;
                          end;
              end;
end;

procedure TForm_changepw.FormShow(Sender: TObject);
begin
           edit_oldpw.Text:='';
           edit_newpw.Text:='';
           edit_newppw.Text:='';
end;

end.