Q&A

  • 스트링 그리드 임당... 도움을 ^^
안뇽 하신가엽 고수님&중수님들 ^^



허접 사발임당....



암만 해두 스트링 그리드에서 자꾸 막히네엽 ㅠ.ㅠ



아래의 소스는 지가 맹근 쏘스인디엽 ㅠ.ㅠ( 지가 어디 어디에 있는걸 짜집기 한것임당. ㅠ.ㅠ) 그런디 이상하게 결과 값이 검사번호,제조번호,순번,유발공정 4개만 달랑 나오네엽 ㅠ.ㅠ 환장하겠슴당. 도와 주이소 ㅠ.ㅠ







procedure Tdeleteform.listbox1Click(Sender: TObject);

var

i,j:integer;

begin

i:=1;

j:=1;

stringgrid1.RowCount:=6;

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;



with stringgrid1 do

begin

rowcount := form6.Query6.RecordCount +6;

cells[0,0]:='';

cells[1,0]:='검사번호';

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

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

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

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

cells[6,0]:='불량코드';

end;

while not form6.Query6.Eof do

begin

stringgrid1.Cells[i,j]:=form6.Query6.fieldbyname('검사번호').asstring;

i:=i+1;

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

i:=i+1;

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

i:=i+1;

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

i:=i+1;

// stringgrid1.Cells[i,j]:=datetimetostr(form6.Query6.fieldbyname('조치일자').asdatetime);

// i:=i+1;

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

i:=i+1;

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

i:=1;

j:=j+1;

stringgrid1.RowCount:=stringgrid1.RowCount+1;

form6.Query6.next;

end

end;

end;



