xgmm.~pas

某计算机学院的毕业设计及论文

unit XGMM;

interface

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

type
  TXGMMForm = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Edit1: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    Button3: TButton;
    Button2: TButton;
    ADOTable1: TADOTable;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  XGMMForm: TXGMMForm;

implementation

{$R *.dfm}

procedure TXGMMForm.Button1Click(Sender: TObject);
begin
  ADOTable1.Open;
  if ADOTable1.Locate('YHM',edit3.Text,[loPartialKey]) then// 在用户管理表中查找该用户名
  begin //存在 则修改密码:
    if ADOTable1.FieldByName('MM').AsString=edit4.Text then//如果原密码正确
    begin
      if (edit1.Text = edit2.Text) then //密码确认是否一致 并且 权限不为空
      begin
        ADOTable1.Edit;
        ADOTable1.FieldByName('MM').AsString:=edit1.Text;
        ADOTable1.Post;
        Application.MessageBox('密码修改成功！','提示');
      end else
      Application.MessageBox('密码不一致！','提示');
    end else
      Application.MessageBox('原密码错误！','提示');
  end else //已经存在 提示
    Application.MessageBox('该用户不存在！！','提示');
  ADOTable1.Close;

end;

procedure TXGMMForm.Button3Click(Sender: TObject);
begin
  edit1.Text:='';
  edit2.Text:='';
  edit3.Text:='';
  edit4.Text:='';
end;

procedure TXGMMForm.Button2Click(Sender: TObject);
begin
  CLOSE;
end;

end.