fadminloginmodify.pas

工资管理系统Delphi ?ぷ使芾硐低矰elphi

unit FAdminLoginModify;

interface

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

type
  TfrmAdminLoginModify = class(TForm)
    lbledt1: TLabeledEdit;
    lbledt2: TLabeledEdit;
    lbledt3: TLabeledEdit;
    btn1: TBitBtn;
    btn2: TBitBtn;
    qry1: TADOQuery;
    procedure FormShow(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmAdminLoginModify: TfrmAdminLoginModify;

implementation

uses FAdminLogin;

{$R *.dfm}

procedure TfrmAdminLoginModify.FormShow(Sender: TObject);
begin
  // 显示帐号
  lbledt1.Text := frmAdminLogin.qry1['uid'];
end;

procedure TfrmAdminLoginModify.btn1Click(Sender: TObject);
var
  pwd, pwd1: string;
begin
  pwd  := lbledt2.Text;
  pwd1 := lbledt3.Text;

  // 验证密码
  if pwd <> pwd1 then begin
    Application.MessageBox('重复密码输入不正确，请重新录入。',
      PChar(Application.Title), MB_OK + MB_ICONWARNING);
    exit;
  end;
  // 修改数据
  with frmAdminLogin.qry1 do begin
    Edit;
    FieldValues['pwd'] := pwd;
    Post;
  end;
  Close;
end;

procedure TfrmAdminLoginModify.btn2Click(Sender: TObject);
begin
  Close;
end;

end.