콤보박스의항목을선택했을때자료가 엠피티일때 쇼메세지 보이게하기

저는 밑에처럼코딩하니깐 선택된 항목마다 메세지가 보이거던여

어느 위치에다 써야하는지

scode가 primary key이거던여 이런형식이 맞는지?



if fdm.qmain.fieldbyname('scode').asstring=emptystr then

showmessage('자료가없습니다');



With Fdm.qmain do

begin

close;

sql.clear;

sql.add('select * from person');

open;

end;

with fdm.qbuseo do

begin

close;

sql.clear;

sql.add('select* from buseo_code');

sql.add('order by buseo_code');

open;

while not eof do

begin

buseo_code.Items.add( fieldbyname('buseo').asstring);<==부서코드콤보박스부서명

next;

end;

open;

buseo_code.setfocus;

end;

end;