14-12-2018, 05:14 PM
[size=medium]السلام عليكم و رحمة الله [/size]
[size=medium]كيف استطيع اضهار تقدم تحميل البيانات داخل query من خلال progressbar[/size]
[size=medium]لمن له أي فكرة أو فيديو فليفدنا جزاكم الله خير [/size]
14-12-2018, 05:14 PM
14-12-2018, 07:09 PM
PHP كود :
var
i:Integer
progress1.maxvalue=qoury1.recordcount
For i=0 to qoury1.recordcount-1
begin
progress1.vaue=i
qoury1.next
end
14-12-2018, 07:44 PM
(14-12-2018, 07:09 PM)Delphi4Us كتب : [ -> ]PHP كود :var
i:Integer
progress1.maxvalue=qoury1.recordcount
For i=0 to qoury1.recordcount-1
begin
progress1.vaue=i
qoury1.next
end
شكرا gm hod لكن هذا الكود يصلح فقط عند انتهاء عمل query
المراد من سؤالى هو كيفية اضهار كمية البيانات على progressbar في طور تشغيل query
14-12-2018, 09:26 PM
السلام عليكم عمليا لا يمكن لانك لا تدري حجم المعلومات قد يكون لديك 100 سجل او 1000 سجل
14-12-2018, 11:18 PM
باستعمال مكونات FireDAC
FDQuery ثم Events (أو Evenements) ثم AfterGetRecord
ProgressBar1.Max = 1000000
FDQuery ثم Events (أو Evenements) ثم AfterGetRecord
ProgressBar1.Max = 1000000
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
FDQuery1.Active := True;
ProgressBar1.Position := ProgressBar1.Max;
end;
procedure TForm1.FDQuery1AfterGetRecord(DataSet: TFDDataSet);
begin
ProgressBar1.StepBy(1);
end;