아폴론 님이 쓰신 글 :
: //입력 상태에서는 항상 일련번호를 생성한다.
:    with DataMd.SQLmedia do begin
:       close;
:       sql.clear;
:       sql.add('select cast(max(ilno) as integer)+1 Tilno       ');
:       sql.add(' from Mtable                                                   ');
:       sql.add('where   조건                                                   ');
:       Open;
:       if Fieldbyname('Tilno').asstring <> '' then begin
:          ilno := inttostr(Fieldbyname('Tilno').asinteger);
:          ilno := formatfloat('0000',strtofloat(ilno));
:       end else
:       begin
:          //해당월의 건수가 하나도 없으면
:          ilno := '0001';
:       end;
:    end;
:
: 스토어드프로시져  이거 편하긴 한데...AS가 걸리면 아주 힘들어요...
: 온 거래처마다 직접 찾아가서  수정 해 주어야합니다.
: 그래서 저는 사용했던  스토어드프로시져  모두 없앴습니다...
: 뭐...인식의 차이 입니다...