โค้ด:

1. ' / ----------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' / Purpose: Print bill payment for rented room.
   
8. ' / Microsoft Visual Basic .NET (2010) & MS Excel 2003+
   
9. ' /
   
10. ' / This is open source code under @CopyLeft by Thongkorn Tubtimkrob.
    
11. ' / You can modify and/or distribute without to inform the developer.
    
12. ' / ----------------------------------------------------------------
    
13. Imports System.Data.OleDb
    
14. 
    
15. Public Class frmMainBill
    
16.     Dim ColCount As Integer
    
17.     Dim DT As DataTable
    
18.     Dim DR As OleDbDataReader
    
19. 
    
20.     Private Sub btnBrowse_Click(sender As System.Object, e As System.EventArgs) Handles btnBrowse.Click
    
21.         '/ ประกาศใช้งาน Open File Dialog ในแบบ Run Time
    
22.         Dim dlgOpenFile As OpenFileDialog = New OpenFileDialog()
    
23. 
    
24.         ' / ตั้งค่าการใช้งาน Open File Dialog
    
25.         With dlgOpenFile
    
26.             .InitialDirectory = MyPath(Application.StartupPath)
    
27.             .Title = "เลือกไฟล์ MS Excel"
    
28.             .Filter = "MS Excel Files (*.xlsx;*.xls)|*.xlsx;*xls"
    
29.             .FilterIndex = 1
    
30.             .RestoreDirectory = True
    
31.         End With
    
32.         '/ หากเลือกปุ่ม OK หลังจากการ Browse ...
    
33.         If dlgOpenFile.ShowDialog() = DialogResult.OK Then
    
34.             txtFileName.Text = dlgOpenFile.FileName
    
35.             Dim strConn As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
    
36.                 dlgOpenFile.FileName & "; Extended Properties=""Excel 12.0 Xml; HDR=YES"";"
    
37.             Dim Conn As New OleDbConnection(strConn)
    
38.             Conn.Open()
    
39.             '/ มอง WorkSheet ให้เป็นตารางข้อมูล (Table)
    
40.             Dim dtSheets As DataTable = Conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing)
    
41.             Dim drSheet As DataRow
    
42. 
    
43.             cmbSheetName.Items.Clear()
    
44.             '/ นำรายชื่อ WorkSheet ทั้งหมด มาเก็บไว้ที่ ComboBox เพื่อรอให้ User เลือกนำไปใช้งานเอง
    
45.             For Each drSheet In dtSheets.Rows
    
46.                 cmbSheetName.Items.Add(drSheet("TABLE_NAME").ToString())
    
47.             Next
    
48.             Conn.Close()
    
49.             '//
    
50.             dgvData.Columns.Clear()
    
51.         End If
    
52. 
    
53.     End Sub
    
54. 
    
55.     Private Sub cmbSheetName_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbSheetName.SelectedIndexChanged
    
56.         Dim Conn As OleDbConnection
    
57.         Dim Cmd As OleDbCommand
    
58.         Dim DAP As OleDbDataAdapter
    
59.         Dim DS As DataSet
    
60. 
    
61.         '// Clear all columns.
    
62.         dgvData.Columns.Clear()
    
63. 
    
64.         Dim strConn As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
    
65.             txtFileName.Text & "; Extended Properties=""Excel 12.0 Xml; HDR=YES"";"
    
66.         Try
    
67.             Conn = New OleDbConnection
    
68.             Conn.ConnectionString = strConn
    
69.             Cmd = New OleDbCommand
    
70.             Dim Sql As String = "Select * FROM [" & cmbSheetName.Text & "]"
    
71.             If Conn.State = ConnectionState.Closed Then Conn.Open()
    
72.             Cmd.Connection = Conn
    
73.             Cmd.CommandText = Sql
    
74.             DR = Cmd.ExecuteReader()
    
75.             DT = New DataTable
    
76.             Dim iCol As Integer
    
77.             '/ เริ่มอ่านค่าหลักจาก Excel เข้ามา ตั้งแต่ #ชื่อผู้เช่า (หลัก 0)
    
78.             For iCol = 0 To DR.FieldCount - 1
    
79.                 DT.Columns.Add(DR.GetName(iCol))
    
80.                 '// ตั้งแต่หลักที่ 3 คอลัมน์ C (ค่าห้อง) ขึ้นไป จะมีแต่ตัวเลข จึงต้องกำหนด Data Type เป็น Double
    
