updatepassword.pas

企业客户关系管理系统

unit updatepassword;

interface

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

type
  TF_updatepassword = class(TForm)
    Panel2: TPanel;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    btn_Update: TBitBtn;
    btn_cancel: TBitBtn;
    qry_UsersInfo1: TQuery;
    DataSource1: TDataSource;
    procedure btn_UpdateClick(Sender: TObject);
    procedure btn_cancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_updatepassword: TF_updatepassword;
  strSQL:String;
implementation
uses datamodule;
{$R *.dfm}

procedure TF_updatepassword.btn_UpdateClick(Sender: TObject);
begin
strSQL:='update UsersInfo set 用户密码=:f3 where 用户帐号=:f1';
with DM_datamodule do
begin
if crmDB.Connected then
begin
if trim(edit1.Text)<>'' then
begin

if edit3.Text=edit4.Text then
begin

with qry_UsersInfo1 do
begin
create(nil);
sql.Add('select * from UsersInfo where 用户帐号=:f1 and 用户密码=:f2');
Parambyname('f1').AsString:=edit1.Text;
Parambyname('f2').AsString:=edit2.Text;
open;

if Recordcount<>0 then
begin
sql.Add(strSQL);
Parambyname('f3').AsString:=edit3.Text;
ExecSQL;
Close;
messagedlg('修改成功!',mtinformation,[mbok],0);
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
end
else
begin
messagedlg('不存在该帐号!修改失败!',mtinformation,[mbok],0);
close;
end;

end;

end
else
begin
messagedlg('确认密码与新密码不一致,请重新输入!',mtinformation,[mbok],0);
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
end;

end;

end
else
messagedlg('请先登陆!',mtinformation,[mbok],0);
end;
end;

procedure TF_updatepassword.btn_cancelClick(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
close;
end;

end.