unit4.~pas

来自「学生选课系统 DELPHI+ ACCE」· ~PAS 代码 · 共 53 行

unit Unit4;

interface

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

type
  TFormchpwd = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Query1: TQuery;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
   User:string;
  end;

var
  Formchpwd: TFormchpwd;

implementation

{$R *.dfm}

procedure TFormchpwd.Button1Click(Sender: TObject);
begin
if Edit1.text<>Edit2.Text then
begin
  ShowMessage('两个密码不相同！');
  Exit;
end
else
begin
Query1.SQL.Text:='Update password set 密码="'+Edit1.Text+'" where 学号="'+User+'"';
Query1.ExecSQL;
Query1.Close;
Showmessage('修改成功！');
Edit1.Text:='';
Edit2.Text:='';
Formchpwd.Close;
end;

end;

end.