[VB.NET] การพิมพ์ใบกำกับภาษี (Invoice) ด้วย ActiveReports แบบ Unbound DataSet

thongkorn

โค้ดชุดนี้เป็น Demo ActiveReports .Net หรือตัวอย่างจากทางค่าย GrapeCity (DataDynamics) ซึ่งแอดมินนำมาปรับแต่งโมดิฟายใหม่ เพื่อให้สะดวกต่อการรันโปรแกรม โดยที่ชุดตัวอย่างจะมี Data Source เป็นแบบข้อมูล Unbound Data อยู่ 4 แบบ ประกอบด้วย DataSet, DataReader, Text File และ Data Array สำหรับในบทความชุดนี้ แอดมินเลือกมาเพียง DataSet เพื่อเป็นตัวอย่างให้ศึกษากันครับ ...

ตัวอย่างคุณสมบัติในส่วนของ PageHeader ... การกำหนด DataField จะต้องพิมพ์เองโดยเลือกมาจากฟิลด์ข้อมูลของตารางข้อมูล


ตัวอย่างคุณสมบัติในส่วนของ GroupHeader ... ให้สังเกตว่ามีการจัดกลุ่มด้วยฟิลด์ OrderID


ตัวอย่างคุณสมบัติในส่วนของ Detail ... DataField แต่ละตัวจะต้องพิมพ์เอง ตามชื่อฟิลด์จากตารางข้อมูล


ตัวอย่างคุณสมบัติในส่วนของ GroupFooter ... จะมีการทำคำสั่งในส่วนของ Summary เพื่อสรุปยอดเงิน


ส่วนของ Script ซึ่งในตัวอย่างจะเป็น C# แต่ แอดมินเปลี่ยนเป็น VB.NET แทน และเพิ่มโค้ดในส่วนของ GroupFooter1_BeforePrint ซึ่งแอดมินชอบแบบเขียนคำสั่งลงใน Designer มากกว่า


มาดูโค้ดฉบับเต็มสำหรับฟอร์มหลัก ...

1. Public Class frmAR6DataSet
   
2. 
   
3.     Private Sub frmAR6DataSet_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
4.         'Create the report
   
5.         Dim rpt As New ARUnboundDS()
   
6. 
   
7.         'Run and view the report
   
8.         rpt.Run(False)
   
9.         Me.Viewer1.Document = rpt.Document
   
10.     End Sub
    
11. 
    
12. End Class

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

โค้ดในส่วนของ ActiveReports ...

1. Imports System
   
2. Imports System.Data
   
3. Imports System.Data.OleDb
   
4. Imports System.Globalization
   
5. Imports DataDynamics.ActiveReports
   
6. Imports DataDynamics.ActiveReports.Document
   
7. 
   
8. Public Class ARUnboundDS
   
9.     'DataSource for the report
   
10.     Private _InvoiceData As DataSet
    
11.     Private _RowCounter As Integer
    
12. 
    
13.     ' DataInitialize Event
    
14.     ' ActiveReports event that is called during the report initalization
    
15.     ' procedure. (after .Run is called on your report object)  Normally used
    
16.     ' with unbound reporting to establish an active connection to your data
    
17.     ' to be used with the FetchData event, or to setup a bound report with a
    
18.     ' dynamic database connection at runtime.
    
19.     Private Sub ARUnboundDS_DataInitialize(sender As Object, e As System.EventArgs) Handles Me.DataInitialize
    
20.         'Dataset to hold data
    
21.         _InvoiceData = New DataSet()
    
22.         _InvoiceData.Locale = CultureInfo.InvariantCulture
    
23. 
    
24.         'Database connection populated from the sample Northwind access database
    
25.         'MsgBox(GetDBPath.GetNwindConnectString)
    
26.         Dim _nwindConn As New OleDbConnection(GetDBPath.GetNwindConnectString)
    
27. 
    
28.         'SQL Select command to run against the database
    
29.         Dim _selectCMD As New OleDbCommand("SELECT * FROM Invoices ORDER BY Customers.CompanyName, OrderID", _nwindConn)
    
30.         _selectCMD.CommandTimeout = 30
    
31. 
    
32.         'Data adapter used to run the select command
    
33.         Dim _InvoicesDA As New OleDbDataAdapter()
    
34.         _InvoicesDA.SelectCommand = _selectCMD
    
35. 
    
36.         'Fill the DataSet
    
37.         _InvoicesDA.Fill(_InvoiceData, "Invoices")
    
38. 
    
39.         'Initialize counter to first row of the DataSet        
    
40.         _RowCounter = 0
    
41. 
    
42.         'Add all the columns from the DataSet as Fields for the report
    
43.         Dim i As Integer
    
