veritabanı kullanmadan rapor oluşturma

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
grassular
Üye
Mesajlar: 73
Kayıt: 09 Kas 2005 09:37

veritabanı kullanmadan rapor oluşturma

Mesaj gönderen grassular »

selam arkadaşlar;
yardımlarınız için şimdiden teşekkur ediyorum.

benim sorum şu olacak,
herhangi bir veritabanı kullanmadan , mesela web ten getirdiğim ve sadece o an kullancağım verilerin çıktısını belirli bir rapor formatında almak istesem nasıl bir yöntem kullanmam gerekli


saygılar
Kullanıcı avatarı
husonet
Admin
Mesajlar: 2962
Kayıt: 25 Haz 2003 02:14
Konum: İstanbul
İletişim:

Mesaj gönderen husonet »

Bir Adet Memo bileşenine formatlı yerleştirebilirsin.

Gazete manşetleri
* DİKKAT :Lütfen forum kurallarını okuyalım ve uyalım...!
* Warez,crack vs. paylaşımı kesinlikle yasaktır.
Kullanıcı avatarı
rsimsek
Admin
Mesajlar: 4482
Kayıt: 10 Haz 2003 01:48
Konum: İstanbul

Mesaj gönderen rsimsek »

QuickReport un da böyle bir özelliği var OnDataNeed diye bir olayına MoreData değişkeni True oldukça veri tabanından veri alıyormuş gibi yazmaya devam ediyordu.. Bu şekilde bir döngü içerisinde veya bir değişkene değer atayarak istenilen satırda yazdırma yapılabilir. Diğer rapor araçlarının da böyle özellikleri olabilir. İhtiyaç olmadığından denemedim. Hüseyin in dediğine ek olarak RichEdit / RichText ile de formatlı raporlar da alınabilir :wink:
Bilgiyi paylaşarak artıralım! Hayatı kolaylaştıralım!!
Kullanıcı avatarı
grassular
Üye
Mesajlar: 73
Kayıt: 09 Kas 2005 09:37

Mesaj gönderen grassular »

Çok teşekkur ediyorum,
ben şöyle bir şey yaptım, A4 boyutunda hazırladığım bir formatı image olarak bir forma yerleştirdim, ve bu image uzerine verilerin geleceği editler ve label lar yerleştirdim, ve bu image çıktısını aldığımda sadece image print edildi yani uzerine yerleştirdiğim hiç bir edit veya label çıktıda gelmedi, çıktı almak için kullandığım kod;


uses Printers

var
ScaleX, ScaleY: Integer;
RR: TRect;
begin
with Printer do
begin
BeginDoc;

try
ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
RR := Rect(0, 0, Form2.Image1.picture.Width * scaleX, Form2.Image1.Picture.Height * ScaleY);
Canvas.StretchDraw(RR, Form2.Image1.Picture.Graphic);

finally
EndDoc;

end;
Cevapla