在table1中有一个Image字段,当我插入一条记录时,如果Image字段的数据很大(如300M),程序要等很就才能完成插入,给人的感觉就是死机了。所以我现在想用进度条标示插入该记录的进度,不知道该怎样实现?

解决方案 »

  1.   

    做个等待窗口放个动画控件,运行你想要的Avi,让人感觉在动,这样可能会好一些
      

  2.   


    procedure TForm1.FormCreate(Sender: TObject);
    begin
      adoconnection1.Connected:=true;
      suiProgressBar1.Max:=100;
    end;procedure TForm1.BitBtn1Click(Sender: TObject);
    begin
    adoquery.Active:=false;
    adoquery.ExecuteOptions:= [eoAsyncFetchNonBlocking];
    adoquery.Active:=true;
    end;procedure TForm1.adoqueryFetchProgress(DataSet: TCustomADODataSet;
      Progress, MaxProgress: Integer; var EventStatus: TEventStatus);
    begin
      suiProgressBar1.Position:=progress;
    end;
      

  3.   

    procedure TForm1.BitBtn1Click(Sender: TObject);
    begin
    screen.cursor:=crSQLwait;
    //要执行的代码
    screen.cursor:=crDefault;
    end;