yazdırma işlemi

hasguc · Mesaj gönderen **hasguc** » 19 May 2006 07:08

kardeş sağolasın gerçekten sağolasın son bi sorum olacak olmayan yazıyıcıyı tanıttım tamam:) yalnız yazdır dediğimde print preview çıkıyorya ben ordaki sayfanın a4 boyutunda değilde daha ufak olmasını istiyorum bu yazdıracağımız yeri bi tablo içine almak mümkün değilmi çok gıcık gözüküyo

nitro · Mesaj gönderen **nitro** » 19 May 2006 07:15

quickreportu çift tıklayınca özellikleri açılıyor.(paper size) orda sayfa seçimi yapabiliyorsun. ya da sayfa boyutunu elle de girebilirsin. sayfa boyutunu a5 seçersen ve sayfa yapısını lapscape(yatay) yaparsan raporun için daha şık bir zemin elde edersin.
ayrıca quickreportun olduğu sekmede qrshape diye bi bileşen var.
ondan raporuna koyarsan raporunda çerçeve, daire, çizgi gibi şekiller kullanabilirsin.
kolay gelsin.

hasguc · Mesaj gönderen **hasguc** » 19 May 2006 07:42

kardeş hallettim sağolasın...Çok Teşekkürler

hasguc · Mesaj gönderen **hasguc** » 19 May 2006 07:58

bi sorun daha var kardeş dedimya ben devamsızlık bilgilerini yazdıracam x numaraya ait bilgileri yazacak sadece bu veritabanında ne var ne yok yazıyo napacam şimdi

ulu coder · Mesaj gönderen **ulu coder** » 19 May 2006 08:02

Yapmak istediğiniz şey filtrleme.
Table kullanıyorsanız

Kod: Tümünü seç

Table1.Filter:='No='+QuotedStr(inttostr(Ogrencino));

Yok Query kullanıyorsanız, sorgu cümlesine şunu ekleyin;' Where No='+QuotedStr(inttostr(ogrencino))

nitro · Mesaj gönderen **nitro** » 19 May 2006 08:02

işte olayın kopuş noktası burası. query kullanma zamanın geldi. forma bir adet query koy, querynin veritabanı bağlantılarını yap. quickreport'u querye bağla. querynin sqline

Kod: Tümünü seç

select * form ogrenciler where devamsizlik>0

gibi bişey yaz.
quickreport sana devamsızlık sayısı sıfırdan büyük olanları raporlayacaktır.
kolay gelsin.

hasguc · Mesaj gönderen **hasguc** » 19 May 2006 08:15

evet filitreme yapılacak ama ulucoder verdiğin AdoTable1.Filter:='No='+QuotedStr(inttostr(Ogrencino).....); bu kod olmadı .... yerde hata veriyor..

ulu coder · Mesaj gönderen **ulu coder** » 19 May 2006 08:17

Table1.Filtered:=True;
Unutmuşum

Bir şey daha var.
AdoTable1.Filter:='No='+QuotedStr(inttostr(Ogrencino).....);
Burdaki No'ya öğrenci numarasını tutan alanın adını yazacaksın.
OgrenciNo ise integer. Eğer string tutuyorsan inttostr'yi kaldır.

Bu arada @mussimsek adminim görse ne derdi biliyor musun;
Programcılık lugatında 'hata verdi' diye bi şey yoktur.
Lütfen hatanın ne olduğunu yazın.

Katılıyorum.

hasguc · Mesaj gönderen **hasguc** » 19 May 2006 08:27

form1 deki devamsızlık alanlarının bulunduğu yerdeki yazdır butonunun içine AdoTable3.Filter:='Numara='+QuotedStr(inttostr(Numara)); yazdım daha sonra quickreportun bulunduğu form15 deki ve form1 deki filter özelliğini true yaptım ama yine ahata veriyor neresini eksik yapıyorum bulamadım

ulu coder · Mesaj gönderen **ulu coder** » 19 May 2006 08:30

Lütfen hatanın ne olduğunu söyle, daha kolay olacak.
inttostr(numara) yazdığın yerde, numara olarak hangi öğrenciyi göstermek istiyorsan o öğrencinin numarasını gireceksin.
Diyelim ki edit1'de öğrenci numarası yazılı. Yazman gereken filtre;
'Numara='+QuotedStr(Edit1.Text);

hasguc · Mesaj gönderen **hasguc** » 19 May 2006 08:35

Kod: Tümünü seç

There is no overloaded version of 'IntToStr' that can be called with these arguments

Hata Bu

ulu coder · Mesaj gönderen **ulu coder** » 19 May 2006 08:36

Filtrelenecek öğrenci numarası nerede? Edit, combobox?
Eğer bunlardan birindeyse, IntToStr'yi yazma.

hasguc · Mesaj gönderen **hasguc** » 19 May 2006 08:41

filitrelenme yapılıp direk yazdırılacak son hata gittti ama yazdır deyince hata veriyor bu sefer

ulu coder · Mesaj gönderen **ulu coder** » 19 May 2006 08:44

Ya arkadaşım hata ne söylesene!

ulu coder · Mesaj gönderen **ulu coder** » 19 May 2006 09:04

Tahmin: yazıcının olmadığını söylemiştin. Belki ondandır.