두개의 콤보박스로 조회를 하려고 합니다.

두개다 '전체'라는 항목을 삽입하여 선택시 전체를 DBGrid에 나타내려 합니다.

일단 end가 안맞아서 지금은 에러가 납니다.

조회두 물론 안되구요..에러는 안납니다.

꼭 봐주시기 바랍니다.



with sch_qry do begin

close;

sql.clear;

sql.text := ' select s.serial, s.buy_code, s.gbuy_code, b.swname, b.note'+

' from stock s, buy b '+

' where s.serial = b.serial ';



if gbuy_cbo.text <> '전체' then

begin

sql.add('and s.gbuy_code = :gbname');

parambyname('gbname').asstring := copy(gbuy_cbo.text,1,2);

end;

if buy_cbo.text <> '전체' then

begin

sql.add('and b.swname = :swname');

parambyname('swname').asstring := copy(buy_cbo.text,1,3);

open;

end

else sch_qry.open

end





else if gbuy_cbo.text = '전체' then

begin

if buy_cbo.text <> '전체' then

begin

sql.add('and b.swname = :swname');

parambyname('swname').asstring := copy(buy_cbo.text,1,3);

open;

end;

end

else sch_qry.open;

end;

end;