자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

Delphi StringGrid에 RowCount수가 건수는 447개인데 최대 190개까지밖에 안나옵니다.

2017.10.26 15:34

AllwaysHappy 조회 수:911

본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 바쁜 와중에도 답변을 주시는 분들께 감사 댓글 필수
-----------------------------------------------------------------------------------------------

델파이 완전 초보자인데 델파이 고수님들의 해결을 고대하고 있습니다.

 

StringGrid에 검색된 결과를 표현하는데,, 검색된 건수는 446개인데,,

StringGrid에는 190개 밖에 표현이 않됨니다. 즉 Rwo수는 건수대로 446개로 나타납니다.

그런데 190개까지는 데이터가 제대로 표시되는데,, 그 이후는 모두 공백입니다.

혹시 StringGrid에서 표현되는 숫자를 지정하는 곳이 있는가 찾아보니 없는것 같아

고수님들에게 질문을 합니다. 좋은 해결책 부탁드립니다.

 

개발환경은 Windows7이고 델파이 버젼은 Embarcadero® Delphi 10.1 Berlin 입니다.

    

개발은 Delphi 교재 258페이지의 Stringgrid의 내용을 참조하여 작성했습니다.

교재에는 오류가 없으니까 데이터가 표현되는데 다른 속성 지정에 문제가 있을까요?

 

작성된 코드는 다음과 같습니다.

  with qryAccountH do

    begin

      Close;

      SQL.Clear;

      SQL.ADD('SELECT *                             ');

      SQL.ADD('FROM    npl_ACCOUNT_H                ');  

      SQL.ADD('WHERE  ACCT_NBR = :acct_nbr          ');

      SQL.ADD('ORDER BY TX_DT,TX_SEQ_NBR            ');

      ParamByName('acct_nbr').AsString := edAccntNbr.Text ;

      Open;

    end;

 

  qryAccountH.Last;    //최종 데이터까지 가져오기 위한 처리

  edTotCnt.text := IntToStr(qryAccountH.RecordCount);

 

  for I := 1 to qryAccountH.RecordCount do   //초기화 처리

    begin

      StrAccountH.Cells[0,i] := '';

      StrAccountH.Cells[1,i] := '';

      StrAccountH.Cells[2,i] := '';

      StrAccountH.Cells[3,i] := '';

      StrAccountH.Cells[4,i] := '';

      StrAccountH.Cells[5,i] := '';

      StrAccountH.Cells[6,i] := '';

      StrAccountH.Cells[7,i] := '';

      StrAccountH.Cells[8,i] := '';

   end;

 

   StrAccountH.RowCount := qryAccountH.RecordCount + 1; 

   qryAccountH.First;   //위치를 제일 처음으로 가서

 

  for I := 1 to qryAccountH.RecordCount do

   WITH StrAccountH do

     begin

        Cells[0,i] := IntToStr(i);

        Cells[1,i] := Copy(qryAccountH.FieldByName('TX_DT').AsString,1,4);

        Cells[2,i] := Copy(qryAccountH.FieldByName('RCKNG_DT').AsString,1,4);

        Cells[3,i] := qryAccountH.FieldByName('TX_SEQ_NBR').AsString;     //순번

        Cells[4,i] := qryAccountH.FieldByName('tx_tp_g').AsString;          //거래구분

        Cells[5,i] := qryAccountH.FieldByName('amt_tpcd_des').AsString;   //계정과목명

        Cells[6,i] := qryAccountH.FieldByName('amt_tp_cdNm').AsString;    //금액유형

        Cells[7,i] := FormatFloat('0,',StrToInt(qryAccountH.FieldByName('Tx_Amt').AsString));    //처리 금액

        Cells[8,i] := qryAccountH.FieldByName('tpcd_des').AsString;    //적요

 

       qryAccountH.Next;

     end;

 
 

 

 

이 게시물을
목록
목록
번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 17155
공지 유용한 관련 사이트 관리자2 2014.03.20 56022
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 99453
533 델파이 디버깅 키 문의 [1] 가나다 2019.03.13 475
532 구글스토어 개발자콘솔 앱등록 관련 문의드립니다. 시리온느 2019.03.13 199
531 델파이 XE 디버깅시 매번 재컴파일 하나요? [1] 가나다 2019.03.14 147
530 델파이는 왜 최소화, 최대화, 끄기 버튼을 새로 만드나요? [3] 엽기토끼이요 2019.03.14 646
529 Android에서 Wifi Scan하기 위한 TJBroadcastReceiver를 어떻게 구현해야 하나요? [1] 개성산전 2019.03.18 487
528 mysql 연동관련하여 질문합니다. [1] sj9418 2019.03.20 750
527 XE7 Webbrowser 컴포넌트의 Navigate를 이용시 ..... 구름1004 2019.03.22 182
526 Comport Lib XE2 찾아요 [1] 가나다 2019.03.22 120
525 컴파일 할 때 더 깊이 들어가는 방법 [2] file 엽기토끼이요 2019.03.25 148
524 퀵레포트 질문입니다. [1] 희망나라 2019.03.26 152
523 Delphi 2007 Component 문의드립니다. 예자매파파 2019.03.27 243
522 Berlin 에서 Rio 로 변경 오류 (추가) 제트콜 2019.03.28 160
521 tcxGrid 에서 Column 컬러 변경 [2] 가나다 2019.03.28 835
520 멀티디바이스 프로그램에서 listboxitem에 사용자 정의 스타일 적용 문의 file agallee 2019.03.29 150
519 블랙스크린 file 넓다란세상 2019.03.30 115
518 addindex 에서 key viloation 에러 [2] 가나다 2019.04.02 258
517 DataSnap Server 에러 델파인 2019.04.02 158
516 VCL 화면을 웹페이지처럼 디자인 하려면 어떻게 해야 하나요? [2] 미스터리 2019.04.02 348
515 SQL query에 변수 사용의 문제 [1] 뎅현 2019.04.03 386
514 실명인증, 본인인증 [1] 가나다 2019.04.03 461
쓰기
태그