arkadaşlar merhaba
datetimepicker da şeçilen tarih aralıklarını herhangi örg.label olabilir. Bu şekilde 01.01.2008 - 31.12.2008 nasıl yazdırabilirim
tarih aralıgı
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Re: tarih aralıgı
Kod: Tümünü seç
procedure TForm1.DateTimePicker1Change(Sender: TObject); //////////////////////////////
begin
Form1.Caption:=DateToStr(DateTimePicker1.Date);////
end;
end.
Bilmemek ayıp değil öğrenmek isteyene öğretmemek ayıp:)
-
- Üye
- Mesajlar: 44
- Kayıt: 03 Oca 2008 05:29
- Konum: İstanbul
Re: tarih aralıgı
teşekkür ederim biliyorum da iki tarih aralığı lazım o konuda yardımcı olabilirmisin?
S&F
Re: tarih aralıgı
Kod: Tümünü seç
Form1.Caption:=DateToStr(DateTimePicker1.Date)+' ile '+DateToStr(DateTimePicker2.Date)+' aralığında';////
Bir kelimenin anlamını öğretsen bile yeter..



-
- Üye
- Mesajlar: 44
- Kayıt: 03 Oca 2008 05:29
- Konum: İstanbul
Re: tarih aralıgı
arkadaşlar bunu rapor sayfasında göstermem gerek ve bir adet QRlabel var buraya tarihi atamıyorum işte, hata veriyor
bu kodu yazıyorum
procedure TFrmRadReportList.DateTimePicker1Change(Sender: TObject);
begin
FrmReport.QRLabel9.Caption:= DatetoStr(DateTimePicker1.Date);
end;
Tarihe dokundugum anda (eğiştirdiğim anda) hata veriyor
hata da çok uzun ya.
Project RadAnalyse.exe raised exception class EAcsessViolation with message Access violation at adress
00542D in modüle Rad.Analyse.exe read adress 000000388.
bu kodu yazıyorum
procedure TFrmRadReportList.DateTimePicker1Change(Sender: TObject);
begin
FrmReport.QRLabel9.Caption:= DatetoStr(DateTimePicker1.Date);
end;
Tarihe dokundugum anda (eğiştirdiğim anda) hata veriyor
hata da çok uzun ya.
Project RadAnalyse.exe raised exception class EAcsessViolation with message Access violation at adress
00542D in modüle Rad.Analyse.exe read adress 000000388.
S&F
Re: tarih aralıgı
QRlabel 'ın olduğu forma erişim sağlayamıyorsundur. Bence rapor basıldığı anda ilgili bileşenin captionunu değiştir.
-
- Üye
- Mesajlar: 44
- Kayıt: 03 Oca 2008 05:29
- Konum: İstanbul
Re: tarih aralıgı
Hallettim arkadaşlar, Form un cretinden sonra yapınca düzeldi değişkeni buraya koydum.
burada SQL ım var ....
ADOQuery1.Active:= False;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(SS);
ADOQuery1.Active:=True;
Application.CreateForm(TFrmReport, FrmReport);
FrmReport.QRLabel9.Caption:= DatetoStr(Tarih); -------------yani bu kod doğru yerde oldugu için sorun kalmadı.
FrmReport.QRLabel15.Caption:=DatetoStr(Tarih2); ............. "" "" ""
FrmReport.QREP1.Preview;
FrmReport.Free;
end;
procedure TFrmRadiationReportList.DateTimePicker1Change(Sender: TObject);
begin
Tarih:=DateTimePicker1.Date;
Tarih2:=DateTimePicker2.Date;
end;
burada SQL ım var ....
ADOQuery1.Active:= False;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(SS);
ADOQuery1.Active:=True;
Application.CreateForm(TFrmReport, FrmReport);
FrmReport.QRLabel9.Caption:= DatetoStr(Tarih); -------------yani bu kod doğru yerde oldugu için sorun kalmadı.
FrmReport.QRLabel15.Caption:=DatetoStr(Tarih2); ............. "" "" ""
FrmReport.QREP1.Preview;
FrmReport.Free;
end;
procedure TFrmRadiationReportList.DateTimePicker1Change(Sender: TObject);
begin
Tarih:=DateTimePicker1.Date;
Tarih2:=DateTimePicker2.Date;
end;
S&F