Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[16018] 델파이 로그인 예외처리 질문드립니다..
델초보 [] 1197 읽음    2019-04-10 16:06
제가 오라클 db연결 후 로그인 예외처리 if문으로 해본건데..
아이디가 틀리고 비밀번호가 맞는 상태에서 로그인하면 비밀번호가 틀리다고 뜨네요.. 뭐가 잘못된건가요..?

        IF Edit1.Text = '' THEN
        begin
            Label3.Caption :='아이디를 입력하세요.';
            Edit1.SetFocus;
        end;

        IF (Edit2.Text = '') AND (Edit1.Text <> '') THEN
        begin
            Label3.Caption :='비밀번호를 입력하세요.';
            Edit2.SetFocus;
        end;

        IF Edit1.Text = '' THEN
        begin
            IF Edit2.Text = '' THEN
                Label3.Caption := '아이디와 비밀번호를 입력하세요';
                Edit1.SetFocus;
        end;

        IF (Edit1.Text <> '') AND (Edit2.Text <> '') THEN
        begin
            IF (CompareText('ID',Edit1.Text) <> 0) THEN
            begin
                Label3.Caption := '아이디가 틀립니다.';
                Edit1.SetFocus;
            end
        end;

        IF (Edit1.Text <> '') AND (Edit2.Text <> '') THEN
        begin
            IF (CompareText('ID',Edit1.Text) >0) AND (CompareText('PW',Edit2.Text) <> 0) THEN
            begin
                Label3.Caption := '비밀번호가 틀립니다.';
                Edit2.SetFocus;
            end
        end;




        IF NOT ((Query1.Eof) AND (Query1.Bof)) THEN
        begin
        Label3.Caption := '로그인 성공';
        end;

+ -

관련 글 리스트
16018 델파이 로그인 예외처리 질문드립니다.. 델초보 1197 2019/04/10
16019     Re:델파이 로그인 예외처리 질문드립니다.. 1243 2019/04/15
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.