다음의 예제를 보아 주세요.
예제>
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라는 숫자를 확인한 위의 두 컴보 박스의 콤보 스위치가 작업을 못하도록
하려고 하는데 있었습니다.
근~~~~~~~~~데 작업을 할 수 있게 스위치가 활성화 되더 군요 ?
뭐가 잘못 되었을 까요... 고수님들 답을 알려 주소소....
을 한 다음 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라는 숫자를 확인한 위의 두 컴보 박스의 콤보 스위치가 작업을 못하도록
> 하려고 하는데 있었습니다.
> 근~~~~~~~~~데 작업을 할 수 있게 스위치가 활성화 되더 군요 ?
> 뭐가 잘못 되었을 까요... 고수님들 답을 알려 주소소....
>
>
>