Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

ÖNEMLİ AÇIKLAMA: MUTLAKA OKUYUNUZ!

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: Veritabanına göre uyarlanmış Hatırlatıcı  (Okunma sayısı 2794 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı Cturk

  • Kıdemli Üye
  • *****
  • İleti: 256
  • Rep: +5/-1
  • Cinsiyet: Bay
Veritabanına göre uyarlanmış Hatırlatıcı
« : 02 Ocak 2008 00:07:39 »
VT'nizde ; (TARIH) Field'ı ve Notlarınızı kaydecek bir Field(HATIRLAT). Açarak Birde "DateTimePicker" Form'a ekleyiniz Bir Timer'e Aşağıdaki kodu atayınız!?. Şahıs'a ait  Not Kayıt Edildiği tarihte aktif olacaktır!.

Kod: Delphi
  1. procedure TForm1.Timer1Timer(Sender: TObject);
  2. begin//Uses: DateUtils; ekle
  3.  DateTimePicker1.Date:=Now;//Bugünkü Tarih Aktif.
  4.  if DayOfWeek(Form1.IBDataSet1TARIH.AsDateTime)=DayOfWeek(DateTimePicker1.Date) then
  5.    Label1.Caption:=' '+Form1.IBDataSet1ADI.AsString+' = '+Form1.IBDataSet1HATIRLAT.AsString;
  6. end;
  7.  
......Kolay Gelsin?.
Kod: Text
  1.  
« Son Düzenleme: 02 Ocak 2008 00:16:50 by Cturk »
Kayıtlı

Çevrimdışı Caylaq

  • Yeni Üye
  • *
  • İleti: 5
  • Rep: +0/-0
Ynt: Veritabanına göre uyarlanmış Hatırlatıcı
« Yanıtla #1 : 13 Aralık 2008 01:31:18 »
Hocam bunu saniye ile nasıl yaparız ?

Yani saatin saniyesini kontrol edecek. Saniye eşitse uyaracak

Ama şöle olsun.
Kayıtlar Dbgridde oldugu varsayılsın. Ve Gridde de 100 Kayıt var?

Her kaydı tek tek, Her saniye kontrol mü edeceğiz ? Mantık nasıl olmalı ?
Kayıtlı

Çevrimdışı Cturk

  • Kıdemli Üye
  • *****
  • İleti: 256
  • Rep: +5/-1
  • Cinsiyet: Bay
Ynt: Veritabanına göre uyarlanmış Hatırlatıcı
« Yanıtla #2 : 14 Aralık 2008 15:41:06 »
Slm .Kendinize göre düzenleyiniz?..
Kod: Delphi
  1. procedure TForm1.Timer1Timer(Sender: TObject);
  2. var
  3. a:integer;
  4. sat:TTime;
  5. begin
  6. sat:=time;
  7. query1.close;
  8. query1.sql.clear;
  9. query1.sql.add('select KONU from AJANDA');
  10. Query1.sql.Add('where HATIRLATMA=:Hatir_x and TARIH=:tarih_x and SAAT=:saat_x');
  11. query1.Params.Items[0].Asinteger:=0;
  12. query1.Params.Items[1].AsDate:=datetimepicker1.Date;
  13. query1.Params.Items[2].Astime:=(sat);
  14. query1.Open;
  15. query1.First;
  16. for a:=1 to Query1.RecordCount do
  17. begin
  18. showmessage('Bu güne ait '+Query1.FieldByName('KONU').AsString+' konulu notunuz vardır');
  19. query1.Next;
  20. end;
  21. end;
  22. //
  23. begin
  24. DateTimePicker1.Date:=now;
  25. query1.close;
  26. query1.sql.clear;
  27. query1.sql.add('select KONU from AJANDA' );
  28. query1.sql.add('where tarih=');
  29. query1.sql.add(#39+datetostr(DateTimePicker1.Date)+#39);
  30. query1.open;
  31. if query1.RecordCount>0 then
  32. showmessage( query1KONU.asstring+' Konulu Olayı unutmayın lütfen ');
  33. end;
« Son Düzenleme: 14 Aralık 2008 18:43:51 by Cturk »
Kayıtlı

Çevrimdışı Caylaq

  • Yeni Üye
  • *
  • İleti: 5
  • Rep: +0/-0
Ynt: Veritabanına göre uyarlanmış Hatırlatıcı
« Yanıtla #3 : 27 Haziran 2009 08:50:07 »

Eğer databasedeki veriler çok ise bu timer tetiklemesi programı çok hantallaştıracaktır . Saniye bazlı kontrolde Mantıgı ters kurmak sonunuz olabilir :)
Kayıtlı
Sayfa: [1]   Yukarı git
« önceki sonraki »