unit3.pas

上次我同样上传了个score-manager

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls, Buttons, Spin;

type
  Tmmgl = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Table1: TTable;
    DataSource1: TDataSource;
    Table1BDEDesigner3: TStringField;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Query1: TQuery;
    Table1BDEDesigner: TAutoIncField;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  mmgl: Tmmgl;

implementation

{$R *.dfm}



procedure Tmmgl.SpeedButton1Click(Sender: TObject);
var
s:string;
begin
 table1.Open;
 if table1.Locate('密码',vararrayof([edit1.Text]),[]) then
   begin
     s:=table1.FieldValues['密码'];
     if edit1.Text = s then
        begin
          if edit2.text<>'' then
            begin
              if edit2.text=edit3.Text then
                begin
                  table1.Edit;
                  table1.FieldByName('密码').AsString:=edit2.Text;
                  table1.Post;
                  showmessage('密码修改成功!');
                end
              else
                begin
                 showmessage('两次密码不一致!');
                 edit2.Clear;edit3.Clear;
                end;
            end
          else
           begin
           showmessage('密码不能为空!');
           end;
        end
       else
         begin
          showmessage('密码输入错误!');
          edit1.Clear;edit2.Clear;edit3.Clear;
         end;
   end
 else
   showmessage('不存在这样的密码!');
end;

procedure Tmmgl.SpeedButton2Click(Sender: TObject);
begin
close;
end;

procedure Tmmgl.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

end.