DBGrid'de sadece bugünkü kayıt işlemleri..?

[sevturk]

s.a. arkadaşlar;
Örnekle açıklamak gerekirse;
ana menüden kasa formu butonuna tıkladığımda kasa formu geliyor ama ilk girdiğim seferde DBGrid'deki listenin boş gelmesini ve eğer o gün kayıt girildiyse sadece o günkü kayıtları göstermesini istiyorum.. bir diğer gün olduğunda tekrardan listenin ilk seferde boş gelmesi gibi bir yapıyı nasıl oluşturabilirim?

Ben şöyle düşündüm;
Formun Create olayına:
form7.edit1.text:=datetostr(now);
form7.edit2.text:=datetostr(now);

ana menüdeki kasa butonunun click olayına;
if ((form7.edit1.text)=form7.edit2.text) then
begin
table1.FilterOptions:=[focaseinsensitive];
table1.Filter:='TARIH='+Quotedstr(edit1.Text);
table1.Filtered:=true;
end;

yazdım ama olmadı hata verdi..(hata kısmı:table1.FilterOptions:=[focaseinsensitive]; ).. fikri veya bilgisi olan arkadaşların yardımlarını bekliyorum ilgilenen tüm arkadaşlardan şimdiden Allah razı olsun.. hepinize iyi çalışmalar..

[sevturk]

arkadaşlar sorunun cevabını buldum denedim doğru mantıkla çalışıyo.. bende belki buna benzer bi sorun çıkarsa yardımcı olması dileğiyle;

procedure TForm1.Button5Click(Sender: TObject);
begin
form7.Edit1.Text:=datetostr(now);
form7.table1.Filter:='TARIH='+Quotedstr(form7.edit1.Text);
form7.table1.Filtered:=true;
form7.show;
end;

Button5(ana menüdeki kasa butonu)
form7(kasa formu)

[Trial_Cooder]

Kod: Tümünü seç

 Form7.Table1.Filter := 'TARIH = ' + QuotEdStr(DateToStr(Now));
 Form7.Table1.Filtered := True;
 Form7.Show;

Olmazsa;

Kod: Tümünü seç

Var
 Date: String;
Begin
 Date := DateToStr(Now);
 Form7.Table1.Filter := 'TARIH = ' + QuotEdStr(DateToStr(Now));
 Form7.Table1.Filtered := True;
 Form7.Show;