사바리.. wrote:

> 하요 좋은 아침임당...^^

>

> 질문 내용을 아래의 쿼리값을 스트링 그리드에 나타낼려구 함당...^^

>

> 어떻게 해야하나엽 ^^ 갈켜 주시와엽.. 어제 미스터 큐님이 가르쳐 주셨는디..

>

> 지가 해보니까 잘 안돼네엽... 스트링그리드에 대한 것들도 뒤져 봤지만... 헐

>

> 지가 원하는내용이 없네여...^^

>

> 아래의 내용을 스트링 그리드에 넣는 소스 내지 방법좀 갈켜 주심 감솨 감솨 하겠습니당..^^

>

>

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

>

> ###############################################################초보 중의 초보 사발

>

쿼리를 Open하셨으면..

데이타의 맨첨으루 가서

데이타의 맨끝이 닻을때까지 하나씩 읽어서 스트링그리드에 넣으면 되요..

칼럼은 Fieldcount만큼

로는 Recordcount만큼요...



var

i,j,Colcount,rowcount:integer;



begin

with Query1 do

begin

Open;

Colcount:=Fieldcount;

Rowcount:=Recordcount;

first;

for i:=0 to Rowcount-1 do

begin



for j:=0 to Colcount-1 do

begin

StringGrid1.Cells[i,j]:=Fields[j].AsString;

end;

next;



end;



end;

end;



이렇게 하면 될껄요...실행을 안시켜봐서 모르겠는데..

안녕하세여.. 타락임다..^^



질문보고 함 만들어 봤어여...



스트링그리드에 라인단위로 데이터를 넣는 함수를 함 만들어봤슴다..



라인단위니까, 레코드 단위가 되겠져..



응용해 보심 될겁니다..... 글구 이해가 안가면 멜 주세여..



제가 요즈음 바뻐서뤼....^^;;;;



procedure TMainForm.BitBtn1Click(Sender: TObject);

var

i : integer;

e1, e2, e3, esum: string;

begin

e1 := Edit1.Text;

e2 := Edit2.Text;

e3 := Edit3.Text;

esum := e1 + #13 + e2 + #13 + e3;

for i := 0 to 5 do

begin

StringGrid1.Rows[i].SetText(pChar(esum));

end;

end;



즐푸하세여..^^



타락천사..

헐 제나름대로 코딩했는디 ㅠ.ㅠ 이건 어린왕자님이 주신 소스도 아니고



타락님이 주신 소스도 아님당... 지가 이거 저거 찾아보고 한건디... 영안되는군엽 ㅠ.ㅠ



죄성 ㅠ.ㅠ 넘 허접이라 타락님 소스보시고



타락님의 고견을 야그해주십쇼... 그럼 기댕김당..^^



※피에수: 아래 소스를 돌리다보면엽.. 날짜가 안들어 감당..

글구 지가 원하는 값이 다 안나옴당.. 검사번호,제조번호,순번, 유발공정 까지 밖에 안나오는군엽 ㅠ.ㅠ 왜이런일이....



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]:='불량코드';

cells[7,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]:=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;

;



j:=j+1;

stringgrid1.RowCount:=stringgrid1.RowCount+1;

form6.Query6.next;

end

안녕하세여..타락임다..^^



전 DBGrid를 써서..뤼....^^;;;



안돌려보고 코드를 달아봤습니다.. 아마 될겁니다..



지가 지금 마튼 프로젝트 일정이 무지 빡빡해서.. 지송함다...ㅠㅠ



j := 0;

StringGrid1.ColCount := Form6.Query6.FieldCount; // FieldCount 가 없나여?

StringGrid1.RowCount := Form6.Query6.RecordCount; // RowCount 설정

StringGrid1.Rows[j] := '' + #13 + '검사번호' + '제조번호' + '순번' + '유발공정'

+ '조치내역' + '불량코드' + '조치일자';

j := j + 1;

with stringgrid1 do

with From6.Query6 do

begin

First;

For i := 1 to RecordCount do

begin

stringgrid1.Rows[j]:= fieldbyname('검사번호').asstring

+ #13 + fieldbyname('제조번호').asstring

+ #13 + fieldbyname('순번').asstring

+ #13 + fieldbyname('유발공정').asstring

+ #13 + fieldbyname('조치내역').asstring

+ #13 + fieldbyname('불량코드').asstring

+ #13 + fieldbyname('조치일자').asstring;

j:=j+1 ;

Next;

end; // of while eof do

end; // of with From6.Query6 do

타락천사 wrote:

> 안녕하세여..타락임다..^^

>

> 전 DBGrid를 써서..뤼....^^;;;

>

> 안돌려보고 코드를 달아봤습니다.. 아마 될겁니다..

>

> 지가 지금 마튼 프로젝트 일정이 무지 빡빡해서.. 지송함다...ㅠㅠ

>

> j := 0;

> StringGrid1.ColCount := Form6.Query6.FieldCount; // FieldCount 가 없나여?

> StringGrid1.RowCount := Form6.Query6.RecordCount; // RowCount 설정

> StringGrid1.Rows[j] := '' + #13 + '검사번호' + '제조번호' + '순번' + '유발공정'

> + '조치내역' + '불량코드' + '조치일자';

> j := j + 1;

> with stringgrid1 do

> with From6.Query6 do

> begin

> First;

> For i := 1 to RecordCount do

> begin

> stringgrid1.Rows[j]:= fieldbyname('검사번호').asstring

> + #13 + fieldbyname('제조번호').asstring

> + #13 + fieldbyname('순번').asstring

> + #13 + fieldbyname('유발공정').asstring

> + #13 + fieldbyname('조치내역').asstring

> + #13 + fieldbyname('불량코드').asstring

> + #13 + fieldbyname('조치일자').asstring;

> j:=j+1 ;

> Next;

> end; // of while eof do

> end; // of with From6.Query6 do

>