81.                 If iCol >= 3 Then
    
82.                     DT.Columns(iCol).DataType = GetType(Double)
    
83.                 End If
    
84.             Next
    
85.             '// อ่านค่าจำนวนแถวเข้ามา
    
86.             If DR.HasRows Then
    
87.                 While DR.Read
    
88.                     Dim DRow As DataRow = DT.NewRow
    
89.                     For i = 0 To DR.FieldCount - 1
    
90.                         DRow(i) = DR.Item(i).ToString
    
91.                     Next
    
92.                     '// Next row
    
93.                     DT.Rows.Add(DRow)
    
94.                 End While
    
95.             End If
    
96.             '// ผูก DataTable เข้าสู่ตารางกริด
    
97.             dgvData.DataSource = DT
    
98. 
    
99.             '// เพิ่มปุ่มคำสั่งเข้ามาไว้ท้ายสุดในตารางกริดสำหรับการสั่ง Preview
    
100.             Dim btn As New DataGridViewButtonColumn()
     
101.             dgvData.Columns.Add(btn)
     
102.             With btn
     
103.                 .HeaderText = ""
     
104.                 .Text = "Preview"
     
105.                 .Name = "btnPreview"
     
106.                 .UseColumnTextForButtonValue = True
     
107.             End With
     
108.             ColCount = DT.Columns.Count
     
109.             '// จัดระเบียบตารางกริด
     
110.             Call InitGrid()
     
111. 
     
112.         Catch ex As Exception
     
113.             MessageBox.Show(ex.Message)
     
114.         Finally
     
115.             Conn = Nothing
     
116.             Cmd = Nothing
     
117.             DAP = Nothing
     
118.             DS = Nothing
     
119.         End Try
     
120.     End Sub
     
121. 
     
122.     ' / --------------------------------------------------------------------------------
     
123.     '// Initialize DataGridView @Run Time
     
124.     Private Sub InitGrid()
     
125.         '// Setup each column
     
126.         With dgvData
     
127.             '// Column 2 to 9
     
128.             For i As Byte = 2 To ColCount - 1
     
129.                 ' Header Alignment
     
130.                 .Columns(i).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
     
131.                 ' Cell Alignment
     
132.                 .Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
     
133.                 '// Value type
     
134.                 .Columns(i).ValueType = GetType(Double)
     
135.                 '// Format Number
     
136.                 .Columns(i).DefaultCellStyle.Format = "N2"
     
137.                 '// กรณีต้องการปิดการแสดงผลจำนวนหน่วย (ตั้งแต่หลัก F ค่าไฟฟ้าต่อหน่วย)
     
138.                 'If i >= 5 Then
     
139.                 '// ปิดการแสดงผลหลัก 5, 7 และหลัก 9 (การหารเอาเศษเลขจำนวนเต็มด้วย 2 หากได้คำตอบเป็น 1 คือเลขคี่)
     
140.                 'If (i Mod 2) = 1 Then .Columns(i).Visible = False
     
141.                 'End If
     
142.             Next
     
143.         End With
     
144.         With dgvData
     
145.             .RowHeadersVisible = False
     
146.             .AllowUserToAddRows = False
     
147.             .AllowUserToDeleteRows = False
     
148.             .AllowUserToResizeRows = False
     
149.             .MultiSelect = False
     
150.             .SelectionMode = DataGridViewSelectionMode.FullRowSelect
     
151.             .ReadOnly = True
     
152.             .Font = New Font("Tahoma", 9)
     
153.             ' Autosize Column
     
154.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
     
155.             .AutoResizeColumns()
     
156.             '// Even-Odd Color
     
157.             .AlternatingRowsDefaultCellStyle.BackColor = Color.AliceBlue
     
158.             ' Adjust Header Styles
     
159.             With .ColumnHeadersDefaultCellStyle
     
160.                 .BackColor = Color.Navy
     
161.                 .ForeColor = Color.Black
     
162.                 '.Font = New Font("Tahoma", 9, FontStyle.Bold)
     
163.                 .WrapMode = DataGridViewTriState.False
     
164.             End With
     
165.         End With
     
166.     End Sub
     
167. 
     
168.     Private Sub txtFileName_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtFileName.KeyPress
     
169.         '// Protect any key press in TextBox.
     
170.         e.Handled = True
     
171.     End Sub
     
