unit5.~pas

来自「学生选课是高校教务管理工作的一部分」· ~PAS 代码 · 共 53 行

unit Unit5;

interface

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

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

var
  FormChPwd: TFormChPwd;

implementation

{$R *.dfm}

procedure TFormChPwd.Label1Click(Sender: TObject);
begin
 if Edit1.Text<>Edit2.Text then
  begin
    ShowMessage('两个密码不相同');
    Exit;
  end
  else
  begin
    Query1.SQL.Text:='Update 密码.db set 密码= '''+Edit1.Text
    +''' where 学号='''+ User +'''';
    Query1.ExecSQL;
    Query1.Close;
    ShowMessage('修改成功');
    Edit1.Text:='';
    Edit2.Text:='';
    FormChPwd.Close;
  end;

end;

end.