upass.pas

该系统将温度数据以类似股票K线显示方式进行分析

unit upass;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, InvokeRegistry, StdCtrls, DB, DBClient, ExtCtrls, Grids,
  DBGrids, ADODB,  kxiancommon;

type
  TPassEditDlg = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    NewPass: TEdit;
    edtAccount: TEdit;
    Panel1: TPanel;
    btnOK: TButton;
    btnCancel: TButton;
    adoqUser: TADOQuery;
    Label3: TLabel;
    PassCheck: TEdit;
    Label4: TLabel;
    OldPass: TEdit;
    ADOQedit: TADOQuery;
    procedure btnOKClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private

end;

implementation

{$R *.dfm}
{ TPassDlg }

procedure TPassEditDlg.btnOKClick(Sender: TObject);
var sOldPass, sNewPass, sNewCheck :string;
begin
    sOldPass := OldPass.Text;
    sNewPass := Trim(NewPass.Text);
    sNewCheck :=  Trim(passCheck.Text);
    if sNewPass<> sNewCheck then
    begin
        showmessage('新密码和验证密码不一致，请重新输入');
        exit;
    end;
    with adoqUser do
    begin
        Parameters.ParamByName('userName').Value := sUserName;
        Parameters.ParamByName('Password').Value := sOldPass;
        if Active then Close;
        Open;
        if RecordCount > 0 then
        begin//change the pass
                close;
                adoqedit.sql.text :='update users set password =' + snewpass +' where userName =' + quotedStr(sUserName);
                adoqedit.execSql;
                adoqedit.close;
                ModalResult := mrCancel;
        end
        else  showmessage('密码不正确，请重新输入');
    end;

end;

procedure TPassEditDlg.FormCreate(Sender: TObject);
begin
        adoquser.Connection := adocwdkz;
        adoqedit.Connection := adocwdkz;
        edtAccount.Text := sUserName;
end;

end.