172. 
     
173.     Private Sub dgvData_CellClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvData.CellClick
     
174.         Select Case e.ColumnIndex
     
175.             Case ColCount
     
176.                 'MsgBox(("Row : " + e.RowIndex.ToString & "  Col : ") + e.ColumnIndex.ToString)
     
177.                 Dim colName As String = dgvData.Columns(e.ColumnIndex).Name
     
178.                 If colName = "btnPreview" Then Call PreviewData()
     
179.         End Select
     
180.     End Sub
     
181. 
     
182.     Private Sub dgvData_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles dgvData.KeyDown
     
183.         If e.KeyCode = Keys.Enter Then
     
184.             Call dgvData_DoubleClick(sender, e)
     
185.             e.SuppressKeyPress = True
     
186.         End If
     
187.     End Sub
     
188. 
     
189.     Private Sub dgvData_CellContentClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvData.CellContentClick
     
190.         '
     
191.     End Sub
     
192. 
     
193.     Private Sub dgvData_DoubleClick(sender As Object, e As System.EventArgs) Handles dgvData.DoubleClick
     
194.         If dgvData.Rows.Count <= 0 Then Exit Sub
     
195.         Call PreviewData()
     
196.     End Sub
     
197. 
     
198.     ' / ----------------------------------------------------------------
     
199.     ' / Preview
     
200.     Private Sub PreviewData()
     
201.         Try
     
202.             '/ Instance name ARDesigner มันจะชี้ไปที่ไฟล์ arRentRoomBill.vb
     
203.             Dim rpt As New arRentRoomBill
     
204.             '/ โหลดรายงาน document (arRentRoomBill) เข้าสู่ ActiveReports Viewer
     
205.             '// Zoom 90%
     
206.             Me.Viewer1.ReportViewer.Zoom = 0.9
     
207.             Me.Viewer1.Document = rpt.Document
     
208.             '/ Run Report
     
209.             rpt.Run()
     
210.         Catch ex As Exception
     
211.             MessageBox.Show(ex.Message)
     
212.         End Try
     
213.     End Sub
     
214. 
     
215.     Private Sub ToolStripStatusLabel2_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripStatusLabel2.Click
     
216.         Process.Start("https://www.facebook.com/g2gnet")
     
217.     End Sub
     
218. 
     
219.     Private Sub itemBtnExit_Click(sender As System.Object, e As System.EventArgs) Handles itemBtnExit.Click
     
220.         Me.Close()
     
221.     End Sub
     
222. 
     
223.     Private Sub itemBtnSetup_Click(sender As System.Object, e As System.EventArgs) Handles itemBtnSetup.Click
     
224.         frmSetting.ShowDialog()
     
225.     End Sub
     
226. 
     
227.     Private Sub itemBtnAbout_Click(sender As System.Object, e As System.EventArgs) Handles itemBtnAbout.Click
     
228.         frmAboutMe.ShowDialog()
     
229.     End Sub
     
230. 
     
231.     Private Sub ToolStripStatusLabel3_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripStatusLabel3.Click
     
232.         Process.Start("http://www.g2gnet.com")
     
233.     End Sub
     
234. 
     
235.     Private Sub frmMainBill_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
     
236.         Me.Dispose()
     
237.         Application.Exit()
     
238.     End Sub
     
239. 
     
240.     Private Sub frmMainBill_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
     
241.         Me.ToolStrip1.Cursor = Cursors.Hand
     
242.     End Sub
     
243. 
     
244. End Class

โค้ด:

1. ' / --------------------------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' / Purpose: Setting up information.
   
8. ' / Microsoft Visual Basic .NET (2010) & MS Excel 2003+
   
9. ' /
   
10. ' / This is open source code under @CopyLeft by Thongkorn Tubtimkrob.
    
11. ' / You can modify and/or distribute without to inform the developer.
    
12. ' / --------------------------------------------------------------------------------
    
13. Public Class frmSetting
    
14.     Dim strFileINI As String
    
15. 
    
16.     Private Sub frmSetting_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    
17.         Select Case e.KeyCode
    
18.             Case Keys.F8
    
19.                 Call btnSave_Click(sender, e)
    
20.             Case Keys.Escape
    
21.                 Me.Close()
    
22.         End Select
    
23.     End Sub
    
24. 
    
25.     ' / --------------------------------------------------------------------------------
    
