[VB.NET] แจกฟรีโค้ดโปรแกรมและโปรแกรม รหัสไปรษณีย์ทั่วไทย

thongkorn

ก่อนอื่นก็ต้องขอขอบคุณข้อมูลที่ได้รับมาจากคุณโกสินทร์ ไตรนิคม และ บริษัทไปรษณีย์ไทยจำกัด เป็นอย่างสูงมา ณ ที่นี้ด้วยครับ สำหรับโปรเจคนี้ก็ไม่มีคำอธิบายอะไรมาก เพราะเดิมเคยแจกเป็นโค้ดทั้ง VB6 และ VB.NET มาตั้งนานหลายปีแล้ว พอหลังจากย้ายทั้งโฮสต์ใหม่ เปลี่ยนทั้งเว็บบอร์ดใหม่ ก็เลยพึ่งได้นำมาลงใหม่อีกครั้งครับผม ...


สำหรับผู้ใช้งานทั่วไป ดาวน์โหลดโปรแกรมรหัสไปรษณีย์ทั่วไทย แบบไม่ต้องติดตั้งได้ที่นี่ ...


โค้ดจากฟอร์มหลัก ...

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: Thailand Postcode with VB.Net.
   
8. ' / Microsoft Visual Basic .NET (2010) & MS Access 2007+
   
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 frmPostCode
    
16. 
    
17.     ' / --------------------------------------------------------------------------------
    
18.     ' / Collect all searches and impressions. Come in the same place
    
19.     ' / blnSearch = True, Show that the search results.
    
20.     ' / blnSearch is set to False, Show all records.
    
21.     Private Sub RetrieveData(Optional ByVal blnSearch As Boolean = False)
    
22.         strSQL = _
    
23.             " SELECT PostCode.PostCodeID, PostCode.Tumbon, PostCode.Amphur, " & _
    
24.             " PostCode.Province, PostCode.PostCode, PostCode.Remark " & _
    
25.             " FROM PostCode "
    
26.         '// blnSearch = True for Serach
    
27.         If blnSearch Then
    
28.             strSQL = strSQL & _
    
29.                 " WHERE " & _
    
30.                 " [Tumbon] " & " Like '%" & txtSearch.Text & "%'" & " OR " & _
    
31.                 " [Amphur] " & " Like '%" & txtSearch.Text & "%'" & " OR " & _
    
32.                 " [Province] " & " Like '%" & txtSearch.Text & "%'" & " OR " & _
    
33.                 " [PostCode] " & " Like '%" & txtSearch.Text & "%'" & " OR " & _
    
34.                 " [Remark] " & " Like '%" & txtSearch.Text & "%'" & _
    
35.                 " ORDER BY PostCodeID "
    
36.         Else
    
37.             strSQL = strSQL & " ORDER BY PostCodeID "
    
38.         End If
    
39.         '//
    
40.         If Conn.State = ConnectionState.Closed Then Conn.Open()
    
41.         DA = New OleDb.OleDbDataAdapter(strSQL, Conn)
    
42.         DS = New DataSet
    
43.         DS.Clear()
    
44.         DA.Fill(DS, "PostCode")
    
45.         dgvData.DataSource = DS.Tables("PostCode")
    
46.         lblRecordCount.Text = "[จำนวน : " & dgvData.RowCount & " รายการ]"
    
47.         '//
    
48.         Call InitializeGrid()
    
49.         '//
    
50.         DA.Dispose()
    
51.         DS.Dispose()
    
52.         Conn.Close()
    
53.     End Sub
    
54. 
    
55.     ' / --------------------------------------------------------------------------------
    
56.     ' / Quick search data by specifying keyword.
    
57.     Private Sub txtSearch_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSearch.TextChanged
    
58.         '// Undesirable characters for the database ex.  ', * or %
    
59.         txtSearch.Text = Replace(Trim(txtSearch.Text), "'", "")
    
60.         txtSearch.Text = Replace(Trim(txtSearch.Text), "%", "")
    
61.         txtSearch.Text = Replace(Trim(txtSearch.Text), "*", "")
    
62.         If Trim(txtSearch.Text) = "" Or Len(Trim(txtSearch.Text)) = 0 Then Return
    
63.         '//
    
64.         If Conn.State = ConnectionState.Closed Then Conn.Open()
    
65.         strSQL = _
    
66.             " SELECT PostCode.PostCodeID, PostCode.Tumbon, PostCode.Amphur, " & _
    
67.             " PostCode.Province, PostCode.PostCode, PostCode.Remark " & _
    
68.             " FROM PostCode " & _
    
69.             " WHERE " & _
    
70.             " [Tumbon] " & " Like '%" & txtSearch.Text & "%'" & " OR " & _
    
