passsetpas.pas

来自「本软件是一套功能完整成熟的固定资产管理系统,具有固定资产管理系统的相应全部功能」· PAS 代码 · 共 154 行

unit passsetpas;

interface

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

type
  Tw_passset = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label5: TLabel;
    Edit5: TEdit;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3Exit(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Edit5Exit(Sender: TObject);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  w_passset: Tw_passset;

implementation

uses datapas;


{$R *.dfm}

procedure Tw_passset.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9',#8,#13]) then
begin
key:=#0;
beep;
end else
if (key=#13) and (edit1.text<>'') then
begin  //查询是否有此用户
with hjzcdata.yhdlcx do
begin
close;
parameters.parambyname('zybm').value:=edit1.text;
prepared;
open;
end;
if not hjzcdata.yhdlcx.isempty then
begin
edit2.text:=hjzcdata.yhdlcx.fieldbyname('职员姓名').value;
edit3.setfocus;
end else
begin
messagedlg('该用户不存在,请重新输入!',mterror,[mbok],0);
edit1.setfocus;
end;
end;

end;

procedure Tw_passset.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
edit4.setfocus;


end;

procedure Tw_passset.Edit3Exit(Sender: TObject);
begin
if trim(edit3.text)<>hjzcdata.yhdlcx.fieldbyname('密码').asstring then
begin
messagedlg('旧密码输入错误,请重新输入!',mterror,[mbok],0);
edit3.setfocus;
end;
end;

procedure Tw_passset.Edit1Change(Sender: TObject);
begin
hjzcdata.yhdlcx.close;
edit2.text:='';
edit3.Text:='';
edit4.Text:='';
edit5.text:='';
end;

procedure Tw_passset.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
edit5.setfocus;
end;

procedure Tw_passset.Edit5Exit(Sender: TObject);
begin
if (edit2.text<>'') and (trim(edit3.text)=trim(hjzcdata.yhdlcx.fieldbyname('密码').asstring)) and (edit4.text=edit5.text) then
 bitbtn1.Enabled:=true
 else
 begin
 bitbtn1.enabled:=false;
 messagedlg('输入错误，请检查',mterror,[mbok],0);
 end;

 end;

procedure Tw_passset.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
bitbtn1.Enabled:=true;
 bitbtn1.SetFocus;
 end;
end;

procedure Tw_passset.BitBtn1Click(Sender: TObject);
begin
if (edit2.text<>'') and (trim(edit3.text)=trim(hjzcdata.yhdlcx.fieldbyname('密码').asstring)) and (edit4.text=edit5.text) then
//保存密码
begin
with hjzcdata.lscx do
begin
close;
sql.clear;
sql.add('update 职员编码表 set 密码=:passwd where 职员姓名=:zyxm');
if edit5.text='' then
parameters.ParamByName('passwd').value:=null else
parameters.ParamByName('passwd').value:=trim(edit5.Text);
parameters.ParamByName('zyxm').value:=trim(edit2.Text);
prepared;
execsql;
end;
messagedlg('密码更改成功!',mtconfirmation,[mbok],0);
modalresult:=mrok;
end;
end;

end.