26.     Private Sub frmSetting_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
27.         strFileINI = MyPath(Application.StartupPath) & "Config.ini"
    
28.         '// เช็คว่ามีไฟล์ Config.ini อยู่หรือไม่???
    
29.         If My.Computer.FileSystem.FileExists(strFileINI) Then
    
30.             txtOwner.Text = ReadIni(strFileINI, "Config", "Owner", "")
    
31.             txtAddress.Text = ReadIni(strFileINI, "Config", "Address", "")
    
32.             txtHeaderBill.Text = ReadIni(strFileINI, "Config", "HeaderBill", "")
    
33.             txtElectricRate.Text = ReadIni(strFileINI, "Config", "ElectricRate", "")
    
34.             txtWaterRate.Text = ReadIni(strFileINI, "Config", "WaterRate", "")
    
35.             txtRemark1.Text = ReadIni(strFileINI, "Config", "Remark1", "")
    
36.             txtRemark2.Text = ReadIni(strFileINI, "Config", "Remark2", "")
    
37.             '// กรณีไม่เจอ ให้เริ่มต้นค่าใหม่
    
38.         Else
    
39.             txtOwner.Text = "ทองก้อน อพาร์ทเมนท์ แอนด์ โฮมเพลย์สเตชั่น"
    
40.             txtAddress.Text = "123/456 ถ.กลางเมือง ต.เมืองเก่า อ.เมือง จ.ขอนแก่น โทร.043-XXX-XXX"
    
41.             txtHeaderBill.Text = "- ใบแจ้งค่าใช้จ่าย -"
    
42.             txtElectricRate.Text = "10"
    
43.             txtWaterRate.Text = "5"
    
44.             txtRemark1.Text = "[1] กรุณาชำระเงินภายในวันที่ 5 ของทุกเดือน"
    
45.             txtRemark2.Text = "[2] ชำระค่าปรับล่าช้าวันละ 50 บาท"
    
46.         End If
    
47.     End Sub
    
48. 
    
49.     Private Sub txtElectricRate_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtElectricRate.KeyPress
    
50.         e.Handled = CheckDigitOnly(Asc(e.KeyChar))
    
51.     End Sub
    
52. 
    
53.     ' / --------------------------------------------------------------------------------
    
54.     '// บันทึกไฟล์ INI
    
55.     Private Sub btnSave_Click(sender As System.Object, e As System.EventArgs) Handles btnSave.Click
    
56.         WriteIni(strFileINI, "Config", "Owner", txtOwner.Text)
    
57.         WriteIni(strFileINI, "Config", "Address", txtAddress.Text)
    
58.         WriteIni(strFileINI, "Config", "HeaderBill", txtHeaderBill.Text)
    
59.         If txtElectricRate.Text.Length <> 0 Then
    
60.             WriteIni(strFileINI, "Config", "ElectricRate", txtElectricRate.Text)
    
61.         Else
    
62.             WriteIni(strFileINI, "Config", "ElectricRate", "0")
    
63.         End If
    
64.         If txtWaterRate.Text.Length <> 0 Then
    
65.             WriteIni(strFileINI, "Config", "WaterRate", txtWaterRate.Text)
    
66.         Else
    
67.             WriteIni(strFileINI, "Config", "WaterRate", "0")
    
68.         End If
    
69.         WriteIni(strFileINI, "Config", "Remark1", txtRemark1.Text)
    
70.         WriteIni(strFileINI, "Config", "Remark2", txtRemark2.Text)
    
71.         '//
    
72.         MessageBox.Show("บันทึกการตั้งค่าระบบเรียบร้อย.", "รายงานสถานะ", MessageBoxButtons.OK, MessageBoxIcon.Information)
    
73.         Me.Close()
    
74.     End Sub
    
75. 
    
76.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
    
77.         Me.Close()
    
78.     End Sub
    
79. 
    
80.     Private Sub frmSetting_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    
81.         Me.Dispose()
    
82.     End Sub
    
83. 
    
84.     Private Sub txtOwner_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtOwner.KeyPress
    
85.         If e.KeyChar = Chr(13) Then
    
86.             e.Handled = True
    
87.             SendKeys.Send("{TAB}")
    
88.         End If
    
89.     End Sub
    
90. 
    
91.     Private Sub txtAddress_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtAddress.KeyPress
    
92.         If e.KeyChar = Chr(13) Then
    
93.             e.Handled = True
    
