uchagepwd.~pas

来自「本文阐述了目前CRM（Customer Relationship Managem」· ~PAS 代码 · 共 73 行

unit Uchagepwd;

interface

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

type
  Tchangepwd = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOQuery1: TADOQuery;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  changepwd: Tchangepwd;

implementation

uses Ulogin;

{$R *.dfm}

procedure Tchangepwd.BitBtn1Click(Sender: TObject);
begin
  self.Close;
end;

procedure Tchangepwd.FormShow(Sender: TObject);
begin
  edit1.Text := publicuser;
end;

procedure Tchangepwd.BitBtn2Click(Sender: TObject);
begin
  if edit2.Text <> edit3.Text then
  begin
  showmessage('两次密码不一样');
  edit2.Text := '';
  edit3.Text := '';
  end else
  begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select * from yonghu where user='+
  QuotedStr(edit1.Text));
  ADOQuery1.Open;
  if ADOQuery1.RecordCount > 0 then
  begin
    ADOQuery1.Edit;
    ADOQuery1.FieldByName('pwd').AsString := edit2.Text;
    ADOQuery1.Post;
    showmessage('修改成功');
    self.Close;
  end;
end;

end.