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

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

2017.10.26 15:34

AllwaysHappy 조회 수:914

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

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

 

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 17284
공지 유용한 관련 사이트 관리자2 2014.03.20 56173
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 99593
899 동영상 재생시 로그파일 문의 [1] 소란코더 2017.11.25 907
898 [마이그레이션] Error creating form [1] file 다소미 2015.07.28 907
897 [질문] 엑셀파일 저장시 pdf화일로 저장 가능할까요? [1] delphi 2020.07.16 908
896 [공유] LG G 패드 8.3(안드로이드 4.2.2)에서 델파이로 만든 앱을 테스트할 수 있는 방법이 있을까요? 험프리 2015.10.26 910
895 프로그램이 얼어버리고 블랙스크린이 됩니다 어려워 2014.12.02 911
» StringGrid에 RowCount수가 건수는 447개인데 최대 190개까지밖에 안나옵니다. [3] AllwaysHappy 2017.10.26 914
893 FDquery 컴포넌트 관련 질문 드립니다,. [2] 총이 2015.01.13 917
892 exe파일의 폼(TForm) 리소스(RCDATA) 포함안되게 하는 방법은 [3] file 미스터몽키 2017.01.09 918
891 datasnap 서버작성후 연결문제 [1] file 다존 2014.11.25 918
890 [공유] 모달 창이 간혹 다른 화면 뒤로 숨는 경우가 발생합니다. 무조건 최상위로 띄울 수 있는 방법이 있나요? 험프리 2017.06.12 927
889 Lib Path 설정방법 [1] 이영진 2017.08.13 929
888 가상키보드 처리 [2] 김태윤 2016.03.26 929
887 스피드버튼으로 한글 입력 되도록 할 때 Delphi7 은 이상이 없는데 XE10 은 한글이 쪼개집니다. [2] 막스뮐러 2018.05.09 932
886 임베디드 디비(IBLITE)를 사용하는 앱을 만들었습니다. 어려워 2015.02.13 934
885 WSDL 함수 호출 [2] 나마 2020.08.26 934
884 프로그램 배포 시 사용하는 release 모드 설정이 안됩니다. [6] devsky 2015.06.09 935
883 웹 상에서 이미지 다운시 질문 [4] 희망나라 2020.01.30 935
882 텍스트화일 입출력 문제 [2] 한시민 2016.04.11 936
881 JSON 포맷의 데이터를 이용하고 싶습니다. [1] 험프리 2016.11.02 937
880 [DB문의] Query결과 Row가 여러개일 경우 동시에 보여주는 방법 문의 [1] file 이경백 2015.07.26 940
쓰기
태그