71.             " [Amphur] " & " Like '%" & txtSearch.Text & "%'" & " OR " & _
    
72.             " [Province] " & " Like '%" & txtSearch.Text & "%'" & " OR " & _
    
73.             " [PostCode] " & " Like '%" & txtSearch.Text & "%'" & " OR " & _
    
74.             " [Remark] " & " Like '%" & txtSearch.Text & "%'" & _
    
75.             " ORDER BY PostCodeID "
    
76.         Cmd = New OleDbCommand(strSQL, Conn)
    
77.         DR = Cmd.ExecuteReader
    
78.         DT = New DataTable
    
79.         DT.Load(DR)
    
80.         dgvData.DataSource = DT
    
81.         lblRecordCount.Text = "[จำนวน : " & dgvData.RowCount & " รายการ]"
    
82.         Call InitializeGrid()
    
83.         '//
    
84.         DT.Dispose()
    
85.         DR.Close()
    
86.         Conn.Close()
    
87.         '//
    
88.     End Sub
    
89. 
    
90.     ' / --------------------------------------------------------------------------------
    
91.     Private Sub InitializeGrid()
    
92.         With dgvData
    
93.             .Columns(0).HeaderText = "PostCodeID"
    
94.             .Columns(0).Visible = False
    
95.             '//
    
96.             .Columns(1).HeaderText = "ตำบล"
    
97.             .Columns(2).HeaderText = "อำเภอ"
    
98.             .Columns(3).HeaderText = "จังหวัด"
    
99.             .Columns(4).HeaderText = "รหัสไปรษณีย์"
    
100.             .Columns(5).HeaderText = "หมายเหตุ"
     
101.             .Columns(5).Visible = False
     
102.             ' Autosize Column
     
103.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
     
104.             .AutoResizeColumns()
     
105.             '// Even-Odd Color
     
106.             .AlternatingRowsDefaultCellStyle.BackColor = Color.AliceBlue
     
107.             ' Adjust Header Styles
     
108.             With .ColumnHeadersDefaultCellStyle
     
109.                 .BackColor = Color.Navy
     
110.                 .ForeColor = Color.Black ' Color.White
     
111.                 .Font = New Font("Tahoma", 9, FontStyle.Bold)
     
112.             End With
     
113.         End With
     
114.     End Sub
     
115. 
     
116.     ' / --------------------------------------------------------------------------------
     
117.     ' / Clear screen
     
118.     Private Sub SetupScreen()
     
119.         txtTumbon.Clear()
     
120.         txtAmphur.Clear()
     
121.         txtProvince.Clear()
     
122.         txtPostCode.Clear()
     
123.         txtRemark.Clear()
     
124.         txtSearch.Clear()
     
125.     End Sub
     
126. 
     
127.     ' / --------------------------------------------------------------------------------
     
128.     ' / Double click to edit item.
     
129.     ' / By pulling data from the DataGridView to display. Do not go to the database again.
     
130.     Private Sub dgvData_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles dgvData.DoubleClick
     
131.         Call SetupScreen()
     
132.         '//
     
133.         Dim iRow As Integer
     
134.         '// Read the value of the focus row.
     
135.         iRow = dgvData.CurrentRow.Index
     
136.         '// Column 0 --> PostCodeID (Primary Key) but hidden it.
     
137.         txtTumbon.Text = "" & dgvData.Item(1, iRow).Value
     
138.         txtAmphur.Text = "" & dgvData.Item(2, iRow).Value
     
139.         txtProvince.Text = "" & dgvData.Item(3, iRow).Value
     
140.         txtPostCode.Text = "" & dgvData.Item(4, iRow).Value
     
141.         txtRemark.Text = "" & dgvData.Item(5, iRow).Value
     
142.         '//
     
143.         txtTumbon.Focus()
     
144.     End Sub
     
145. 
     
146.     ' / --------------------------------------------------------------------------------
     
147.     ' / Copy from Textbox to clipboard.
     
148.     Private Sub btnClipboard_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClipboard.Click
     
149.         Clipboard.SetText(txtTumbon.Text & vbCrLf & txtAmphur.Text & vbTab & txtProvince.Text & vbTab & txtPostCode.Text)
     
150.     End Sub
     
151. 
     
152.     Private Sub frmPostCode_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
     
153.         Call ConnectDataBase()
     
154.         lblRecordCount.Text = ""
     
155.     End Sub
     
156. 
     
157.     Private Sub frmPostCode_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
     
158.         Me.Dispose()
     
159.         Application.Exit()
     
160.     End Sub
     
161. 
     
162.     Private Sub btnRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRefresh.Click
     
163.         Call RetrieveData(False)
     
164.         txtSearch.Clear()
     
