|
|
|
|||||||
 | ||
 |
|
|
Seçenekler | Arama | Stil |
  Rapor Hazırlamak | ||||||||||
|
(#1)
|
|||||||||
|
[10]Yeni Üye
  
>Mesaj Sayısı: 620
>Açtığı Konu: 380
Level: 22 [  ]Paylaşım: 163 / 544
Üyelik tarihi: Nov 2007
Nerden: C:\WINDOWS\system32
Rep Puani: 240
Rep Derecesi :
|
Rapor Hazırlamak -
05-13-2008
Rapor Hazırlamak
VisualBasic ile birlikte VisualBasic projeleri dahilinde veya başka bir program ile hazırlanan veri tabanı dosyalarından rapor hazırlamak amcıyla kullanılan Crystal Reports adında bir rspor üreticisi verilmektedir.Rapor üreticisi için VisualBasic bilgisayara kurulurken ayrıca bir Başlat menüsünde bir komut hazırlandığından VisualBasic çalışmıyor iken bile Crystal Reports uygulamasını başlatabilirsiniz.Visual Basic çalışır durumda iken Add-Ins menüsündeki Report Designer komutu ile rapor üreteci başlatılabilir.Rapor üreteci başladıktan sonra Crystal Report uygulaması ekrana bir pencere içinde gelir.Crystal Reports ile kolay bir şekilde profosyonel kalitede raporlar hazırlayıp Visual Basic projeleri içinde kullanabilirsiniz.Crystal Reports ile hazırlanan rapor dosyalarına RPT uzantısı verilmektedir.Yeni bir rapor hazırlamak için File menüsünden New komutu verilir.File menüsünden New komutu verirseniz ekrana Create New Report diyalog kutusu gelir.Create New Report diyalog kutusunda rapor hazırlama yardımcısı ( Expert ) seçilmektedir.Hazırlamak istediğiniz rapor Create New Report diyalog kutusunda birer düğme ile temsil edilen rapor hazırlama Expert’lerinden hangisine yakınsa onu seçmeniz gerekir.Standart bir rapor hazırlamak istiyorsanız Standart düğmesinde , çapraz sorgu hazırlamak istiyorsanız Cross-Tab düğmesini ve mektup etiketleri hazırlamak istiyorsanız Mail Label düğmesini seçmeniz gerekir.Custom düğmesine tıklama yaparsanız Create New Report diyalog kutusunun alt kısmına 5 düğme daha eklenir.Şimdi Standart Expert’ten yararlanarak basit bir rapor düzenliyelim.standart butonuna basınız.Karşımıza 1.adımı temsil eden dialog kutusu geldi.Rapor hazırlama sihirbazının ilk adımını temsil eden bu diyalog kutusunda hazırlanmak istenen rapora kaynaklık edecek veri tabanı dosyası seçilmektedir.Bu diyalog kutusunda rapora kaynaklık edecek veri tabanı dosyası seçilip Done veya Add düğmesine basılırsa rapor hazırlama Expert’in 2.adımını temsil eden diyalog kutusu ekrana gelir. Rapor hazırlama Expert’in 2.adımını temsil eden diyalog kutusunda seçilen veri tabanı dosyasındaki tablolar birer liste kutusu ile temsil edilmektedir.Rapor hazırlama işleminin bir önceki adımına geçmek için Back düğmesine tıklama yapabilirsiniz.Rapor Hazırlamanın 1.adımında kullanmadığınız tabloları Delete tuşuyla silebilirsiniz.Eğer birden frazla veri tabanından bilgi derleyecekseniz tekrar Data File butonuna basarak veri tabanı dosyası seçimi yapılan Choose Database File diyalog kutusunu tekrar ekrana getirebilirsiniz.Ekranda rapor hazırlama Expert’in 2.adımını temsil eden diyalog kutusu varken Next butonuna tıklama yapıp rapora dahil edilecek alanların seçildiği sekmeye geçebilirsiniz.Diyalog kutusunda gördüğünüz gibi tablodaki alanlar Database Fields liste kutusunda listelenmektedir.Raporda yer almasını istediğiniz alanları Add düğmesine tıklayarak raporunuza dahil edebilirsiniz.Allbutonu ile bütün alanları raporda göstermiş olursunuz.Remove alanları göstermekten vazgeçeriz.Rapora dahil edilen alanların adları aynı zamanda sütun başlığı olarak kullanılmaktadır.Eğer alan adlarından farklı sütun başlıkları kullanmak istiyorsanız.Report Fields liste kutusunda alan seçimi yaptıktan sonra Column Heading metin kutusuna başlık metnini yazabilirsiniz.Next tuşuna basarak 4.adıma geçelim.4.adımda Sort sekmesinde raporda yer alacak bilgilerin nasıl sıralanacağı ve nasıl bir gruplama yapılacağı konusunda seçim yapılmaktadır.Hazırladığım Raporda Personellerin Adına göre siralanmasını istediğim için Add düğmesi ile Group Fields liste kutusuna kopyaladım. Sort sekmeninde kayıtların nasıl sıralanacağı ve gruplanacağı konusunda seçim yapıldıktan sonra Total sekmenine ( 5.adım ) geçilir.Total sekmeninde sayısal bilgi içeren alanların içeriğinin toplanması konusunda seçim yapılmaktadır.Rapora dahil edilecek bilgileri herhangi bir alana göre toplamak istemediğim için bu adımı direk geçtim.6.adım olan Select sekmeninde raporda yer almasını istediğiniz kayıtları filtre edebilirsiniz.Kayıt filtre etme işlemin hangi alana göre yapmak istiyorsanız o alanı Add düğmesi ile Report Fields liste kutusundan Select Fields liste kutusuna kopyalamanız gerekir.Ben örnek olarak Personel ADI’nı filtreledim.Daha sonra aşağıdaki any Value. değerini equal to yaptım ve açılan metin kutusuna Bahadır* yazdım.Daha sonra 7.adıma geçtim.Stylesekmeninde rapor biçiminden başka bir rapora verilmek istenen başlık Title metin kutusuna yazılabilir.Bu işlemden sonra Preview Report düğmesine tıklanarak rapor hazırlanır.Cyrstal Reports uygulamasından çıkmadan önce hazırlanan raporun kaydedilmesi gerekir.Bunun için File menüsündeki Save komutundan yararlanılır.Save komutunu verirseniz File Save As diyalog kutusu gelir.Ben hazırlamış olduğum raporu personel.rpt olarak kaydettim.Sizde oluşturduğunuz raporu kaydediniz. Report Kontrolü Cyrstal Reports programı ile yukarıda anlattığım şekilde hazırlanan rapor dosyalarından yararlanılarak ekrana ve yazıcıya raporlar almak mümkündür.Ancak bu yeterli değildir.Crystal Reports ile hazırlanan RPT uzantılı rapor dosyalarının VisualBasic projeleri dahilinde kullanılabilmesi gerekmektedir.Bunun için üzerinde çalışılan projeye Crystal Reports kontrolünü temsil eden özel kontrol dosyasının eklenmesi gerekir.VisualBasic’in Project menüsünde Components komutu ile ekrana gelen Components diyalog kutusunda Crystal Report kontrolü üzerinde çalışılan projeye dahil edilince Toolbox penceresine rapor kontrolünü temsil eden düğme eklenir.(Cyrstal Report Control ...)ToolBox penceresinde Crystal Reports kontrolünü temsil eden düğme seçili duruma getirildikten sonra üzerinde çalışılan projenin aktif formuna rapor nesnesi eklenebilir.Formun üzerinde Crystal Reports nesnesini çalışma anında görünmediği için tasarım anında sabit boyutlara sahip olur.Forma eklenen ilk Crystal Reports nesnesine Crystal Report1 adı verilmektedir.Rapor nesnesinin adı nesneye ait Name değişkeninde tutulmaktadır.Tasarım anında rapor nesnesine istenilen ad verilebilir.Forma eklenen Report nesnesine kaynaklık edecekm RPT uzantılı rapor dosyasının adı Report nesnesine ait ReportFileName adlı değişkene aktarılır.Yanındaki üç noktaya tıklarsak ;Property Pages penceresi açılır.Buradan Raporumuzun yolunu tanımlıyoruz.(Önceden hazırladığım personel.rpt’nin yolunu tanımladım).Bu pencerede eğer raporu ekranda görmek istiyorsak To Window ,yazıcıdan çıkarmak isterseniz To Printer , Raporun içeriğini bir dosyaya yazmak istiyorsak To File radyo butonunu seçmemiz gerekir. Tasarım anında ToolBox’tan yararlanarak üzerinde çalışılan projenin aktif formuna dahil edilen Report nesnesini çalışma anında formun üzerinde görünmez.Bu nedenle Report nesnesi için önceden tanımlı olan herhangi bir yordam veya olay yoktur.Dolayısıyla Report nesnesinden yararlanmak için bazı ek işlemlerin yapılması gerekir.Report nesnesi ile rapor almaya başlamak için Report nesnesine ait Action değişkeninden yararlanılır.Action değişkenine 1 değeri aktarılacak olunursa rapor alınmaya başlanılır.Şimdi bunu deneyelim. Formumuza bir buton ekleyelim ve Click olayına aşağıdaki kodu yazalım. CrystalReport1.Action = 1 Formumuzu çalıştıralım.Çalışma anında ekran görüntüsünde raporun görülmediği gözükmektedir.Raporlama butonuna bastığımızda hazırlamış olduğumuz raporu ekranda görürüz.Raporun kağıt üzerinde tam görüntüsü ekrana getirilir.Bu ekran görüntüsünde Rapor penceresinin herhangi bir başlığı yoktur.Rapor penceresine başlık vermek istiyorsanız Report nesnesine ait WindowTitle özelliğinden yararlanmalısınız.Bu değişkenin içeriği tasarım anında Properties penceresinde ve çalışma anında program kodu yazılarak değiştirilebilir.CrystalReport1’i seçip Properties özelliğinde WindowTitle’ye Personel Listesi 2001 yazdım.Sizde raporunuza uygun isim yazınız.Raporunuza Page Header ( Cyrstal Reports tasarım halinde ) fare ile tıklayarak rapora başlık verebilirsiniz. Cyrstal Repots’ta Raporun başlığı için Font ve Punto seçimi için Format menüsündeki Font komutundan ,resim eklemek için Insert menüsündeki Graphics komutundan yararlanabilirsiniz.Insert menüsündeki komutlar ile rapora kutular,resim dosyaları,metin kutuları vb.dahil edilebilir.Rapora sayfa numarası eklemek için Insert menüsünden Special Field - Page Number Field ve raporun her sayfasına günün tarihinin yazılmasını sağlamak için Insert menüsündeki Special Field - Print Date Field komutlarından yararlanılır.Cyrstal Repots’ta Details kısmına veri tabanı dosyasından okunacak bilgiler için alanlara ( Fields ) yer verilir. CRYSTAL REPORT 8 İLE RAPORLAMA ’AŞAĞIDAKİ SUB DA ’ ’FRM=CRViewer ’IN BULUNDUĞU FORM ’ ’PATH=.RPT UZANTILI RAPOR DOSYANIZIN YOLU ’SQL=SORGUNUZ ’CNN1=TANIMLANMIŞ VE DB YE BAĞLANTISI YAPILMIŞ BİR CONNECTION NESNESI ’ ’RS= TANIMLI BİR RECORDSET ’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’ ’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’ ’’’ ’KULLANIMI ’RAPORLA RAPORFORMUM,"C:\\RAPOR\\RAPORUM.RPT","SELECT * FROM TABLOM WHERE ADI=’MUSTAFA KOÇER’" ’modüle yapıştır Public CrxApp As New CRAXDRT.Application Public Report As New CRAXDRT.Report Public Sub raporla(frm As Form, Path As String, sql As String) On Local Error Resume Next Set rs = Cnn1.Execute(sql) If rs.RecordCount < 1 Then MsgBox "Hiçbir Kayıt Bulunamadı...", vbCritical, "UYARI" Exit Sub End If frm.Show Set Report = CrxApp.OpenReport(Path) Report.DiscardSavedData frm.CRViewer1.EnableGroupTree = True frm.CRViewer1.DisplayGroupTree = False Report.Database.SetDataSource rs frm.CRViewer1.ReportSource = Report frm.CRViewer1.ViewReport frm.CRViewer1.Zoom (100) frm.CRViewer1.Visible = True End Sub CRYSTAL REPORTİLE RAPORLAMA CRYSTAL REPORT İLE İSTEĞİMİZ KAYDIN RAPORLANMASI ARTIK ÇOK KOLAY ’AŞAĞIDAKİ SUB DA ’ ’FRM=CRViewer ’IN BULUNDUĞU FORM ’ ’PATH=.RPT UZANTILI RAPOR DOSYANIZIN YOLU ’SQL=SORGUNUZ ’CNN1=TANIMLANMIŞ VE DB YE BAĞLANTISI YAPILMIŞ BİR CONNECTION NESNESI ’ ’RS= TANIMLI BİR RECORDSET """""""""""""""""""""""""""""""""""""""""""""" """ ’KULLANIMI """""""""""""""""""""""""""""""""""""""’ ’RAPORLA RAPORFORMUM,"C:\\RAPOR\\RAPORUM.RPT","SELECT * FROM TABLOM WHERE ADI=’MUSTAFA KOÇER’" """"""""""""""""""""""""""""""""""""""""’ ’modüle yapıştır """"""""""""""""""""""""""""" Public CrxApp As New CRAXDRT.Application Public Report As New CRAXDRT.Report Public Sub raporla(frm As Form, Path As String, sql As String) On Local Error Resume Next Set rs = Cnn1.Execute(sql) If rs.RecordCount < 1 Then MsgBox "Hiçbir Kayıt Bulunamadı...", vbCritical, "UYARI" Exit Sub End If frm.Show Set Report = CrxApp.OpenReport(Path) Report.DiscardSavedData frm.CRViewer1.EnableGroupTree = True frm.CRViewer1.DisplayGroupTree = False Report.Database.SetDataSource rs frm.CRViewer1.ReportSource = Report frm.CRViewer1.ViewReport frm.CRViewer1.Zoom (100) frm.CRViewer1.Visible = True End Sub |
|||||||||
|
||||||||||
 | ||||||||||
|
|
| | ||||||||||
|
|
(#2)
|
|||||||||
|
[45]Kategori Moderatör
  
>Mesaj Sayısı: 2,284
>Açtığı Konu: 593
Level: 38 [  ]Paylaşım: 1420 / 1420
Üyelik tarihi: Dec 2007
Rep Puani: 1486
Rep Derecesi :
|
05-13-2008
Güzel (ç)alıntı yapmışında . Bu renkte okursam bunu gözler bi daha iş göremez : )
|
|||||||||
|
|
||||||||||
| ||||||||||
|
| Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| Seçenekler | Arama |
| Stil | |
|
|
Normal
