Bir veritabanındaki tablodan diğerine Android üzerinden veri transfer etme işleminde progressbar tarzı pir grafik kullanmak istiyorum.
Bir türlü yapamadım. Yardımlarınızı beklerim.
Kod: Tümünü seç
df.cari.first;
TThread.CreateAnonymousThread(procedure
var
a:byte;
begin
repeat
for a := 1 to 10 do g[a]:='';
g[1]:=''''+trim(df.cariCARI_KODU.Value)+''',';
g[2]:=''''+trim(df.cariADS.Value)+''',';
g[3]:=''''+copy(trim(df.cariVEDAR.Value),1,40)+''',';
g[4]:=''''+trim(df.cariVERNO.Value)+''',';
g[5]:=''''+trim(df.cariTEL.Value)+''',';
g[6]:=''''+trim(df.cariKOD.Value)+''',';
g[7]:=''''+trim(df.cariGUN.Value)+''',';
g[8]:=inttostr(df.cariGUN_KOD.Value)+',';
g[9]:=floattostr(df.cariLIMIT.Value);
df.yen_car_q.sql.Clear;
df.yen_car_q.sql.Add('insert into CARILER');
df.yen_car_q.sql.Add('values ('+g[1]+g[2]+g[3]+g[4]+g[5]+g[6]+g[7]+g[8]+g[9]+')');
df.yen_car_q.ExecSQL;
df.car_dur.close;
df.car_dur.sql.clear;
df.car_dur.sql.add('select * from CARI_DURUM');
df.car_dur.sql.add('where CARI_KOD = '''+trim(df.cariCARI_KODU.Value)+'''');
df.car_dur.open;
for a := 1 to 10 do g[a]:='';
g[1]:=''''+trim(df.cariCARI_KODU.Value)+''',';
g[2]:=''''+trim(df.cariADS.Value)+''',';
g[3]:=genel.vt_noktacevir(floattostr(df.car_durbakiye.value));
df.car_dur1.close;
df.car_dur1.sql.clear;
df.car_dur1.sql.add('insert into CARI_DURUM');
df.car_dur1.sql.add('values ('+g[1]+g[2]+g[3]+')');
df.car_dur1.execsql;
simdi:=simdi+1;
TThread.Synchronize(nil , procedure
begin
Application.ProcessMessages;
TrackBar1.Value:=simdi*100/kaysay;
lab.Text:='%'+inttostr(round(TrackBar1.Value));
Pie1.EndAngle:=TrackBar1.value*360/100;
pie1.PrepareForPaint;
pie1.Repaint;
sleep(50);
end);
df.cari.Next;
until df.cari.Eof;
end).Start;