새로운 글
새로운 덧글

자유롭게 질의 및 응답을 할 수 있는 게시판이며 어느 누구도 답변을 달아야만 하는 의무는 없습니다. 
  • 제품설치/등록/제품 오류 문의: 설치/등록 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.8~2018.11 관리자 2015.01.22 5972
공지 유용한 관련 사이트 관리자2 2014.03.20 43204
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 84867
2165 1msec 이하 타임클럭 문의!! [4] 산으로가자요 2018.01.18 67
2164 android폰에서 첨부파일 클릭시 파일 업로드와 다운로드가 되지를 않습니다. [3] 조르디 2018.01.22 107
2163 아이폰 본인 전화번호 확인방법?? [1] kerry 2018.01.20 262
2162 10.2 TOKYO 버전과 C++ Builder 6.0 간의 호환 질문 [3] goinma 2018.01.16 90
2161 LocationSensor 관련 문의 - GPS 없음 [3] 소란코더 2018.01.17 43
2160 [10.2.2 세미나] 아이폰X 지원되나요? 험프리 2018.01.18 41
2159 [10.2.2 세미나] 혹시 업데이트3이나 Hotfix 계획이 있나요? 험프리 2018.01.18 42
2158 [10.2.2 세미나] 이전 버전과의 차별점 알려주시면 감사하겠습니다. 험프리 2018.01.18 33
2157 [10.2.2 세미나] 리눅스 app 언제 지원되나요? 험프리 2018.01.18 35
2156 콜백문자서비스 개발의뢰 [1] 몰라 2018.01.18 62
2155 Tcalendar 크기 조정 [3] 엔달 2018.01.16 26
2154 keystore [3] 희망나라 2018.01.12 38
2153 [질문] 개발자 Q/A에 있는 QR/바코드 스캐너 앱 샘플코드(ZXing, TFrameStand 사용) 설치하여 10.2 Tokyo 모바일에서실행하니 첨부파일같이 오류가 납니다 [5] file delphi 2018.01.11 72
2152 Delphi 10.2.2 Project close all 후 Error 관련 [2] file 엔달 2018.01.11 52
2151 REST Debugger 실행시 에러 [3] file 미스터몽키 2018.01.08 37
2150 도서 대여 프로그램을 C++ Builder로 변경시 Error [4] file 겨울잠안자는곰 2018.01.10 41
2149 FastReport 관련 [7] 개미 2018.01.08 97
2148 웹소켓 사용 질문 [3] 나즈나 2018.01.07 144
2147 컴포넌트 설치관련 [4] file 개미 2018.01.03 72
2146 idhttp 에서 https 호출시 Could not load SSL library 오류 발생 [2] 신현아빠 2018.01.03 250



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