Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

! CODEBANK 2012 !

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

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

Gönderen Konu: Tarih Olayı Acillll  (Okunma sayısı 941 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı aytekin

  • Delphi 7 Level 1
  • *
  • İleti: 302
  • Rep: +0/-0
Ynt: Tarih Olayı Acillll
« Yanıtla #15 : 27 Temmuz 2010 14:37:15 »
IBTable1.fieldbyname('URUN_GIRIS_TARIHI').AsDateTime:=Now;
  bu kodu IBTable ın newRecord olayına yazdım ama yine güncel tarih bilgisini vermedi ayrıca yeni kayıt girmek için IBTable1.insert; dediğim zaman hata verdi.
Kayıtlı

Çevrimdışı aytekin

  • Delphi 7 Level 1
  • *
  • İleti: 302
  • Rep: +0/-0
Ynt: Tarih Olayı Acillll
« Yanıtla #16 : 27 Temmuz 2010 15:01:53 »
Yav arkdaşlar şunun ne olduğunu bilen birisi varsa söylesin Allah rızası için
RzDBDateTimePicker1 componentinde güncel tarih bilgisini nasıl alırız..???
Kayıtlı

Çevrimdışı redcoder

  • Delphi 7 Level 5
  • *****
  • İleti: 343
  • Rep: +2/-0
  • Coder
Ynt: Tarih Olayı Acillll
« Yanıtla #17 : 27 Temmuz 2010 15:34:15 »
IBTable1URUN_GIRIS_TARIHI.asstring:=datetostr(date);
Bu şekilde girersen istediğin olay gerçekleşir.Olayı bıraz daha acarsan daha fazla yardımcı olabiliriz.Aşağıda ise diğer soruna cevap;

application.MessageBox(pchar('Tarih :' +datetostr(datetimepicker1.Date)),'BİLGİ',0+32+0 );

datetimepicker nesnesine aktarılan tarih saat v.s bilgileri aşağıdaki kodlarla alabilirsin. Yazım hatası yapmış olabilirim ;)

Datetostr(datetimepicker1.date)
Kayıtlı
Application.MessageBox('Zor yapılabilir?','Imkansız sadece zaman alır',0+32+0);

Çevrimdışı aytekin

  • Delphi 7 Level 1
  • *
  • İleti: 302
  • Rep: +0/-0
Ynt: Tarih Olayı Acillll
« Yanıtla #18 : 27 Temmuz 2010 15:42:29 »
Şimdi hocam olay şu : Yeni kayıt gireceğim zaman editlere IBTable1.insert;dbEdit1.setfocus; dediğim zaman o günkü tarih neyse o olsun . yarıca dbGridde kayıtlar listelenirken hangi tarihte girildiyse o bilgi o günün tarihi yazsın istiyorum ama bend e1800 lü yılların tarihi yazıyor....
Kayıtlı

Çevrimdışı redcoder

  • Delphi 7 Level 5
  • *****
  • İleti: 343
  • Rep: +2/-0
  • Coder
Ynt: Tarih Olayı Acillll
« Yanıtla #19 : 27 Temmuz 2010 15:48:05 »
edit1'in OnEnter Olayına
Edit1.text:=datetostr(date); // kodunu yerleştirirsen istediğini yapmış olursun. Edit1e giriş yapan kullanıcı direk güncel tarih bilgisi ile karşılaşacaktır.
Formun Create olayına yazarsan formun açılışında aktif bilgi gelecektir. Formuna 1 adet timer ve label koy ve timerin OnTimer olayına
label1.caption:=timetostr(time); // Saat yapmış olursun gibi gibi
Kayıtlı
Application.MessageBox('Zor yapılabilir?','Imkansız sadece zaman alır',0+32+0);

Çevrimdışı aytekin

  • Delphi 7 Level 1
  • *
  • İleti: 302
  • Rep: +0/-0
Ynt: Tarih Olayı Acillll
« Yanıtla #20 : 27 Temmuz 2010 15:52:21 »
hocam benim tarih için kullandığpım tarih Componenti :
RzDBDateTimePicker
Kayıtlı

Çevrimdışı aligel54

  • Delphi 2006 Level 4
  • ****
  • İleti: 481
  • Rep: +1/-0
Ynt: Tarih Olayı Acillll
« Yanıtla #21 : 27 Temmuz 2010 15:56:24 »
Now yerine Date fonksiyonunu kullan bakalım ne olacak
Bir de
Tam olarak şu satırları yaz;


  IBTable1.insert;
  IBTable1.fieldbyname('URUN_GIRIS_TARIHI').AsDateTime:=Date;