94.             SendKeys.Send("{TAB}")
    
95.         End If
    
96.     End Sub
    
97. 
    
98.     Private Sub txtRemark1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtRemark1.KeyPress
    
99.         If e.KeyChar = Chr(13) Then
    
100.             e.Handled = True
     
101.             SendKeys.Send("{TAB}")
     
102.         End If
     
103.     End Sub
     
104. 
     
105.     Private Sub txtRemark2_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtRemark2.KeyPress
     
106.         If e.KeyChar = Chr(13) Then
     
107.             e.Handled = True
     
108.             SendKeys.Send("{TAB}")
     
109.         End If
     
110.     End Sub
     
111. 
     
112.     Private Sub txtHeaderBill_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtHeaderBill.KeyPress
     
113.         If e.KeyChar = Chr(13) Then
     
114.             e.Handled = True
     
115.             SendKeys.Send("{TAB}")
     
116.         End If
     
117.     End Sub
     
118. End Class

โค้ด:

1. ' / --------------------------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' / Purpose: Print bill payment for rented room.
   
8. ' / Microsoft Visual Basic .NET (2010) & MS Excel 2003+
   
9. ' /
   
10. ' / This is open source code under @CopyLeft by Thongkorn Tubtimkrob.
    
11. ' / You can modify and/or distribute without to inform the developer.
    
12. ' / --------------------------------------------------------------------------------
    
13. Imports DataDynamics.ActiveReports
    
14. Imports DataDynamics.ActiveReports.Document
    
15. Imports DataDynamics.ActiveReports.Document.DDPaperSize
    
16. Imports System.Drawing.Printing.PaperSize
    
17. Imports System.Data.OleDb
    
18. 
    
19. Public Class arRentRoomBill
    
20.     '// ตัวแปรนี้ต้องประกาศเป็นแบบ Public (เฉพาะ arRoomReciept) เพื่อให้ส่วนของ Detail1_Format และ FetchData มองเห็นด้วย
    
21.     Private ItemNo As Integer
    
22.     Private GrandTotal As Double
    
23.     '// เลือกจากแถวในตารางกริด
    
24.     Private sRow As Integer
    
25.     '// ตัวแปรนับหลัก โดยเริ่มต้นที่ 2 และเพิ่มขึ้นทีละ 2 (Detail1_Format)
    
26.     Private sCol As Integer
    
27. 
    
28.     Private Sub arRoomReciept_ReportStart(sender As Object, e As System.EventArgs) Handles Me.ReportStart
    
29.         ' การตั้งค่าหน้ากระดาษ
    
30.         With PageSettings
    
31.             '/ หน่วยวัดเป็นนิ้ว
    
32.             .Margins.Left = CmToInch(1) '/ แปลงค่า 1.0 ซม. เป็นนิ้ว
    
33.             .Margins.Right = 0.1
    
34.             .Margins.Top = 0.5
    
35.             .Margins.Bottom = 0.2
    
36.             '/ ตั้งค่ากระดาษแนวตั้ง
    
37.             .Orientation = PageOrientation.Portrait
    
38.             '.Orientation = PageOrientation.Landscape
    
39.             ' กระดาษขนาด A4
    
40.             '.PaperKind = Drawing.Printing.PaperKind.A4
    
41.             '/ กรณีที่กำหนดขนาดกระดาษเอง
    
42.             .PaperKind = Drawing.Printing.PaperKind.Custom
    
43.             .PaperWidth = CmToInch(21) '/ 21 ซม.
    
44.             .PaperHeight = CmToInch(14.8)
    
45.         End With
    
46.         ' ปกติต้องเคลียร์ค่าต่างๆของ TextBox ก่อนการพิมพ์
    
47.         txtItem.Text = ""
    
48.         txtDesc.Text = ""
    
49.         txtUnitPrice.Text = ""
    
50.         txtQTY.Text = ""
    
51.         txtAmount.Text = ""
    
52.         txtGrandTotal.Text = ""
    
53.         '// แสดงกิจการและที่อยู่ โดยการอ่านค่าจาก INI (Initialized File)
    
54.         Dim strFileINI As String = MyPath(Application.StartupPath) & "Config.ini"
    
55.         If My.Computer.FileSystem.FileExists(strFileINI) Then
    
56.             txtOwner.Text = ReadIni(strFileINI, "Config", "Owner", "")
    
