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

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

2017.10.26 15:34

AllwaysHappy 조회 수:958

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

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

 

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 20034
공지 유용한 관련 사이트 관리자2 2014.03.20 58944
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 102557
1959 TWebview 가상키보드 문제 [2] 지병철 2017.10.26 607
» StringGrid에 RowCount수가 건수는 447개인데 최대 190개까지밖에 안나옵니다. [3] AllwaysHappy 2017.10.26 958
1957 Android 에서 TMemo에 여러개의 줄이 입력되지 않습니다 [5] 지병철 2017.10.26 338
1956 배포시 borlndmm.dll 찾지못하는 문제때문에 문의 드려요. [2] 현수막 2017.10.25 863
1955 BitBtn 모양이 프로젝트마다 달라요. 도와주세요. [1] file kwy0702 2017.10.26 250
1954 BitBtn 모양이 프로젝트마다 달라요. 도와주세요. [1] file kwy0702 2017.10.26 308
1953 TEdit 문제. file Vincent 2017.10.25 172
1952 델파이로 앱 개발 시 VC에서 만들어진 dll을 사용할 수 있나요? [2] 황새냉이 2017.10.19 176
1951 PAServer관련 질문드립니다. [2] 이노베이션 2017.10.23 361
1950 FDLocalSql사용시 쿼리결과에 한글이 제대로 표시되지 않습니다. [1] 왕초보 2017.10.20 140
1949 아이폰 상태바에 내용이 안보이고 그만큼 잘리는 현상입니다. [1] gildata 2017.10.19 366
1948 RAD Studio C++ Builder 10.1 베를린 환경에서 델파이 컴포넌트 Build 안되는 문제.. [1] 펭귄아빠 2017.10.23 374
1947 퀵레포트에 관해서..? [2] 헨씀히포 2017.10.19 295
1946 FTP로 이미지 다운로드 [1] 똘귀아빠 2017.10.20 527
1945 파이어몽키 apk배포에 대하여 [1] 나는프로그래머! 2017.10.19 224
1944 iOS 인증서 관련문의입니다. [2] silkroad99 2017.10.16 192
1943 Android 앱 실행 시 자동 업데이트 방법 [1] 로로봉 2017.10.12 2075
1942 시리얼통신 델파이 -> 안드로이드 시리널통신 도와주세요 [2] 텔로스김 2017.09.22 1057
1941 FMX에서 이미지위에 이미지 삽입하는 방법. [1] Vincent 2017.10.11 341
1940 delphi XE7 - oracle 11g 연동이 안됩니다.. [1] file 유죵 2017.09.29 609
쓰기
태그