조금씩 천천히 꾸준히

CheckListBox에 쿼리해온 데이터를 한 줄씩 보여주고 체크 가능하도록 하는 기능.
검색조건이 DB에 저장되있는 데이터이고 가변적일때 유용할 듯...

우선 TQuery컴포넌트로 데이터를 가져오고 하나씩 CheckListBox에 add하면 된다... 말은 간단... ㅡ.ㅡ

예)

With qPayApplyItems do  // TQuery 컴포넌트
  Try
    ParamByname('ItemCd').AsString := strItemCD;  // 파라메터 넘길 거 있으면 넘겨주고~
    Open;  // 쿼리 실행
    clbPayItem.Clear;  // CheckListBox 깨끗이~
    While not Eof do begin  // 루프 돌려부려~(쿼리해온 데이터 첨부터 끝까지)
      clbPayItem.Items.Add( FieldByName('ITEM').AsString );  // 쿼리해온 데이터 하나 Add!!(컬럼명으로 접근)
      Next;  // 다음 데이터 가져올 준비
    end;
  Finally
    Close;  // 쿼리 닫아주자
  end;

MySQL에 LIMIT라는 것이 있다고 한다.
LIMIT를 통해 결과에서 몇 개의 행이 반환될지를 정할 수 있다고 한다.
어째 Oracle보다 MySQL이 점점 더 좋아보인다. ㅡ.ㅡ;
어쨌든 Oracle에서는 이렇게 해결해야 겠다

예시)
* MySQL(상위 2개의 데이터만 추출)
 SELECT first_name, SUM(sales)
 FROM test_cookie_sales
 GROUP BY first_name
 ORDER BY SUM(sales) DESC
 LIMIT 2;

* 요거를 Oracle에서는
 SELECT *
 FROM
 (SELECT FIRST_NAME, SUM(SALES)
  FROM   TEST_COOKIE_SALES
  GROUP BY FIRST_NAME
  ORDER BY SUM(SALES) DESC)
 WHERE ROWNUM < 3

일단 2줄 길어졌다. ㅎㅎ 인라인 뷰까지 동원... 어쨌든 서울은 온것 같다.

참고) LIMIT 2,10 --> 요렇게 쓰면 3번째 행부터 10개의 행을 추출

* syntax...
    UPDATE my_table
    SET new_column =
    CASE
        WHEN column1 = somevalue1
            THEN newvalue1
        WHEN column2 = somevalue2
            THEN newvalue2
        ELSE newvalue3
    END;

* example...
    UPDATE test_movie_table
    SET category =
    CASE
        WHEN rating = 'R'
            THEN 'action'
        WHEN rating = 'PG'
            THEN 'drama'
        WHEN test_movie_id = '90'
            THEN 'horror'
        ELSE 'misc'
    END;

음... 좋은건가... 아직 실전에 안써먹어봐서 잘 모르겠음... >.<

// 연봉구분 파라메터 셋팅
  Case RGYYPAY_YN3.ItemIndex Of
    0 : qMonPayItem.ParamByName('P_YYPAY_YN3').AsString := '%';
    1 : qMonPayItem.ParamByName('P_YYPAY_YN3').AsString := 'Y';
    2 : qMonPayItem.ParamByName('P_YYPAY_YN3').AsString := 'N';
  End;
  Case RGYYPAY_YN2.ItemIndex Of
    0 : qMonPayItem.ParamByName('P_YYPAY_YN2').AsString := '%';
    1 : qMonPayItem.ParamByName('P_YYPAY_YN2').AsString := 'Y';
    2 : qMonPayItem.ParamByName('P_YYPAY_YN2').AsString := 'N';
  End;
  Case RGYYPAY_YN1.ItemIndex Of
    0 : qMonPayItem.ParamByName('P_YYPAY_YN1').AsString := '%';
    1 : qMonPayItem.ParamByName('P_YYPAY_YN1').AsString := 'Y';
    2 : qMonPayItem.ParamByName('P_YYPAY_YN1').AsString := 'N';
  End;