아래를 보심 알겠지만서두
리스트 박스를 클릭 할때 쿼리값을 스트링 그리드에 뿌려주는건디..
어떻게 해야 할쥐를 모르겠네엽.... 부디 이 우매한 중생에게 환한 길을 열어 주소서..
그럼 이만.....고수님들만 믿습니당.... 휙
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;