귀하는 손님 이십니다
로그인
회원가입
  
  델마당 공식 은행계좌
  하나은행 227-910235-83607
  예금주 이상국(운영진)
프로젝트 게시판
투표게시판
델마당소개
기초부터 활용까지! 델파이 교육 - 데브기어
 광고문의 :
吏덈Ц怨 떟蹂 吏덈Ц怨 떟蹂 입니다.
글내용 - 吏덈Ц怨 떟蹂
 [吏덈Ц]옣鍮 젏寃몴 洹몃옒봽濡 蹂닿린媛 李 옒뱶꽕슂.
쟾遊됱닔
(쟾遊됱닔)
2019-03-15 삤쟾 9:56:04
195회 조회


첨부파일 다운로드
냼諛⑹떎꽕젏寃洹몃옒봽_깦뵆.gif
1. 媛쒕컻/떎뻾 뵆옯뤌 
  (1) OS : winows 7
  (2) 媛쒕컻댋 : felphi 7
  (3) 궗슜 Database : firebird 2.1

2. 媛쒕컻 以묒씤 봽濡쒓렇옩 옣鍮 젏寃몴 洹몃젅봽 

3. 吏덈Ц 궡슜 
븞뀞븯꽭슂?
옣鍮 젏寃몴 씠긽쑀臾 寃곌낵瑜 O, X 濡 泥댄겕 븯룄濡 留뚮뱾뿀뒿땲떎.
씠寃껋쓣 Chart 李⑦듃濡 洹몃옒봽瑜 留뚮뱶뒗 怨쇱젙뿉꽌 젣룞씠 嫄몃━뒗洹쇱슂 諛⑸쾿 븳踰덉뿉 대━븯뒗 諛⑸쾿쓣 깮뻽뒗뜲
썡蹂꾨줈 뼇샇, 遺덈웾 移댁슫듃뿉꽌 媛믪씠 젣濡 븞굹샃땲떎. 遺꾨챸엳 대━ 援ъ꽦씠 옒紐삳맂寃 媛숈뜲 떎젰씠 遺議깊빐꽌
뜑씠긽 吏꾩쿃由 븡맗땲떎. 븘옒뒗 蹂蹂移섎せ븳 냼뒪씠怨좎슂 泥⑤뙆븣 洹몃옒봽 엯땲떎.洹몃옒봽瑜 蹂댁떆硫 遺덈웾嫄댁닔
媛 굹빞 븯뒗뜲 썡쓽 궇吏쒖닔 留 移댁슫듃릺뼱 洹몃옒봽 뙆怨좉 씪젙븯寃 굹샃땲떎.  
01 ~ 12 源뚯뒗 썡蹂 씠怨좎슂 ck_chk1 ~ ck-xhk3踰 源뚯뒗 뼇샇'o', 遺덈웾 'x' 濡 DB뿉 옄옣맂 몴떆엯땲떎.

var
  sSQL   : String;
  iRow   : Integer;
  MTSum1 : Array[1..13] of Integer;
  i,j    : Integer;
  iFor   : Integer;
begin
  for iFor := 1 to 13 do
  MTSum1[iFor] := 0;
  // 議고쉶븯怨좎졇븯뒗 궇옄瑜 엯젰븯쑝硫...
  sSQL := ' SELECT ' +
          ' COUNT(DECODE(FIR_MONTH, ''01'',CK_CHK1, ''X'',CK_CHK2, ''X'',CK_CHK3, ''X'', 0)) ST1, ' +
          ' COUNT(DECODE(FIR_MONTH, ''02'',CK_CHK1, ''X'',CK_CHK2, ''X'',CK_CHK3, ''X'', 0)) ST2, ' +
          ' COUNT(DECODE(FIR_MONTH, ''03'',CK_CHK1, ''X'',CK_CHK2, ''X'',CK_CHK3, ''X'', 0)) ST3, ' +
          ' COUNT(DECODE(FIR_MONTH, ''04'',CK_CHK1, ''X'',CK_CHK2, ''X'',CK_CHK3, ''X'', 0)) ST4, ' +
          ' COUNT(DECODE(FIR_MONTH, ''05'',CK_CHK1, ''X'',CK_CHK2, ''X'',CK_CHK3, ''X'', 0)) ST5, ' +
          ' COUNT(DECODE(FIR_MONTH, ''06'',CK_CHK1, ''X'',CK_CHK2, ''X'',CK_CHK3, ''X'', 0)) ST6, ' +
          ' COUNT(DECODE(FIR_MONTH, ''07'',CK_CHK1, ''X'',CK_CHK2, ''X'',CK_CHK3, ''X'', 0)) ST7, ' +
          ' COUNT(DECODE(FIR_MONTH, ''08'',CK_CHK1, ''X'',CK_CHK2, ''X'',CK_CHK3, ''X'', 0)) ST8, ' +
          ' COUNT(DECODE(FIR_MONTH, ''09'',CK_CHK1, ''X'',CK_CHK2, ''X'',CK_CHK3, ''X'', 0)) ST9, ' +
          ' COUNT(DECODE(FIR_MONTH, ''10'',CK_CHK1, ''X'',CK_CHK2, ''X'',CK_CHK3, ''X'', 0)) ST10,' +
          ' COUNT(DECODE(FIR_MONTH, ''11'',CK_CHK1, ''X'',CK_CHK2, ''X'',CK_CHK3, ''X'', 0)) ST11,' +
          ' COUNT(DECODE(FIR_MONTH, ''12'',CK_CHK1, ''X'',CK_CHK2, ''X'',CK_CHK3, ''X'', 0)) ST12 ' +
          ' COUNT(FIR_MONTH) MTSUM
          ' FROM TF_FIREFIG '+
          ' WHERE FIR_DATE BETWEEN ''' + ME_FIR_Date1.Text + ''' '+
          ' AND ''' + ME_FIR_Date2.Text + '''';