unit_pass.pas

来自「电子阅读器,适合处学者使用和学习.有意见联系我 .」· PAS 代码 · 共 65 行

Unit Unit_Pass;

Interface

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

Type
  TF_Pass=Class(TForm)
    Label3: TLabel;
    GroupBox1: TGroupBox;
    Button1: TButton;
    Edit2: TEdit;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Procedure Button1Click(Sender: TObject);
  Private
    { Private declarations }
  Public
    { Public declarations }
  End;

Var
  F_Pass: TF_Pass;

Implementation
Uses unit_main, unit_made;
{$R *.dfm}
Procedure CreatPass(); //初始化密码为空
Begin
  F_Pass.Edit1.Text:='';
  F_Pass.Edit2.Text:='';
End;
Procedure TF_Pass.Button1Click(Sender: TObject);
Begin
  If Edit1.Text=Edit2.Text Then
  Begin
    If Length(Edit1.Text)<19 Then
    Begin
      MessageBox(Handle, PChar('密码设置成功!'), PChar('设置密码成功'),
        MB_ICONINFORMATION Or MB_OK);
      close;
    End
    Else
    Begin
      MessageBox(Handle, PChar('您输入的密码过长,密码设置失败!'), PChar('设置密码失败'),
        MB_ICONINFORMATION Or MB_OK);
      CreatPass;
      close;
    End;
  End
  Else
  Begin
    MessageBox(Handle, PChar('两次输入的密码不同,密码设置失败!'), PChar('设置密码失败'),
      MB_ICONINFORMATION Or MB_OK);
    CreatPass;
    close;
  End
End;

End.