57.             txtAddress.Text = ReadIni(strFileINI, "Config", "Address", "")
    
58.             txtHeaderBill.Text = ReadIni(strFileINI, "Config", "HeaderBill", "")
    
59.             lblRemark1.Text = ReadIni(strFileINI, "Config", "Remark1", "")
    
60.             lblRemark2.Text = ReadIni(strFileINI, "Config", "Remark2", "")
    
61.             '// กรณีไม่เจอ ให้เริ่มต้นค่าใหม่
    
62.         Else
    
63.             txtOwner.Text = "ทองก้อน อพาร์ทเมนท์ แอนด์ โฮมเพลย์สเตชั่น"
    
64.             txtAddress.Text = "123/456 ถ.กลางเมือง ต.เมืองเก่า อ.เมือง จ.ขอนแก่น โทร.043-XXX-XXX"
    
65.             txtHeaderBill.Text = "- ใบแจ้งค่าใช้จ่าย -"
    
66.             lblRemark1.Text = "[1] กรุณาชำระเงินภายในวันที่ 5 ของทุกเดือน"
    
67.             lblRemark2.Text = "[2] ชำระค่าปรับล่าช้าวันละ 50 บาท"
    
68.         End If
    
69.         txtDate.Text = FormatDateTime(Now(), DateFormat.GeneralDate)
    
70.         '// อ่านค่าชื่อ WorkSheet มาพิมพ์ประจำเดือน (ตัวอย่าง "กรกฎาคม 2561")
    
71.         Dim strMonth As String = frmMainBill.cmbSheetName.Text
    
72.         '// ตัดคำที่ไม่ต้องการ
    
73.         strMonth = strMonth.Replace("'", "").Replace("[        DISCUZ_CODE_2        ]quot;, "")
    
74.         txtDateReciept.Text = strMonth
    
75. 
    
76.         '// รับค่า "แถว" ที่ถูกเลือกในตารางกริด
    
77.         sRow = frmMainBill.dgvData.CurrentRow.Index
    
78.         txtCname.Text = frmMainBill.dgvData.Rows(sRow).Cells(0).Value
    
79.         txtRoomNo.Text = frmMainBill.dgvData.Rows(sRow).Cells(1).Value
    
80.         '//
    
81.         ItemNo = 0
    
82.         '// ตั้งค่าหลักแรกที่จะพิมพ์คือหลักที่ 2 (หน่วยค่าห้อง)
    
83.         sCol = 2
    
84.     End Sub
    
85. 
    
86.     Private Sub arRoomReciept_FetchData(sender As Object, eArgs As DataDynamics.ActiveReports.ActiveReport.FetchEventArgs) Handles Me.FetchData
    
87.         ItemNo = ItemNo + 1
    
88.         '/ ตรวจสอบจำนวนการพิมพ์ทั้งหมด ซึ่งจะมีทั้งหมด 10 หลัก แต่จะใช้การนับหลักเพิ่มทีละ 2
    
89.         '/ จึงใช้ \ หรือการหารตัดเศษทิ้งด้วย 2 ก็จะได้หลักมา 5 หลักเท่านั้น
    
90.         If ItemNo >= frmMainBill.dgvData.Columns.Count \ 2 Then
    
91.             '/ หากหมดแล้วก็จบการพิมพ์
    
92.             eArgs.EOF = True
    
93.             Exit Sub
    
94.             '/ ยังไม่หมดข้อมูลในหลักที่จะพิมพ์
    
95.         Else
    
96.             eArgs.EOF = False
    
97.         End If
    
98.     End Sub
    
99. 
    
100.     Private Sub Detail1_Format(sender As Object, e As System.EventArgs) Handles Detail1.Format
     
101.         '// ItemNo หรือลำดับที่ โดยจะเริ่มจาก 1 (กระโดดไปทำงานที่ FetchData ก่อนลงมาใน Detail1_Format)
     
102.         txtItem.Text = ItemNo
     
103.         With frmMainBill
     
104.             '// ชื่อผู้เช่า (0), หมายเลขห้อง (1)
     
105.             '// อ่านค่าเริ่มจากหลัก 2
     
106.             '// 1 หน่วยค่าห้อง (2), ค่าเช่าห้อง (3), ค่าไฟฟ้า(4), ค่าไฟฟ้าต่อหน่วย (5) ... ไล่ไปทีละคู่
     
107.             txtDesc.Text = .dgvData.Columns(sCol).HeaderText
     
108.             txtQTY.Text = Format(Val(.dgvData.Rows(sRow).Cells(sCol).Value), "#,##0.00")
     
109.             '// อ่านค่าข้อมูลจากแถวที่เลือกมา (sRow) และข้อมูลอยู่ในหลัก 2 (และเลื่อนหลักถัดๆไปโดยให้ sCol เพิ่มขึ้นทีละ 2)
     
110.             txtUnitPrice.Text = Format(Val(.dgvData.Rows(sRow).Cells(sCol + 1).Value), "#,##0.00")
     
111.             txtAmount.Text = Format(CDbl(txtUnitPrice.Text) * CDbl(txtQTY.Text), "#,##0.00")
     
112.         End With
     
113.         '/ รวมจำนวนเงินผ่านทางตัวแปร
     
114.         GrandTotal = GrandTotal + CDbl(txtAmount.Text)
     
115.         txtGrandTotal.Text = "รวมเงิน: " & Format(GrandTotal, "#,##0.00") & " บาท."
     
116.         sCol += 2
     
117.     End Sub
     
118. 
     
119. End Class

โค้ด:

1. Imports System.Data
   
2. Imports System.Data.OleDb
   
3. Module modFunction
   
4. 
   
5.     ' / --------------------------------------------------------------------------------
   
6.     ' / Initialized Management
   
7.     Private Declare Unicode Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringW" ( _
   
8.         ByVal lpApplicationName As String, _
   
9.         ByVal lpKeyName As String, _
   
10.         ByVal lpString As String, _
    
11.         ByVal lpFileName As String _
    
12.         ) As Int32
    