3  COMMENTS
  • Profile
    호야 2000.08.08 01:33
    사바리.. wrote:

    > 안뇽 하신가엽 고수님&중수님들 ^^

    >

    > 허접 사발임당....

    >

    > 암만 해두 스트링 그리드에서 자꾸 막히네엽 ㅠ.ㅠ

    >

    > 아래의 소스는 지가 맹근 쏘스인디엽 ㅠ.ㅠ( 지가 어디 어디에 있는걸 짜집기 한것임당. ㅠ.ㅠ) 그런디 이상하게 결과 값이 검사번호,제조번호,순번,유발공정 4개만 달랑 나오네엽 ㅠ.ㅠ 환장하겠슴당. 도와 주이소 ㅠ.ㅠ

    >

    >

    >

    > procedure Tdeleteform.listbox1Click(Sender: TObject);

    > var

    > i,j:integer;

    > begin

    > i:=1;

    > j:=1;

    > stringgrid1.RowCount:=6;

    > 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;

    >

    > with stringgrid1 do

    > begin

    > rowcount := form6.Query6.RecordCount +6;

    > cells[0,0]:='';

    > cells[1,0]:='검사번호';

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

    > cells[3,0]:='순번';

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

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

    > cells[6,0]:='불량코드';

    > end;

    > while not form6.Query6.Eof do

    > begin

    > stringgrid1.Cells[i,j]:=form6.Query6.fieldbyname('검사번호').asstring;

    > i:=i+1;

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

    > i:=i+1;

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

    > i:=i+1;

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

    > i:=i+1;

    > // stringgrid1.Cells[i,j]:=datetimetostr(form6.Query6.fieldbyname('조치일자').asdatetime);

    > // i:=i+1;

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

    > i:=i+1;

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

    > i:=1;

    > j:=j+1;

    > stringgrid1.RowCount:=stringgrid1.RowCount+1;

    > form6.Query6.next;

    > end

    > end;

    > end;

    >





    ColCount값이 어떻게 되나요?

  • Profile
    타락천사 2000.08.05 21:19
    사바리.. wrote:

    > 안뇽 하신가엽 고수님&중수님들 ^^

    >

    > 허접 사발임당....

    >

    > 암만 해두 스트링 그리드에서 자꾸 막히네엽 ㅠ.ㅠ

    >

    > 아래의 소스는 지가 맹근 쏘스인디엽 ㅠ.ㅠ( 지가 어디 어디에 있는걸 짜집기 한것임당. ㅠ.ㅠ) 그런디 이상하게 결과 값이 검사번호,제조번호,순번,유발공정 4개만 달랑 나오네엽 ㅠ.ㅠ 환장하겠슴당. 도와 주이소 ㅠ.ㅠ

    >

    >

    >

    > procedure Tdeleteform.listbox1Click(Sender: TObject);

    > var

    > i,j:integer;

    > begin

    > i:=1;

    > j:=1;

    > stringgrid1.RowCount:=6;

    > 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;

    >

    > with stringgrid1 do

    > begin

    > rowcount := form6.Query6.RecordCount +6;

    > cells[0,0]:='';

    > cells[1,0]:='검사번호';

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

    > cells[3,0]:='순번';

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

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

    > cells[6,0]:='불량코드';

    > end;

    > while not form6.Query6.Eof do

    > begin

    > stringgrid1.Cells[i,j]:=form6.Query6.fieldbyname('검사번호').asstring;

    > i:=i+1;

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

    > i:=i+1;

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

    > i:=i+1;

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

    > i:=i+1;

    > // stringgrid1.Cells[i,j]:=datetimetostr(form6.Query6.fieldbyname('조치일자').asdatetime);

    > // i:=i+1;

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

    > i:=i+1;

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

    > i:=1; <----- 이건 몬가여? 빼야겠져? ^^;;

    > j:=j+1;

    > stringgrid1.RowCount:=stringgrid1.RowCount+1;

    > form6.Query6.next;

    > end

    > end;

    > end;

    >



    글구 코드는 이상없으니.. 스트링그리드에 안뿌려지는건,,



    Query6의 필드에 값이 없다는거져..



    즐푸하세여...^^



    타락천사....

  • Profile
    서현우 2000.08.05 20:59
    안녕하세요...고수님들께 많은 도움을 받고 있는 델초보입니다...

    일단 제 생각을 말씀드리면...조치일자 부분을...이렇게 바꿔보시는게..

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

    그리고, 조치내역은 혹시 테이블에 있는 조치내역 필드 type이 text 또는 longtext가 아

    닌지요...저도 자세히는 모르지만...저역시도 type이 text인걸 스트링그리드에 뿌려주려

    고하는데...아무리 해도 안되더라구요...그래서 저도 지금 애먹고 있음...그리고, 나머

    지 하나는 저도 잘 모르겠네요...혹시나 하는 마음에 제 생각을 올려봤습니다...

    즐코하시구요...혹시 해결방법 아시게되면 저도 좀 갈켜 주세요...^^







    사바리.. wrote:



    > 안뇽 하신가엽 고수님&중수님들 ^^

    >

    > 허접 사발임당....

    >

    > 암만 해두 스트링 그리드에서 자꾸 막히네엽 ㅠ.ㅠ

    >

    > 아래의 소스는 지가 맹근 쏘스인디엽 ㅠ.ㅠ( 지가 어디 어디에 있는걸 짜집기 한것임당. ㅠ.ㅠ) 그런디 이상하게 결과 값이 검사번호,제조번호,순번,유발공정 4개만 달랑 나오네엽 ㅠ.ㅠ 환장하겠슴당. 도와 주이소 ㅠ.ㅠ

    >

    >

    >

    > procedure Tdeleteform.listbox1Click(Sender: TObject);

    > var

    > i,j:integer;

    > begin

    > i:=1;

    > j:=1;

    > stringgrid1.RowCount:=6;

    > 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;

    >

    > with stringgrid1 do

    > begin

    > rowcount := form6.Query6.RecordCount +6;

    > cells[0,0]:='';

    > cells[1,0]:='검사번호';

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

    > cells[3,0]:='순번';

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

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

    > cells[6,0]:='불량코드';

    > end;

    > while not form6.Query6.Eof do

    > begin

    > stringgrid1.Cells[i,j]:=form6.Query6.fieldbyname('검사번호').asstring;

    > i:=i+1;

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

    > i:=i+1;

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

    > i:=i+1;

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

    > i:=i+1;

    > // stringgrid1.Cells[i,j]:=datetimetostr(form6.Query6.fieldbyname('조치일자').asdatetime);

    > // i:=i+1;

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

    > i:=i+1;

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

    > i:=1;

    > j:=j+1;

    > stringgrid1.RowCount:=stringgrid1.RowCount+1;

    > form6.Query6.next;

    > end

    > end;

    > end;

    >