[VB.NET] การแสดงผลภาพลงใน ActiveReports ด้วยวิธีการ UnBound Data

thongkorn

การแสดงผลภาพลงใน ActiveReports ด้วยวิธีการ UnBound Data หรือการไม่ผูกฟิลด์ข้อมูลใดๆเข้ากับ Control จะทำให้เกิดความยืดหยุ่นในการปรับแต่งใช้งาน เช่น ในฐานข้อมูลจะเก็บเฉพาะชื่อไฟล์ภาพเท่านั้น แล้วใช้พาธ (Path) ในการนำภาพมาแสดงผลลงใน PictureBox โค้ดชุดนี้แอดมินได้ตัดส่วน Detail ออกไป แต่จะใช้เหตุการณ์ FetchData หรือการเรียกข้อมูลมาแสดงผลใหม่แทนเท่านั้น ...


Design Time (AR Designer)


Add References ...

มาดูโค้ดฉบับเต็มกันเถอะ ... (ฟอร์มหลัก)

1. Imports DataDynamics.ActiveReports.Export.Pdf
   
2. 
   
3. Public Class frmAR6PrintImage
   
4. 
   
5.     Private Sub btnPreview_Click(sender As System.Object, e As System.EventArgs) Handles btnPreview.Click
   
6.         '// ประกาศตัวแปร rpt จากหน้ารายงาน ActiveReports
   
7.         Dim rpt As New NewActiveReport1
   
8.         '// สั่งรัน
   
9.         rpt.Run()
   
10.         Me.Viewer1.ReportViewer.Zoom = 1    '(100%)
    
11.         '// แสดงผลรายงานเอกสาร
    
12.         Me.Viewer1.Document = rpt.Document
    
13.     End Sub
    
14. 
    
15.     Private Sub btnExportPDF_Click(sender As System.Object, e As System.EventArgs) Handles btnExportPDF.Click
    
16.         '// Add Reference: ActiveReports.PdfExport.DLL เข้ามาก่อน
    
17.         '// ประกาศตัวแปร rpt จากหน้ารายงาน ActiveReports
    
18.         Dim rpt As New NewActiveReport1
    
19.         rpt.Run()
    
20.         Me.Viewer1.Document = rpt.Document
    
21.         '//
    
22.         Dim pdf As New DataDynamics.ActiveReports.Export.Pdf.PdfExport()
    
23.         Dim dlgSaveFile As New SaveFileDialog()
    
24.         With dlgSaveFile
    
25.             .Filter = "PDF|*.pdf"
    
26.             .Title = "Export report to PDF File"
    
27.             .DefaultExt = "pdf"
    
28.             .InitialDirectory = MyPath(Application.StartupPath)
    
29.             .RestoreDirectory = True
    
30.         End With
    
31.         If dlgSaveFile.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
    
32.             pdf.Export(Me.Viewer1.Document, dlgSaveFile.FileName)
    
33.             '// แสดงผลไฟล์ PDF ด้วย Default PDF Reader.
    
34.             Process.Start(dlgSaveFile.FileName)
    
35.         End If
    
36.     End Sub
    
37. 
    
38.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
    
39.         Me.Close()
    
40.     End Sub
    
41. 
    
42.     Private Sub frmAR6PrintImage_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    
43.         Me.Dispose()
    
44.         GC.SuppressFinalize(Me)
    
45.         Application.Exit()
    
46.     End Sub
    
47. End Class

คัดลอกไปที่คลิปบอร์ด

โค้ดในส่วนของ ActiveReports (NewActiveReport1.vb)

1. Imports System.Data.OleDb
   
2. Imports DataDynamics.ActiveReports
   
3. Imports DataDynamics.ActiveReports.Document
   
4. 
   
5. Public Class NewActiveReport1
   
6. 
   
7.     '// พาธกำหนดตำแหน่งไฟล์ภาพ
   
8.     Private strPathImages As String = MyPath(Application.StartupPath) & "Images"
   
9. 
   
10.     ' / --------------------------------------------------------------------------------
    
11.     '// Start Here.
    
12.     ' / --------------------------------------------------------------------------------
    
13.     Private Sub NewActiveReport1_ReportStart(sender As Object, e As System.EventArgs) Handles Me.ReportStart
    
14.         '/ การตั้งค่าหน้ากระดาษ
    
15.         With PageSettings
    
16.             '/ หน่วยวัดเป็นนิ้ว แต่ใช้การแปลงหน่วยด้วย CmToInch เข้าช่วย หากเราถนัดหน่วยวัด ซม.
    
17.             .Margins.Left = CmToInch(0.75) '// แปลงค่า 1.0 ซม. เป็นนิ้ว
    
18.             .Margins.Right = CmToInch(0.5)
    
19.             .Margins.Top = CmToInch(1.0)
    
20.             .Margins.Bottom = CmToInch(0.2)
    
21.             '/ ตั้งค่ากระดาษแนวตั้ง
    
22.             .Orientation = PageOrientation.Portrait
    
23.             '/ กระดาษขนาด A4
    
24.             .PaperKind = Drawing.Printing.PaperKind.A4
    
25.         End With
    
26. 
    
27.         '// เคลียร์ค่าก่อนการพิมพ์
    
28.         txtFullName.Text = ""
    
29.         txtNickName.Text = ""
    
30.         txtPositionName.Text = ""
    
31.         txtDepartmentName.Text = ""
    
32.         Picture1.SizeMode = SizeModes.Stretch
    
33. 
    
34.     End Sub
    
35. 
    
