로그인 폼을 만들었습니다.
아이디와 비밀번호를 입력하고 확인을 누르면
맞는지 틀리는지 확인을 합니다.
제가 하고 싶은것은 이곳 저곳을 돌아다니면서 다 구현을 했습니다.
그런데 한가지 문제는
아이디와 비밀번호가 틀릴 경우 메세지를 뿌려주고
다시 로그인 폼을 띄우고 싶습니다.
현재는 틀릴경우 아예 메모리에서 해제를 시켜버리거든요
방법을 알려주세요
dpr소스입니다.
program ExLogin;
uses
//Controls,Dialogs추가
Controls, Forms, Dialogs,
uMain in 'uMain.pas' {frmMain},
uLogin in 'uLogin.pas' {frmLogin};
{$R *.res}
begin
Application.Initialize;
frmLogin := TfrmLogin.Create(Application);
if frmLogin.ShowModal = mrOK then begin
Application.CreateForm(TfrmMain, frmMain);
Application.CreateForm(TfrmUpdate, frmUpdate);
frmLogin.Hide;
frmLogin.Free;
Application.Run;
end
else
MessageDlg('사용자ID,비밀번호가 일치하지 않습니
다.',mtError,mbOK],0);
end.
많은 도움 부탁드립니다.. ^^
그럼 좋은 주말 되세요
While문을 사용하세요
//=============================================
While frmLogin.ShowModal <> mrOK do begin
MessageDlg('사용자ID,비밀번호가 일치하지 않습니
다.',mtError,mbOK],0);
end;
frmLogin.Hide;
frmLogin.Free;
//==============================================
Application.CreateForm(TfrmMain, frmMain);
Application.CreateForm(TfrmUpdate, frmUpdate);
Application.Run;
end.