Re: OFFICIAL BRAINSTORM TEAM FOR THESIS MAKING (IT thesis projects,proposals,ideas et
Gud am po sir asthma tanong ko lang po nsa stage na kmi ng pagpprint ng report gamit nmen crystal report wla po kc kmi idea kung panu nmen kukuhain ung mga fields example po
kukunin ko un list ng student sa isang section gs2 ko mag print ng class list bali panu ko po iccode un pra mapalbas sa crystal report ung list ng student to that section thx po
example nlng bibigay ko sau at direct explanation para walang masayang na oras
- example ko to sa payslip sa ginawa kong payroll system
+ sa form design, drag a button sa form at crystal report viewer
sa top most import m tong mga to
Code:
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
then declare m ung connection at iba pang variables na gagamitin sa extracting ng report
Code:
Dim con As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Application.StartupPath & "\exampledatabase.mdb";OLE DB Services = 0;Persist Security Info=False;"
Dim oledbcon As New OleDbConnection(con)
Dim cmd As OleDbCommand
Dim objRead As OleDbDataReader
Dim str As String
Dim rptcmd As New OleDbCommand
Dim rptconn As New OleDbConnection
Dim rptda As New OleDbDataAdapter
Dim rptds As New DataSet
Dim rptstr As String
on_button-preview_click
Code:
'crViewer name ng crystal report viewer
crViewer.Refresh()
crViewer.RefreshReport()
rptstr = "SELECT * FROM tablename WHERE field1 ='" & textbox1.Text & "' AND field2 ='" & combobox1.Text & "' AND field3 ='" & "static_string" & "' ORDER BY field4 ASC"
rptcmd.CommandText = rptstr
rptcmd.Connection = rptconn
rptda.SelectCommand = rptcmd
rptda.Fill(rptds)
rptname = "Payslip1"
' ito ung path ng crystal report document mo, sakin nakalagay kung nasaan nakalagay din tong form na to
Dim rptpath As String = Application.StartupPath & "\" & rptname & ".rpt"
If Not IO.File.Exists(rptpath) Then
Throw (New Exception("Unable to locate report file: " & vbCrLf & rptpath))
End If
Dim rptdoc As New CrystalDecisions.CrystalReports.Engine.ReportDocument
rptdoc.Load(rptpath)
rptdoc.SetDataSource(rptds.Tables(0))
crViewer.Show()
crViewer.ReportSource = rptdoc
+ add ka ng new item sa current project m, CTRL + SHIFT + A; punta ka sa reporting tapos add ka ng crystal report
step by step ng setup:
11. CRYSTAL REPORTS GALLERY
- select USING THE REPORT WIZARD (para sa newbie)
- select STANDARD for expert
- hit OK
12. STANDARD REPORT CREATION WIZARD
- go to AVAILABLE DATA SOURCES treebox
- expand CREATE NEW CONNECTION
(for example gagamit tau ng ms access database)
- click ACCESS/EXCEL (DAO)
- a window will popup
- DATABASE NAME, click m ung ... pra mabrowse m ung database path m (usually ang mga iba nilalagay nila sa loob ng \bin\Debug folder)
- DATABASE TYPE , select ACCESS
- optional, select SECURE LOGON kung may password ang database m
- select FINISH
13. back to STANDARD REPORT CREATION WIZARD
- select a table from your new database connection
- for example, may napili kna tapos click m ung > sa gitna pra mapunta ung selected table m from left to right, hit NEXT
14. nasa STANDARD REPORT CREATION WIZARD pa rin tau
- expand your table from AVAILABLE FIELDS
- select ka ng field na gusto mong nasa report m then hit >
- OR kung gusto m namang lahat ng field na nasa table m just hit >>
- then hit NEXT
15. nasa STANDARD REPORT CREATION WIZARD pa rin tau
- grouping
- optional lang to pwedeng i-skip m lng hitting NEXT or gamitin m pa rin.
- kung gusto mong subukan, just select a field then hit > tapos may enable sa baba kung asc or desc order.
16. nasa STANDARD REPORT CREATION WIZARD pa rin tau
- summaries
- optional din ito ang d ko alam ang gamit nito
- just hit NEXT
17. same as # 16
18. nasa STANDARD REPORT CREATION WIZARD pa rin tau
- report style
- bahala ka nang mamili dyan
- then hit FINISH
then makikita m na ung output
take note
* sa section 2 - andyan ung date, caption header
* sa group header section 1 - group name, bahala ka nang magbago
* sa section 3 - dito nakalagay ung mga data na manggagaling table m
then group footer, page footer (consist of page number)
ikaw na din ang bahalang mag ayos na angkop sa hitsura ng report/s nyo.
kung may katanungan kpa bukas ko na masasagot dahil mejo busy ako sa pag aayos ng mga systems ko pra mapadali na ang aking pagreresign sa letcheng boss ko