if LoginSign = 0 then

  ModalResult:=mrOK  // 用户名和密码都正确，则正常关闭

 else begin

  Inc( LoginCount );

  if LoginCount<=3 then begin

   ShowMessage('用户名或密码错误，请重新登录');

   case LoginSign of

    1: EditUserID.SetFocus;

    2: EditPassWord.SetFocus;

   end;

  end

  else begin

   ShowMessage('对不起，您好像......');

   ModalResult := mrCancel; // 非正常关闭

  end;

 end;

end;

3　系统主界面

本系统的各个功能模块通过主界面上的各个菜单项加以实现，在主界面中加入一个TMainMenu组件，其属性设置见表2所示，界面如图8所示。

表2 主界面对象的属性设置