일단 쿼리도중 progressbar를 사용하신다는건 그곳 네트웍이 무지 느리거나 한거번에 조회하는 자료 량이 많거나 이시겠져 ^^;

만약 멋으로 이렇게 하신다면 하지 마시기 바랍니다.
윈도우 코딩에서 가장 시간을 많이 딜레이 시키는 요소가 화면에 뭔가를
그리는 작업 입니다...

그리고 아래 내용은 조회되는 상황을 진행바로 보고 싶으신 모양인데
^^; 결론부터 얘기드리면 안됩니다..아래 내용은 일단 조회버튼이 눌러지면
일단 한참 모래시계후에 쿼리된 자료를 한번 훌터 내리는 것 밖에는 안됩니다.
만약DBGrid에 연결 시키셨다면 이미 조회가 다 된 내용을 한번 쭈~욱 훌터내리면서 진행바를 보인다는 얘기인데 좀 우숩죠.. ^^;

아.. 그전에 아래 쿼리처리방식은 잘못 되었습니다..
어디 한군데가 잘못 된게 아니라 전체가 다 틀렸습니다..
아마 DB관련 코딩이 처음 이신것 같은데 가급적 다른분들의 소스를
참조하신후 코딩을 하시는게 좋을것 같습니다..

그리고 프로그래스바도 마지막에 max값을 처리하는게 아닙니다..
미리 max값을 정해놓고 position을 더해가면서 퍼센트가 표시 되는 거겠죠 ^^

글구 아래와 같이 한다구 해서 화면에 진행바가 표시되는것도 의문입니다..
제생각엔 아마 안될것 같은데요..
refresh를 해줘야 할겁니다..

글구 recordcount는 가급적 사용하지 마십시오..
델파이 DBaware는 버퍼 크기 만큼 가져오기 때문에 recordcount를 위해서는
한번 더 조회작업이 이루어 집니다..당연히 시간이 더 걸리겠죠..

아래와 같이 한번 해보세요..원하시는 효과가 날겁니다..
저두 돌려보지는 않은거라 에러가 있을수도 있지만
보시면 이해가 가실겁니다.. 안되면 메일을 주세요..

procedure TForm1.Button1Click(Sender: TObject);
begin
Animate1.active := True;  // <--이건 win32 tab에 있는 콤포넌트입니다.
                                     //  Commonavi를 aviCopyFiles로 하시구요..

with DM.Query5 do begin
      SQL.clear;
      SQL.add('select * from tempTable ');
      SQL.add('  where STARTDATE = :p1 ');
      SQL.add('     and  TPCD = :p2 ');

      ParamByName('p1').Asdatetime:= ldt_start_date;
      ParamByName('p2').Asstring:=ls_entp_cd;
      PrePare;
      open;

end; //end of with

Animate1.active := False;

end;

아래 소스에서요
1. ProgressBar1.Max := DM.query5.recordcount; 이전에 쿼리사 실행(open)된거겠죠?
2. 4번째줄 close;의 의미는?
3. while  DM.query5.Eof do이전에 First; 가 와야 될거 같구요
    while은 not가 빠진거 같구요 while Not Eof do begin
4. 뒤에 PrePare;  open; 는 왜 뒤로 간건지요?
hsr//////////////////////////////////////////

답변 감사드립니다...

쿼리문이 실행되는 시간이 길어서 이런거 만들어 볼라고

게시판 뒤져서 대충 이렇게 해봤는데...

저에 무지함이 다 드러나는군요...ㅡㅡ;;

with DM.Query5 do begin
     First;
     while not Eof do  begin
      ParamByName('adt_start_date').Asdatetime:= ldt_start_date;
      ParamByName('adt_end_date').Asdatetime:= ldt_end_date;
      ParamByName('as_entp_cd').Asstring:=ls_entp_cd;
      PrePare;
      open;
      inc(i);
      progressbar1.position := i;
      statusbar1.Panels[1].Text := '조회중입니다....';
      DM.Query5.Next;
     end;
end;
ProgressBar1.Max := DM.Query5.RecordCount;



1. ProgressBar1.Max := DM.query5.recordcount; 이전에 쿼리사 실행(open)된거겠죠?
====>    open 된 이후로 옮겼습니다.

2. 4번째줄 close;의 의미는?
====>  query를 닫는 메소드라서....

3. while  DM.query5.Eof do이전에 First; 가 와야 될거 같구요
    while은 not가 빠진거 같구요 while Not Eof do begin
====> 잘못 봤군요..ㅡㅡ;
         first; 의 의미는???

4. 뒤에 PrePare;  open; 는 왜 뒤로 간건지요?
====>  ㅡㅡ;

이렇게 했는데 에러가 나는군요

저에 무지함을 용서하시고 다시한번 봐주시면...^^:;;

염치없게 설명도 좀 부탁드립니다...

그럼 이만..

쿼리 할때 오래걸리는 무료함을 달래기 위해...
프로그래스바를 생각 하셨는데...
기본적으로 DB에 쿼리를 하는데 걸리는 시간을 프로그래스바로
표현한다는것은 무리가 있습니다.
궂이 방법론을 얘기 하자면....
아주 이쁜(?) 에니메이션을 준비 합니다.
예를 들어 파일카피 할때 나오는..또는 V3에서 바이러스검사할때
나오는 예쁜(?)에니메이션을 준비 해서...
프로그래스바 대신 이 에니메이션을 돌리는 것이죠..^^;;
무료함을 달래기 위한것이라면 이것이 더 깔끔, 참신 하지 않을까여..^^;;

아래 하신건 논리상 안 맞습니다.
이 방법으론 쿼리하는 동안에 체크하지 못합니다.
이런 방식은 쿼리후 뿌려주거나 자료조작시 하는 방법이교 또한 문법순이 맞지 않네요.
일반 자주 사용하는 오라클에서도 쿼리 컴포넌트에서도 진행 시간은 잡아내기 힘들겁니다.
비슷한 편법으로 타이머가 쿼리 오픈시 같이 돌면서 1초마다 쿼리가 계속 오픈중인 닫았는지만 체크하거나, 대출 개발자가 좀 길다고 생각하는 작업을 중심으로 max값를 잡아 돌려보는거....

아래방법 말고 다른 것을 찾아 보세요.....
hsr///////////////////////////////////////////////