uljdate.pas

来自「该软件前台用的是DELPHI7后台用的是SQLSERVER2000,用了些第三方」· PAS 代码 · 共 82 行

unit Uljdate;

interface

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

type
  Tfxgyhm = class(TForm)
    img1: TImage;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn3: TRzBitBtn;
    urname: TLabeledEdit;
    pass: TLabeledEdit;
    newname: TLabeledEdit;
    procedure RzBitBtn3Click(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fxgyhm: Tfxgyhm;

implementation

uses Udate, Usrfsz;

{$R *.dfm}

procedure Tfxgyhm.RzBitBtn3Click(Sender: TObject);
begin
  close;
end;

procedure Tfxgyhm.RzBitBtn1Click(Sender: TObject);
begin
  if pass.Text=passwords then begin
    with fdate.qryuser  do begin
      Close;
      Parameters.ParamByName('urname').Value:=yhname;
      Parameters.ParamByName('urpass').Value:=pass.Text;
      Open;
    end;
  if fdate.qryuser.RecordCount=0 then begin
    MessageBeep(0);
    MessageDlg('对不起您输入的密码不正确!',mtError,[mbyes],0);
    pass.SetFocus;
    Exit;
  end;
  fdate.qryuser.Edit;
  fdate.qryuseremname.Value:=newname.Text;
  try fdate.qryuser.Post;
    MessageBeep(0);
    ShowMessage('用户名称修改成功!');
    close;
  except
    fdate.qryuser.Cancel;
    MessageBeep(0);
    ShowMessage('用户名称修改失败!');
    Exit;
  end;
  end
  else
    Exit;
end;

procedure Tfxgyhm.FormShow(Sender: TObject);
begin
  urname.Text:=yhname;
  pass.Clear;
  newname.Clear;
  pass.SetFocus;
end;

end.