procedure TF_MCR110.BB_OKClick(Sender: TObject);

var

i,J,LN : integer;

begin

for i := 0 to STG_DISPLAY.RowCount - 1 do begin

for j := 0 to 3 do begin

STG_DISPLAY.Cells[i,j] := '';

end;

end;

STG_DISPLAY.ColWidths[0] := 35;

STG_DISPLAY.ColWidths[1] := 35;

STG_DISPLAY.ColWidths[2] := 150;

STG_DISPLAY.ColWidths[3] := 240;



STG_DISPLAY.Cells[0,0] := 'No';

STG_DISPLAY.Cells[1,0] := '코드';

STG_DISPLAY.Cells[2,0] := '사업부명';

STG_DISPLAY.Cells[3,0] := '파트명';



WITH Q_INQUERY DO BEGIN

CLOSE;

SQL.CLEAR;

SQL.ADD('SELECT * FROM MCR110');

BEGIN

IF RB_01.Checked = TRUE THEN

BEGIN

SQL.Add('WHERE CODE >= :CD1 AND CODE <= :CD2');

SQL.ADD('ORDER BY CODE');

ParamByName('CD1').AsString := E_CD1.TEXT;

ParamByName('CD2').AsString := E_CD2.TEXT;

END

ELSE

IF RB_02.Checked = TRUE THEN

BEGIN

SQL.Add('WHERE H_NAME like :CODE');

SQL.ADD('ORDER BY H_NAME, CODE');

ParamByName('CODE').AsString := '%' + E_NAME1.TEXT + '%';

END

ELSE

IF RB_03.Checked = TRUE THEN

BEGIN

SQL.Add('WHERE S_NAME like :CODE');

SQL.ADD('ORDER BY S_NAME, CODE');

ParamByName('CODE').AsString := '%' + E_NAME2.TEXT + '%';

END;

END;

OPEN;

First;

END;



STG_DISPLAY.RowCount := Q_INQUERY.RecordCount + 1;

NE_TOTCNT.Value := Q_INQUERY.RecordCount;

Q_INQUERY.RECNO := Q_INQUERY.RecordCount;

NE_TOTCNT.Value := Q_INQUERY.RecNO;





if Q_Inquery.Eof then

begin

STG_DISPLAY.RowCount := 2;

showmessage('찾을 data가 없습니다..');

Exit;

end ;





while not Q_Inquery.Eof do



begin

STG_DISPLAY.Cells[0,Q_Inquery.RecNO] := IntToStr(Q_Inquery.RecNo);

STG_DISPLAY.Cells[1,Q_Inquery.RecNo] := Q_InqueryCODE.Value;

STG_DISPLAY.Cells[2,Q_Inquery.RecNo] := Q_MCR110H_NAME.Value;

STG_DISPLAY.Cells[3,Q_Inquery.RecNo] := Q_MCR110S_NAME.Value;

Q_INQUERY.Next;



END;

STG_DISPLAY.SetFocus;



end;



>>>>>

조회 버튼에 대한 소스가 위와 같습니다......

여기서 실행하게 되면 카운트 값은 -1로 나오고 조회된 결과는 나오질 않습니다.

고수님들의 한수 부탁드립니다.