modyut.~pas

用delphi+access给单位做的实用,简单的.

unit modyut;

interface

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

type
  Tmodyfm = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ysmm: TEdit;
    xmm: TEdit;
    qrmm: TEdit;
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Label4: TLabel;
    ADOQuery1: TADOQuery;
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  modyfm: Tmodyfm;

implementation

uses mainut;

{$R *.dfm}

procedure Tmodyfm.BitBtn3Click(Sender: TObject);
begin
close;
end;

procedure Tmodyfm.BitBtn2Click(Sender: TObject);
begin
ysmm.Clear;
xmm.Clear;
qrmm.Clear;
end;

procedure Tmodyfm.BitBtn1Click(Sender: TObject);
begin
 with adoquery1 do
   begin
     close;
     sql.Clear;
     sql.Add('select * from 用户表 where 姓名="'+mainfm.yhxm+'" and 密码="'+ysmm.Text+'"');
     open;
    if recordcount<>1 then
      begin
        showmessage('原始密码错误！请核对');
        exit;
      end
    else
      if xmm.Text<>qrmm.Text then
        begin
          showmessage('确认密码和新密码不一致！请核对');
          exit;
        end
         else
          begin
            close;
            sql.Clear;
            sql.Add('update 用户表 set 密码="'+xmm.Text+'" where 姓名="'+mainfm.yhxm+'"');
             try
              execsql;
              showmessage('恭喜你，密码修改成功!');
             except
              showmessage('对不起，密码修改失败!');
             end;
          end;
   end;
end;

end.