asked on

How to attach progressbar to batchmove process

Sorry my bad English, maybe someone can help me..
here is my code.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls, DB,
DBTables, ITProgrB;

type
TForm1 = class(TForm)
DBGridiep: TDBGrid;
StatusBar1: TStatusBar;
DBGridizp: TDBGrid;
BitBt2: TBitBtn;
BitBtn1: TBitBtn;
Panel1: TPanel;
BitBtn3: TBitBtn;
MultiProgressBar1: TMultiProgressBar;
procedure BitBtn1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
begin
with DM.Qiepsk do begin
DM.Qiepsk.Active;
end;

with DM.BMiepsk do begin
Mode := batAppend;
Source := DM.Qiepsk;
Destination := DM.Tiepsk;
Execute;
end;
end;
end;

end

classmate

This can't be done without appropriate events, and to my knowledge, TBatchMove has no events at all...

You might write an appending loop for this by yourself, or perhaps investigate the possibility of creating a descendant component of TBatchMove with such an event. But this also might not be possible.

regards, classmate.

ILE

THERE IS ONE SOLUTION

IF U COPY FORM QUERY1 (SOURCE TABLE)
DEFINE FIELDS FOR EVERY ROW
AND IN ONCHANGE EVENT ON SOME ROW DO WHATEVER U WONA DO TO
MAKE SOME CAIND OF PROGRES BAR

U NOW HOW TO DEFINE FIELDS AREN'T YOU?
IF U DONT NOU JUST ASK

ASKER CERTIFIED SOLUTION

kretzschmar

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial