unit7.pas

来自「用DELPHI做的一个歌手评分系统」· PAS 代码 · 共 73 行

unit Unit7;

interface

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

type
  TForm7 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    ADOQuery1: TADOQuery;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form7: TForm7;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm7.FormShow(Sender: TObject);
begin
label6.Caption:=form1.edit1.Text;
edit1.Clear;
edit2.Clear;
edit3.Clear;
end;

procedure TForm7.Button1Click(Sender: TObject);
begin
begin
if edit1.text<>form1.Edit2.Text then
begin
showmessage('原始密码不正确！');
edit1.SetFocus;
exit;
end;
if edit2.text<>edit3.Text then
begin
showmessage('输入的密码不匹配！');
edit2.SetFocus;
exit;
end;
adoquery1.Close;
adoquery1.sql.Clear;
adoquery1.SQL.Add('update 系统登录 set password='''+trim(edit2.text)+''''+'where passname='''+trim(label6.caption)+'''');
adoquery1.Prepared;
adoquery1.ExecSQL;
showmessage('密码修改成功！');
form7.close;
end;
end;

end.