u_editpassword.pas

这是一个用条码录入的数据的进销存(只对成品）---做童装的

unit U_EditPassword;

interface

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

type
  TF_EditPassword = class(TF_base)
    Label1: TLabel;
    EUserid: TEdit;
    Label2: TLabel;
    EOldPwd: TEdit;
    Label3: TLabel;
    ENewpwd: TEdit;
    Shape1: TShape;
    Label4: TLabel;
    ENewPwd2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Ado_query: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_EditPassword: TF_EditPassword;

implementation

uses U_Function, U_DM;

{$R *.dfm}

procedure TF_EditPassword.FormCreate(Sender: TObject);
begin
  inherited;
  Ado_query.Connection:=ActiveConnect;
  EUserid.Text:=Userid;
end;

procedure TF_EditPassword.BitBtn1Click(Sender: TObject);
begin
  inherited;
  opensql(Ado_query,'Select * from IUser where Userid='''+Euserid.Text+'''');
  if Ado_query.RecordCount<>1 then
  Begin
    Application.MessageBox('你输入的旧密码有错,请重新输入!','提示信息',mb_IConError+Mb_ok);
    Eoldpwd.SetFocus;
    exit;
  end;
  if (length(Mytrim(Enewpwd.Text))=0 ) then 
  Begin
    Application.MessageBox('请你输入新密码!','提示信息',mb_IConError+Mb_ok);
    Enewpwd.SetFocus;
    exit;
  end;

  if mytrim(Enewpwd.Text)<>myTrim(Enewpwd2.Text) then
  Begin
    Application.MessageBox('新密码与确认新密码不符合，请检查!','提示信息',mb_IConError+Mb_ok);
    Enewpwd2.SetFocus;
    exit;
  end;

  Execsql('Update Iuser set Password='''+myTrim(Enewpwd2.Text)+''' where Userid='''+Userid);
  Application.MessageBox('成功修改密码，请记住新密码!','提示信息',mb_IConinformation+Mb_ok);



end;

procedure TF_EditPassword.BitBtn2Click(Sender: TObject);
begin
  inherited;
Close;
end;

end.