changepsw.pas.~1~

初中成绩录入系统网络版(firebird) firebird下的网络编程

unit ChangePsw;

interface

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

type
  TfmChangePsw = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

procedure TfmChangePsw.BitBtn1Click(Sender: TObject);
begin
  if (edit1.Text='') and (edit2.Text='') then
  begin
    Application.MessageBox('密码不能为空，请重新输入！','错误',MB_OK or MB_ICONWARNING);
    exit;
  end;
  if edit1.Text<>edit2.Text then
    Application.MessageBox('密码不一致，请重新输入！','错误',MB_OK or MB_ICONWARNING)
  else
    self.ModalResult:=mrOK;
end;

end.