begin
if (UserNameEdt.text=′陈理辉′) and (PasswordEdt.TExt=′student′) then
begin
ShowMessage(′密码正确,登录成功!′);
Application.Terminate;
End
Else
ShowMessage(′密码错误,请再试。′);
end;
放入一个 TButton 构件,设置为
Caption 取消(&C)
Name CancelBtn
双击该构件加入如下代码:
procedure TLoginForm.CancelBtnClick(Sender:TObject);
begin
Application.Terminate;
end;
7.将Project存为Login.dpr,将LoginForm设为主窗口(点Project|Options,选Forms标签页,点Main Form下拉框,选LoginForm,按Ok),按F9运行。