0 Üye ve 1 Ziyaretçi konuyu incelemekte.
procedure TForm1.Timer1Timer(Sender: TObject);begin//Uses: DateUtils; ekle DateTimePicker1.Date:=Now;//Bugünkü Tarih Aktif. if DayOfWeek(Form1.IBDataSet1TARIH.AsDateTime)=DayOfWeek(DateTimePicker1.Date) then Label1.Caption:=' '+Form1.IBDataSet1ADI.AsString+' = '+Form1.IBDataSet1HATIRLAT.AsString;end;
procedure TForm1.Timer1Timer(Sender: TObject); var a:integer; sat:TTime; begin sat:=time; query1.close; query1.sql.clear; query1.sql.add('select KONU from AJANDA'); Query1.sql.Add('where HATIRLATMA=:Hatir_x and TARIH=:tarih_x and SAAT=:saat_x'); query1.Params.Items[0].Asinteger:=0; query1.Params.Items[1].AsDate:=datetimepicker1.Date; query1.Params.Items[2].Astime:=(sat); query1.Open; query1.First; for a:=1 to Query1.RecordCount do begin showmessage('Bu güne ait '+Query1.FieldByName('KONU').AsString+' konulu notunuz vardır'); query1.Next; end; end;//begin DateTimePicker1.Date:=now; query1.close; query1.sql.clear; query1.sql.add('select KONU from AJANDA' ); query1.sql.add('where tarih='); query1.sql.add(#39+datetostr(DateTimePicker1.Date)+#39); query1.open; if query1.RecordCount>0 then showmessage( query1KONU.asstring+' Konulu Olayı unutmayın lütfen '); end;