Eğer bu satırlarda da hata veriyorsa IBTAble1 tablonun özelliklerinde bir hata olabilir.

Yok Eğer RzDBDateTimePicker componentinde istediğin tarihi göremiyorsan belki de bu componenti tablonun URUN_GIRIS_TARIHI alanına bağlamamış olabilirsin.

« Son Düzenleme: 27 Temmuz 2010 15:57:13 by aligel54 »
Kayıtlı

Çevrimdışı redcoder

  • Delphi 7 Level 5
  • *****
  • İleti: 343
  • Rep: +2/-0
  • Coder
Ynt: Tarih Olayı Acillll
« Yanıtla #22 : 27 Temmuz 2010 15:57:08 »
Sevgili kardesim simdi bak.
showmessage(pchar(datetostr(RzDBDateTimePicker.date)));
bu kodu yaz ve sonucu gör.Senin kullandığın componentin Datetimepicker1a göre sadece biraz daha kolaylık veya görsellik özelliği vardır. Eğer öyle ise kullandığın bileşen özelliklerinde Active = True özelliği varmı bak, var ise aktif yap. Diğer yazdığını gözden kaçırmısım;

Query2.SQL.Clear;
query2.SQL.Text := 'select * from Tablo_Adın.DB Where Tarih LIKE '+#39+'%'+edit1.Text+'%'+#39+ ' ORDER BY Tarih,BOY,EN,MALZEME ASC';
query2.Active :=True;
query2.Open;

Böyle bir sorgulama ilede istediğini elde edebilirsin. Lıke komutunu kullanmana gerek yok istersen kaldırabilirsin.
« Son Düzenleme: 27 Temmuz 2010 16:02:17 by redcoder »
Kayıtlı
Application.MessageBox('Zor yapılabilir?','Imkansız sadece zaman alır',0+32+0);

Çevrimdışı aytekin

  • Delphi 7 Level 1
  • *
  • İleti: 302
  • Rep: +0/-0
Ynt: Tarih Olayı Acillll
« Yanıtla #23 : 27 Temmuz 2010 16:18:22 »
birde arkadaşlar yazdır dediğim zaman raporlamada tarihi raporda göremiyprum ama ben bu componentşine vt ye bağladım...
Kayıtlı

Çevrimdışı aytekin

  • Delphi 7 Level 1
  • *
  • İleti: 302
  • Rep: +0/-0
Ynt: Tarih Olayı Acillll
« Yanıtla #24 : 27 Temmuz 2010 16:44:51 »
bence yazacağımız kod formun OnShow olayına şöyle bişey olmalı :
RzDBDateTimePicker1.Field:='URUN_GIRIS_TARIHI':=Now;
 ben tam yazamadım ama aşşa yukar böyle bişey olmalı ..???
Kayıtlı

Çevrimdışı aytekin

  • Delphi 7 Level 1
  • *
  • İleti: 302
  • Rep: +0/-0
Ynt: Tarih Olayı Acillll
« Yanıtla #25 : 27 Temmuz 2010 20:54:00 »
ben çözdüm arkadaşlar olayı forma bir adet label koyup form create olayına Label1.Caption:=DateToStr.now; yazıp o günkü tarih neyse labelde gösterecem daha sonra kullanıcı yeni kayıt gireceği zaman tari componentinde ise elle label dan bakarak o günkü tarih neyse elle girecek en mantıklı ve sağlıklısı bu çünkü diğer şekilde kod yazdığım zaman çok sıkıntı çıkıyor...
Kayıtlı

Çevrimdışı redcoder

  • Delphi 7 Level 5
  • *****
  • İleti: 343
  • Rep: +2/-0
  • Coder
Ynt: Tarih Olayı Acillll
« Yanıtla #26 : 28 Temmuz 2010 07:27:56 »
Bununla ilgili bir örnek
http://www.upload.gen.tr/d.php/s13/t249fdjv/deneme.rar.html
Başka türlü anlatamam sana ;)
Kayıtlı
Application.MessageBox('Zor yapılabilir?','Imkansız sadece zaman alır',0+32+0);

Çevrimdışı aytekin

  • Delphi 7 Level 1
  • *
  • İleti: 302
  • Rep: +0/-0
Ynt: Tarih Olayı Acillll
« Yanıtla #27 : 28 Temmuz 2010 11:33:59 »
neyse ilginizden ötürü yardumcı olan bütün arkadaşlarıma çok tşk ederim...
Kayıtlı
Sayfa: 1 [2]  Hepsi   Yukarı git
« önceki sonraki »