Q&A

  • 에러의 원인을 모르겠습니다. 이것좀 봐 주세요..


다음의 예제를 보아 주세요.



예제>

procedure TInPut.FormCreate(Sender: TObject);

begin

InPut_Edit;

query2.close;

query2.sql.clear;

query2.sql.add('select kh from usertable');

query2.open;



if query2.fieldByName('kh').asstring ='2' then

begin

yesnocombo.enabled := false ;

billingcombo.enabled :=false ;

end;

end;



위의 예문에서 보시면 아시겠지만 데이타 베이스의 테이블 필드에 2라는 숫자가

저장 되어 있읍니다. 이것을 쿼리문을 통하여 연결을 하였지요..

저의 의도는 2라는 숫자를 확인한 위의 두 컴보 박스의 콤보 스위치가 작업을 못하도록

하려고 하는데 있었습니다.

근~~~~~~~~~데 작업을 할 수 있게 스위치가 활성화 되더 군요 ?

뭐가 잘못 되었을 까요... 고수님들 답을 알려 주소소....







1  COMMENTS
  • Profile
    이광형 2000.10.13 08:14
    query2.open;

    을 한 다음 showmessage(query2.fieldByName('kh').asstring); 하셔서 실제로 쿼리해온 값이 2 인지 디버깅 해 보세요...



    delpo wrote:

    >

    > 다음의 예제를 보아 주세요.

    >

    > 예제>

    > procedure TInPut.FormCreate(Sender: TObject);

    > begin

    > InPut_Edit;

    > query2.close;

    > query2.sql.clear;

    > query2.sql.add('select kh from usertable');

    > query2.open;

    >

    > if query2.fieldByName('kh').asstring ='2' then

    > begin

    > yesnocombo.enabled := false ;

    > billingcombo.enabled :=false ;

    > end;

    > end;

    >

    > 위의 예문에서 보시면 아시겠지만 데이타 베이스의 테이블 필드에 2라는 숫자가

    > 저장 되어 있읍니다. 이것을 쿼리문을 통하여 연결을 하였지요..

    > 저의 의도는 2라는 숫자를 확인한 위의 두 컴보 박스의 콤보 스위치가 작업을 못하도록

    > 하려고 하는데 있었습니다.

    > 근~~~~~~~~~데 작업을 할 수 있게 스위치가 활성화 되더 군요 ?

    > 뭐가 잘못 되었을 까요... 고수님들 답을 알려 주소소....

    >

    >

    >