Tarih Bulma

[ofenX]

Merhaba,

Arkadaş "sorgun çalışıyor" demek istemiş diye düşünmek istiyorum. Yoksa zannetmiyorum tamamını yazdırıpta sonra da sorgum diyeceğini

Naile Hanım, benim belirtmek istediğim benim sorgum onun sorgusundan ziyade, ben onun sql ini karıştırmadan farklı olarak başka bir örnek vermiştim.
Eğer o örneği kullanmışsa "Ben bu sorguyu uygulamama şu şekilde adapte edip kullandım oldu. uygulamamın en son hali aşağıdaki gibidir. " gibi bir şey yazması için yazmıştım.

Yoksa benim sorgum diye bir şey yok. Bu grupta ben değil biz varız. Burdan öğrediklerimizi yine buraya yazıyoruz.

Kolay gelsin.

[naile]

Herkes birsürü şey öğreniyor bu forumdan ama görüyoruz ki onları kullanabilmekte önemli.

Eğer gönüllü olarak burada zaman geçiriliyorsa emeğe saygı demek istiyorum..

[ozcank]

Arkadaşlar ben "Sorgum çalışıyor" demek istediğim şuyduki ; arkadaşlarımızın emek harcayarak yapmış olduğu kod döngüsünü bende kendi programıma göre uyarladım ve çalıştırdım.Bu demek değildir ki ben yaptım, aslında biz yaptık çünkü hepimizin emeği var kesinlikle emeğinizede Saygım var.
Not: Yanlış anlaşılmadan dolayıda Özür dilerim.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
QUERY1.CLOSE;
QUERY1.SQL.Clear;
QUERY1.SQL.Add('SELECT * FROM ROKAYIT');
QUERY1.SQL.Add('WHERE EXTRACT(MONTH FROM RO5BAKTAR)=EXTRACT(MONTH FROM CAST(:BUGUN AS DATE ))');
QUERY1.SQL.Add(' AND  EXTRACT(YEAR FROM RO5BAKTAR)=EXTRACT(YEAR FROM CAST(:BUGUN AS DATE ))');
QUERY1.ParamByName('BUGUN').AsDate:=DATE;
QUERY1.Open;
ShowMessage('Bu Ay (5 Mikron Sediment) Bakım yapılması gereken müşteriler mevcuttur !!! '); 
Form22.Show;
end
Else
Form22.Show
end;

[ozsal]

merhaba.
Arkadasım ben programlamada yeniyim. ama ben şöyle bir şey öneriyorum.

bi query oluştur.
Select * From Tablo
Where bakimtarihi =Date();

sonra
if tablerecordcount >1 then
// bakım var

şeklinde.
bence boyle bir şey çözüm olabilir.

ayrıca işine yarayıp yaramadıgını da belirtirsen sevinirim

[ozcank]

ben üstteki kodu kullanarak hallettim ama yinede tşk.

[ofenX]

Merhaba,

Select * From Tablo
Where bakimtarihi =Date();

sonra
if tablerecordcount >1 then
// bakım var

şeklinde.
bence boyle bir şey çözüm olabilir.

ayrıca işine yarayıp yaramadıgını da belirtirsen sevinirim

Verdiğiniz örnek çok güzel yani çok kısa ama arkadaşımıza yaramayan tarafı var. Şöyleki:

11.02.2006
15.02.2006
18.02.2006

tarihlerinde bakım olsun.
sizin sorgunuz için 11.02.2006 da bakım var dedi.
E gittik bakımını yaptık geldik. bakım tarihinin 11.03.2006 yaptık.
12,13,14 ünde bir şey vermedi.
15.02.2006 da bakım var dedi. işimizin yoğunluğundan oraya gidemedik. 16,17 de bize bir şey vermedi. halbuki 15.02.2006 nın bakımı var.
18.02.2006 da bakım var diye bizi uyardı. gittik yaptık bakım tarihini 18.03.2006 yaptık.
bundan sonra 11.03.2006 tarihine kadar bize bakım var demeyecek.
Ama 15.02.2006 daki bakımı yapmadık ve arada kaynadı gitti.

O yüzden arkadaşın işine yaramayacaktır.

Kolay gelsin.

[ozcank]

Şöyle çözdüm onu checkbox koydum ve bakım yapıldıysa o checkbox kaldırıyor yeni girdiği tarihe checkbox işaretliyor böyle bir döngü ile cözdum bu sefer bakım evrelerinide izlemiş oluyor.