Q&A

  • DB에서 데이터를 가져오는 과정을 progressBar로...
ADOQuery 컴포넌트를 사용하요 프로그램 중인데..
데이터의 양이 조금 많습니다.
그래서 데이터를 가져오는 동안 ProgressBar로 데이터 가져오는 진행 상황을 표현하고 싶은데...
내공이 부족하여 구현에 어려움을 겪고 있습니다.
데이터를 DevExpress의 ExpressMasterView에 표현할려구 하는데..
조언 부탁 드립니다.

버튼 클릭했을 경우의 일부 소스 입니다.

  Var
  i : Integer;
  MasterViewLevel : TdxMasterViewLevel;
begin

  ADOConnection1.Conected := False;
  ADOConnection1.Connected := True;

  ADOQuery1.Active := False;
  ADOQuery1.SQL.Add('select * from Agent');
  ADOQuery1.Active := True;

  ProgressBar1.Min := 0;
  ProgressBar1.Max := ADOQuery1.RecordCount;

  dxMasterView1.Levels.Clear;
  MasterViewLevel := dxMasterView1.Levels.Add;
  MasterViewLevel.DataSource := DataSource1;
  MasterViewLevel.ID := 'Agent_ID';

  for i := 0 to ADOQuery1.RecordCount - 1 do
    begin
      MasterViewLevel.CreateColum(TdxMasterViewColumn).FieldName := 'YMD';
      MasterViewLevel.CreateColum(TdxMasterViewColumn).FieldName := 'Agent_Name';
  ..
  ..
  ..
      ProgressBar1.Position := i;
      ADOQuery1.Next;
    end;

end;