165.     End Sub
     
166. 
     
167.     Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
     
168.         Me.Close()
     
169.     End Sub
     
170. 
     
171.     Private Sub txtTumbon_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTumbon.KeyPress
     
172.         If e.KeyChar = Chr(13) Then
     
173.             '// No beep
     
174.             e.Handled = True
     
175.             '// Focus to next control.
     
176.             SendKeys.Send("{TAB}")
     
177.         Else
     
178.             '// Prevent any key press (Lock)
     
179.             e.Handled = True
     
180.         End If
     
181.     End Sub
     
182. 
     
183.     Private Sub txtAmphur_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtAmphur.KeyPress
     
184.         If e.KeyChar = Chr(13) Then
     
185.             '// No beep
     
186.             e.Handled = True
     
187.             SendKeys.Send("{TAB}")
     
188.         Else
     
189.             '// Prevent any key press (Lock)
     
190.             e.Handled = True
     
191.         End If
     
192.     End Sub
     
193. 
     
194.     Private Sub txtProvince_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtProvince.KeyPress
     
195.         If e.KeyChar = Chr(13) Then
     
196.             '// No beep
     
197.             e.Handled = True
     
198.             SendKeys.Send("{TAB}")
     
199.         Else
     
200.             '// Prevent any key press (Lock)
     
201.             e.Handled = True
     
202.         End If
     
203.     End Sub
     
204. 
     
205.     Private Sub txtPostCode_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtPostCode.KeyPress
     
206.         If e.KeyChar = Chr(13) Then
     
207.             '// No beep
     
208.             e.Handled = True
     
209.             SendKeys.Send("{TAB}")
     
210.         Else
     
211.             '// Prevent any key press (Lock)
     
212.             e.Handled = True
     
213.         End If
     
214.     End Sub
     
215. 
     
216.     Private Sub txtRemark_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtRemark.KeyPress
     
217.         If e.KeyChar = Chr(13) Then
     
218.             '// No beep
     
219.             e.Handled = True
     
220.             SendKeys.Send("{TAB}")
     
221.         Else
     
222.             '// Prevent any key press (Lock)
     
223.             e.Handled = True
     
224.         End If
     
225.     End Sub
     
226. End Class

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

โมดูลหากิน modDataBase.vb ...

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. ' / Microsoft Visual Basic .NET (2010)
   
8. ' /
   
9. ' / This is open source code under @Copyleft by Thongkorn Tubtimkrob.
   
10. ' / You can modify and/or distribute without to inform the developer.
    
11. ' / --------------------------------------------------------------------------------
    
12. Imports System.Data.OleDb
    
13. Imports Microsoft.VisualBasic
    
14. 
    
15. Module modDataBase
    
16.     '// Declare variable one time but use many times.
    
17.     Public Conn As OleDbConnection
    
18.     Public Cmd As OleDbCommand
    
19.     Public DS As DataSet
    
20.     Public DR As OleDbDataReader
    
21.     Public DA As OleDbDataAdapter
    
22.     Public DT As DataTable
    
23.     Public strSQL As String '// Major SQL
    
24.     Public strStmt As String    '// Minor SQL
    
25. 
    
26.     '// Data Path
    
27.     Public strPathData As String = MyPath(Application.StartupPath)
    
28. 
    
29.     Public Function ConnectDataBase() As System.Data.OleDb.OleDbConnection
    
30.         strPathData = MyPath(Application.StartupPath)
    
31.         Dim strConn As String = _
    
32.                 "Provider = Microsoft.ACE.OLEDB.12.0;"
    
33.         strConn += _
    
34.             "Data Source = " & strPathData & "PostCodeThailand.accdb"
    
35. 
    
36.         Conn = New OleDb.OleDbConnection(strConn)
    
37.         ' Create Connection
    
38.         Conn.ConnectionString = strConn
    
39.         ' Return
    
40.         Return Conn
    
41.     End Function
    
42. 
    
43.     ' / --------------------------------------------------------------------------------
    
44.     ' / Get my project path
    
45.     ' / AppPath = C:\My Project\bin\debug
    
46.     ' / Replace "\bin\debug" with ""
    
47.     ' / Return : C:\My Project\
    
48.     Function MyPath(AppPath As String) As String
    
49.         '/ MessageBox.Show(AppPath);
    
50.         AppPath = AppPath.ToLower()
    
51.         '/ Return Value
    
52.         MyPath = AppPath.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "")
    
53.         '// If not found folder then put the \ (BackSlash) at the end.
    
54.         If Right(MyPath, 1) <> "" Then MyPath = MyPath & ""
    
55.     End Function
    
56. End Module

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

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

g2gsoftuser

ขอบคุณครับ