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;
허접 사발임당....
암만 해두 스트링 그리드에서 자꾸 막히네엽 ㅠ.ㅠ
아래의 소스는 지가 맹근 쏘스인디엽 ㅠ.ㅠ( 지가 어디 어디에 있는걸 짜집기 한것임당. ㅠ.ㅠ) 그런디 이상하게 결과 값이 검사번호,제조번호,순번,유발공정 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
-
-
사바리.. 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의 필드에 값이 없다는거져..
즐푸하세여...^^
타락천사....
-
안녕하세요...고수님들께 많은 도움을 받고 있는 델초보입니다...
일단 제 생각을 말씀드리면...조치일자 부분을...이렇게 바꿔보시는게..
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;
>
(NOTICE) You must be logged in to comment on this post.
-
- 토비
- •
- 2000.08.05 20:40
- 1 COMMENTS
- /
- 0 LIKES
-
parkisu•2000.08.06 08:10토비 wrote: > 안냐세요. 처음 질문을 던져봅니다. > > db를 combobox로 읽어오는데 1번째 Combobox로 ...
-
- 이덕우
- 2000.08.05 20:06
- 0 COMMENTS
- /
- 0 LIKES
-
- 사바리..
- •
- 2000.08.05 19:45
- 3 COMMENTS
- /
- 0 LIKES
안뇽 하신가엽 고수님&중수님들 ^^ 허접 사발임당.... 암만 해두 스트링 그리드에서 자꾸 막히네엽 ㅠ.ㅠ 아래의 소스는 지가 맹근 쏘스인디엽 ㅠ.ㅠ( 지가 어디 어디에 있는걸 짜집기 한것임당. ㅠ.ㅠ) 그런디 이상하게 결과 값이 검사번...-
호야•2000.08.08 01:33사바리.. wrote: > 안뇽 하신가엽 고수님&중수님들 ^^ > > 허접 사발임당.... > > 암만 해두 스트...
-
타락천사•2000.08.05 21:19사바리.. wrote: > 안뇽 하신가엽 고수님&중수님들 ^^ > > 허접 사발임당.... > > 암만 해두 스트...
-
서현우•2000.08.05 20:59안녕하세요...고수님들께 많은 도움을 받고 있는 델초보입니다... 일단 제 생각을 말씀드리면...조치일자 ...
-
- 박석준
- 2000.08.05 16:46
- 0 COMMENTS
- /
- 0 LIKES
-
- 이경문
- 2000.08.05 10:17
- 0 COMMENTS
- /
- 0 LIKES
-
- 김건우
- 2000.08.05 09:05
- 0 COMMENTS
- /
- 0 LIKES
-
- 한영수
- •
- 2000.08.05 08:16
- 1 COMMENTS
- /
- 0 LIKES
-
강호규•2000.08.06 01:03[개인 소견] 참고만 하세요! 정확한 답변은 아닙니다. DB 작업중 모래시계에서 다운된다고 그러셨는데, ...
-
- 한미르
- •
- 2000.08.05 07:03
- 1 COMMENTS
- /
- 0 LIKES
-
4master•2000.08.05 14:38한미르 wrote: > 코딩을 하구...등록버튼을 눌렀어요... > 근데...에러가 뜨네요...이게 무슨에러 일까요...
-
- 초보자
- •
- 2000.08.05 05:57
- 1 COMMENTS
- /
- 0 LIKES
-
4master•2000.08.05 10:22초보자 wrote: > 네트
-
- 김정식
- •
- 2000.08.05 05:40
- 2 COMMENTS
- /
- 0 LIKES
-
펑크•2000.08.05 22:16강민주님 팁중에서... uses shlobj; //리턴값은 선택한 컴퓨터 이름.. function BrowseForCompu...
-
김정식•2000.08.07 18:13답변에 감사합니다. 그런제 제의도와 조금 다르네요. 이것은 선택 창이 뜨는데.... 전 선택창이 아니라...
-
- 최진석
- •
- 2000.08.05 04:58
- 1 COMMENTS
- /
- 0 LIKES
-
김명성•2000.08.06 00:53최진석 wrote: > 제목 그대로 어떠한 경우에 나는 에러인진요.. 제 경우에는 db를 open시킨후 에러에 ...
-
- 조영은
- 2000.08.05 04:50
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보자
- •
- 2000.08.05 04:33
- 2 COMMENTS
- /
- 0 LIKES
-
4master•2000.08.05 10:24초보자 wrote: > 델파이 5에서 TwebBrowser component로 브라우져를 만들었습니다. > > 근디 엔터가 안...
-
초보자•2000.08.08 18:424master wrote: > 초보자 wrote: > > 델파이 5에서 TwebBrowser component로 브라우져를 만들었습니다. ...
-
- EzyRyder
- •
- 2000.08.05 03:13
- 1 COMMENTS
- /
- 0 LIKES
-
노을•2000.08.05 07:22안녕하세요 노 을 입니다.. 음.. Uses 이하 implementation 보다는 위에 선언해서 사용하는 것...
-
- 한미르
- •
- 2000.08.05 02:04
- 4 COMMENTS
- /
- 0 LIKES
-
사바리..•2000.08.05 02:43procedure Tmainform.SpeedButton4Click(Sender: TObject); var a,b,c,d,e,f,k,j,g,s:string; begin ...
-
정지호•2000.08.05 02:19한미르 wrote: > 도와 주세요...몇일째....흑흑..!!답답... > 폼에 데이터를 입력하구..등록번튼을 눌르...
-
4master•2000.08.05 02:16한미르 wrote: > 도와 주세요...몇일째....흑흑..!!답답... > 폼에 데이터를 입력하구..등록번튼을 눌르...
-
한미르•2000.08.05 04:37답변주신 분들 정말..마니마니 감사함다......!! 답변해 주신 여러분이 있어서 힘이 나네요....... 열심...
-
- 양병호
- 2000.08.05 02:27
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보
- •
- 2000.08.05 01:59
- 2 COMMENTS
- /
- 0 LIKES
-
정지호•2000.08.05 02:35왕초보 wrote: > 꼭 좀 알려주세요. > 몇일째 같은 짓만 하고 있습니다. > Excel에서 ADO 데이터를 읽어...
-
4master•2000.08.05 02:21왕초보 wrote: > 꼭 좀 알려주세요. > 몇일째 같은 짓만 하고 있습니다. > Excel에서 ADO 데이터를 읽어...
-
- 김종석
- 2000.08.05 01:54
- 0 COMMENTS
- /
- 0 LIKES
-
- 이병돈
- •
- 2000.08.05 01:51
- 4 COMMENTS
- /
- 0 LIKES
-
parkisu•2000.08.06 08:50이병돈 wrote: > stringGrid에서 선택한 row를 지우는 방법을 알려주세요.. > > 아무리 해도 안되네요...
-
서현우•2000.08.05 03:38이병돈 wrote: > stringGrid에서 선택한 row를 지우는 방법을 알려주세요.. > > 아무리 해도 안되네요...
-
이병돈•2000.08.06 08:22답변 감사합니다. data가 아니고 특정 row를 삭제하고 그 아래 row들은 현재 순서대로 1칸씩 당겨지는 ...
-
BENGI•2001.03.14 17:19이병돈 wrote: > 답변 감사합니다. > data가 아니고 특정 row를 삭제하고 그 아래 row들은 현재 순서대...
-
- 이화
- 2000.08.05 01:47
- 0 COMMENTS
- /
- 0 LIKES
> 안뇽 하신가엽 고수님&중수님들 ^^
>
> 허접 사발임당....
>
> 암만 해두 스트링 그리드에서 자꾸 막히네엽 ㅠ.ㅠ
>
> 아래의 소스는 지가 맹근 쏘스인디엽 ㅠ.ㅠ( 지가 어디 어디에 있는걸 짜집기 한것임당. ㅠ.ㅠ) 그런디 이상하게 결과 값이 검사번호,제조번호,순번,유발공정 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값이 어떻게 되나요?