위와 같이 구현 하니깐 안되더군요.. ㅡ.ㅡ;;
아무쪼록 많은 조언 부탁 드립니다.
1  COMMENTS
  • Profile
    엔터프라이즈 2003.12.13 00:30
    While Not ADOQuery1.eof do
    begin        
        ProgressBar1.Position := (ADOQuery1.RecNo * 100) div   ADOQuery.RecordCount ;
        MasterViewLevel.CreateColum(TdxMasterViewColumn).FieldName := 'YMD';
          MasterViewLevel.CreateColum(TdxMasterViewColumn).FieldName := 'Agent_Name';
       ..
       ..
        ..
        ADOQuery1.Next;
    end;

    이렇게 한번 해보세요..




    • 물방울
    • 2003.12.13 02:22
    • 3 COMMENTS
    • /
    • 0 LIKES
    • 방순한
      2003.12.13 02:27
      Exception Check를 해보심이.... 숫자로만 이루어졌다면 integer값으로 형변환이 되겠지요..^^ try &n...
    • nilriri™
      2003.12.13 07:45
      Exception 처리를 사용하기 보다는 val함수나 tryStrToint 함수가 더 낳을거 같군요..^^; 그럼 즐프~
    • nilriri™
      2003.12.13 02:24
      procedure TForm1.Button1Click(Sender: TObject); var    ret : integer;    tmp ...
    • 장태원
      2003.12.13 01:21
      사용자 컴퍼넌트 묶음 패캐지인 GS4B0200 가 없어서 발생되는 에러인듯.
    • 김영애
      2003.12.13 02:04
      답변 감사드립니다. 그런데 그 문제는 아닌것 같네여 원래 ocx 추가시키기 전에는 잘
    • 쳐리
    • 2003.12.13 00:01
    • 2 COMMENTS
    • /
    • 0 LIKES
    • nilriri™
      2003.12.13 02:29
      델파이 헬프의 예제입니다.. function Sum( var X: arrayof Double): Double; var   I: W...
    • 소울해커
      2003.12.13 00:28
      Length(동적배열); 하시면 동적 배열의 크기가 나옵니다.
    • 정광필
    • 2003.12.13 00:00
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 엔터프라이즈
      2003.12.13 00:30
      While Not ADOQuery1.eof do begin           &nbs...
    • 김영애
    • 2003.12.12 22:16
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 소울해커
      2003.12.12 22:36
      Copy라는 함수가 있습니다. var S: String;      R: String; begin   ...
    • 김영애
      2003.12.13 01:04
      답변 감사드립니다.
    • 소울해커
      2003.12.12 22:42
      type   procedure ComPortRxChar(Sender: TObject);   // 뒷부분의 Sender 부분은 ...
    • 앨리스
      2003.12.13 00:01
      답변 감사드립니다. 좋은하루 되세요. ^^
    • 소울해커
      2003.12.12 22:18
      저 같은 경우는 컴포넌트를 추가할때 따로 만들어둔 사용자 정의 패키지(dpk 파일)에 집어넣어둡니다. 그...
    • 초보
    • 2003.12.12 19:04
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 진형욱
      2003.12.12 19:08
      특별한 옵션기능은 없구요. 이미지를 배경으로 사용하는 것도 좋을듯 한데요....
    • 초보
      2003.12.12 19:15
      이미지를 배경으로...???
    • 서종환
    • 2003.12.12 17:57
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 신석기
      2003.12.12 18:17
      TabSheet1.TabVisible := false; 이렇게 하시면 되구요.... 그런것을 원하지 않으시면 Componet Tab wi...
    • KDDG_RNStone
      2003.12.12 18:06
      Tab이라면 TabSheet를 말하는 거겠죠? PageControl1.Pages[X].TabVisible := False; 여기서 X는 Page...
    • 김대완
    • 2003.12.12 17:56
    • 0 COMMENTS
    • /
    • 0 LIKES
    • 김건림
    • 2003.12.12 12:11
    • 0 COMMENTS
    • /
    • 0 LIKES
    • LDS
      2003.12.12 18:36
      이미지 회전 축소 확대 모든 기능이 있습니다. 또한 축소 확대 했을 경우 만족할만 했구요.. 제...
    • 이현호
    • 2003.12.12 04:45
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 너구리
      2003.12.12 20:31
      TQuery에 필드를 올려놓고 filedtype이 blob으로 되어있는지 보십시오.. 저도 왜 이럴까 했는데.. 이...
    • 정대만
    • 2003.12.12 03:38
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 너구리
      2003.12.12 20:33
      컴퍼넌트를 만드세요.. DBGrid는 그냥은 안됩니다. DBGrid상속받아서 쓰시면 될것 같습니다.
    • 무뇌아
      2003.12.23 23:02
      안녕하세요? 비슷한 문제로 고민하고 있는 사람입니다. ㅡ.ㅡ;; 제 문제도 완전히 해결된건 아니지...
    • 이중철
      2003.12.12 23:31
         if ParentForm = nil then      Form1:=TForm1.Create(ParentForm); ...
    • 살며배우며
      2003.12.15 19:02
      제 질문에 관심을 가져 주셔서 감사함니다. if ParentForm = nil then 이문장을 넣지 않으면 차일드 ...
    • LDS
    • 2003.12.12 02:02
    • 1 COMMENTS
    • /
    • 0 LIKES
    • LDS
      2003.12.12 19:58
      delphi 4 ~ 6까지 사용 할수 있는 콤퍼입니다. 그런데 데모도 있는데 usb에서 들어 오는 값이나 그...
    • 얼채
    • 2003.12.12 01:15
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 너구리
      2003.12.12 01:59
      일정한 시간마다 이벤트를 발생시키는 컴퍼넌트가 있습니다. timer라고 하는놈이죠 그림도 시계모양이에...
    • 박희경
    • 2003.12.11 22:51
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 박성훈
      2003.12.24 22:41
      Gauges 컴포넌트는 델파이 기본 VCL입니다.
    • 이기재
    • 2003.12.11 20:17
    • 4 COMMENTS
    • /
    • 0 LIKES
    • 성더기
      2003.12.11 20:20
      SELECT field1, field2, field3 from table1 union select sum(field1), sum(field2), sum(field3) ...
    • 이기재
      2003.12.11 20:29
      감사합니당 긍데.. 적용하기가 넘흐 어렵네요 ㅡㅜ 원소스는 델파이 클레스에서 SELECT := '..'이런식으...
    • 이기재
      2003.12.11 20:37
      그리궁 요고에서 마지막 select문에 from 원래 빼는건가요 ㅡㅜ
    • 성더기
      2003.12.11 21:13
      에구 죄송합니다 select field1, field2, field3 from (SELECT field1, field2, field3   &nb...