frmpsc.pas

医院门诊管理系统:它是由任天华完全自主开发的医院数据库管理系统

unit FrmPSC;

interface

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

type
  TFormChangePW = class(TForm)
    Button1: TButton;
    EditUserName: TEdit;
    EditPassWord: TEdit;
    EditConfirmPassword: TEdit;
    Button2: TButton;
    Button3: TButton;
    BtnOK: TButton;
    BtnCancel: TButton;
    Image1: TImage;
    procedure BtnOKClick(Sender: TObject);
    procedure EditPassWordKeyPress(Sender: TObject; var Key: Char);
    procedure EditConfirmPasswordKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormChangePW: TFormChangePW;

implementation
   uses FrmLogin,FrmUserM,FrmSet,FrmSetSeek,FrmDepartM,FrmStaff;
{$R *.dfm}

procedure TFormChangePW.BtnOKClick(Sender: TObject);
begin//判断两次输入密码是否一致
    ModalResult:=mrNone;
    If not(EditUserName.Text='')
       and not(EditPassWord.Text='')
       and not(EditConfirmPassword.Text='')then
     begin
          if EditPassword.Text=EditConfirmPassword.Text then
              begin
                  
                   Application.MessageBox('登录成功','系统消息',MB_OK);
                   ModalResult:=mrOK;
              end
          else
              begin
                   Application.MessageBox('错误的用户或密码！','系统信息',MB_OK);
                   EditPassWord.Text:='';
                   EditConfirmPassword.Text:='';
              end
      end


end;

procedure TFormChangePW.EditPassWordKeyPress(Sender: TObject;
  var Key: Char);
begin //对编辑框输入的限制，数字和退格
   if (not (key in['0'..'9']) and (key<>#8)) then
   begin
      MessageDlg('请输入真确数字',mtConfirmation,[mbOK],0);
      Key:=#0;
   end;
end;

procedure TFormChangePW.EditConfirmPasswordKeyPress(Sender: TObject;
  var Key: Char);
begin//对编辑框输入的限制，数字和退格
   if (not (key in['0'..'9']) and (key<>#8)) then
    begin
       MessageDlg('请输入真确数字',mtConfirmation,[mbOK],0);
       Key:=#0;
    end
end;

end.