새로운 글
새로운 덧글

자유롭게 질의 및 응답을 할 수 있는 게시판이며 어느 누구도 답변을 달아야만 하는 의무는 없습니다. 
  • 제품설치/등록/제품 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

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

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

 

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;

 
 

 

 

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2018.10~2018.12 관리자 2015.01.22 6183
공지 유용한 관련 사이트 관리자2 2014.03.20 43458
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 84963
2345 윈도우 프로그램 배포(인증문제) [1] 스카이 2018.09.10 250
2344 delphi10.2 SDK 관련 설정 문의 2 신우 2018.09.10 77
2343 윈도우10과 이전 윈도우에서 VCL 버튼이나 메지지 상자 코너 표시형태 문의입니다. [2] KJ 2018.09.08 43
2342 delphi 10.2 sdk 설정 관련 문의 [1] file 신우 2018.09.07 67
2341 블루투스 터미널 앱을 만들고싶습니다. 데이터 수신은 어떻게하나요? [1] Rarity 2018.09.09 78
2340 iOS 11.3 개발 시 PrivateFrameworks 관련 에러 [4] 스카이 2018.05.03 184
2339 안녕하세요 datasnap 연결에 대해 질문드립니다. [1] vast 2018.09.05 61
2338 [질문] C++ Builder에서 디버깅 할때, RTL 소스로 들어가지 않는 방법? 베도빈 2018.08.16 48
2337 FMX Path에서 anti aliasing 없애는 방법이 있나요? [2] 100jk 2018.09.01 43
2336 안드로이드 빌드시 Error: Could not create the Java Virtual Machine. 해결방법 문의드립니다 [3] delphi 2018.08.28 139
2335 CTI 연동할때 모니터 하단에서 알림창 같이 떠오르게 하는 방법? 미스터리 2018.08.31 54
2334 폼을 생성할때 ItemIndex를 설정하면 combobox1change 이벤트발생. 오류인듯 -_- [2] 미스터리 2018.08.29 36
2333 RAD Studio 10.2에 버그가 있는 것 같습니다. [1] 쿠리 2018.08.22 113
2332 c빌더 컴파일후 도스창을 유지하는 방법을 알고 싶습니다 [1] 이수욱 2018.08.30 59
2331 델파이 안드로이드 API 26에 관한 질문입니다. [3] 시리온느 2018.08.30 128
2330 안드로이드 모바일 해상도 100jk 2018.08.30 99
2329 delphi 10.2 오류 [1] file midas 2018.08.24 80
2328 델파이 FireMonkey Sample&Help 별도 설치 관련 [2] 허준영 2018.05.04 88
2327 REST.JSON 적용문의 [1] cleo0917 2018.08.27 74
2326 안드로이드 어플 개발중 블루투스 페어링 액티비티 제어 file Operationbt 2018.08.23 176



광고 모듈이 설치되어 있지 않아 실행을 중단합니다..