zoukankan      html  css  js  c++  java
  • delphi执行查询语句时的进度条怎么做

    procedure TForm1.FormCreate(Sender: TObject);  
    begin   
      ADOQuery1.ExecuteOptions := [eoAsyncFetch];//设为异步读取  
    end;  
    //ADOQuery的OnFetchProgress事件  
    procedure TForm1.ADOQuery1FetchProgress(DataSet: TCustomADODataSet; Progress, MaxProgress: Integer; var EventStatus: TEventStatus);  
    begin   
      ProgressBar1.Position := Progress;  
      ProgressBar1.Max := MaxProgress;  
    end;  
    //ADOQuery的OnFetchComplete事件  
    procedure TForm1.ADOQuery1FetchComplete(DataSet: TCustomADODataSet; const Error: Error; var EventStatus: TEventStatus);  
    begin   
      ProgressBar1.Position := ProgressBar1.Max;  
      ShowMessage('OK');  
    end;

  • 相关阅读:
    Mybatis中#{}与${}的区别:
    JDBC
    JavaScript与jQuery的区别
    JavaScript 高级
    AdminLTE
    servlet过滤器与监听器
    数据库连接池
    大对象数据LOB的应用
    Serializable
    泛型
  • 原文地址:https://www.cnblogs.com/jijm123/p/10444743.html
Copyright © 2011-2022 走看看