Q&A

  • 스트링그리드에서 고정된 셀들이 삭제됨당......ㅠ.ㅠ 이구 이구 환장 환장 (소스포함)


제목에서 처럼 스트링그리드의 고정된 셀들이 삭제됨당...



왜 이런일이 허거덕 ㅠ.ㅠ 이구 이구



어떻게 된거여 왜



고수님들 이유가 몰까엽 ^^



왜 스트링그리드의 고정된 셀들이 삭제가 될까엽



ㅠ.ㅠ 이구이구 분명히 색깔이(고정된셀) 첨조회 할때는 나오다가 2번째조회시부터 안



나와엽...ㅠ.ㅠ 이구 이구 스트링그리드가 왜 나만 미오 하나



고수님들 답변기댕길께여 ^^



rocedure Tdeleteform.listbox1Click(Sender: TObject);

var

qur, qrySecond:Tquery;

i,j:integer;

K,m,n:string;



begin

j:=1;

qur:=Tquery.Create(self);

qrySecond := TQuery.Create(Self);

qur.DatabaseName:='연습데이터';

qrySecond.DatabaseName := '연습데이터';

stringgrid1.ColCount:=8;

with qur do

begin

close;

sql.clear;

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

sql.Add('where 검사번호='''+edit1.Text+'''');

prepare;

open;

with stringgrid1 do

begin

rowcount := qur.RecordCount;

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;



while not qur.Eof do

begin

i:=1;

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

i:=i+1;

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

i:=i+1;

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

i:=i+1;

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

i:=i+1;

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

i:=i+1;

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

i:=i+1;

k:=qur.fieldbyname('불량코드').asstring;

with qrySecond do

begin

close;

sql.clear;

sql.Add('select 불량부위,불량내역 from 불량명세');

sql.Add('where 불량코드='''+k+'''');

prepare;

open;

end;

if not qrySecond.IsEmpty then

begin

m:=qrySecond.fieldbyname('불량부위').asstring;

n:=qrySecond.fieldbyname('불량내역').asstring;

end;



stringgrid1.Cells[i,j]:=m;

i:=i+1;

stringgrid1.Cells[i,j]:=n;

j:=j+1;

stringgrid1.RowCount:=stringgrid1.RowCount+1;

qur.next;

end;

end;

qur.Close;

qrySecond.Close;

qur.Free;

qrySecond.Free;



end;

이 게시물을
1  COMMENTS
  • Profile
    최용일 • 2000.08.14 19:54
    안녕하세요. 최용일입니다.



    확실하지는 않은데... 아래와 같이 코딩해보세요...



    with stringgrid1 do

    begin

    rowcount := qur.RecordCount + 1; ///////////////



    if RowCount <= 1 then RowCount := 2; //////////////



    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;



    ^^ 항상 즐코하세요.



    사발우성 wrote:

    >

    > 제목에서 처럼 스트링그리드의 고정된 셀들이 삭제됨당...

    >

    > 왜 이런일이 허거덕 ㅠ.ㅠ 이구 이구

    >

    > 어떻게 된거여 왜

    >

    > 고수님들 이유가 몰까엽 ^^

    >

    > 왜 스트링그리드의 고정된 셀들이 삭제가 될까엽

    >

    > ㅠ.ㅠ 이구이구 분명히 색깔이(고정된셀) 첨조회 할때는 나오다가 2번째조회시부터 안

    >

    > 나와엽...ㅠ.ㅠ 이구 이구 스트링그리드가 왜 나만 미오 하나

    >

    > 고수님들 답변기댕길께여 ^^

    >

    > rocedure Tdeleteform.listbox1Click(Sender: TObject);

    > var

    > qur, qrySecond:Tquery;

    > i,j:integer;

    > K,m,n:string;

    >

    > begin

    > j:=1;

    > qur:=Tquery.Create(self);

    > qrySecond := TQuery.Create(Self);

    > qur.DatabaseName:='연습데이터';

    > qrySecond.DatabaseName := '연습데이터';

    > stringgrid1.ColCount:=8;

    > with qur do

    > begin

    > close;

    > sql.clear;

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

    > sql.Add('where 검사번호='''+edit1.Text+'''');

    > prepare;

    > open;

    > with stringgrid1 do

    > begin

    > rowcount := qur.RecordCount;

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

    >

    > while not qur.Eof do

    > begin

    > i:=1;

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

    > i:=i+1;

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

    > i:=i+1;

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

    > i:=i+1;

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

    > i:=i+1;

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

    > i:=i+1;

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

    > i:=i+1;

    > k:=qur.fieldbyname('불량코드').asstring;

    > with qrySecond do

    > begin

    > close;

    > sql.clear;

    > sql.Add('select 불량부위,불량내역 from 불량명세');

    > sql.Add('where 불량코드='''+k+'''');

    > prepare;

    > open;

    > end;

    > if not qrySecond.IsEmpty then

    > begin

    > m:=qrySecond.fieldbyname('불량부위').asstring;

    > n:=qrySecond.fieldbyname('불량내역').asstring;

    > end;

    >

    > stringgrid1.Cells[i,j]:=m;

    > i:=i+1;

    > stringgrid1.Cells[i,j]:=n;

    > j:=j+1;

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

    > qur.next;

    > end;

    > end;

    > qur.Close;

    > qrySecond.Close;

    > qur.Free;

    > qrySecond.Free;

    >

    > end;
←First Page
2306 2307 2308 2309 2310 2311 2312 2313 2314 2315
Last Page→
한델 로그인 하기