systemmodipwdfm.pas

一个电力部门的催缴费用系统

unit systemModipwdFM;

interface

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

type
  Tfrm_ModiPwd = class(TForm)
    Panel1: TPanel;
    Label3: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    EdWorkNo: TEdit;
    EdPwd: TEdit;
    Bevel1: TBevel;
    Edconfirm: TEdit;
    EdNewPwd: TEdit;
    Bevel2: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

uses systemLoginFM, systemDM; {Dm_P,sharefunc; }

{$R *.DFM}

procedure Tfrm_ModiPwd.FormActivate(Sender: TObject);
begin
   EdWorkNo.Text :='';
   EdPwd.Text :='';
   EdNewPwd.Text :='';
   EdConfirm.Text :='';
end;

procedure Tfrm_ModiPwd.BitBtn1Click(Sender: TObject);
begin
  with sysDM.Qr_sysTemp do
  begin
    Close;
    RequestLive:=true;
    Sql.Clear;
    Sql.Add('select * from SysLogin');
    try
      Prepare;
      Open;
      if Locate('WORKID;PWD',VarArrayof([Trim(EdWorkNo.text),Trim(EdPwd.text)]),[]) then
      begin
        if Trim(EdNewPwd.Text)=Trim(Edconfirm.text){ and (Trim(EdNewPwd.Text)<>'')} then
        begin
          sysDM.DBMain.StartTransaction;
          Edit;
          FieldbyName('Pwd').asstring:=Trim(EdNewPwd.text);
          Post;
          sysDM.DBMain.Commit;
          ModalResult:=mrok;
        end else
        begin
          messagedlg('确认新密码失败！',mtError,[mbok],0);
        end;
      end else
      begin
        messagedlg('工号、用户名或密码输入不正确，请重新输入！',mtinformation,[mbok],0);
      end;
    finally
      Close;
      RequestLive:=false;
    end;
  end;
end;

end.