Arsip: cara menampilkan data dengan timer

 
user image
more 12 years ago

alvonz

para sesepuh delphi yang terhormat, mohon bantuannya...ada yang tau caranya nampilin data dengan menggunakan timer. kasusnya begini.. saya punya data A B 1 xx 2 xx 3 xx yang saya mau tampilin adalah realtime, jadi saya menggunakan timer cuman pas sy pake data yang di tampilin ke load terus contoh scripnya seperti ini log.Open; task.refresh; x:=log.fieldbyname('log').AsInteger; if x<>log.FieldByName('oldlog').AsInteger then begin log.Edit; log.FieldByName('oldlog').AsInteger:=x; task.Open; task.Refresh; task.First; while not task.Eof do begin if label1.Caption='' then begin label1.Caption:=.task.fieldbyname('A').AsString+' : '+task.fieldbyname('B').AsString; end else begin task.Next; label1.Caption:=label1.Caption+' '+task.fieldbyname('A').AsString+' : '+task.fieldbyname('B').AsString; end; task.Next; end; log.refresh; end else begin end;
user image
more 12 years ago

madi

masih belum jelas nih maksud pertanyaamu....:D
user image
more 12 years ago

mas_kofa

@madi menurutku pertanyaanya dah jelas yaitu ....
mohon bantuannya...ada yang tau caranya nampilin data dengan menggunakan timer.
xixixixiiiiii.................... Jadi jawabannya cuman dua : ada ato tidak......xixixiiixiii silahkan dijawab....
user image
more 12 years ago

ho2sly

@alvonz, klo menurut saya, ini kamu mau menampilkan data yg update kan?, coba kamu atur interval timernya, jangan terlalu pendek, sebab bisa membebani aplikasi, trus taroh deh script kamu tadi di dalam event timer.ontimer. atau kamu buat counter di dalam timer itu, jika nilai counter mencapai nilai tertentu baru menjalankan script kamu itu
user image
more 12 years ago

madi

@mas_kofa :shock: @alvonz klo cuman mo ditimerkan kan ya ga susah bro

Procedure TForm1.Timer1Timer(sender:TObject);
begin
  if kondisi tertentu then
   begin
     log.Open;
     task.refresh;
     x:=log.fieldbyname('log').AsInteger;
   if x<>log.FieldByName('oldlog').AsInteger then
     begin
       log.Edit;
       log.FieldByName('oldlog').AsInteger:=x;
       task.Open;
       task.Refresh;
       task.First;
    while not task.Eof do
   begin
    if label1.Caption='' then
     begin
       label1.Caption:=.task.fieldbyname('A').AsString+' :   '+task.fieldbyname('B').AsString;
     end
   else
 begin
   task.Next;
   label1.Caption:=label1.Caption+' '+task.fieldbyname('A').AsString+' : '+task.fieldbyname('B').AsString;
  end;
   task.Next;
  end;
   log.refresh;
 end
  else
 begin
  end;
end;
user image
more 12 years ago

ho2sly

nah, jawabanku di perjelas @madi tuh, teknisnya gt
more ...
  • Pages:
  • 1
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com