Q&A

  • 로그인 폼을 만들때요
로그인 폼을 만들었습니다.
아이디와 비밀번호를 입력하고 확인을 누르면
맞는지 틀리는지 확인을 합니다.

제가 하고 싶은것은 이곳 저곳을 돌아다니면서 다 구현을 했습니다.
그런데 한가지 문제는

아이디와 비밀번호가 틀릴 경우 메세지를 뿌려주고

다시 로그인 폼을 띄우고 싶습니다.

현재는 틀릴경우 아예 메모리에서 해제를 시켜버리거든요

방법을 알려주세요

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.

많은 도움 부탁드립니다.. ^^

그럼 좋은 주말 되세요
1  COMMENTS
  • Profile
    시그널웍스 2003.05.31 20:55
    아래와 같이 코딩하시면 됩니다.

    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.