오라클에는 시스템 변수중에 rownum이라는 것이 있습니다.
Select절 추가해 보십시오..

예)  select rownum, name, address from 테이블

물론, 필드 알리어스를 줘서 필드명을 변경해도 됩니다.
        물론 아시겠지만...  ^^;

예)  select rownum id, name, address from 테이블
결과)
=========================================
     id          name       address
=========================================
     1           ..                ..
     2           ..                ..
     3           ..                ..
=========================================

오늘 하루 종일 그것만 붙잡거 있었는데...
바로 해결해 주시니 정말 감솨합니다.

근데여..하나더 물어봐더 되져?
코드를 자동생성하거 싶은데..
날짜+코드
즉..
오늘 날짜면..
20020312+001=20020312001
두번째 데이타는 20020312002
날짜가 바뀌면 20020313+001←초기화 시킬려거 하는데 어케 하는게 나을까염..
제생각으로는 뒤에 3개를 짤라낸후 오늘 날짜와 비교해서
같다면...바로 1을 더하거..
아니면 ..오늘 날짜에 001을 더하는방식을 생각하는데...쉽게 하는 방법이 있을까염??

음... Query로는 많은 시간이 투자될듯 하군여..
그래서, Query와 DataSet 컴포넌트를 가지고 해결하는게
빠를듯 하군요..
코딩 길이나 여러가지 시간상으로 말입니다.


1.  일단계
===============================================================
혹시 CalcField라고 아시는지요.
DataSet 컴포넌트에 Query되어진 내용에 특정기능의 필드를
추가할때 사용하거나,
특정 값을 계산할때 사용할 수 있는 필드입니다.
DataSet(Table, Query 컴포넌트)에서 마우스 오른쪽 클릭하면,
나타나는 팝업메뉴에서 FieldEditor라는 것이 있습니다.
그것을 클릭한 후 나타나는 팝업에서
다시 마우스 클릭하면,
팝업메뉴 중 New Field를 선택 합니다..
이 필드는 실제 Field 또는 CalcField, Lookup필드를 정의하기
위한 것입니다.
그곳에서 필드Type을 CalcField를 선택하고
Name에는 필드명을, Type에는 필드 Type을 (String으로 하면 되겠져?)
입력한 후 ok버튼을 클릭하면,
Query 또는 실제 Table의 Field가 아닌 가상의 Field가 생기게 됩니다.
그곳에 님이 나타내고자 하는 Code값을 나타나게 하면 됩니다..
===============================================================

여기까지가 준비단계입니다..


이단계로는
===============================================================
Query문에서
가져올 Date일자를 해결하는 문제입니다..

Query는

       SELECT TO_CHAR(SYSDATE, 'YYYYMMDD')  CODE, .....
          FROM 테이블
        WHERE 비교조건

이렇게 작성을 합니다.. 즉 날짜만 가져옵니다(님이 원한 형식데로..)


<---   이제는 델파이에서 코딩해야한 부분입니다.  --->


<---   순번을 저장할 변수 선언  --->
Private:
      ps_PrvCode, ps_CurCode: String;   //이전일자, 현재Record의 일자.
                                                        //주의, Query가 Open되기전
                                                        //초기화 할 것.
      pl_Seqno: Int;                               //Open되기전 역시 초기화 할것


그 후 DataSet(Table, Query)의 OnCalcFields 이벤트에
아래와 같이 코딩합니다.


Procedure TForm.Query1CalcFields(DataSet: TDataSet);
Begin
      ps_CurCode := DataSet.FieldByName('CODE').AsString;

      If ps_PrvCode <> ps_Code Then
      Begin
            //ps_PrvCode는 초기화될때 '' 을 대입받았을 것임
            //또한, pl_Seqno는 1로 세팅되었을 것임
            pl_Seqno    := 1;
            ps_PrvCode := DataSet.FieldByName('CODE').AsString;
            DataSet.FieldByName('칼크필드명').AsString
                             := ps_CurCode + '001';
      End
      Else Begin
            Inc(pl_Seqno);

            If (pl_Seqno < 10) Then
                  DataSet.FieldByName('칼크필드명').AsString
                              := ps_CurCode + '00' + IntToStr(pl_Seqno)
            Else If (pl_Seqno < 100) Then
                  DataSet.FieldByName('칼크필드명').AsString
                              := ps_CurCode + '0' + IntToStr(pl_Seqno)
            Else
                  DataSet.FieldByName('칼크필드명').AsString
                              := ps_CurCode + IntToStr(pl_Seqno);
      End;  
End;


이상입니다.
이렇게 하면, 조회될때에 코드가 자동으로 생기게 될 것 같네여..
위에 OnCalcFields내용은 이해되시겠져?  ^^;
이전에 읽어진 날짜가 지금 읽은 날짜와 다르면,
코드를 001로 초기화 한 후
해당 코드를 CalcField에 대입하는 것입니다.
그렇지 않을때는
이런 방식을 주로 사용할 경우가 많으니..
알아 두시면 좋을 것 같습니다..
단, 단점이 있는데, CalcField는 가상으로 추가된 Field이므로
속도가 아주조금.. 아주 조금 느려진다는 단점이 있습니다.
그렇지만, 이렇게 하면,
오라클 DB에서 Function을 쓰거나,
Query를 복잡하게 하지 않아도 되는 장점이 있습니다.
시간절약이지여... 아시겠지만..
그럼..

         최강의 프로그래머를 위하여~~~~

정말 감솨합니다.~~
정말 정말  정말  정말  정말 감솨합니다.