Arsip: nampilin data per menit

 
user image
more 13 years ago

nurez

hiii all,,. mw tanya nech.. bagaimana mau nampilin record per menit, berdasarkan waktu dan tanggal sekarang ex : l rec001 l 09:00 l 15/02/2007 l harus tampil pd saat 09:00 15/02/2007 makaish sblumnya..
user image
more 13 years ago

cyber_hecker

silakan bereksperimen dengan TTimer
user image
more 13 years ago

nurez

di looping ngga datanya..? omm CH..?
user image
more 13 years ago

cyber_hecker

untuk mengirit koneksi coba lakukan kira-kira begini logikanya : 1. simpan tanggal dan jam sekarang ke sebuah variabel. sebagai contoh : lvNow := Now(); 2. buka database yang tanggal dan jamnya lebih besar dari jam sekarang. dilimit biar gak boros di network. 3. simpan data yang diambil dari database tersebut ke variabel. sebagai contoh : lvNextEvent := FieldByName('TglJamAnu').AsDateTime; 4. lakukan perintah pada TTimer untuk mengechek datanya apakah sudah sama atau belum. contoh if lvNow = lvNextEvent then ... 5. jika sama, lakukan event yang di inginkan, dan ambil lagi data untuk event berikut dari database untuk disimpan kembali ke lvNextEvent. 6. selamat mencoba ...
user image
more 13 years ago

nurez

popupnya hanya record pertama cz di select by time asc,.. sedangkan record berikutnya gnga tampil.. gmn yha? sourcenya :
label16.Caption:=timetostr(now);
 b1:= label16.Caption;
with adoquery1 do begin
  adoquery1.Sql.text:=('SELECT time1,date1,ket  from popup1 order by time1 asc );
  adoquery1.Open;
  lvl1:= adoquery1.Fields['time1'].Asstring;
    if(lvl1 = a1)then
    showmessage('dorr..!!!')
    else
    form1.Caption:='baaa');
user image
more 13 years ago

cyber_hecker

waduh... angkat tangan deh diriku. udah gak bisa lagi mo ngomong apa ... desain form : data pada tabel : source code :
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, MemDS, DBAccess, MyAccess, ExtCtrls;
type
  TForm1 = class(TForm)
    myCn1: TMyConnection;
    myQu1: TMyQuery;
    myQu1ID: TIntegerField;
    myQu1tanggal: TDateField;
    myQu1jam: TTimeField;
    tmr1: TTimer;
    lsb1: TListBox;
    lbl1: TLabel;
    lbl2: TLabel;
    procedure tmr1Timer(Sender: TObject);
  private
    procedure mySetNextEvent(var pNextEvent: TDateTime);
    { Private declarations }
  public
    { Public declarations }
    lvNextEvent: TDateTime;
  end;
var
  Form1: TForm1;
implementation
uses DateUtils;
{$R .dfm}
procedure TForm1.mySetNextEvent(var pNextEvent: TDateTime);
var
  lvTgl: TDateTime;
  lvJam: TDateTime;
begin
  lvTgl := Now;
  lvJam := Now;
  with myQu1 do
  begin
    SQL.Clear;
    SQL.Append(
      'SELECT ' +
      'db_delphier.tb_waktu.ID, ' +
      'db_delphier.tb_waktu.tanggal, ' +
      'db_delphier.tb_waktu.jam');
    SQL.Append('FROM db_delphier.tb_waktu');
    SQL.Append(
      'WHERE ' +
      'db_delphier.tb_waktu.tanggal >= DATE(:p1) AND ' +
      'db_delphier.tb_waktu.jam > TIME(:p2)');
    SQL.Append(
      'ORDER BY ' +
      'db_delphier.tb_waktu.tanggal, ' +
      'db_delphier.tb_waktu.jam');
    SQL.Append('LIMIT 1');
    ParamByName('p1').Value := FormatDateTime('yyyy-MM-dd',Now);
    ParamByName('p2').Value := FormatDateTime('hh:nn:ss',Now);
    Prepared;
    Open;
    if RecordCount > 0 then begin
      lvTgl := FieldByName('tanggal').AsDateTime;
      lvJam := FieldByName('jam').AsDateTime;
    end else begin
      Caption := 'Tidak Ada Lagi';
      tmr1.Enabled := False;
    end;
    Close;
    (  simpan nilai untuk event berikutnya )
    pNextEvent := RecodeTime(lvTgl, HourOf(lvJam), MinuteOf(lvJam), SecondOf(lvJam), 0);
  end;
end;
procedure TForm1.tmr1Timer(Sender: TObject);
var
  lvNow: TDateTime;
begin
  (  nilai masih kosong, set nilai untuk event berikutnya *)
  if FormatDateTime('dd.mm.yyyy',lvNextEvent) = '31.12.1899' then begin
    mySetNextEvent(lvNextEvent);
  end;
  lvNow := Now;
  lbl1.Caption := 'Waktu Sekarang : ' +FormatDateTime('dd.MM.yy hh:nn:ss',lvNow);
  lbl2.Caption := 'Next Event : '+FormatDateTime('dd.MM.yy hh:nn:ss',lvNextEvent);
  if lvNow > lvNextEvent then begin
    lsb1.Items.Append('Event :' + FormatDateTime('dd.MM.yy hh:nn:ss',Now));
    mySetNextEvent(lvNextEvent);
  end;
end;
end.
hasil runing :
user image
more 13 years ago

nurez

wew.. omm CH baikk bgt.. :) sY ucapkan banyak makasih,... tp pkai zeos..? yo wes ta cobai..wae lah.. matur nuuwn omm :)
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com