44.         For i = 0 To (_InvoiceData.Tables(0).Columns.Count) - 1
    
45.             Me.Fields.Add(_InvoiceData.Tables(0).Columns(i).ColumnName)
    
46.         Next i
    
47. 
    
48.         'Add Calculated Fields
    
49.         Me.Fields.Add("DiscountTotal")
    
50. 
    
51.     End Sub
    
52. 
    
53.     ' FetchData Event
    
54.     ' ActiveReports event that is called during the report run once per
    
55.     ' row from the dataset.  This event is usually only used in unbound reporting,
    
56.     ' you would set the Fields collection value to the value from your dataset and
    
57.     ' advance the next row.  When you run out of data, you should set the
    
58.     ' FetchEventArgs argument's EOF field to true to tell the report that the report
    
59.     ' is done with the data.
    
60.     Private Sub ARUnboundDS_FetchData(sender As Object, eArgs As DataDynamics.ActiveReports.ActiveReport.FetchEventArgs) Handles Me.FetchData
    
61.         If _RowCounter = _InvoiceData.Tables(0).Rows.Count Then
    
62.             'If the row counter has reached the end of the data then
    
63.             'set the eArgs.EOF flag to true and exit the procedure
    
64.             eArgs.EOF = True
    
65.             Return
    
66.         Else
    
67.             'Populate the fields collection from the DataSet
    
68.             Dim i As Integer
    
69.             For i = 0 To (_InvoiceData.Tables(0).Columns.Count) - 1
    
70.                 Me.Fields(_InvoiceData.Tables(0).Columns(i).ColumnName).Value = _InvoiceData.Tables(0).Rows(_RowCounter)(i)
    
71.             Next i
    
72. 
    
73.             'Add Unbound DiscountTotal Field total to instance of the Fields collection (for data binding and summary totaling in the group footer)
    
74.             Me.Fields("DiscountTotal").Value = Convert.ToDouble(Me.Fields("UnitPrice").Value, CultureInfo.CurrentCulture) * Convert.ToInt32(Me.Fields("Quantity").Value, CultureInfo.InvariantCulture) * Convert.ToDouble(Me.Fields("Discount").Value, CultureInfo.CurrentCulture)
    
75. 
    
76.             'Advance Row Counter
    
77.             eArgs.EOF = False
    
78.             _RowCounter += 1
    
79.         End If
    
80.     End Sub
    
81. 
    
82.     Private Sub ARUnboundDS_ReportStart(sender As Object, e As System.EventArgs) Handles Me.ReportStart
    
83.         With PageSettings
    
84.             ' In inches unit.
    
85.             .Margins.Left = CmToInch(2) ' Convert centimeters to inches.
    
86.             .Margins.Right = CmToInch(1.2)
    
87.             .Margins.Top = 1
    
88.             .Margins.Bottom = 1
    
89.             ' Vertical paper setting.
    
90.             .Orientation = PageOrientation.Portrait
    
91.             ' Paper Size A4.
    
92.             .PaperKind = Drawing.Printing.PaperKind.A4
    
93.         End With
    
94.     End Sub
    
95. 
    
96.     '// If you don't use script from Designer.
    
97.     'Private Sub GroupFooter1_BeforePrint(sender As Object, e As System.EventArgs) Handles GroupFooter1.BeforePrint
    
98.     '    txtTotal.Text = Format(CDbl(txtSubTotal.Value) + CDbl(txtFreight.Value), "$###,##0.00")
    
99.     'End Sub
    
100. End Class

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

โมดูลในการกำหนดตำแหน่งของไฟล์ฐานข้อมูล ... GetDBPath.vb

1. ' GetDBPath is a helper class used to locate the Northwind sample database on the computer.
   
2. NotInheritable Class GetDBPath
   
3.     ' Used to get the full connection string to the Sample Database installed with ActiveReports
   
4.     ' Returns: String variable with the full connection string to the Sample Database      
   
5.     Public Shared ReadOnly Property GetNwindConnectString() As String
   
6.         Get
   
7.             Return "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" + GetDBPath.GetPath(Application.StartupPath) + "nwind.mdb"
   
8.         End Get
   
9.     End Property
   
10. 
    
11.     Public Shared Function GetPath(ByVal MyPath As String) As String
    
12.         '/ Replace folder.
    
13.         MyPath = MyPath.ToLower.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "").Replace("\bin\x86\release", "")
    
14.         '// If not found folder then put the \ (BackSlash ASCII Code = 92) at the end.
    
15.         If Microsoft.VisualBasic.Right(MyPath, 1) <> Chr(92) Then MyPath = MyPath & Chr(92)
    
16.         Return MyPath
    
17.     End Function 'GetPath
    
18. End Class

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

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

g2gsoftuser

ขอบคุณครับ