13. 
    
14.     Private Declare Unicode Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringW" ( _
    
15.         ByVal lpApplicationName As String, _
    
16.         ByVal lpKeyName As String, _
    
17.         ByVal lpDefault As String, _
    
18.         ByVal lpReturnedString As String, _
    
19.         ByVal nSize As Int32, _
    
20.         ByVal lpFileName As String _
    
21.         ) As Int32
    
22.     ' / --------------------------------------------------------------------------------
    
23. 
    
24.     ' / --------------------------------------------------------------------------------
    
25.     Public Sub WriteIni(ByVal iniFileName As String, ByVal Section As String, ByVal ParamName As String, ByVal ParamVal As String)
    
26.         Dim Result As Integer = WritePrivateProfileString(Section, ParamName, ParamVal, iniFileName)
    
27.     End Sub
    
28. 
    
29.     Public Function ReadIni(ByVal IniFileName As String, ByVal Section As String, ByVal ParamName As String, ByVal ParamDefault As String) As String
    
30.         Dim ParamVal As String = Space$(1024)
    
31.         Dim LenParamVal As Long = GetPrivateProfileString(Section, ParamName, ParamDefault, ParamVal, Len(ParamVal), IniFileName)
    
32.         ReadIni = Left$(ParamVal, LenParamVal)
    
33.     End Function
    
34. 
    
35.     ' / --------------------------------------------------------------------------------
    
36.     ' / Get my project path
    
37.     ' / AppPath = C:\My Project\bin\debug
    
38.     ' / Replace "\bin\debug" with ""
    
39.     ' / Return : C:\My Project\
    
40.     Function MyPath(ByVal AppPath As String) As String
    
41.         '/ MessageBox.Show(AppPath);
    
42.         AppPath = AppPath.ToLower()
    
43.         '/ Return Value
    
44.         MyPath = AppPath.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "")
    
45.         '// If not found folder then put the \ (BackSlash) at the end.
    
46.         If Right(MyPath, 1) <> "" Then MyPath = MyPath & ""
    
47.     End Function
    
48. 
    
49.     ' / --------------------------------------------------------------------------------
    
50.     ' / ฟังค์ชั่นในการป้อนเฉพาะค่าตัวเลขได้เท่านั้น
    
51.     Function CheckDigitOnly(ByVal index As Integer) As Boolean
    
52.         Select Case index
    
53.             Case 48 To 57 ' เลข 0 - 9
    
54.                 CheckDigitOnly = False
    
55.             Case 8, 13 ' Backspace = 8, Enter = 13
    
56.                 CheckDigitOnly = False
    
57.             Case Else
    
58.                 CheckDigitOnly = True
    
59.         End Select
    
60.     End Function
    
61. End Module