36.     ' / --------------------------------------------------------------------------------
    
37.     '// Add the report's fields collection. (First time only.)
    
38.     ' / --------------------------------------------------------------------------------
    
39.     Private Sub NewActiveReport1_DataInitialize(sender As Object, e As System.EventArgs) Handles Me.DataInitialize
    
40.         '// เริ่มต้นการเชื่อมต่อฐานข้อมูล
    
41.         Try
    
42.             '// modDataBase.vb
    
43.             Call ConnectDataBase()
    
44.             '// ทำการ Query ฟิลด์ข้อมูลที่ต้องการมาแสดงผล
    
45.             strSQL = _
    
46.                 " SELECT EmployeePK, EmployeeID, Fullname, Nickname, PictureName, tblPosition.PositionName, tblDepartment.DepartmentName " & _
    
47.                 " FROM tblDepartment INNER JOIN (tblPosition INNER JOIN tblEmployee ON tblPosition.PositionPK = tblEmployee.PositionFK) ON tblDepartment.DepartmentPK = tblEmployee.DepartmentFK " & _
    
48.                 " ORDER BY EmployeePK, FullName ASC "
    
49.             '// Open connection and create DataReader.     
    
50.             If Conn.State = ConnectionState.Closed Then Conn.Open()
    
51.             Cmd = New OleDbCommand(strSQL, Conn)
    
52.             DR = Cmd.ExecuteReader()
    
53.         Catch ex As Exception
    
54.             MessageBox.Show(ex.Message)
    
55.         End Try
    
56.     End Sub
    
57. 
    
58.     ' / --------------------------------------------------------------------------------
    
59.     '// Retrieve information to populate the report fields.
    
60.     ' / --------------------------------------------------------------------------------
    
61.     Private Sub NewActiveReport1_FetchData(sender As Object, eArgs As DataDynamics.ActiveReports.ActiveReport.FetchEventArgs) Handles Me.FetchData
    
62.         Try
    
63.             DR.Read()
    
64.             '// นำข้อมูลมาผูกเข้ากับฟิลด์ที่เรากำหนดบน ActiveReports
    
65.             txtFullName.Text = DR("FullName")
    
66.             txtNickName.Text = DR("NickName")
    
67.             txtPositionName.Text = DR("PositionName")
    
68.             txtDepartmentName.Text = DR("DepartmentName")
    
69.             Picture1.Image = Image.FromFile(strPathImages & DR("PictureName"))
    
70.             '// ยังไม่หมดข้อมูล End Of File = เท็จ ...
    
71.             '// กระโดดไปพิมพ์ที่ Detail1_Format อีกครั้ง แต่ Detail1_Format ไม่มี มันจะเด้งกลับมาหาโปรแกรมย่อยของตัวเองอีกที
    
72.             eArgs.EOF = False
    
73. 
    
74.         Catch ex As Exception
    
75.             '// แสดงว่าหมดข้อมูลแล้ว นั่นคือสิ้นสุดการพิมพ์
    
76.             eArgs.EOF = True
    
77.         End Try
    
78.     End Sub
    
79. 
    
80.     Private Sub NewActiveReport1_ReportEnd(sender As Object, e As System.EventArgs) Handles Me.ReportEnd
    
81.         DR.Close()
    
82.         Conn.Close()
    
83.     End Sub
    
84. 
    
85. End Class

คัดลอกไปที่คลิปบอร์ด

โค้ดในส่วนของโมดูลการเชื่อมต่อฐานข้อมูล (modDataBase.vb)

1. Imports System.Data.OleDb
   
2. Imports Microsoft.VisualBasic
   
3. 
   
4. Module modDataBase
   
5.     '// Declare variable one time but use many times.
   
6.     Public Conn As OleDbConnection
   
7.     Public Cmd As OleDbCommand
   
8.     'Public DS As DataSet
   
9.     Public DR As OleDbDataReader
   
10.     'Public DA As OleDbDataAdapter
    
11.     Public strSQL As String '// Major SQL
    
12.     'Public strStmt As String    '// Minor SQL
    
13. 
    
14.     '// Data Path
    
15.     Public strPathData As String = MyPath(Application.StartupPath) & "Data"
    
16.     '// Images Path
    
17.     'Public strPathImages As String = MyPath(Application.StartupPath) & "Images"
    
18. 
    
19.     Public Sub ConnectDataBase()
    
20.         Dim strConn As String = _
    
21.             "Provider = Microsoft.ACE.OLEDB.12.0;" & _
    
22.             "Data Source = " & strPathData & "Employee.accdb;"
    
23.         Try
    
24.             Conn = New OleDb.OleDbConnection(strConn)
    
25.         Catch ex As Exception
    
26.             MessageBox.Show(ex.Message)
    
27.         End Try
    
28.     End Sub
    
29. 
    
30.     ' / --------------------------------------------------------------------------------
    
31.     ' / Get my project path
    
32.     ' / AppPath = C:\My Project\bin\debug
    
33.     ' / Replace "\bin\debug" with ""
    
34.     ' / Return : C:\My Project\
    
35.     Function MyPath(AppPath As String) As String
    
36.         '/ Return Value
    
37.         MyPath = AppPath.ToLower.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "")
    
38.         '// If not found folder then put the \ (BackSlash) at the end.
    
39.         If Right(MyPath, 1) <> Chr(92) Then MyPath = MyPath & Chr(92)
    
40.     End Function
    
41. End Module

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดฉบับเต็ม VB.NET (2010) ได้ที่นี่ ...