아래를 보심 알겠지만서두



리스트 박스를 클릭 할때 쿼리값을 스트링 그리드에 뿌려주는건디..



어떻게 해야 할쥐를 모르겠네엽.... 부디 이 우매한 중생에게 환한 길을 열어 주소서..



그럼 이만.....고수님들만 믿습니당.... 휙



procedure Tdeleteform.listbox1Click(Sender: TObject);

var

i:byte;

begin

with form6.Query6 do

begin

close;

sql.clear;

sql.add('select 제조번호,순번,유발공정,조치내역,조치일자,불량코드');

sql.Add('from 불량내역');

sql.Add('where 제조번호='''+edit1.Text+'''');

sql.Add('order by 제조번호');

prepare;

open; end;

with stringgrid1 do

begin

rowcount := form6.Query6.RecordCount +7;

cells[0,0]:='';

cells[1,0]:='제조번호';

cells[2,0]:='순번';

cells[3,0]:='불량부위';

cells[4,0]:='불량내역';

cells[5,0]:='유발공정';

cells[6,0]:='조치내역';

cells[7,0]:='조치일자';

end;

if form6.Query6.RecordCount > 0 then

begin

while not form6.Query6.Eof do

begin

stringgrid1.Cells[0,i]:=form6.Query6.fieldbyname('제조번호').asstring;

stringgrid1.Cells[1,i]:=form6.Query6.fieldbyname('순번').asstring;

stringgrid1.Cells[2,i]:=form6.Query6.fieldbyname('유발공정').asstring;

stringgrid1.Cells[3,i]:=form6.Query6.fieldbyname('조치내역').asstring;

stringgrid1.Cells[4,i]:=form6.Query6.fieldbyname('조치일자').asstring;

// stringgrid1.Cells[5,i]:=form6.Query6.fieldbyname('제조번호').asstring;

// stringgrid1.Cells[6,i]:=form6.Query6.fieldbyname('제조번호').asstring;

inc(i);

form6.Query6.next;

end



end;

end;